Дипломная работа: Автоматизация и обеспечение безопасности учета посещений клиентов в организации "Чудо Доктор"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
93
Приложение 1
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ExtCtrls, StdCtrls, jpeg, Buttons;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
A1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Image1: TImage;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
Label1: TLabel;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
SaveDialog1: TSaveDialog;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
94
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N25Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10;
{$R *.dfm}
procedure TForm1.N3Click(Sender: TObject);
begin
Form2.Show;
form2.TabSheet1.Show;
Form1.Hide;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form2.Show;
form2.TabSheet2.Show;
Form1.Hide;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form2.Show;
form2.TabSheet3.Show;
95
Form1.Hide;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form2.Show;
form2.TabSheet4.Show;
Form1.Hide;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form2.Show;
form2.TabSheet5.Show;
Form1.Hide;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form5.show;
Form1.Hide;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet1.Show;
Form1.Hide;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet2.Show;
Form1.Hide;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet3.Show;
Form1.Hide;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
form6.QuickRep1.Preview;
96
end;
procedure TForm1.N14Click(Sender: TObject);
begin
//form6.QuickRep2.Preview;
end;
procedure TForm1.N15Click(Sender: TObject);
begin
form6.QuickRep3.Preview;
end;
procedure TForm1.N16Click(Sender: TObject);
begin
form6.QuickRep4.Preview;
end;
procedure TForm1.N17Click(Sender: TObject);
begin
//form6.QuickRep5.Preview;
end;
procedure TForm1.N18Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet4.Show;
Form1.Hide;
end;
procedure TForm1.N19Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet5.Show;
Form1.Hide;
end;
procedure TForm1.N20Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet6.Show;
Form1.Hide;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
Form5.Show;
form5.TabSheet7.Show;
Form1.Hide;
end;
procedure TForm1.N26Click(Sender: TObject);
begin
97
if SaveDialog1.Execute then
copyfile(PAnsiChar(ExtractFilePath(application.exename )+'Меркурий.mdb'),
PAnsiChar(SaveDialog1.FileName), false);
end;
procedure TForm1.N23Click(Sender: TObject);
begin
Form7.show;
Form1.Hide;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.N2.Enabled:=false;
Form1.A1.Enabled:=false;
Form1.N22.Enabled:=false;
Form1.N8.Enabled:=false;
Form1.N9.Enabled:=false;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form8.Show;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.N24Click(Sender: TObject);
begin
Form9.Show;
end;
procedure TForm1.N25Click(Sender: TObject);
begin
Form10.Show;
end;
end.
Источник: https://baza.diplomsite.ru/previewfile/1765

Смотрите также:

_1966(~1
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27
'Образ–Я' и его развитие средствами диалога
"Логистическая технология JIT"
"Особенности правовой системы Российской Федерации" по дисциплине "Теория государства и права"
«Анализ ликвидности и платежеспособности предприятия» (на материалах ОАО Московская кондитерская фабрика «Красный Октябрь»)