81
47.
form1.Close;
48.
end;
А қосымшасының жалғасы
49.
procedure TForm1.Button4Click(Sender: TObject);
50.
begin
51.
radiobutton1.Caption:='Филиал ТОО "СК БАЗИС" в г.Алматы ошірілуде';
52.
mediaplayer3.Play;
53.
radiobutton1.visible:=false;
54.
button1.visible:=false;
55.
button4.visible:=false;
56.
showmessage('Филил ТОО "СК БАЗИС" в г.Алматы ошірілуде!!!');
57.
end;
58.
procedure TForm1.Button3Click(Sender: TObject);
59.
begin
60.
mediaplayer2.Play;
61.
radiobutton1.visible:=true;
62.
radiobutton1.Caption:='Филиал ТОО "СК БАЗИС" в г.Алматы';
63.
showmessage('Филиал ТОО "СК БАЗИС" в г.Алматы онделуде');
64.
button1.visible:=true;
65.
button4.visible:=true;
66.
end;
67.
procedure TForm1.RadioButton1Click(Sender: TObject);
68.
begin
69.
button1.Visible:=true;
70.
button7.Visible:=true;
71.
button3.Visible:=true;
72.
button4.Visible:=true;
73.
end;
74.
end.
1.
unit Unit2;
2.
interface
3.
uses
4.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5.
Dialogs, StdCtrls, Buttons, acPNG, ExtCtrls, MPlayer;
6.
type
7.
TForm2 = class(TForm)
8.
ComboBox1: TComboBox;
9.
Edit1: TEdit;
10.
Label1: TLabel;
11.
Label2: TLabel;
12.
Label3: TLabel;
13.
SpeedButton1: TSpeedButton;
14.
SpeedButton2: TSpeedButton;
15.
SpeedButton3: TSpeedButton;
16.
Image1: TImage;
17.
Image2: TImage;
18.
Image3: TImage;
19.
MediaPlayer1: TMediaPlayer;
20.
procedure SpeedButton2Click(Sender: TObject);
82
21.
procedure SpeedButton3Click(Sender: TObject);
22.
procedure Image3Click(Sender: TObject);
А қосымшасының жалғасы
23.
procedure ComboBox1Change(Sender: TObject);
24.
private
25.
{ Private declarations }
26.
public
27.
{ Public declarations }
28.
end;
29.
var
30.
Form2: TForm2;
31.
implementation
32.
uses Unit3, Unit1, Unit5;
33.
{$R *.dfm}
34.
procedure TForm2.SpeedButton2Click(Sender: TObject);
35.
var login,pass:string;
36.
begin
37.
login:='Рысбаковна Айнур Айбеккызы';
38.
pass:='01';
39.
if (Combobox1.text=login) and (edit1.text=pass)then
40.
form3.show
41.
else
42.
mediaplayer1.Play;
43.
edit1.text:='';
44.
SpeedButton1.Caption:='Малiметтер кате енгiзiлдi!';
45.
form3.edit1.text:='Рысбаковна Айнур Айбеккызы';
46.
end;
47.
procedure TForm2.SpeedButton3Click(Sender: TObject);
48.
begin
49.
form2.Close;
50.
form1.show;
51.
form1.Visible:=true;
52.
end;
53.
procedure TForm2.Image3Click(Sender: TObject);
54.
begin
55.
form5.show;
56.
form5.MediaPlayer1.Play;
57.
form5.Color:=clGradientInactiveCaption;
58.
end;
59.
procedure TForm2.ComboBox1Change(Sender: TObject);
60.
begin
61.
form1.MediaPlayer4.play;
62.
end;
63.
end.
1.
unit Unit3;
2.
interface
3.
uses
4.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
5.
Dialogs, Menus, StdCtrls, ExtDlgs, DB, ADODB,ComObj, DBCtrls, Grids, DBGrids,
83
6.
Mask, Buttons, jpeg, ExtCtrls, ComCtrls,ShellAPI,acPNG, MPlayer;
7.
type
А қосымшасының жалғасы
8.
TForm3 = class(TForm)
9.
DataSource1: TDataSource;
10.
ADOConnection1: TADOConnection;
11.
ADOTable1: TADOTable;
12.
OpenPictureDialog1: TOpenPictureDialog;
13.
OpenDialog1: TOpenDialog;
14.
SaveDialog1: TSaveDialog;
15.
Edit1: TEdit;
16.
SpeedButton21: TSpeedButton;
17.
Image8: TImage;
18.
MainMenu1: TMainMenu;
19.
N1: TMenuItem;
20.
N2: TMenuItem;
21.
N4: TMenuItem;
22.
N7: TMenuItem;
23.
DBGrid1: TDBGrid;
24.
DataSource2: TDataSource;
25.
ADOConnection2: TADOConnection;
26.
ADOTable2: TADOTable;
27.
DBGrid2: TDBGrid;
28.
GroupBox5: TGroupBox;
29.
DBNavigator1: TDBNavigator;
30.
N5: TMenuItem;
31.
Image3: TImage;
32.
N8: TMenuItem;
33.
N9: TMenuItem;
34.
Timer1: TTimer;
35.
N6: TMenuItem;
36.
N10: TMenuItem;
37.
N3: TMenuItem;
38.
N11: TMenuItem;
39.
N12: TMenuItem;
40.
N13: TMenuItem;
41.
N14: TMenuItem;
42.
N15: TMenuItem;
43.
N16: TMenuItem;
44.
N17: TMenuItem;
45.
N18: TMenuItem;
46.
N19: TMenuItem;
47.
N20: TMenuItem;
48.
N21: TMenuItem;
49.
N22: TMenuItem;
50.
H1: TMenuItem;
51.
PageControl1: TPageControl;
52.
TabSheet1: TTabSheet;
53.
SpeedButton1: TSpeedButton;
54.
SpeedButton2: TSpeedButton;