Flatik.ru

Перейти на главную страницу
Поиск по ключевым словам:

страница 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. https://oozoo.vnet.net/postgres95/

  11. https://www.fastcgi.com


<предыдущая страница


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

Кіріспе Delphi ортасы туралы түсінік

758kb.

14 12 2014
4 стр.
Студенттерге арналған пән силлабусы Пән туралы ақпарат

Арнайы курс «Delphi ортасындағы мәліметтер қорымен жұмыс істеу негіздері» қолданбалы курсын оқыту

109.76kb.

05 09 2014
1 стр.
Студенттердің өзіндік жұмысына арналған әдістемелік нұсқау Тақырыбы: Эмальданған ыдысқа қойылатын гигиеналық талаптар. Мамандық 051102 – «Қоғамдық денсаулық сақтау»

Орындалу түрі: Әдебиетпен жұмыс істеу, интернетте жұмыс істеу, жобаны дайындау, жобаны қорғау

19.7kb.

18 12 2014
1 стр.
Жоба 2013 жылға ауылдық елді-мекендерге жұмыс істеу және тұру үшін келген денсаулык сақтау, білім беру, әлеуметтік қамсыздандыру

«Ауылдық елді мекендерге жұмыс істеу және тұру үшін келген денсаулық сақтау, білім беру, әлеуметтік қамсыздандыру, мәдениет, спорт және ветеринария мамандарына әлеуметтік қолдау ша

17.99kb.

25 12 2014
1 стр.
Семинар сабаққа арналған әдістемелік ұсыныс Тақырып 9: Популяциялық генетика негіздері

Білім берудің және оқытудың әдістері: тақырыптық семинар: Дәстүрлі оқыту: жұптасып жұмыс істеу, оқулықтармен жұмыс, ситуациялық есептерді шешу, өздік жұмыстарын, тестілеу, препарат

59.75kb.

15 12 2014
1 стр.
Электрондық цифрлық қолтаңба сертификаттарымен жұмыс істеу үшін Tumar csp криптопровайдерін міндетті орнатуды талап етпейтін, өзгертілген тәртіпті сипаттайды. Нұсқау «Жеке тұлғаның жылжымайтын мүлкінің бар болуы (жоқ болуы) туралы анықтама

Бұл нұсқау мемлекеттік қызметті алудың, соның ішінде электрондық цифрлық қолтаңба сертификаттарымен жұмыс істеу үшін Tumar csp криптопровайдерін міндетті орнатуды талап етпейтін, ө

54.31kb.

13 09 2014
1 стр.
Дипломдық жұмыс Тақырыбы: " Delphi программалау ортасында графикалық компоненттерді пайдалану әдістемесі "

Тақырыбы: “Delphi программалау ортасында графикалық компоненттерді пайдалану әдістемесі”

586.34kb.

14 12 2014
5 стр.
Программалау» Мамандғы: 5B110300

Сабақ мақсаты: массивтермен жұмыс істеу кезінде циклдерді қолдану дағдыларын практикалық иелену

115.12kb.

05 09 2014
1 стр.