Добавил:

Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Университет Мирас

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

Камила диплом теория.doc

Скачиваний:

Добавлен:

01.07.2025

Размер:

3 Мб

Скачать

☆

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 1112 / 1212

Қосымша б Бағдарлама листингі

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, jpeg, StdCtrls, Buttons, shellapi;

type

TForm9 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Image2: TImage;

Timer1: TTimer;

Panel1: TPanel;

Image3: TImage;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit;

Edit2: TEdit;

BitBtn1: TBitBtn;

Label6: TLabel;

Label7: TLabel;

Timer2: TTimer;

Label8: TLabel;

procedure FormCreate(Sender: TObject);

procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image2Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Label1Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form9: TForm9;

implementation

uses Unit1, Unit20;

{$R *.dfm}

procedure TForm9.FormCreate(Sender: TObject);

var

rgn: HRGN;

begin

// Image1.Picture.LoadFromFile('Bases\img.jpg');

rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left corner

0, // y-coordinate of the region's upper-left corner

ClientWidth, // x-coordinate of the region's lower-right corner

ClientHeight, // y-coordinate of the region's lower-right corner

50, // height of ellipse for rounded corners

50); // width of ellipse for rounded corners

SetWindowRgn(Handle, rgn, True);

end;

procedure TForm9.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label1.Font.Size:=24;

Label1.Font.Color:=clblue;

end;

procedure TForm9.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label2.Font.Size:=24;

Label2.Font.Color:=clblue;

end;

procedure TForm9.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label1.Font.Size:=20;

Label2.Font.Size:=20;

Label1.Font.Color:=clred;

Label2.Font.Color:=clred;

panel1.Hide;

Edit1.Text:='';

Edit2.Text:='';

end;

procedure TForm9.Image2Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm9.Timer1Timer(Sender: TObject);

var n:integer;

begin

randomize;

n:=random(6)+1;

case n of

1:label3.font.color:=clwhite;

2:label3.font.color:=clred;

3:label3.font.color:=clblue;

4:label3.font.color:=clyellow;

5:label3.font.color:=cllime;

6:label3.font.color:=clpurple;

end;

procedure TForm9.Label1Click(Sender: TObject);

begin

form9.Hide;

form1.Show;

end;

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

Application.Title:='Логин немесе купия соз дурыс емес';

if (edit1.Text='enpf') and (edit2.Text='123') and (label6.Caption<>'1') then

form20.Show

else begin

if label6.Caption='1' then

begin

showmessage('Багдарлама култанды 1 мин куте турыныз');

end

else

begin

label6.Caption:=inttostr(strtoint(label6.Caption)-1);

showmessage('Сізде '+label6.Caption+ ' мумкіндік калды ' );

end;

timer2.Enabled:=true ;

end;

procedure TForm9.Timer2Timer(Sender: TObject);

begin

label6.Caption:='4';

label7.Caption:=timetostr(time);

timer2.Enabled:=false;

end;

procedure TForm9.FormShow(Sender: TObject);

begin

label6.Hide;

label7.Hide;

panel1.Hide;

end;

procedure TForm9.Label2Click(Sender: TObject);

begin

panel1.Show;

end;

procedure TForm9.Label8Click(Sender: TObject);

begin

shellAbout (form9.Handle,'Республика жинактаушы зейнет акы коры','Автор: Инаят К.Н. студент ИС 311'+#13#10+'Университет "Мирас 2015г"', Application.Icon.Handle);

end;

end.

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm8 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label7: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label8: TLabel;

Label9: TLabel;

Edit4: TEdit;

Label10: TLabel;

Edit5: TEdit;

BitBtn1: TBitBtn;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Memo1: TMemo;

BitBtn2: TBitBtn;

Edit12: TEdit;

Label4: TLabel;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm8.BitBtn2Click(Sender: TObject);

begin

form8.Hide;

form4.show;

end;

procedure TForm8.BitBtn1Click(Sender: TObject);

var

x,x1,x2:real;

begin

x:=63;

edit6.Text:=edit1.text;

edit7.Text:=edit2.text;

edit8.Text:=floattostr(x+strtofloat(edit3.Text));

edit9.Text:=floattostr((strtofloat(edit4.Text)*strtofloat(edit5.Text))/100);

edit10.Text:=floattostr(12*strtofloat(edit9.Text));

x1:=strtofloat(edit10.Text);

x2:=strtofloat(edit12.Text);

edit11.Text:=floattostr(x1*x2);

end;

procedure TForm8.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, shellapi;

type

TForm7 = class(TForm)

Label2: TLabel;

Label3: TLabel;

Panel1: TPanel;

Label4: TLabel;

Label1: TLabel;

BitBtn1: TBitBtn;

procedure Label2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm7.Label2Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/12179'), nil, nil, SW_SHOW);

end;

procedure TForm7.BitBtn1Click(Sender: TObject);

begin

form7.Hide;

form4.Show;

end;

procedure TForm7.Label3Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9788'), nil, nil, SW_SHOW);

end;

procedure TForm7.Label4Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9763'), nil, nil, SW_SHOW);

end;

procedure TForm7.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm6 = class(TForm)

Memo1: TMemo;

Panel1: TPanel;

Label1: TLabel;

Panel2: TPanel;

Label2: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject);

