Обучающие программы по информатике
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
ть, что Delphi является лидером в среде программирования и ещё пройдет немало времени, прежде чем появится язык совершенней Delphi.
Список используемых источников
1.
.
3.Баженова И. Ю. Delphi 7. Самоучитель программиста. - М.: КУДИЦ-ОБРАЗ, 2003. - 448 с.
4.
5.
.
.
.Концепции системной интеграции информационных технологий в высшей школе. М.: РосНИИСИ, 1993.
Приложение 1
Основное меню.
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdCtrls;= class(TForm): TLabel;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;New1Click(Sender: TObject);N21Click(Sender: TObject);Exit1Click(Sender: TObject);Help1Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);About1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;Unit7, Unit9, Unit8;
{$R *.dfm}TForm1.New1Click(Sender: TObject);.show;.Hide;;TForm1.N21Click(Sender: TObject);.show;.Hide;;TForm1.Exit1Click(Sender: TObject);.Terminate;;TForm1.Help1Click(Sender: TObject);.show;.Hide;;TForm1.FormClose(Sender: TObject; var Action: TCloseAction);.Terminate;;TForm1.About1Click(Sender: TObject);(тестуля.exe, SW_SHOW);;
end.
Приложение 2
Окно 2 класс.
unit Unit7;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, OleCtrls, SHDocVw;= class(TForm): TPanel;: TButton;: TButton;: TButton;: TLabel;: TWebBrowser;FormCreate(Sender: TObject);Button3Click(Sender: TObject);Button2Click(Sender: TObject);Button1Click(Sender: TObject);FormClose(Sender: TObject; var Action: TCloseAction);
{ Private declarations }
{ Public declarations };: TForm7;:integer;Unit1;
{$R *.dfm}TForm7.FormCreate(Sender: TObject);.Navigate(getcurrentdir+\html2\1.htm);.Enabled:=false;.Caption:=1 страница из 65;:=1;;TForm7.Button3Click(Sender: TObject);button2.Enabled:=true;(i);.Caption:=inttostr(i)+ страница из 64;.Navigate(getcurrentdir+\html2\+inttostr(i)+.htm);i=1 then button3.Enabled:=false;;TForm7.Button2Click(Sender: TObject);.Enabled:=true;(i);.Caption:=inttostr(i)+ страница из 64;.Navigate(getcurrentdir+\html2\+inttostr(i)+.htm);i=64 then button2.Enabled:=false;;TForm7.Button1Click(Sender: TObject);.Show;.Hide;.Navigate(getcurrentdir+\html2\1.htm);.Enabled:=false;.Caption:=1 страница из 64;:=1;.Visible:=false;.Visible:=true;;TForm7.FormClose(Sender: TObject; var Action: TCloseAction);.Show;;.
Приложение 3
Окно 3 класс.Unit8;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, FileCtrl;= class(TForm): TPanel;: TButton;: TButton;: TButton;: TLabel;: TWebBrowser;: TImage;FormClose(Sender: TObject; var Action: TCloseAction);FormCreate(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Image1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm8;:integer;Unit1;
{$R *.dfm}TForm8.FormClose(Sender: TObject; var Action: TCloseAction);.show;;TForm8.FormCreate(Sender: TObject);.Navigate(getcurrentdir+\html3\1001.htm);.Enabled:=false;.Caption:=1 страница из 63;:=1;;TForm8.Button1Click(Sender: TObject);button2.Enabled:=true;(i);.Caption:=inttostr(i)+ страница из 63;.Navigate(getcurrentdir+\html3\+inttostr(i)+.htm);i=1 then button1.Enabled:=false;;TForm8.Button2Click(Sender: TObject);.Enabled:=true;(i);.Caption:=inttostr(i)+ страница из 63;.Navigate(getcurrentdir+\html3\+inttostr(i)+.htm);i=63 then button2.Enabled:=false;;TForm8.Button3Click(Sender: TObject);.Show;.Hide;.Navigate(getcurrentdir+\html3\1064.htm);.Enabled:=false;.Caption:=1 страница из 63;:=1;.Visible:=true;.Visible:=false;;TForm8.Image1Click(Sender: TObject);.FieldAddress(getcurrentdir+\html3\1001.htm);.Enabled:=false;.Caption:=1 страница из 63;
i:=1;;.
Приложение 4
О программе.
unit Unit9;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, jpeg;= class(TForm): TImage;: TButton;: TLabel;: TLabel;: TImage;: TLabel;: TLabel;: TLabel;FormClose(Sender: TObject; var Action: TCloseAction);Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm9;Unit1;
{$R *.dfm}TForm9.FormClose(Sender: TObject; var Action: TCloseAction);.show;;TForm9.Button1Click(Sender: TObject);.Hide;.show;
end;.