79
13.
. - , 2013. 176 c.
14.
. - 342 c.
15.
. - -, 2011.
528 c.
16.
- 2012.
17.
- 208
c.
18.
- URL:
<http://www.immsp.kiev.ua/publications/articles/2009/2009_3/Chumakova_03_2009
.pdf>
19. -
URL: http://do.gendocs.ru/docs/index-161242.html
20.
<URL:https://elib.bashedu.ru/dl/read/VildanovRazrabPrilDelphi.pdf>
80
ПРИЛОЖЕНИЕ 1
unit Unit16;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls;
type
TForm16 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
DateTimePicker1: TDateTimePicker;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form16: TForm16;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm16.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm16.Button2Click(Sender: TObject);
begin
Form1.AdoTable5.Insert;
81
Form1.AdoTable5.FieldByName('_').Text:=Edit1.Text;
Form1.AdoTable5.FieldByName('_').Text:=Edit2.Text;
Form1.AdoTable5.FieldByName('').Text:=Edit3.Text;
Form1.AdoTable5.FieldByName('_').AsDateTime:=DateTimePicker1.Date;
if Form1.AdoTable5.Modified
then Form1.AdoTable5.Post;
close;
end;
end.
unit Unit17;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Unit1, StdCtrls, Mask, DBCtrls;
type
TForm17 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form17: TForm17;
implementation
{$R *.dfm}
82
procedure TForm17.Button1Click(Sender: TObject);
begin
if form1.ADOTable5.Modified
then form1.ADOTable5.Post;
end;
procedure TForm17.Button2Click(Sender: TObject);
begin
Close;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, Menus, DB, ADODB;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
83
N13: TMenuItem;
N14: TMenuItem;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ADOTable2: TADOTable;
DataSource2: TDataSource;
ADOTable3: TADOTable;
DataSource3: TDataSource;
ADOTable4: TADOTable;
DataSource4: TDataSource;
ADOTable5: TADOTable;
DataSource5: TDataSource;
DataSource6: TDataSource;
ADOTable6: TADOTable;
ADOTable7: TADOTable;
DataSource7: TDataSource;
ADOTable8: TADOTable;
DataSource8: TDataSource;
ADOTable9: TADOTable;
DataSource9: TDataSource;
ADOTable10: TADOTable;
ADOTable11: TADOTable;
DataSource10: TDataSource;
DataSource11: TDataSource;
procedure N10Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
84
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
Unit11, Unit12;
{$R *.dfm}
procedure TForm1.N10Click(Sender: TObject);
begin
Form2.Showmodal;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Form2.Showmodal;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form5.ShowModal;
85
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Form7.Showmodal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form7.Showmodal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Form9.ShowModal;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
Form10.ShowModal;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
Form11.Showmodal;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
86
Form12.ShowModal;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form1.Close;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var a,s:string;
begin
a:=Edit2.Text;
s:=Edit1.Text;
if ((s='Admin') and (a='123')) then
87
Form2.ShowModal
else
begin
ShowMessage(' ');
Edit1.Clear;
Edit2.Clear;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close();
end;
end.