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

 

procedure TForm2.CheckBox2Click(Sender: TObject);

begin

if CheckBox2.Checked=true then

begin

form2.BitBtn2.Visible:=true;

form2.BitBtn3.Visible:=false;

form2.Edit2.Visible:=true;

form2.Label1.Visible:=true;

form2.Label2.Visible:=true;

end else

begin

form2.BitBtn2.Visible:=false;

form2.BitBtn3.Visible:=true;

form2.Edit2.Visible:=false;

form2.Label1.Visible:=false;

form2.Label2.Visible:=false;

end;

end;

procedure TForm2.Button23Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

end;

 

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

      DataModule1.IBTable1.Active:=false;

      DataModule1.IBTable2.Active:=false;

      DataModule1.IBTable3.Active:=false;

      DataModule1.IBTable4.Active:=false;

      DataModule1.IBTable5.Active:=false;

      DataModule1.IBTable6.Active:=false;

      DataModule1.IBTable7.Active:=false;

 

      DataModule1.IBTransaction1.Commit;

close;

end;

 

procedure TForm2.N10Click(Sender: TObject);

begin

N10.Checked:=true;

N11.Checked:=false;

Form2.CheckBox1.Checked:=true;

end;

 

procedure TForm2.N11Click(Sender: TObject);

begin

N10.Checked:=false;

N11.Checked:=true;

Label1.Visible:=false;

Label2.Visible:=false;

Edit2.Visible:=false;

BitBtn2.Visible:=false;

Form2.CheckBox1.Checked:=false;

end;

 

procedure TForm2.N6Click(Sender: TObject);

begin

Form12.Show;

end;

 

//Отчет по путевому листу

procedure TForm2.N2Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Путевой лист';

Colum:=XLApp.Workbooks[1].WorkSheets['Путевой лист'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum.Columns[7].ColumnWidth:=20;

Colum.Columns[8].ColumnWidth:=20;

Colum.Columns[9].ColumnWidth:=20;

Colum.Columns[10].ColumnWidth:=20;

Colum.Columns[11].ColumnWidth:=20;

Colum.Columns[12].ColumnWidth:=20;

Colum.Columns[13].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Путевой лист'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Путевой лист'];

Sheet.Cells[1,2]:='Отчет по путевому листу';

Sheet.Cells[2,1]:='Код сотрудника';

Sheet.Cells[2,2]:='Код авто';

Sheet.Cells[2,3]:='Код рейса';

Sheet.Cells[2,4]:='Код груза';

Sheet.Cells[2,5]:='Дата';

Sheet.Cells[2,6]:='Показ. спид. (OUT)';

Sheet.Cells[2,7]:='Показ. спид. (IN)';

Sheet.Cells[2,8]:='Код путевого листа';

Sheet.Cells[2,9]:='Рейс';

Sheet.Cells[2,10]:='Груз';

Sheet.Cells[2,11]:='Сотрудник';

Sheet.Cells[2,12]:='Авто';

Sheet.Cells[2,13]:='Рег. знак';

index:=3;

DataModule1.IBTable3.First;

for i:=0 to DataModule1.IBTable3.RecordCount-1 do

begin

Sheet.Cells[index,1]:=DataModule1.IBTable3.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=DataModule1.IBTable3.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=DataModule1.IBTable3.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=DataModule1.IBTable3.Fields.Fields[3].AsString;

Sheet.Cells[index,5]:=DataModule1.IBTable3.Fields.Fields[4].AsString;

Sheet.Cells[index,6]:=DataModule1.IBTable3.Fields.Fields[5].AsString;

Sheet.Cells[index,7]:=DataModule1.IBTable3.Fields.Fields[6].AsString;

Sheet.Cells[index,8]:=DataModule1.IBTable3.Fields.Fields[7].AsString;

Sheet.Cells[index,9]:=DataModule1.IBTable3.Fields.Fields[8].AsString;

Sheet.Cells[index,10]:=DataModule1.IBTable3.Fields.Fields[9].AsString;

Sheet.Cells[index,11]:=DataModule1.IBTable3.Fields.Fields[10].AsString;

Sheet.Cells[index,12]:=DataModule1.IBTable3.Fields.Fields[11].AsString;

Sheet.Cells[index,13]:=DataModule1.IBTable3.Fields.Fields[12].AsString;

Inc(index);

DataModule1.IBTable3.Next;

end;

end;

 

//Отчет по рейсам

procedure TForm2.N7Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Рейсы';

Colum:=XLApp.Workbooks[1].WorkSheets['Рейсы'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Рейсы'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Рейсы'];

Sheet.Cells[1,2]:='Отчет по рейсам';

Sheet.Cells[2,1]:='Код рейса';

Sheet.Cells[2,2]:='Рейс';

Sheet.Cells[2,3]:='Дата отправления';

Sheet.Cells[2,4]:='Дата прибытия';

Sheet.Cells[2,5]:='Номер рейса';

index:=3;

DataModule1.IBTable4.First;

for i:=0 to DataModule1.IBTable4.RecordCount-1 do

begin

Sheet.Cells[index,1]:=DataModule1.IBTable4.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=DataModule1.IBTable4.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=DataModule1.IBTable4.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=DataModule1.IBTable4.Fields.Fields[3].AsString;

Sheet.Cells[index,5]:=DataModule1.IBTable4.Fields.Fields[4].AsString;

Inc(index);

DataModule1.IBTable4.Next;

end;

end;

 

//Отчет по грузам

procedure TForm2.N8Click(Sender: TObject);

var

