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

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

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

Dialogs, ExtCtrls, OleCtrls, SHDocVw, StdCtrls,

ComCtrls, Buttons;

type

SpeedButton1: TSpeedButton;

Animate1: TAnimate;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

end;

var

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

form2.showmodal;

form1.Close;

end; end.

interface

uses

Windows, Messages, SysUtils, Variants, Classes,

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

type

TForm2 = class(TForm)

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 declarations }

end;

var

bool:boolean;

implementation

uses Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm2.SpeedButton1Click(Sender: TObject);

begin

if bool then begin

panel2.Visible:=false;

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

exit;

bool:=true;

panel2.Visible:=true;

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

end;

procedure TForm2.FormCreate(Sender: TObject);

form2.Font.Name:='kzarial';

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

{ menu}

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);

webbrowser1.GoForward;

end;

procedure TForm2.SpeedButton6Click(Sender: TObject);

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;

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);

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;

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);

author.show;

end;

procedure TForm2.SpeedButton16Click(Sender: TObject);

aboutbox.show;

end;

procedure TForm2.FormActivate(Sender: TObject);

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

end;

procedure TForm2.SpeedButton7Click(Sender: TObject);

//tar1, lek1

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

end;

Command: Integer; Enable: WordBool);

begin

case Command of

CSC_NAVIGATEFORWARD: speedbutton4.Visible := enable;

end;

end;

begin

end;

begin

end;

begin

end;

begin

SW_SHOW); form2.WindowState:=wsminimized;

end;

procedure TForm2.SpeedButton8Click(Sender: TObject);

//tar1,lek2

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

end;

begin

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

end;

procedure TForm2.SpeedButton11Click(Sender: TObject);

//tar2,lek1

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

end;

begin

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

end;

procedure TForm2.SpeedButton13Click(Sender: TObject);

//tar2,lek3

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

end;

begin

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

end;

procedure TForm2.SpeedButton20Click(Sender: TObject);

//tar3,lek1

end;

procedure TForm2.SpeedButton19Click(Sender: TObject);

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;

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;

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;

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);

//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;

speedbutton21.Visible:=false;

speedbutton22.Visible:=false;

end;

begin

end;

begin

end;

begin

end;

begin

end;

begin

end;

begin

end;

interface

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

Buttons, ExtCtrls, jpeg;

type

TAuthor = class(TForm)

ProgramIcon: TImage;

ProductName: TLabel;

Comments: TLabel;

OKButton: TButton;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

end;

var

implementation

{$R *.dfm}

procedure TAuthor.OKButtonClick(Sender: TObject);

begin

close;

end.

interface

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

Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

OKButton: TButton;

Label1: TLabel;

Memo1: TMemo;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

end;

var

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

close;

end.
unit Unit5

interface

uses

Dialogs, Buttons, jpeg, ExtCtrls, StdCtrls;

type

TGET = class(TForm)

SpeedButton1: TSpeedButton;

Image2: TImage;

Label1: TLabel;

Label2: TLabel;

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

{ Public declarations }

end;

var

implementation

{$R *.dfm}

procedure TGET.SpeedButton1Click(Sender: TObject);

begin

close;

end.

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

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-СПб

14. 
    Камардинов А. Delphi 5, Алматы, “Ата-мура”, 2002.
    
15. 
    А.Я. АРХАНГЕЛЬСКИЙ. Интегрированная среда разработки Delphi. От версии 1 до версии 5. Москва, ЗАО «Издательство БИНОМ» , 1999.
    
16. 
    А.Я. АРХАНГЕЛЬСКИЙ. Работа с локальными базами данных в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.
    
17. 
    А.Я. АРХАНГЕЛЬСКИЙ. Язык SQL в Delphi 5. Москва, ЗАО «Издательство БИНОМ» , 2000.
    
18. 
    В.ГОФМАН, А.ХОМОНЕНКО, Delphi 5, Наиболее полное руководство. Изд-во "БХВ- Санкт-Петербург", 1999 г.
    
19. 
    В.ГОФМАН, А.ХОМОНЕНКО, Delphi 6, Наиболее полное руководство. Изд-во "БХВ- Санкт-Петербург", 2002 г.
    
20. 
    БОБРОВСКИЙ С., DELPHI 5: учебный курс. С.-П., «Питер», 2000.
    
21. 
    С.Д. Кузнецов. Введение в СУБД. "СУБД" 2-3,1996г.
    
22. 
    С.Д.Кузнецов. Доступ к базам данных с использованием технологии WWW. "СУБД" 5-6, 1996 г.
    
23. 
    http://oozoo.vnet.net/postgres95/
    
24. 
    http://www.fastcgi.com