Приложение е (обязательное) Листинг программы «Окно о программе»
unit About;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TfmAbout = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
Comments: TLabel;
OKButton: TButton;
procedure OKButtonClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmAbout: TfmAbout;
implementation
{$R *.dfm}
procedure TfmAbout.OKButtonClick(Sender: TObject);
begin
Close;
end;
procedure TfmAbout.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfmAbout.FormDestroy(Sender: TObject);
begin
fmAbout:=nil;
end;
end.
Приложение ж (обязательное) Листинг программы «Окно сформировать отчет»
unit GenReport;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, DB, ADODB, DateUtils, COMObj, frxClass,
frxADOComponents;
type
TfmGenReport = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
DateTimePicker1: TDateTimePicker;
Label2: TLabel;
DateTimePicker2: TDateTimePicker;
frxReport1: TfrxReport;
frxADOComponents1: TfrxADOComponents;
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmGenReport: TfmGenReport;
implementation
uses Main;
{$R *.dfm}
procedure TfmGenReport.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TfmGenReport.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfmGenReport.FormDestroy(Sender: TObject);
begin
fmGenReport:=nil;
end;
procedure TfmGenReport.Button1Click(Sender: TObject);
begin
frxReport1.LoadFromFile('report.fr3');
(frxReport1.FindObject('Memo14') as TfrxMemoView).Text:='Список пациентов проходивших обследование за период с '+DateToStr(DateTimePicker1.Date)+' по '+DateToStr(DateTimePicker2.Date);
(frxReport1.FindObject('ADOQuery1') as TfrxADOQuery).ParamByName('DATN').Value:=RecodeTime(DateTimePicker1.Date, 00, 00, 00, 00);
(frxReport1.FindObject('ADOQuery1') as TfrxADOQuery).ParamByName('DATK').Value:=RecodeTime(DateTimePicker2.Date, 23, 59, 59, 00);
frxReport1.ShowReport();
end;
end.
Приложение И
(обязательное)
Архитектура программы
Рисунок И.1 – Архитектура программы
Приложение К
(обязательное)
Структура подчинения листингов программы
Рисунок К.1 – Структура подчинения листингов программы
