Приложение А

(обязательное)

Автоматизированная система управления ООО «Редтех» с разработкой программного средства учёта выполнения заказов

Текст программы

Всего листов – 20

2011

interface

uses

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

Dialogs, Menus;

type

TForm3 = class(TForm)

MainMenu1: TMainMenu;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N10: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N16: TMenuItem;

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

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

procedure N12Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit2, Unit1, Unit4, Unit5, Unit6, Unit10, Unit8, Unit9, Unit11,

Unit12;

{$R *.dfm}

procedure TForm3.N4Click(Sender: TObject);

begin

Form1.Close;

end;

procedure TForm3.N6Click(Sender: TObject);

begin

Form4.showmodal;

end;

procedure TForm3.N7Click(Sender: TObject);

begin

Form5.Showmodal;

end;

procedure TForm3.N15Click(Sender: TObject);

begin

Form2.Showmodal;

end;

procedure TForm3.N8Click(Sender: TObject);

begin

Form6.Showmodal;

end;

procedure TForm3.N10Click(Sender: TObject);

begin

Form11.showmodal;

end;

procedure TForm3.N1Click(Sender: TObject);

begin

Form10.showmodal;

end;

procedure TForm3.N2Click(Sender: TObject);

begin

Form8.showmodal;

end;

procedure TForm3.N3Click(Sender: TObject);

begin

Form9.showmodal;

end;

procedure TForm3.N12Click(Sender: TObject);

begin

Form12.showmodal;

end;

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

begin

Form1.Close;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, ADODB, DB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

TForm5 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOTable1: TADOTable;

Panel1: TPanel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Label4: TLabel;

Label5: TLabel;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ADOTable1BeforeDelete(DataSet: TDataSet);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

flag: boolean;

implementation

uses Unit3, Unit4, Unit1, Unit2, Unit9, Unit10;

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);

begin

if (Edit1.Text<>'') and

(Edit2.Text<>'') and

(Edit3.Text<>'')

then

begin

if flag=true then ADOTable1.Insert

else ADOTable1.Edit;

ADOTable1.FieldValues['Наименование услуги']:=Edit1.Text;

ADOTable1.FieldValues['Стоимость']:=Edit2.Text;

ADOTable1.FieldValues['Ед Измерения']:=Edit3.Text;

ADOTable1.Post();

end

else ShowMessage('Необходимо заполнить поля ввода');

end;

procedure TForm5.Button3Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

flag:=true;

Panel1.Visible:=true;

Label4.Visible:=true;

Label5.Visible:=false;

end;

procedure TForm5.Button4Click(Sender: TObject);

begin

flag:=false;

Panel1.Visible:=true;

Label5.Visible:=true;

Label4.Visible:=false;

Edit1.Text:=ADOTable1.FieldValues['Наименование услуги'];

Edit2.Text:=ADOTable1.FieldValues['Стоимость'];

Edit3.Text:=ADOTable1.FieldValues['Ед Измерения'];

end;

procedure TForm5.Button5Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TForm5.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

end;

procedure TForm5.ADOTable1BeforeDelete(DataSet: TDataSet);

var

Del:real;

begin

Del:=MessageDlg('Хотите удалить текущую запись в базе данных?', mtConfirmation, [mbYes,mbNo] , 0);

If Del<>mrYes

then begin

DataSet.Cancel();

Abort();

end;

end;

procedure TForm5.Button6Click(Sender: TObject);

begin

Form5.Close;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, ADODB, DB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

TForm8 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOTable1: TADOTable;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Label6: TLabel;

Label7: TLabel;

Button6: TButton;

procedure Button3Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure ADOTable1BeforeDelete(DataSet: TDataSet);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

flag: boolean;

implementation

uses Unit6;

{$R *.dfm}

procedure TForm8.Button3Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

flag:=true;

Panel1.Visible:=true;

Label6.Visible:=true;

Label7.Visible:=false;

end;

procedure TForm8.Button1Click(Sender: TObject);

begin

if (Edit1.Text<>'') and

(Edit2.Text<>'') and

(Edit3.Text<>'') and

(Edit4.Text<>'')

then

begin

if flag=true then ADOTable1.Insert

else ADOTable1.Edit;

ADOTable1.FieldValues['Должность']:=Edit1.Text;

ADOTable1.FieldValues['Фиксир з/п в час']:=Edit2.Text;

ADOTable1.FieldValues['Раб часы в день']:=Edit3.Text;

ADOTable1.FieldValues['Раб дни в неделе']:=Edit4.Text;

if StrToInt(Edit3.Text)>24 then

begin

ShowMessage('Неверно введено значение в поле Раб часы в день');

DataSource1.DataSet.Cancel();

Abort();

end;

if StrToInt(Edit4.Text)>7 then

