Разработка программного продукта
На форме «Направления» предоставляются данные о направлениях (рис. 11). В «Преподаватели» хранится информация о преподавателях (рис. 9). Messagebox (0,'Авторизация завершена успешно','Сообщение', 33); Messagebox (0,'Не верный логин и пароль','Ошибка', 33); Проектирование интерфейса пользователя. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,. Windows, Messages… Читать ещё >
Разработка программного продукта (реферат, курсовая, диплом, контрольная)
Прежде чем начать работать с программой, требуется пройти авторизацию. Только после этого пользователь может начинать работать. У каждого пользователя имеются рамки доступа к той или иной информации (рис. 6).
Если авторизация была пройдена успешно, появятся вкладки в верхней части формы (рис. 7).
Рисунок 6 — Авторизация.
procedure TMenu. Button1Click (Sender: TObject);
var.
log, pas: string;
begin.
log:=Edit1.Text;
pas:=Edit2.Text;
if (log='Admin') and (pas='555') then.
begin.
n1.Visible:=true;
n2.Visible:=true;
n3.Visible:=true;
GroupBox1.Visible:=false;
edit1.Text:='';
edit2.Text:='';
messagebox (0,'Авторизация завершена успешно','Сообщение', 33);
end.
else.
begin.
messagebox (0,'Не верный логин и пароль','Ошибка', 33);
edit1.Text:='';
edit2.Text:='';
end;
end;
Рисунок 7 — Панель вкладок.
procedure TMenu. N1Click (Sender: TObject);
begin.
Application.CreateForm (TOsnowa, Osnowa);
end;
procedure TMenu. N2Click (Sender: TObject);
begin.
Application.CreateForm (TPrepod, Prepod);
end;
procedure TM…
procedure Button3Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button6Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
В «Преподаватели» хранится информация о преподавателях (рис. 9).
unit Unit4;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, Grids, DBGrids, StdCtrls, DBCtrls, Mask;
type.
TPrepod = class (TForm).
DBGrid1: TDBGrid;
DBEdit1: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label1: TLabel;
Label2: TLabel;
abel3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
DBLookupComboBox1: TDBLookupComboBox;
DBEdit2: TDBEdit;
Label5: TLabel;
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure Button1Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Prepod: TPrepod;
implementation.
uses.
Unit1, Unit2, Unit3, Unit5, Unit6, Unit7;
«Справочник» содержит информацию о предметах, направлениях и конкурсах (рис. 10).
Рисунок 10 — Форма предметов.
unit Unit5;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids;
type.
TPredmet = class (TForm).
DBGrid1: TDBGrid;
DBEdit1: TDBEdit;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
Public declarations }.
end;
var.
Predmet: TPredmet;
implementation.
uses Unit1, Unit2, Unit3, Unit4, Unit6, Unit7;
На форме «Направления» предоставляются данные о направлениях (рис. 11).
Рисунок 11 — Форма направлений.
unit Unit6;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls;
type.
TNapravlenia = class (TForm).
DBGrid1: TDBGrid;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Label1: TLabel;
DBEdit1: TDBEdit;
procedure Button1Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure FormCreate (Sender: TObject);
private.
Private declarations }.
public.
Public declarations }.
end;
var.
Napravlenia: TNapravlenia;
implementation.
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit7;
Во вкладке «Конкурсы» находятся данные о проведенных конкурсах (рис. 12).
Рисунок 12 — форма Конкурсы.
unit Unit7;
interface.
uses.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.
Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, Mask;
type.
TKonkurs = class (TForm).
DBGrid1: TDBGrid;
DBLookupComboBox1: TDBLookupComboBox;
Label1: TLabel;
Label2: TLabel;
abel3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
DBLookupComboBox4: TDBLookupComboBox;
DBEdit1: TDBEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Edit1: TEdit;
Label6: TLabel;
procedure FormClose (Sender: TObject; var Action: TCloseAction);
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button6Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private.
{ Private declarations }.
public.
{ Public declarations }.
end;
var.
Konkurs: TKonkurs;
implementation.
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6;
Проектирование интерфейса пользователя