АРМ диспетчера автотранспортного предприятия

    procedure N14Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form2: TForm2;

  nomer:integer;

  tbl:table;

 

implementation

 

uses Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9,Unit10, Unit11,

  Unit12;

 

{$R *.dfm}

 

 

procedure TForm2.Button1Click(Sender: TObject);

var

N:integer;

begin

DataModule1.IBTable1.Last;

N:=DataModule1.IBTable1.FieldByName('ID_GRUZA').AsInteger;

DataModule1.IBTable1.Append;

N:=N+1;

DataModule1.IBTable1.FieldByName('ID_GRUZA').AsInteger:=N;

Form3.show;

end;

 

procedure TForm2.Button2Click(Sender: TObject);

begin

DataModule1.IBTable1.Edit;

Form3.show;

end;

 

procedure TForm2.Button3Click(Sender: TObject);

begin

Datamodule1.IBTable1.Delete;

end;

 

procedure TForm2.Button4Click(Sender: TObject);

var

N:integer;

begin

DataModule1.IBTable2.Last;

N:=DataModule1.IBTable2.FieldByName('ID_AVTO').AsInteger;

DataModule1.IBTable2.Append;

N:=N+1;

DataModule1.IBTable2.FieldByName('ID_AVTO').AsInteger:=N;

Form4.show;

end;

 

procedure TForm2.Button5Click(Sender: TObject);

begin

DataModule1.IBTable2.Edit;

Form4.show;

end;

 

procedure TForm2.Button6Click(Sender: TObject);

begin

Datamodule1.IBTable2.Delete;

end;

 

procedure TForm2.Button7Click(Sender: TObject);

var

N:integer;

begin

DataModule1.IBTable3.Last;

N:=DataModule1.IBTable3.FieldByName('ID_PUTEV_LIST').AsInteger;

DataModule1.IBTable3.Append;

N:=N+1;

DataModule1.IBTable3.FieldByName('ID_PUTEV_LIST').AsInteger:=N;

Form5.show;

end;

 

procedure TForm2.Button8Click(Sender: TObject);

begin

DataModule1.IBTable3.Edit;

Form5.show;

end;

 

procedure TForm2.Button9Click(Sender: TObject);

begin

Datamodule1.IBTable3.Delete;

end;

 

procedure TForm2.Button10Click(Sender: TObject);

var

N:integer;

begin

DataModule1.IBTable4.Last;

N:=DataModule1.IBTable4.FieldByName('ID_REIS').AsInteger;

DataModule1.IBTable4.Append;

N:=N+1;

DataModule1.IBTable4.FieldByName('ID_REIS').AsInteger:=N;

Form6.show;

end;

 

procedure TForm2.Button11Click(Sender: TObject);

begin

DataModule1.IBTable4.Edit;

Form6.show;

end;

 

procedure TForm2.Button12Click(Sender: TObject);

begin

Datamodule1.IBTable4.Delete;

end;

 

procedure TForm2.Button13Click(Sender: TObject);

var

N:integer;

begin

DataModule1.IBTable5.Last;

N:=DataModule1.IBTable5.FieldByName('ID_SOTRUD').AsInteger;

DataModule1.IBTable5.Append;

N:=N+1;

DataModule1.IBTable5.FieldByName('ID_SOTRUD').AsInteger:=N;

Form7.show;

end;

procedure TForm2.Button14Click(Sender: TObject);

begin

DataModule1.IBTable5.Edit;

Form7.show;

end;

 

procedure TForm2.Button15Click(Sender: TObject);

begin

Datamodule1.IBTable5.Delete;

end;

 

procedure TForm2.Button16Click(Sender: TObject);

var

N:integer;

begin

DataModule1.IBTable6.Last;

N:=DataModule1.IBTable6.FieldByName('ID_AVTO').AsInteger;

DataModule1.IBTable6.Append;

N:=N+1;

DataModule1.IBTable6.FieldByName('ID_AVTO').AsInteger:=N;

Form8.show;

end;

 

procedure TForm2.Button17Click(Sender: TObject);

begin

DataModule1.IBTable6.Edit;

Form8.show;

end;

 

procedure TForm2.Button18Click(Sender: TObject);

begin

Datamodule1.IBTable6.Delete;

end;

 

procedure TForm2.Button19Click(Sender: TObject);

var

N:integer;

begin

DataModule1.IBTable7.Last;

