Delphi-де жұмыс істеу


БаҒдарлама мӘтінініҢ листингісі



бет4/4
Дата06.03.2016
өлшемі0.74 Mb.
#44252
1   2   3   4

БаҒдарлама мӘтінініҢ листингісі



unit Unit1

interface

uses

Windows, Messages, SysUtils, Variants, Classes,



Graphics, Controls, Forms,

Dialogs, ExtCtrls, OleCtrls, SHDocVw, StdCtrls,

ComCtrls, Buttons;

type


TForm1 = class(TForm)

SpeedButton1: TSpeedButton;

Animate1: TAnimate;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;

var


Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin


form1.Hide;

form2.showmodal;

form1.Close;

end; end.



unit Unit2

interface

uses

Windows, Messages, SysUtils, Variants, Classes,



Graphics, Controls, Forms,

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

type

TForm2 = class(TForm)



WebBrowser1: TWebBrowser;

Panel1: TPanel;

Panel2: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

Image1: TImage;

SpeedButton4: TSpeedButton;

Image2: TImage;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton12: TSpeedButton;

SpeedButton13: TSpeedButton;

SpeedButton14: TSpeedButton;

SpeedButton15: TSpeedButton;

SpeedButton16: TSpeedButton;

SpeedButton17: TSpeedButton;

SpeedButton18: TSpeedButton;

SpeedButton19: TSpeedButton;

SpeedButton20: TSpeedButton;

SpeedButton21: TSpeedButton;

SpeedButton22: TSpeedButton;

SpeedButton23: TSpeedButton;

SpeedButton24: TSpeedButton;

SpeedButton25: TSpeedButton;

SpeedButton26: TSpeedButton;

SpeedButton27: TSpeedButton;

SpeedButton28: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure SpeedButton10Click(Sender: TObject);

procedure SpeedButton15Click(Sender: TObject);

procedure SpeedButton16Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure WebBrowser1CommandStateChange

(Sender: TObject; Command: Integer; Enable: WordBool);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton9Click(Sender: TObject);

procedure SpeedButton11Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton14Click(Sender: TObject);

procedure SpeedButton20Click(Sender: TObject);

procedure SpeedButton19Click(Sender: TObject);

procedure SpeedButton23Click(Sender: TObject);

procedure SpeedButton27Click(Sender: TObject);

procedure SpeedButton21Click(Sender: TObject);

procedure SpeedButton22Click(Sender: TObject);

procedure SpeedButton24Click(Sender: TObject);

procedure SpeedButton25Click(Sender: TObject);

procedure SpeedButton26Click(Sender: TObject);

procedure SpeedButton28Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;

var


Form2: TForm2;

bool:boolean;

implementation

uses Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

if bool then begin



bool:=false;

panel2.Visible:=false;

speedbutton1.Glyph.LoadFromFile('c:\program files\book\image\men1.bmp');

exit;


end;

bool:=true;

panel2.Visible:=true;

speedbutton1.Glyph.LoadFromFile('c:\program files\book\image\men2.bmp');

end;

procedure TForm2.FormCreate(Sender: TObject);



begin

form2.Font.Name:='kzarial';

form2.Caption:='Электронды оу?лы?';

{ menu}


speedbutton6.Left:=0;

speedbutton6.top:=32;

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

end;

procedure TForm2.SpeedButton4Click(Sender: TObject);



begin

webbrowser1.GoForward;

end;

procedure TForm2.SpeedButton6Click(Sender: TObject);



begin

if bool then begin

bool:=false;

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

