Разработка программного продукта
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
-монитор;
-клавиатура;
-манипулятор мышь;
Программное обеспечение
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)