N:=DataModule1.IBTable7.FieldByName('ID_DOLGNOSTI').AsInteger;

DataModule1.IBTable7.Append;

N:=N+1;

DataModule1.IBTable7.FieldByName('ID_DOLGNOSTI').AsInteger:=N;

Form9.show;

end;

 

procedure TForm2.Button20Click(Sender: TObject);

begin

DataModule1.IBTable7.Edit;

Form9.show;

end;

 

procedure TForm2.Button21Click(Sender: TObject);

begin

Datamodule1.IBTable7.Delete;

end;

 

procedure zapolnenieOTkolonok;

begin

nomer:=form2.PageControl1.ActivePage.TabIndex;

 

//Груз

if nomer =0 then

  begin

  form2.RadioGroup1.Caption:='Груз';

  form2.RadioGroup1.Items.Clear;

  form2.RadioGroup1.Items.Add('Код груза');

  form2.RadioGroup1.Items.Add('Рейс');

  form2.RadioGroup1.Items.Add('Груз');

  form2.RadioGroup1.Items.Add('Компания');

  form2.RadioGroup1.Items.Add('Пробег');

  form2.RadioGroup1.Items.Add('Цена за 1 км');

  form2.RadioGroup1.Items.Add('Доход');

  end;

 

//Прохождение ТО

if nomer =1 then

  begin

  form2.RadioGroup1.Caption:='Прохождение ТО';

  form2.RadioGroup1.Items.Clear;

  form2.RadioGroup1.Items.Add('Код авто');

  form2.RadioGroup1.Items.Add('Рег. знак');

  form2.RadioGroup1.Items.Add('Дата прохождения  ТО');

  form2.RadioGroup1.Items.Add('Ответственн. за  ТО');

  end;

 

//Путевой лист

if nomer =2 then

  begin

  form2.RadioGroup1.Caption:='Путевой лист';

  form2.RadioGroup1.Items.Clear;

  form2.RadioGroup1.Items.Add('Рейс');

  form2.RadioGroup1.Items.Add('Груз');

  form2.RadioGroup1.Items.Add('Сотрудник');

  form2.RadioGroup1.Items.Add('Авто');

  form2.RadioGroup1.Items.Add('Регистрационный  знак');

  form2.RadioGroup1.Items.Add('Дата');

  form2.RadioGroup1.Items.Add('Код путевого  листа');

  end;

 

//Рейсы

if nomer =3 then

  begin

  form2.RadioGroup1.Caption:='Рейсы';

  form2.RadioGroup1.Items.Clear;

  form2.RadioGroup1.Items.Add('Код рейса');

  form2.RadioGroup1.Items.Add('Рейс');

  form2.RadioGroup1.Items.Add('Дата отправления');

  form2.RadioGroup1.Items.Add('Дата прибытия');

  form2.RadioGroup1.Items.Add('Номер рейса');

  end;

 

//Сотрудники

if nomer =4 then

  begin

  form2.RadioGroup1.Caption:='Сотрудники';

  form2.RadioGroup1.Items.Clear;

  form2.RadioGroup1.Items.Add('Код сотрудника');

  form2.RadioGroup1.Items.Add('Номер сотрудника');

  form2.RadioGroup1.Items.Add('ФИО сотрудника');

  form2.RadioGroup1.Items.Add('Дата рождения');

  form2.RadioGroup1.Items.Add('Дата приема на работу');

  end;

 

//Транспорт

if nomer =5 then

  begin

  form2.RadioGroup1.Caption:='Транспорт';

  form2.RadioGroup1.Items.Clear;

  form2.RadioGroup1.Items.Add('Код авто');

  form2.RadioGroup1.Items.Add('Марка авто');

  form2.RadioGroup1.Items.Add('Дата выпуска');

  form2.RadioGroup1.Items.Add('Цвет');

  form2.RadioGroup1.Items.Add('Идентификационный номер');

  form2.RadioGroup1.Items.Add('Регистрационный знак');

  end;

 

//Зарплата

if nomer =6 then

  begin

  form2.RadioGroup1.Caption:='Заплата';

  form2.RadioGroup1.Items.Clear;

  form2.RadioGroup1.Items.Add('Код должности');

  form2.RadioGroup1.Items.Add('Должность');

  form2.RadioGroup1.Items.Add('Оклад');

  end;

  end;

 

procedure TForm2.PageControl1Change(Sender: TObject);

begin

nomer:=form2.PageControl1.ActivePage.TabIndex;

