6. Створення випадного списку
Для вибору команди з наявного списку використовується компонент ComboBox (випадний список). Його заповнення можна здійснити таким чином
У Інспектора Об'єктів у властивості Items необхідно написати:
Малюнок 31
. Створення звітів
Звіт створюється за допомогою інструменту QReports, який необхідно з початок підключати: Component- gt; install packages- gt; add відкрити папку bin вибрати файл dclqrt70.bpl натиснути OKі тоді з'явиться вкладка з компонентами QReport. Використовувані мною компоненти:
Таблиця 2
КомпонентТіпОпісаніе отчетQuickRepІспользуется для введення в додаток коштів друку звітів QuickReport. Компонент невізуальний. деталіQRSubDetailІспользуется для компонування в звіт додаткових даних. Компонент візуальний. полосаQRBandІспользуется для побудови звітів шляхом розміщення на ньому друкуються компонентів. Компонент візуальний.
17. Лістинг програми
Опис проекту
program Project1;
Forms,
Unit1 in Unit1.pas {Form1},
Unit2 in Unit2.pas {Form2},
Unit3 in Unit3.pas {Form3},
Unit4 in Unit4.pas {Form4},
Unit5 in Unit5.pas {Form5},
Unit6 in Unit6.pas {Form6},
Unit7 in Unit7.pas {Form7},
Unit8 in Unit8.pas {Form8},
Unit9 in Unit9.pas {Form9},
Unit10 in Unit10.pas {Form10},
Unit11 in Unit11.pas {Form11},
Unit12 in Unit12.pas {Form12},
Unit13 in Unit13.pas {Form13},
Unit14 in Unit14.pas {Form14};
{$ R * .res}
Application.Initialize;
Application.CreateForm (TForm1, Form1);
Application.CreateForm (TForm2, Form2);
Application.CreateForm (TForm3, Form3);
Application.CreateForm (TForm4, Form4);
Application.CreateForm (TForm5, Form5);
Application.CreateForm (TForm6, Form6);
Application.CreateForm (TForm7, Form7);
Application.CreateForm (TForm8, Form8);
Application.CreateForm (TForm9, Form9);
Application.CreateForm (TForm10, Form10);
Application.CreateForm (TForm11, Form11);
Application.CreateForm (TForm12, Form12);
Application.CreateForm (TForm13, Form13);
Application.CreateForm (TForm14, Form14);
Application.Run;.
Опис модуля Unit1
Unit1;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm1=class (TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button3Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
{Private declarations}
public
{Public declarations}
end;
Form1: TForm1; Unit2, Unit4, Unit6, Unit7, Unit5, Unit8, Unit9, Unit10;
{$ R * .dfm} TForm1.Button3Click (Sender: TObject) ;. show ;; TForm1.Button2Click (Sender: TObject) ;. Close ;; TForm1.Button1Click (Sender: TObject);.show ;;.
Опис модуля Unit2
unit Unit2;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
TForm2=class (TForm)
Memo1: TMemo;
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
private
{Private declarations}
public