begin

ShowMessage('Неверно введено значение в поле Раб дни в неделе');

DataSource1.DataSet.Cancel();

Abort();

end;

ADOTable1.Post();

end

else ShowMessage('Необходимо заполнить поля ввода');

end;

procedure TForm8.Button4Click(Sender: TObject);

begin

flag:=false;

Panel1.Visible:=true;

Label7.Visible:=true;

Label6.Visible:=false;

Edit1.Text:=ADOTable1.FieldValues['Должность'];

Edit2.Text:=ADOTable1.FieldValues['Фиксир з/п в час'];

Edit3.Text:=ADOTable1.FieldValues['Раб часы в день'];

Edit4.Text:=ADOTable1.FieldValues['Раб дни в неделе'];

end;

procedure TForm8.Button5Click(Sender: TObject);

begin

ADOTable1.Delete;

end;

procedure TForm8.ADOTable1BeforeDelete(DataSet: TDataSet);

var

Del:real;

begin

Del:=MessageDlg('Хотите удалить текущую запись в базе данных?', mtConfirmation, [mbYes,mbNo] , 0);

If Del<>mrYes

then begin

DataSet.Cancel();

Abort();

end;

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

end;

procedure TForm8.Button6Click(Sender: TObject);

begin

Form8.Close;

end;

end.

unit Unit10;

interface

uses

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

Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type

TForm10 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

ADOTable1: TADOTable;

Panel1: TPanel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Label6: TLabel;

Label7: TLabel;

Button6: TButton;

ComboBox1: TComboBox;

ComboBox2: TComboBox;

ComboBox3: TComboBox;

Edit2: TEdit;

Label5: TLabel;

Edit3: TEdit;

Button7: TButton;

procedure Button6Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure ADOTable1BeforeDelete(DataSet: TDataSet);

procedure Button2Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

flag: boolean;

implementation

uses Unit4, Unit5, Unit6;

{$R *.dfm}

procedure TForm10.Button6Click(Sender: TObject);

begin

Form10.Close;

end;

procedure TForm10.Button3Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Combobox1.Text:='';

Combobox1.Items.Clear;

Combobox2.Text:='';

Combobox2.Items.Clear;

Combobox3.Text:='';

Combobox3.Items.Clear;

Form4.ADOTable1.Open;

Form4.ADOTable1.First;

Form5.ADOTable1.Open;

Form5.ADOTable1.First;

Form6.ADOTable1.Open;

Form6.ADOTable1.First;

While not Form4.ADOTable1.Eof do

begin

Combobox1.Items.Add(Form4.ADOTable1.FieldValues['Фирма']);

Form4.ADOTable1.Next;

end;

While not Form5.ADOTable1.Eof do

begin

Combobox2.Items.Add(Form5.ADOTable1.FieldValues['Наименование услуги']);

Form5.ADOTable1.Next;

end;

While not Form6.ADOTable1.Eof do

begin

Combobox3.Items.Add(Form6.ADOTable1.FieldValues['ФИО сотрудника']);

Form6.ADOTable1.Next;

end;

flag:=true;

Panel1.Visible:=true;

Label6.Visible:=true;

Label7.Visible:=false;

end;

procedure TForm10.Button4Click(Sender: TObject);

begin

flag:=false;

Panel1.Visible:=true;

Label7.Visible:=true;

Label6.Visible:=false;

Edit1.Text:=ADOTable1.FieldValues['Количество'];

Edit2.Text:=ADOTable1.FieldValues['Дата заказа'];

Combobox1.Text:=ADOTable1.FieldValues['Клиент'];

Combobox1.Items.Clear;

Combobox2.Text:=ADOTable1.FieldValues['Наименование услуги'];

Combobox2.Items.Clear;

Combobox3.Text:=ADOTable1.FieldValues['ФИО сотрудника'];

Combobox3.Items.Clear;

Form4.ADOTable1.Open;

Form4.ADOTable1.First;

Form5.ADOTable1.Open;

Form5.ADOTable1.First;

Form6.ADOTable1.Open;

Form6.ADOTable1.First;

While not Form4.ADOTable1.Eof do

begin

Combobox1.Items.Add(Form4.ADOTable1.FieldValues['Фирма']);

Form4.ADOTable1.Next;

end;

While not Form5.ADOTable1.Eof do

begin

Combobox2.Items.Add(Form5.ADOTable1.FieldValues['Наименование услуги']);

Form5.ADOTable1.Next;

end;

While not Form6.ADOTable1.Eof do

begin

Combobox3.Items.Add(Form6.ADOTable1.FieldValues['ФИО сотрудника']);

Form6.ADOTable1.Next;

end;

end;

procedure TForm10.Button1Click(Sender: TObject);