-
Notifications
You must be signed in to change notification settings - Fork 0
/
yiyeeclient.dpr
33 lines (30 loc) · 973 Bytes
/
yiyeeclient.dpr
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program yiyeeclient;
uses
Vcl.Forms,
UMain in 'UMain.pas' {FrmMain},
Vcl.Themes,
Vcl.Styles,
UAbout in 'UAbout.pas' {frmAbout},
SQLite3 in 'SQLite3.pas',
sqlite3udf in 'sqlite3udf.pas',
SQLiteWrap in 'SQLiteWrap.pas',
UDB in 'UDB.pas',
UModels in 'UModels.pas',
UPatientEdit in 'UPatientEdit.pas' {frmPatientEdit},
UMRecord in 'UMRecord.pas' {frmMedicalRecord},
UConst in 'UConst.pas',
UCRecord in 'UCRecord.pas' {frmCaseRecord},
UBodyRecord in 'UBodyRecord.pas' {frmBodyRecord};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
TStyleManager.TrySetStyle('Sapphire Kamri');
Application.CreateForm(TFrmMain, FrmMain);
Application.CreateForm(TfrmAbout, frmAbout);
Application.CreateForm(TfrmPatientEdit, frmPatientEdit);
Application.CreateForm(TfrmCaseRecord, frmCaseRecord);
Application.CreateForm(TfrmBodyRecord, frmBodyRecord);
Application.Title := ApplicationName;
Application.Run;
end.