Дипломная работа: Автоматизация управления процессом отгрузки товара в компании ООО "Мебельград"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
Unit11, Unit12;
{$R *.dfm}
procedure TForm1.N10Click(Sender: TObject);
begin
Form2.Showmodal;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Form2.Showmodal;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
Form3.ShowModal;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form4.ShowModal;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
Form6.ShowModal;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
Form7.Showmodal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
Form7.Showmodal;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form8.ShowModal;
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Form9.ShowModal;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
Form10.ShowModal;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
Form11.Showmodal;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
Form12.ShowModal;
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Form1.Close;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var a,s:string;
begin
a:=Edit2.Text;
s:=Edit1.Text;
if ((s='Admin') and (a='123')) then
Form2.ShowModal
else
begin
ShowMessage('Неправильный логин или пароль');
Edit1.Clear;
Edit2.Clear;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Close();
end;
end.
Источник: https://baza.diplomsite.ru/previewfile/1676

Смотрите также:

_1966(~1
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27
'Образ–Я' и его развитие средствами диалога
"Логистическая технология JIT"
"Особенности правовой системы Российской Федерации" по дисциплине "Теория государства и права"
«Анализ ликвидности и платежеспособности предприятия» (на материалах ОАО Московская кондитерская фабрика «Красный Октябрь»)