begin

form6.Hide;

form4.Show;

end;

procedure TForm6.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, jpeg, shellapi;

type

TForm5 = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image7: TImage;

Image9: TImage;

Image11: TImage;

Image12: TImage;

Image13: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label7: TLabel;

Label9: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label17: TLabel;

Label24: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Image14: TImage;

Image15: TImage;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Timer1: TTimer;

Image6: TImage;

Image8: TImage;

Label6: TLabel;

Label8: TLabel;

Label10: TLabel;

Label15: TLabel;

Image10: TImage;

procedure Label35Click(Sender: TObject);

procedure Label36Click(Sender: TObject);

procedure Label37Click(Sender: TObject);

procedure Image15Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Label35MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label36MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label37MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image3Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Label9Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Label6Click(Sender: TObject);

procedure Label10Click(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image12Click(Sender: TObject);

procedure Label13Click(Sender: TObject);

procedure Label27Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Label5Click(Sender: TObject);

procedure Label17Click(Sender: TObject);

procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label24MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

s:string;

implementation

uses Unit1, Unit4, Unit17, Unit18, Unit19;

{$R *.dfm}

procedure TForm5.Label35Click(Sender: TObject);

begin

form1.show;

end;

procedure TForm5.Label36Click(Sender: TObject);

begin

form4.show;

end;

procedure TForm5.Label37Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm5.Image15Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm5.Timer1Timer(Sender: TObject);

var n:integer;

begin

Label1.Caption:=Copy(s,1,Label1.Tag) ;

Label1.Tag:=Label1.Tag+1;

if Label1.Tag > Length(s) then

Label1.Tag:=0;

label33.Caption :=datetostr(date);

label31.Caption :=timetostr(time);

end;

procedure TForm5.FormShow(Sender: TObject);

label 1;

begin

1: s:='"Республика жинактаушы зейнет акы коры" ';

Label1.Tag:=0;

Timer1.Enabled:=true;

Image10.Hide;

end;

procedure TForm5.Label35MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label35.Font.Color:=clred;

end;

procedure TForm5.Label36MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label36.Font.Color:=clred;

end;

procedure TForm5.Label37MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label37.Font.Color:=clred;

end;

procedure TForm5.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label35.Font.Color:=clblack;

label36.Font.Color:=clblack;

label37.Font.Color:=clblack;

Image10.Hide;

end;

procedure TForm5.Image3Click(Sender: TObject);

begin

form17.Show;

end;

procedure TForm5.Label3Click(Sender: TObject);

begin

form17.Show;

end;

procedure TForm5.Image9Click(Sender: TObject);

begin

form18.Show;

end;

procedure TForm5.Label9Click(Sender: TObject);

begin

form18.Show;

end;

procedure TForm5.Image6Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9849'), nil, nil, SW_SHOW);

end;

procedure TForm5.Label6Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9849'), nil, nil, SW_SHOW);

end;

procedure TForm5.Label10Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9849'), nil, nil, SW_SHOW);

end;

procedure TForm5.Label4Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://cabinet.enpf.kz/'), nil, nil, SW_SHOW);

end;

procedure TForm5.Image4Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://cabinet.enpf.kz/'), nil, nil, SW_SHOW);

end;

procedure TForm5.Image12Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://www.facebook.com/enpf.kz?ref=hl'), nil, nil, SW_SHOW);

end;

procedure TForm5.Label13Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://www.facebook.com/enpf.kz?ref=hl'), nil, nil, SW_SHOW);

end;

procedure TForm5.Label27Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://www.facebook.com/enpf.kz?ref=hl'), nil, nil, SW_SHOW);

end;

procedure TForm5.Image5Click(Sender: TObject);

begin

form19.Show;

end;

procedure TForm5.Label5Click(Sender: TObject);

begin

form19.Show;

end;

procedure TForm5.Label17Click(Sender: TObject);

begin

form19.Show;

end;

procedure TForm5.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image10.Show;

end;

procedure TForm5.Label11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image10.Show;

end;

procedure TForm5.Label24MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image10.Show;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, OleCtrls, SHDocVw, ExtCtrls, jpeg, StdCtrls, Buttons;

type

TForm3 = class(TForm)

Image1: TImage;

Shape1: TShape;

WebBrowser1: TWebBrowser;

TreeView1: TTreeView;

Panel1: TPanel;

BitBtn1: TBitBtn;

Label1: TLabel;

procedure TreeView1DblClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm3.TreeView1DblClick(Sender: TObject);

begin

if FileExists(GetCurrentDir+'\База\Рус\Фонд\' +IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm')then

WebBrowser1.Navigate(GetCurrentDir+'\База\Рус\Фонд\'+IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm');

end;

procedure TForm3.FormShow(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\База\Рус\Фонд\'+IntToStr(0)+'.htm');

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

form3.Hide;

form4.Show;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, jpeg, shellapi;

type

TForm4 = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

Image8: TImage;

Image9: TImage;

Image10: TImage;

Image11: TImage;

Image12: TImage;

Image13: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label23: TLabel;

Label24: TLabel;

Label26: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Image14: TImage;

Image15: TImage;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Timer1: TTimer;

Image16: TImage;

Image17: TImage;

Label18: TLabel;

Label22: TLabel;

Label25: TLabel;

Label27: TLabel;

Image18: TImage;

procedure Label35Click(Sender: TObject);

procedure Label36Click(Sender: TObject);

procedure Label37Click(Sender: TObject);

procedure Image15Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Label14Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label15Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Label5Click(Sender: TObject);

procedure Label17Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Label16Click(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure Image11Click(Sender: TObject);

procedure Label7Click(Sender: TObject);

procedure Label21Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure Label8Click(Sender: TObject);

procedure Label23Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Label10Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Label9Click(Sender: TObject);

procedure Image12Click(Sender: TObject);

procedure Label13Click(Sender: TObject);

procedure Image17Click(Sender: TObject);

procedure Label25Click(Sender: TObject);

procedure Label27Click(Sender: TObject);

procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label24MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image16Click(Sender: TObject);

procedure Label18Click(Sender: TObject);

procedure Label22Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Label35MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label36MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label37MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormShow(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Label6Click(Sender: TObject);

procedure Label19Click(Sender: TObject);

procedure Label20Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

s:string;

implementation

uses Unit1, Unit5, Unit3, Unit14, Unit6, Unit15, Unit16, Unit8, Unit7;

{$R *.dfm}

procedure TForm4.Label35Click(Sender: TObject);

begin

form1.show;

end;

procedure TForm4.Label36Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm4.Label37Click(Sender: TObject);

begin

form5.show;

end;

procedure TForm4.Image15Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm4.Image3Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm4.Label3Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm4.Image2Click(Sender: TObject);

begin

form14.Show;

end;

procedure TForm4.Label14Click(Sender: TObject);

begin

form14.Show;

end;

procedure TForm4.Label2Click(Sender: TObject);

begin

form14.Show;

end;

procedure TForm4.Label15Click(Sender: TObject);

begin

form14.Show;

end;

procedure TForm4.Image5Click(Sender: TObject);

begin

form6.Show;

end;

procedure TForm4.Label5Click(Sender: TObject);

begin

form6.Show;

end;

procedure TForm4.Label17Click(Sender: TObject);

begin

form6.Show;

end;

procedure TForm4.Image4Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://cabinet.enpf.kz/'), nil, nil, SW_SHOW);

end;

procedure TForm4.Label16Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://cabinet.enpf.kz/'), nil, nil, SW_SHOW);

end;

procedure TForm4.Label4Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://cabinet.enpf.kz/'), nil, nil, SW_SHOW);

end;

procedure TForm4.Image11Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/117'), nil, nil, SW_SHOW);

end;

procedure TForm4.Label7Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/117'), nil, nil, SW_SHOW);

end;

procedure TForm4.Label21Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/117'), nil, nil, SW_SHOW);

end;

procedure TForm4.Image10Click(Sender: TObject);

begin

form15.show;

end;

procedure TForm4.Label8Click(Sender: TObject);

begin

form15.show;

end;

procedure TForm4.Label23Click(Sender: TObject);

begin

form15.show;

end;

procedure TForm4.Image8Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9674'), nil, nil, SW_SHOW);

end;

procedure TForm4.Label10Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9674'), nil, nil, SW_SHOW);

end;

procedure TForm4.Image9Click(Sender: TObject);

begin

form16.Show;

end;

procedure TForm4.Label9Click(Sender: TObject);

begin

form16.Show;

end;

procedure TForm4.Image12Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://www.facebook.com/enpf.kz?ref=hl'), nil, nil, SW_SHOW);

end;

procedure TForm4.Label13Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://www.facebook.com/enpf.kz?ref=hl'), nil, nil, SW_SHOW);

end;

procedure TForm4.Image17Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.ifsbkazakhstan2015.com/'), nil, nil, SW_SHOW);

end;

procedure TForm4.Label25Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.ifsbkazakhstan2015.com/'), nil, nil, SW_SHOW);

end;

procedure TForm4.Label27Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.ifsbkazakhstan2015.com/'), nil, nil, SW_SHOW);

end;

procedure TForm4.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

image18.Show;

end;

procedure TForm4.Label11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

image18.Show;

end;

procedure TForm4.Label24MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

image18.Show;

end;

procedure TForm4.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

image18.Hide;

label35.Font.Color:=clblack;

label36.Font.Color:=clblack;

label37.Font.Color:=clblack;

end;

procedure TForm4.Image16Click(Sender: TObject);

begin

form8.Show;

end;

procedure TForm4.Label18Click(Sender: TObject);

begin

form8.Show;

end;

procedure TForm4.Label22Click(Sender: TObject);

begin

form8.Show;

end;

procedure TForm4.Timer1Timer(Sender: TObject);

var n:integer;

begin

Label1.Caption:=Copy(s,1,Label1.Tag) ;

Label1.Tag:=Label1.Tag+1;

if Label1.Tag > Length(s) then

Label1.Tag:=0;

label33.Caption :=datetostr(date);

label31.Caption :=timetostr(time);

end;

procedure TForm4.Label35MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label35.Font.Color:=clred;

end;

procedure TForm4.Label36MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label36.Font.Color:=clred;

end;

procedure TForm4.Label37MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label37.Font.Color:=clred;

end;

procedure TForm4.FormShow(Sender: TObject);

label 1;

begin

1: s:='"Республика жинактаушы зейнет акы коры" ';

Label1.Tag:=0;

Timer1.Enabled:=true;

end;

procedure TForm4.Image6Click(Sender: TObject);

begin

form7.Show;

end;

procedure TForm4.Label6Click(Sender: TObject);

begin

form7.Show;

end;

procedure TForm4.Label19Click(Sender: TObject);

begin

form7.Show;

end;

procedure TForm4.Label20Click(Sender: TObject);

begin

form7.Show;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, OleCtrls, SHDocVw, ExtCtrls, jpeg, StdCtrls, Buttons;

type

TForm3 = class(TForm)

Image1: TImage;

Shape1: TShape;

WebBrowser1: TWebBrowser;

TreeView1: TTreeView;

Panel1: TPanel;

BitBtn1: TBitBtn;

Label1: TLabel;

procedure TreeView1DblClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm3.TreeView1DblClick(Sender: TObject);

begin

if FileExists(GetCurrentDir+'\База\Рус\Фонд\' +IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm')then

WebBrowser1.Navigate(GetCurrentDir+'\База\Рус\Фонд\'+IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm');

end;

procedure TForm3.FormShow(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\База\Рус\Фонд\'+IntToStr(0)+'.htm');

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

form3.Hide;

form4.Show;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit20;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, comobj;

type

TForm20 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DBGrid1: TDBGrid;

BitBtn3: TBitBtn;

DataSource1: TDataSource;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

BitBtn7: TBitBtn;

BitBtn8: TBitBtn;

Edit1: TEdit;

Edit2: TEdit;

BitBtn9: TBitBtn;

BitBtn10: TBitBtn;

BitBtn11: TBitBtn;

procedure FormCreate(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure Edit1Change(Sender: TObject);

procedure Edit2Change(Sender: TObject);

procedure BitBtn11Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn9Click(Sender: TObject);

procedure BitBtn10Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form20: TForm20;

implementation

{$R *.dfm}

procedure TForm20.FormCreate(Sender: TObject);

begin

ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+

ExtractFilePath (Application.ExeName )+'База\db1.mdb;Persist Security Info=False';

ADOQuery1.Active :=false;

ADOQuery1.SQL.Text :='select * from ENPF' ;

ADOQuery1.Active :=true;

end;

procedure TForm20.BitBtn8Click(Sender: TObject);

var

XL, XArr: Variant;

i: Integer;

j: Integer;

begin

{не забудьте включить ComObj в список используемых модулей}

// Создаем массив элементов, полученных в результате запроса

XArr:=VarArrayCreate([1,ADOQuery1.FieldCount],varVariant);

XL:=CreateOLEObject('Excel.Application'); // Создание OLE объекта

XL.WorkBooks.add;

XL.visible:=true;

j := 1;

ADOQuery1.First;

while not ADOQuery1.Eof do

begin

i:=1;

while i<=ADOQuery1.FieldCount do

begin

XArr[i] := ADOQuery1.Fields[i-1].Value;

i := i+1;

end;

XL.Range['A'+IntToStr(j),

CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].Value := XArr;

ADOQuery1.Next;

j:=j+1;

end;

XL.Range['A1',CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].select;

// XL.cells.select; // Выбираем все

XL.Selection.Font.Name:='Arial cur';

XL.Selection.Font.Size:=10;

XL.selection.Columns.AutoFit;

XL.Range['A1','A1'].select;

end;

procedure TForm20.BitBtn3Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm20.Edit1Change(Sender: TObject);

begin

ADOQuery1.Active :=false;

ADOQuery1.SQL.Text :='select * from FIO where fio like '+chr(39)+'%'+

edit1.Text +'%'+chr(39) ;

ADOQuery1.Active :=true;

end;

procedure TForm20.Edit2Change(Sender: TObject);

begin

ADOQuery1.Active :=false;

ADOQuery1.SQL.Text :='select * from Doljnost where god like '+chr(39)+'%'+

edit2.Text +'%'+chr(39) ;

ADOQuery1.Active :=true;

end;

procedure TForm20.BitBtn11Click(Sender: TObject);

var

XL, XArr: Variant;

i: Integer;

j: Integer;

begin

{не забудьте включить ComObj в список используемых модулей}

// Создаем массив элементов, полученных в результате запроса

XArr:=VarArrayCreate([1,ADOQuery1.FieldCount],varVariant);

XL:=CreateOLEObject('Excel.Application'); // Создание OLE объекта

XL.WorkBooks.add;

XL.visible:=true;

j := 1;

ADOQuery1.First;

while not ADOQuery1.Eof do

begin

i:=1;

while i<=ADOQuery1.FieldCount do

begin

XArr[i] := ADOQuery1.Fields[i-1].Value;

i := i+1;

end;

XL.Range['A'+IntToStr(j),

CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].Value := XArr;

ADOQuery1.Next;

j:=j+1;

end;

XL.Range['A1',CHR(64+ADOQuery1.FieldCount)+IntToStr(j)].select;

// XL.cells.select; // Выбираем все

XL.Selection.Font.Name:='Arial cur';

XL.Selection.Font.Size:=10;

XL.selection.Columns.AutoFit;

XL.Range['A1','A1'].select;

end;

procedure TForm20.BitBtn4Click(Sender: TObject);

begin

DataSource1.DataSet.Append ;

end;

procedure TForm20.BitBtn1Click(Sender: TObject);

begin

DataSource1.DataSet.Append ;

end;

procedure TForm20.BitBtn2Click(Sender: TObject);

begin

DataSource1.DataSet.Edit ;

end;

procedure TForm20.BitBtn5Click(Sender: TObject);

begin

DataSource1.DataSet.Edit ;

end;

procedure TForm20.BitBtn6Click(Sender: TObject);

begin

DataSource1.DataSet.Delete ;

end;

procedure TForm20.BitBtn9Click(Sender: TObject);

begin

DataSource1.DataSet.Delete ;

end;

procedure TForm20.BitBtn10Click(Sender: TObject);

begin

DataSource1.DataSet.Post ;

end;

procedure TForm20.BitBtn7Click(Sender: TObject);

begin

DataSource1.DataSet.Post ;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls;

type

TForm2 = class(TForm)

Image1: TImage;

Image15: TImage;

procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure FormCreate(Sender: TObject);

procedure Image15Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

ReleaseCapture;

Form2.perform(WM_SysCommand,$F012,0);

end;

procedure TForm2.FormCreate(Sender: TObject);

var

rgn: HRGN;

begin

// Image1.Picture.LoadFromFile('Bases\img.jpg');

rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left corner

0, // y-coordinate of the region's upper-left corner

ClientWidth, // x-coordinate of the region's lower-right corner

ClientHeight, // y-coordinate of the region's lower-right corner

50, // height of ellipse for rounded corners

50); // width of ellipse for rounded corners

SetWindowRgn(Handle, rgn, True);

end;

procedure TForm2.Image15Click(Sender: TObject);

begin

form2.Hide;

end;

end.

unit Unit19;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls, StdCtrls, Buttons, OleCtrls, SHDocVw, ExtCtrls;

type

TForm19 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

WebBrowser1: TWebBrowser;

Label1: TLabel;

BitBtn1: TBitBtn;

TreeView1: TTreeView;

procedure BitBtn1Click(Sender: TObject);

procedure TreeView1DblClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form19: TForm19;

implementation

uses Unit5;

{$R *.dfm}

procedure TForm19.BitBtn1Click(Sender: TObject);

begin

form19.Hide;

form5.Show;

end;

procedure TForm19.TreeView1DblClick(Sender: TObject);

begin

if FileExists(GetCurrentDir+'\База\Ang1\' +IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm')then

WebBrowser1.Navigate(GetCurrentDir+'\База\Ang1\'+IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm');

end;

procedure TForm19.FormShow(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\База\Ang1\'+IntToStr(0)+'.htm');

end;

procedure TForm19.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit18;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg;

type

TForm18 = class(TForm)

Panel1: TPanel;

Shape1: TShape;

Label1: TLabel;

BitBtn1: TBitBtn;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Image1: TImage;

Image2: TImage;

Image3: TImage;

procedure BitBtn1Click(Sender: TObject);

procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormShow(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form18: TForm18;

implementation

uses Unit5;

{$R *.dfm}

procedure TForm18.BitBtn1Click(Sender: TObject);

begin

form18.Hide;

form5.Show;

end;

procedure TForm18.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image1.Show;

end;

procedure TForm18.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image2.Show;

end;

procedure TForm18.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image3.Show;

end;

procedure TForm18.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image1.Hide;

Image2.Hide;

Image3.Hide;

end;

procedure TForm18.FormShow(Sender: TObject);

begin

Image1.Hide;

Image2.Hide;

Image3.Hide;

end;

procedure TForm18.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit17;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, Buttons, OleCtrls, SHDocVw, ExtCtrls;

type

TForm17 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

WebBrowser1: TWebBrowser;

BitBtn1: TBitBtn;

TreeView1: TTreeView;

Label1: TLabel;

procedure TreeView1DblClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form17: TForm17;

implementation

uses Unit5;

{$R *.dfm}

procedure TForm17.TreeView1DblClick(Sender: TObject);

begin

if FileExists(GetCurrentDir+'\База\Ang\' +IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm')then

WebBrowser1.Navigate(GetCurrentDir+'\База\Ang\'+IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm');

end;

procedure TForm17.FormShow(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\База\Ang\'+IntToStr(0)+'.htm');

end;

procedure TForm17.BitBtn1Click(Sender: TObject);

begin

form17.Hide;

form5.Show;

end;

procedure TForm17.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit16;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm16 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

BitBtn1: TBitBtn;

Memo1: TMemo;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form16: TForm16;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm16.BitBtn1Click(Sender: TObject);

begin

form16.Hide;

form4.Show;

end;

procedure TForm16.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit15;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Buttons, shellapi;

type

TForm15 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

BitBtn1: TBitBtn;

Shape1: TShape;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn1Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form15: TForm15;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm15.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label2.Font.Color:=clred;

end;

procedure TForm15.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label3.Font.Color:=clred;

end;

procedure TForm15.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label4.Font.Color:=clred;

end;

procedure TForm15.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label2.Font.Color:=clblack;

label3.Font.Color:=clblack;

label4.Font.Color:=clblack;

end;

procedure TForm15.BitBtn1Click(Sender: TObject);

begin

form15.Hide;

form4.Show;

end;

procedure TForm15.Label2Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/12576'), nil, nil, SW_SHOW);

end;

procedure TForm15.Label3Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9786'), nil, nil, SW_SHOW);

end;

procedure TForm15.Label4Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9782'), nil, nil, SW_SHOW);

end;

procedure TForm15.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit14;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TForm14 = class(TForm)

Panel1: TPanel;

Image1: TImage;

Memo1: TMemo;

Label1: TLabel;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form14: TForm14;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm14.BitBtn1Click(Sender: TObject);

begin

form14.Hide;

form4.Show;

end;

procedure TForm14.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit13;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg;

type

TForm13 = class(TForm)

Panel1: TPanel;

Shape1: TShape;

BitBtn1: TBitBtn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

procedure BitBtn1Click(Sender: TObject);

procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm13.BitBtn1Click(Sender: TObject);

begin

form13.Hide;

form1.show;

end;

procedure TForm13.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label2.Font.Color:=clred;

Image1.Show;

end;

procedure TForm13.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label3.Font.Color:=clred;

Image2.Show;

end;

procedure TForm13.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label5.Font.Color:=clred;

Image3.Show;

end;

procedure TForm13.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label4.Font.Color:=clred;

Image4.Show;

end;

procedure TForm13.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label2.Font.Color:=clblack;

label3.Font.Color:=clblack;

label5.Font.Color:=clblack;

label4.Font.Color:=clblack;

Image1.Hide;

Image2.Hide;

Image3.Hide;

Image4.Hide;

end;

procedure TForm13.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit12;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls, Buttons, shellapi;

type

TForm12 = class(TForm)

Panel1: TPanel;

Label1: TLabel;

BitBtn1: TBitBtn;

Shape1: TShape;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Image1: TImage;

Image2: TImage;

Image3: TImage;

procedure Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label3Click(Sender: TObject);

procedure Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure BitBtn1Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure Label5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form12: TForm12;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm12.Label2MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label2.Font.Color:=clred;

end;

procedure TForm12.Label3Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9886'), nil, nil, SW_SHOW);

end;

procedure TForm12.Label3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label3.Font.Color:=clred;

end;

procedure TForm12.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label4.Font.Color:=clred;

end;

procedure TForm12.Label5MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label5.Font.Color:=clred;

end;

procedure TForm12.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label2.Font.Color:=clblack;

Label3.Font.Color:=clblack;

Label4.Font.Color:=clblack;

Label5.Font.Color:=clblack;

end;

procedure TForm12.BitBtn1Click(Sender: TObject);

begin

form12.Hide;

form1.show;

end;

procedure TForm12.Label2Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9883'), nil, nil, SW_SHOW);

end;

procedure TForm12.Label4Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/12663'), nil, nil, SW_SHOW);

end;

procedure TForm12.Label5Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/12663'), nil, nil, SW_SHOW);

end;

procedure TForm12.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit11;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, OleCtrls, SHDocVw;

type

TForm11 = class(TForm)

WebBrowser1: TWebBrowser;

Panel1: TPanel;

Panel2: TPanel;

TreeView1: TTreeView;

BitBtn1: TBitBtn;

Label1: TLabel;

procedure TreeView1DblClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm11.TreeView1DblClick(Sender: TObject);

begin

if FileExists(GetCurrentDir+'\База\Каз1\' +IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm')then

WebBrowser1.Navigate(GetCurrentDir+'\База\Каз1\'+IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm');

end;

procedure TForm11.FormShow(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\База\Каз1\'+IntToStr(0)+'.htm');

end;

procedure TForm11.BitBtn1Click(Sender: TObject);

begin

form11.Hide;

form1.show;

end;

procedure TForm11.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ComCtrls, Buttons, ExtCtrls, OleCtrls, SHDocVw;

type

TForm10 = class(TForm)

WebBrowser1: TWebBrowser;

Panel1: TPanel;

BitBtn1: TBitBtn;

Panel2: TPanel;

TreeView1: TTreeView;

Label1: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure TreeView1DblClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm10.BitBtn1Click(Sender: TObject);

begin

form10.Hide;

form1.show;

end;

procedure TForm10.TreeView1DblClick(Sender: TObject);

begin

if FileExists(GetCurrentDir+'\База\Каз\' +IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm')then

WebBrowser1.Navigate(GetCurrentDir+'\База\Каз\'+IntToStr(TreeView1.Selected.AbsoluteIndex)+'.htm');

end;

procedure TForm10.FormShow(Sender: TObject);

begin

WebBrowser1.Navigate(GetCurrentDir+'\База\Каз\'+IntToStr(0)+'.htm');

end;

procedure TForm10.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls, Menus, shellapi;

type

TForm1 = class(TForm)

Image1: TImage;

Image2: TImage;

Image3: TImage;

Image4: TImage;

Image5: TImage;

Image6: TImage;

Image7: TImage;

Image8: TImage;

Image9: TImage;

Image10: TImage;

Image11: TImage;

Image12: TImage;

Image13: TImage;

Label1: TLabel;

Timer1: TTimer;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

Label27: TLabel;

Label28: TLabel;

Label29: TLabel;

Label30: TLabel;

Label31: TLabel;

Label32: TLabel;

Label33: TLabel;

Label34: TLabel;

Image14: TImage;

Image15: TImage;

Label35: TLabel;

Label36: TLabel;

Label37: TLabel;

Image16: TImage;

procedure Timer1Timer(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure Image15Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

procedure Label35MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label36MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label37MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label2Click(Sender: TObject);

procedure Label15Click(Sender: TObject);

procedure Label14Click(Sender: TObject);

procedure Label4Click(Sender: TObject);

procedure Label16Click(Sender: TObject);

procedure Image4Click(Sender: TObject);

procedure Image5Click(Sender: TObject);

procedure Label5Click(Sender: TObject);

procedure Label17Click(Sender: TObject);

procedure Label18Click(Sender: TObject);

procedure Image6Click(Sender: TObject);

procedure Label6Click(Sender: TObject);

procedure Label19Click(Sender: TObject);

procedure Label20Click(Sender: TObject);

procedure Image11Click(Sender: TObject);

procedure Label7Click(Sender: TObject);

procedure Label21Click(Sender: TObject);

procedure Label22Click(Sender: TObject);

procedure Image10Click(Sender: TObject);

procedure Label8Click(Sender: TObject);

procedure Label23Click(Sender: TObject);

procedure Label35Click(Sender: TObject);

procedure Label36Click(Sender: TObject);

procedure Label37Click(Sender: TObject);

procedure Image3Click(Sender: TObject);

procedure Label3Click(Sender: TObject);

procedure Image9Click(Sender: TObject);

procedure Image8Click(Sender: TObject);

procedure Label10Click(Sender: TObject);

procedure Label11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label24MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Label25MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure Image12Click(Sender: TObject);

procedure Label13Click(Sender: TObject);

procedure Label27Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

s:String;

implementation

uses Unit2, Unit11, Unit12, Unit4, Unit5, Unit10, Unit13;

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);

var n:integer;

begin

Label1.Caption:=Copy(s,1,Label1.Tag) ;

Label1.Tag:=Label1.Tag+1;

if Label1.Tag > Length(s) then

Label1.Tag:=0;

label33.Caption :=datetostr(date);

label31.Caption :=timetostr(time);

end;

procedure TForm1.FormShow(Sender: TObject);

label 1;

begin

1: s:='"Республика жинактаушы зейнет акы коры" ';

Label1.Tag:=0;

Timer1.Enabled:=true;

end;

procedure TForm1.Image15Click(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.Image2Click(Sender: TObject);

begin

form2.Show;

end;

procedure TForm1.Label35MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label35.font.Color:=clred;

end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label35.Font.Color:=clblack;

label36.Font.Color:=clblack;

label37.Font.Color:=clblack;

Image16.Hide;

end;

procedure TForm1.Label36MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label36.Font.Color:=clred;

end;

procedure TForm1.Label37MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

label37.Font.Color:=clred;

end;

procedure TForm1.Label2Click(Sender: TObject);

begin

form2.Show;

end;

procedure TForm1.Label15Click(Sender: TObject);

begin

form2.Show;

end;

procedure TForm1.Label14Click(Sender: TObject);

begin

form2.Show;

end;

procedure TForm1.Label4Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://cabinet.enpf.kz/default.aspx?lang=kaz'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label16Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://cabinet.enpf.kz/default.aspx?lang=kaz'), nil, nil, SW_SHOW);

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://cabinet.enpf.kz/default.aspx?lang=kaz'), nil, nil, SW_SHOW);

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

form11.show;

end;

procedure TForm1.Label5Click(Sender: TObject);

begin

form11.show;

end;

procedure TForm1.Label17Click(Sender: TObject);

begin

form11.show;

end;

procedure TForm1.Label18Click(Sender: TObject);

begin

form11.show;

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

form12.show;

end;

procedure TForm1.Label6Click(Sender: TObject);

begin

form12.show;

end;

procedure TForm1.Label19Click(Sender: TObject);

begin

form12.show;

end;

procedure TForm1.Label20Click(Sender: TObject);

begin

form12.show;

end;

procedure TForm1.Image11Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/1074#+'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label7Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/1074#+'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label21Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/1074#+'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label22Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/1074#+'), nil, nil, SW_SHOW);

end;

procedure TForm1.Image10Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/11772'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label8Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/11772'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label23Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/11772'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label35Click(Sender: TObject);

begin

form1.Show;

form4.Hide;

form5.Hide;

end;

procedure TForm1.Label36Click(Sender: TObject);

begin

form4.show;

form1.Hide;

form5.Hide;

end;

procedure TForm1.Label37Click(Sender: TObject);

begin

form5.show;

form4.Hide;

form1.Hide;

end;

procedure TForm1.Image3Click(Sender: TObject);

begin

form10.show;

end;

procedure TForm1.Label3Click(Sender: TObject);

begin

form10.show;

end;

procedure TForm1.Image9Click(Sender: TObject);

begin

form13.show;

end;

procedure TForm1.Image8Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9864'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label10Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('http://www.enpf.kz/9864'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label11MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image16.Show;

end;

procedure TForm1.Label24MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image16.Show;

end;

procedure TForm1.Label25MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image16.Show;

end;

procedure TForm1.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Image16.Show;

end;

procedure TForm1.Image12Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://www.facebook.com/enpf.kz?ref=hl'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label13Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://www.facebook.com/enpf.kz?ref=hl'), nil, nil, SW_SHOW);

end;

procedure TForm1.Label27Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', PChar('https://www.facebook.com/enpf.kz?ref=hl'), nil, nil, SW_SHOW);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

111

<<< < Предыдущая 1 2 3 4 5 6 7 8 9 10 1112 / 1212

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]

#
09.02.2016146 Кб17Документ Microsoft Office Word (5).docx
#
09.02.201677 Кб16Документ Microsoft Word.docx
#
01.07.2025583 Кб6Заметки для Тренеров.docx
#
09.02.2016521 Кб18Информ Мадалиева Г.У.куис Рус. Яз.doc
#
09.02.2016489 Кб15Ист Полити И Прав Учений Ауанасова Б. Каз 2 кр.doc
#
01.07.20253 Мб2Камила диплом теория.doc
#
09.02.2016513 Кб146КОНСПЕКТ ЛЕКЦИИ.doc
#
01.07.202521 Мб14КУРСОВАЯ III Детская.docx
#
01.05.202515 Мб7Лабораторные работы 12.doc
#
01.05.2025600 Кб6Лекции по Основам права.doc
#
09.02.20164 Мб377лекции по ТВ..doc