{--------------------}

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;
{--------------------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;

end;


bool:=true;

speedbutton7.Visible:=true;

speedbutton8.Visible:=true;

speedbutton9.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=144;

speedbutton19.Left:=0;

speedbutton19.top:=176;

speedbutton23.Left:=0;

speedbutton23.top:=208;

speedbutton27.Left:=0;

speedbutton27.top:=240;

webbrowser1.Navigate('c:\program files\book\lection\glav.mht');

end;

procedure TForm2.SpeedButton10Click(Sender: TObject);



begin

if bool then begin

bool:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

{----------}

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

{----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;


end;

bool:=true;

speedbutton11.Visible:=true;

speedbutton12.Visible:=true;

speedbutton13.Visible:=true;

speedbutton14.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=200;

speedbutton23.Left:=0;

speedbutton23.top:=232;

speedbutton27.Left:=0;

speedbutton27.top:=264;

webbrowser1.Navigate('c:\program files\book\lection\glav2.mht');

end;

procedure TForm2.SpeedButton15Click(Sender: TObject);



begin

author.show;

end;

procedure TForm2.SpeedButton16Click(Sender: TObject);



begin

aboutbox.show;

end;

procedure TForm2.FormActivate(Sender: TObject);



begin

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

end;

procedure TForm2.SpeedButton7Click(Sender: TObject);



begin

//tar1, lek1

webbrowser1.Navigate('c:\program files\book\lection\lec1.htm');

end;


procedure TForm2.WebBrowser1CommandStateChange(Sender: TObject;

Command: Integer; Enable: WordBool);

begin

case Command of



CSC_NAVIGATEBACK: speedbutton3.Visible:=enable;

CSC_NAVIGATEFORWARD: speedbutton4.Visible := enable;

end;

end;


procedure TForm2.SpeedButton3Click(Sender: TObject);

begin


webbrowser1.GoBack;

end;


procedure TForm2.SpeedButton17Click(Sender: TObject);

begin


showmessage('Dalshe hoda netu');

end;


procedure TForm2.SpeedButton2Click(Sender: TObject);

begin


showmessage('Dalshe hoda netu');

end;


procedure TForm2.SpeedButton5Click(Sender: TObject);

begin


WinExec('c:\program files\book\test\project2.exe',

SW_SHOW); form2.WindowState:=wsminimized;

end;

procedure TForm2.SpeedButton8Click(Sender: TObject);



begin

//tar1,lek2

webbrowser1.Navigate('c:\program files\book\lection\lec2.htm');

end;


procedure TForm2.SpeedButton9Click(Sender: TObject);

begin


//tar1, lek3

webbrowser1.Navigate('c:\program files\book\lection\lec3.htm');

end;

procedure TForm2.SpeedButton11Click(Sender: TObject);



begin

//tar2,lek1

webbrowser1.Navigate('c:\program files\book\lection\lec4.htm');

end;


procedure TForm2.SpeedButton12Click(Sender: TObject);

begin


//tar2,lek2

webbrowser1.Navigate('c:\program files\book\lection\lec5.htm');

end;

procedure TForm2.SpeedButton13Click(Sender: TObject);



begin

//tar2,lek3

webbrowser1.Navigate('c:\program files\book\lection\lec6.htm');

end;


procedure TForm2.SpeedButton14Click(Sender: TObject);

begin


//tar2,lek4

webbrowser1.Navigate('c:\program files\book\lection\lec7.htm');

end;

procedure TForm2.SpeedButton20Click(Sender: TObject);



begin

//tar3,lek1

end;

procedure TForm2.SpeedButton19Click(Sender: TObject);



begin

if bool then begin

bool:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

{----------}

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

{----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;


end;

bool:=true;

speedbutton20.Visible:=true;

speedbutton21.Visible:=true;

speedbutton22.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=208;

speedbutton27.Left:=0;

speedbutton27.top:=240;

webbrowser1.Navigate('c:\program files\book\lection\glav3.mht');

end;


procedure TForm2.SpeedButton23Click(Sender: TObject);

begin


if bool then begin

bool:=false;

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

{----------}

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;

speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

{----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

webbrowser1.Navigate('c:\program files\book\lection\zas.htm');

exit;

end;


bool:=true;

speedbutton24.Visible:=true;

speedbutton25.Visible:=true;

speedbutton26.Visible:=true;

{-----------}

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=240;

webbrowser1.Navigate('c:\program files\book\lection\glav4.mht');

end;

procedure TForm2.SpeedButton27Click(Sender: TObject);



begin

//Misaldar

webbrowser1.Navigate('c:\program files\book\lection\mis.htm');

speedbutton6.Left:=0;

speedbutton6.top:=32;

speedbutton10.Left:=0;

speedbutton10.top:=64;

speedbutton19.Left:=0;

speedbutton19.top:=96;

speedbutton23.Left:=0;

speedbutton23.top:=128;

speedbutton27.Left:=0;

speedbutton27.top:=160;

{-----------------------}

speedbutton24.Visible:=false;

speedbutton25.Visible:=false;

speedbutton26.Visible:=false;

speedbutton7.Visible:=false;

speedbutton8.Visible:=false;

speedbutton9.Visible:=false;

speedbutton11.Visible:=false;

speedbutton12.Visible:=false;

speedbutton13.Visible:=false;

speedbutton14.Visible:=false;


speedbutton20.Visible:=false;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

end;


procedure TForm2.SpeedButton21Click(Sender: TObject);

begin


//tar3 lek2

end;


procedure TForm2.SpeedButton22Click(Sender: TObject);

begin


//tar3.lek3

end;


procedure TForm2.SpeedButton24Click(Sender: TObject);

begin


//tar4,lek1

end;


procedure TForm2.SpeedButton25Click(Sender: TObject);

begin


//tar4,lek2

end;


procedure TForm2.SpeedButton26Click(Sender: TObject);

begin


//tar4,lek3

end;


procedure TForm2.SpeedButton28Click(Sender: TObject);

begin


GET.show;

end;


end.
unit Unit3

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, jpeg;

type

TAuthor = class(TForm)



Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Comments: TLabel;

OKButton: TButton;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;

var


Author: TAuthor;

implementation

{$R *.dfm}

procedure TAuthor.OKButtonClick(Sender: TObject);

begin

close;


end;

end.



unit Unit4

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)



Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

OKButton: TButton;

Label1: TLabel;

Memo1: TMemo;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;

var


AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;


end;

end.
unit Unit5

interface

uses


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

Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls;

type

TGET = class(TForm)



Image1: TImage;

SpeedButton1: TSpeedButton;

Image2: TImage;

Label1: TLabel;

Label2: TLabel;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;

var


GET: TGET;

implementation

{$R *.dfm}

procedure TGET.SpeedButton1Click(Sender: TObject);

begin

close;


end;

end.


Қолданылған әдебиеттер
1. Король В.И. Visual Basic 6.0, Visual Basic for Applications 6.0. Язык программирования : Справочник с примерами . - 2-е издание.- М.: КУДИЦ-ОБРАЗ, 2000.

2. Баженова И.Ю.


Delphi 5 : Самоучитель программиста .- 2-е издание.- М.: КУДИЦ-ОБРАЗ, 2000.

3. Программирование в Delphi глазами хакера +CD


Фленов М.В. Москва.

4. Самоучитель Основы программирования в Delphi 7 +дискета


Культин Н.Б.

5. Руководство разработчика баз данных в Delphi/Kylix. Автор: Хармон

6. VB2D - конвертор с Visual Basic на Delphi

Роберт Делросси

7. Г. В. Галисеев "Программирование в среде Delphi 8 for . NET. Самоучитель"

8. Язык программирования C++ Специальное издание.


Бьерн Страуструп

9. Разработка защищенных приложений в среде Visual Basic. Д.Чепмен, Вильямс, 2000.

10. Разработка СОМ-приложений в среде Delphi 3-5. Э.Хармон, Вильямс, 2000.

11. Программирование баз данных в Delphi 7. Учебный курс В. Фаронов : Издательство "Питер"

12. Visual Basic. Освой на примерах +CD
Категория: Компьютерная литература > Программирование > Visual Basic. Автор: Культин Н. Издательство: BHV-СПб

13. Visual Basic 6.0. Категория: Компьютерная литература >Программирование>Visual Basic. Автор: Microsoft. Изд: BHV-СПб



  1. Камардинов А. Delphi 5, Алматы, “Ата-мура”, 2002.

  2. А.Я. АРХАНГЕЛЬСКИЙ. Интегрированная среда разработки Delphi. От версии 1 до версии 5. Москва, ЗАО «Издательство БИНОМ» , 1999.

  3. А.Я. АРХАНГЕЛЬСКИЙ. Работа с локальными базами данных в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.

  4. А.Я. АРХАНГЕЛЬСКИЙ. Язык SQL в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.

  5. В.ГОФМАН, А.ХОМОНЕНКО, Delphi 5, Наиболее полное руководство. Изд-во "БХВ- Санкт-Петербург", 1999 г.

  6. В.ГОФМАН, А.ХОМОНЕНКО, Delphi 6, Наиболее полное руководство. Изд-во "БХВ- Санкт-Петербург", 2002 г.

  7. БОБРОВСКИЙ С., DELPHI 5: учебный курс. С.-П., «Питер», 2000.

  8. С.Д. Кузнецов. Введение в СУБД. "СУБД" 2-3,1996г.

  9. С.Д.Кузнецов. Доступ к базам данных с использованием технологии WWW. "СУБД" 5-6, 1996 г.

  10. http://oozoo.vnet.net/postgres95/

  11. http://www.fastcgi.com



Достарыңызбен бөлісу:
1   2   3   4




©dereksiz.org 2024
әкімшілігінің қараңыз

    Басты бет