XLApp,Sheet,Colum:Variant;

index,i:Integer;

begin

XLApp:= CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Груз';

Colum:=XLApp.Workbooks[1].WorkSheets['Груз'].Columns;

Colum.Columns[1].ColumnWidth:=20;

Colum.Columns[2].ColumnWidth:=20;

Colum.Columns[3].ColumnWidth:=20;

Colum.Columns[4].ColumnWidth:=20;

Colum.Columns[5].ColumnWidth:=20;

Colum.Columns[6].ColumnWidth:=20;

Colum.Columns[7].ColumnWidth:=20;

Colum:=XLApp.Workbooks[1].WorkSheets['Груз'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=14;

Sheet:=XLApp.Workbooks[1].WorkSheets['Груз'];

Sheet.Cells[1,2]:='Отчет по грузам';

Sheet.Cells[2,1]:='Код груза';

Sheet.Cells[2,2]:='Рейс';

Sheet.Cells[2,3]:='Груз';

Sheet.Cells[2,4]:='Компания';

Sheet.Cells[2,5]:='Пробег';

Sheet.Cells[2,6]:='Цена за 1 км';

Sheet.Cells[2,7]:='Доход';

index:=3;

DataModule1.IBTable1.First;

for i:=0 to DataModule1.IBTable1.RecordCount-1 do

begin

Sheet.Cells[index,1]:=DataModule1.IBTable1.Fields.Fields[0].AsString;

Sheet.Cells[index,2]:=DataModule1.IBTable1.Fields.Fields[1].AsString;

Sheet.Cells[index,3]:=DataModule1.IBTable1.Fields.Fields[2].AsString;

Sheet.Cells[index,4]:=DataModule1.IBTable1.Fields.Fields[3].AsString;

Sheet.Cells[index,5]:=DataModule1.IBTable1.Fields.Fields[4].AsString;

Sheet.Cells[index,6]:=DataModule1.IBTable1.Fields.Fields[5].AsString;

Sheet.Cells[index,7]:=DataModule1.IBTable1.Fields.Fields[6].AsString;

Inc(index);

DataModule1.IBTable1.Next;

end;

end;

 

procedure TForm2.N12Click(Sender: TObject);

begin

ShellExecute(handle,'open','Help/Help.chm','','',SW_SHOW);

ShellExecute(handle,'open','Help/Help.htm','','',SW_SHOW);

end;

 

//О программме

procedure TForm2.N9Click(Sender: TObject);

begin

Form11.ShowModal;

end;

 

procedure TForm2.N14Click(Sender: TObject);

begin

      DataModule1.IBTable1.Active:=false;

      DataModule1.IBTable2.Active:=false;

      DataModule1.IBTable3.Active:=false;

      DataModule1.IBTable4.Active:=false;

      DataModule1.IBTable5.Active:=false;

      DataModule1.IBTable6.Active:=false;

      DataModule1.IBTable7.Active:=false;

 

      DataModule1.IBTransaction1.Commit;

close;

end;

 

end.

 

 

unit Unit3;

 

interface

 

uses

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

  Dialogs, StdCtrls, Mask, DBCtrls;

 

type

  TForm3 = class(TForm)

    Label3: TLabel;

    DBEdit3: TDBEdit;

    Label4: TLabel;

    DBEdit4: TDBEdit;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    Label6: TLabel;

    DBEdit6: TDBEdit;

    Label7: TLabel;

    DBEdit7: TDBEdit;

    Button1: TButton;

    Label8: TLabel;

    DBEdit8: TDBEdit;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form3: TForm3;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm3.Button1Click(Sender: TObject);

var

Probeg,Price,Dohod:real;

begin

Probeg:=StrToFloat(DBEdit6.Text);

Price:=StrToFloat(DBEdit7.Text);

Dohod:=Probeg*Price;

DBEdit8.Text:=FloatToStr(Dohod);

DataModule1.IBTable1.Post;

close;

end;

 

end.

 

 

 

unit Unit4;

 

interface

 

uses

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

  Dialogs, StdCtrls, Mask, DBCtrls;

 

type

  TForm4 = class(TForm)

    Label3: TLabel;

    Label4: TLabel;

    DBEdit4: TDBEdit;

    Label5: TLabel;

    DBEdit5: TDBEdit;

    Button1: TButton;

    DBLookupComboBox2: TDBLookupComboBox;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form4: TForm4;

 

implementation

 

uses Unit1;

 

{$R *.dfm}

 

procedure TForm4.Button1Click(Sender: TObject);

begin

Datamodule1.IBTable2.Post;

close;

end;

 

end.

 

 

 

 

unit Unit5;

 

interface

 

uses

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

  Dialogs, StdCtrls, Mask, DBCtrls;

 

type

  TForm5 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    DBEdit6: TDBEdit;

    Label7: TLabel;

    DBEdit7: TDBEdit;

    Button1: TButton;

    DBLookupComboBox1: TDBLookupComboBox;

    DBLookupComboBox2: TDBLookupComboBox;

    DBLookupComboBox3: TDBLookupComboBox;

    DBLookupComboBox4: TDBLookupComboBox;

    DBLookupComboBox5: TDBLookupComboBox;

    DBLookupComboBox6: TDBLookupComboBox;

    DBLookupComboBox7: TDBLookupComboBox;

    DBLookupComboBox8: TDBLookupComboBox;

    DBLookupComboBox9: TDBLookupComboBox;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    DBLookupComboBox10: TDBLookupComboBox;

    Label12: TLabel;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form5: TForm5;

 

implementation