if CheckBox1.Checked = true then

zapolnenieOTkolonok;

end;

 

//Поиск без сортировки

procedure TForm2.BitBtn3Click(Sender: TObject);

var

strField:string ;

begin

nomer:=form2.PageControl1.ActivePage.TabIndex;

if edit1.text='' then

begin

messagedlg('Заполните поля для поиска !',mtError,[mbcancel],0);

end

else

 

//Груз

if nomer=0 then

      begin

      case RadioGroup1.ItemIndex of

         0: strField:='ID_GRUZA';

         1: strField:='REIS';

         2: strField:='GRUZ';

         3: strField:='COMPANIA';

         4: strField:='PROBEG';

         5: strField:='PRICE_1KM';

         6: strField:='DOHOD';

         end;

         datamodule1.IBQuery1.SQL.Clear;

         datamodule1.IBQuery1.SQL.Add('SELECT * FROM GRUZ');

         datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' like ''' +Edit1.Text+'%''');

         datamodule1.IBQuery1.Open;

 

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

 

  form2.DBGrid8.Columns[0].Title.caption:='Код груза';

  form2.DBGrid8.Columns[1].Title.caption:='Рейс';

  form2.DBGrid8.Columns[2].Title.caption:='Груз';

  form2.DBGrid8.Columns[3].Title.caption:='Компания';

  form2.DBGrid8.Columns[4].Title.caption:='Пробег';

  form2.DBGrid8.Columns[5].Title.caption:='Цена за 1 км';

  form2.DBGrid8.Columns[6].Title.caption:='Доход';

end;

 

//Прохождение ТО

if nomer=1 then

      begin

      case RadioGroup1.ItemIndex of

         0: strField:='ID_AVTO';

         1: strField:='REG_ZNAK';

         2: strField:='DATE_PROHOGDENIA_TO';

         3: strField:='OTVETSTVEN_ZA_TO';

         end;

         datamodule1.IBQuery1.SQL.Clear;

         datamodule1.IBQuery1.SQL.Add('SELECT * FROM PROHOGDENIE_TO');

         datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' like ''' +Edit1.Text+'%''');

         datamodule1.IBQuery1.Open;

 

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

 

  form2.DBGrid8.Columns[0].Title.caption:='Код авто';

  form2.DBGrid8.Columns[1].Title.caption:='Рег. знак';

  form2.DBGrid8.Columns[2].Title.caption:='Дата прохождения  ТО';

  form2.DBGrid8.Columns[3].Title.caption:='Ответственн.  за ТО';

end;

 

//Путевой лист

if nomer=2 then

      begin

      case RadioGroup1.ItemIndex of

         0: strField:='REIS';

         1: strField:='GRUZ';

         2: strField:='SOTRUD';

         3: strField:='AVTO';

         4: strField:='REG_ZNAK';

         5: strField:='DATE';

         6: strField:='ID_PUTEV_LIST';

         end;

         datamodule1.IBQuery1.SQL.Clear;

         datamodule1.IBQuery1.SQL.Add('SELECT * FROM PUTEV_LIST');

         datamodule1.IBQuery1.SQL.Add('WHERE '+strField+' like ''' +Edit1.Text+'%''');

         datamodule1.IBQuery1.Open;

 

form2.DBGrid8.DataSource:= DataModule1.DataSource8;

 

  form2.DBGrid8.Columns[0].Title.caption:='Код сотрудника';

  form2.DBGrid8.Columns[1].Title.caption:='Код авто';

  form2.DBGrid8.Columns[2].Title.caption:='Код рейса';

  form2.DBGrid8.Columns[3].Title.caption:='Код груза';

  form2.DBGrid8.Columns[4].Title.caption:='Дата';

  form2.DBGrid8.Columns[5].Title.caption:='Показания  спидометра (OUT)';

  form2.DBGrid8.Columns[6].Title.caption:='Показания  спидометра (IN)';

  form2.DBGrid8.Columns[7].Title.caption:='Код путевого  листа';

  form2.DBGrid8.Columns[8].Title.caption:='Рейс';

  form2.DBGrid8.Columns[9].Title.caption:='Груз';

  form2.DBGrid8.Columns[10].Title.caption:='Сотрудник';

  form2.DBGrid8.Columns[11].Title.caption:='Авто';

  form2.DBGrid8.Columns[12].Title.caption:='Рег. знак';

end;

 

//Рейсы

if nomer=3 then