Разработка программного продукта

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



-монитор;

-клавиатура;

-манипулятор мышь;

Программное обеспечение

1. FireBird 2.1;

2.IBExpert;

3.ОС Windows, Linux, Mac OS X;

2.5 Вызов и загрузка

При осуществлении проводятся следующие действия:

1)Произвести запуск программы. На экране появится форма для входа пользователя. (Рисунок 2.2)

Рисунок 2.2. форма входа программы

2)После нажатия на кнопку Зарегистрироваться появится форма регистрации. (Рисунок 2.3)

Рисунок 2.3 Форма регистрации

3) После удачного входа преподавателя появится форма для выбора раздела. (Рисунок 2.4)

Рисунок 2.4 Окно Выбор задачи для преподавателя

)После удачного входа студента появится форма для выбора раздела. (Рисунок 2.5)

Рисунок 2.5 Окно Выбор задачи для студента

2.6 Входные данные

К входным данным относятся: аунтентификационные данные пользователя, текстовые данные и рисунки для уроков и практических работ.

2.7 Выходные данные

В качестве выходных данных принимаются текст уроков и практических работ.

2.8Обоснование выбора

Borland Delphi 7 имеет высокую скорость создания приложений с графическим интерфейсом для MS Windows. Простой синтаксис, позволяющий очень быстро освоить язык. Возможность как компиляции в машинный код, так и интерпретации во время отладки.

3. ТЕКСТ ПРОГРАММЫ

// Главная форма программы

unit Registr;

interface

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

Dialogs, StdCtrls, Buttons;

TForm29 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Button1: TButton;

procedure FormActivate(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

kl:SmallInt;

{ Private declarations }

public

prRun:Boolean;

{ Public declarations }

end;

Form29: TForm29;

Login: integer = 1;

DataModule, Unit1, REGISTRA;

{$R *.dfm}

TForm29.FormActivate(Sender: TObject);

Edit1.Text:='';

Edit2.Text:='';;

TForm29.BitBtn1Click(Sender: TObject);

If Edit1.Text='' then

begin

ShowMessage('Введите Ваш номер!');

ModalResult := mrNone;

end

else

begin

If DM.dsetRegistr.Locate('Login',Edit1.Text,[]) then

begin

If Edit2.Text=DM.dsetRegistrPASS.Value then

begin

prRun:=true;

IdUser:=DM.dsetRegistrID.Value;

If IdUser=1 then

begin

ShowMessage('У Вас права преподавателя.');

Form1.Visible:=true;

Form29.Visible:=false;

Form1.N1.Visible:=true;

Form1.N2.Visible:=true;

end

else

begin

ShowMessage('У Вас права студента.');

Form1.Visible:=true;

Form29.Visible:=false;

Form1.N1.Visible:=false;

Form1.N2.Visible:=true;

end;

end

else

begin

If kl>2 then

begin

ShowMessage('Пользователь с данным паролем не зарегистрирован!');

prRun:=false;

if DM.dbDiplom.Connected then

DM.dbDiplom.Connected:=false;

close;

end

else

begin

kl:=kl+1;

ShowMessage('Пароль не верен! Попробуйте еще раз.');

Edit2.Text:='';

Edit2.SetFocus;

ModalResult := mrNone;

end;

end;

end

else

begin

ShowMessage('Вы не зарегистрированы!');

prRun:=false;

if DM.dbDiplom.Connected then

DM.dbDiplom.Connected:=false;

close;

end

end;

TForm29.FormCreate(Sender: TObject);

kl:=0;

prRun:=false;;

TForm29.BitBtn2Click(Sender: TObject);

close;;

TForm29.Button1Click(Sender: TObject);

Form30.BitBtn1.Enabled:=true;

Form30.Visible:=true;

Form29.Visible:=false;;

end.

// Форма Выбор раздела

unit Unit1;

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

Dialogs, Menus, ExtCtrls, StdCtrls, Buttons, jpeg;

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N7: TMenuItem;

Image1: TImage;

N8: TMenuItem;

N9: TMenuItem;

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

procedure WMNChitTest(var M:TWMNCHitTest);message wm_NchitTest;

end;

Form1: TForm1;

Unit2, Unit3, Unit4, Tema , DataModule, VbIborpupil, Prakticheskie,

vbIbor_prakt, Variant, Test_teacher, Registr;

{$R *.dfm}TForm1.N3Click(Sender: TObject);

close;

Form29.Visible:=true;;

TForm1.N4Click(Sender: TObject);

Form5.Visible:=true;

Form1.Visible:=false;;

TForm1.WMNChitTest(var M: TWMNCHitTest);

inherited ;

if M.Result=htClient then M.Result:=HTCAPTION;;

TForm1.N5Click(Sender: TObject);

Form18.Visible:=true;

Form1.Visible:=false;;

TForm1.N6Click(Sender: TObject);

Form25.Visible:=true;;

procedure TForm1.N7Click(Sender: TObject);

Form1.Visible:=false;

Form4.Visible:=true;;

TForm1.FormActivate(Sender: TObject);

DM.dsetTema.FetchAll;

DM.dsetLesson.FetchAll;

DM.dsetPodtema.FetchAll;;

TForm1.N8Click(Sender: TObject);

Form19.Visible:=true;

Form1.Visible:=false;;

TForm1.N9Click(Sender: TObject);

Form23.Visible:=true;

Form1.Visible:=false;;

TForm1.FormShow(Sender: TObject);

Form29.Visible:=true;;

.

//Форма регистрации пользователя

unit REGISTRA;

interface

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

Dialogs, StdCtrls, Mask, DBCtrls, Buttons;

TForm30 = class(TForm)

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label1: TLabel;

Label2: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

Form30: TForm30;

Registr, DataModule;

{$R *.dfm}

TForm30.BitBtn2Click(Sender: TObject);

close;

Form29.Visible:=true;

DM.dsetRegistr.Refresh;

;

TForm30.BitBtn1Click(Sender: TObject);

Form30.DBEdit1.Enabled:=true;

Form30.DBEdit2.Enabled:=true;

DM.dsetRegistr.Append;

Form30.BitBtn1.Enabled:=false;;

TForm30.FormClose(Sender: TObject; var Action: TCloseAction);

Form29.Visible:=true;

DM.dsetRegistr.Refresh;;

TForm30.FormActivate(Sender: TObject);

Form30.DBEdit1.Enabled:=false;

Form30.DBEdit2.Enabled:=false;;

.

//Форма для Практических заданий

unit Prakticheskie;

interface

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

Dialogs, Menus, jpeg, ExtCtrls, DBCtrls, Grids, DBGrids;

TForm19 = class(TForm)