uimportcontainer.pas

物流行业

unit Uimportcontainer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, DBTables, Buttons, ExtCtrls, Grids,
  DBGrids;

type
  Tfmimportcontainer = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    CheckBox1: TCheckBox;
    Edit5: TEdit;
    groupbox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    RadioGroup1: TRadioGroup;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    StatusBar1: TStatusBar;
    Query1: TQuery;
    Query2: TQuery;
    BatchMove1: TBatchMove;
    Table2: TTable;
    Label13: TLabel;
    RadioGroup2: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure DBGrid1Exit(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmimportcontainer: Tfmimportcontainer;

implementation

uses Uimportreport, udm_user;

{$R *.dfm}

procedure Tfmimportcontainer.FormCreate(Sender: TObject);
begin
datetimepicker1.Date:=date();
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit5.Enabled:=false;
edit5.Color:=clgraytext;

//edit1.SetFocus;
end;

procedure Tfmimportcontainer.BitBtn4Click(Sender: TObject);
begin
fmimportcontainer.Close;
end;

procedure Tfmimportcontainer.BitBtn1Click(Sender: TObject);
begin
if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') and (trim(edit3.Text)<>'')   then
begin
if not table1.Locate('cxh',trim(edit3.Text),[loPartialKey])  then
begin
table1.Append;
table1.FieldValues['drq']:=formatdatetime('yy/mm/dd',datetimepicker1.Date);
table1.FieldValues['ccm']:=trim(edit1.Text);
table1.FieldValues['chc']:=trim(edit2.Text);
table1.FieldValues['cxh']:=trim(edit3.Text);
table1.FieldValues['ccc']:=combobox1.Text;
table1.FieldValues['cxx']:=combobox2.Text;
if radiogroup1.ItemIndex=0 then table1.FieldValues['lzt']:='E' else table1.FieldValues['lzt']:='F';
if radiogroup2.ItemIndex=0 then table1.FieldValues['cinout']:='内贸' else table1.FieldValues['cinout']:='外贸';
if trim(edit4.Text)<>'' then table1.FieldValues['nxz']:=strtofloat(trim(edit4.Text)) else table1.FieldValues['nxz']:=0.000;
table1.FieldValues['ccxr']:=combobox3.Text;
table1.FieldValues['cxw']:=combobox4.Text;
table1.FieldValues['chm']:=combobox5.Text;
table1.FieldValues['cysfs']:=combobox6.Text;
table1.FieldValues['czhg']:=combobox7.Text;
table1.FieldValues['lyc']:=checkbox1.Checked;
table1.FieldValues['lout']:=false;
table1.FieldValues['cyh']:=fmuser.struname;
if radiogroup1.ItemIndex=0 then table1.FieldValues['lzt1']:='E' else table1.FieldValues['lzt1']:='F';

table1.Post;
end
else
showmessage('输入箱号重复,请核对!!')
end
else
showmessage('请核对输入内容不能为空!');
fmimportcontainer.Activate;

end;

procedure Tfmimportcontainer.BitBtn2Click(Sender: TObject);
begin
if dbgrid1.DataSource.DataSet.RecordCount>0 then table1.Delete else showmessage('没有可删除的记录!');
fmimportcontainer.Activate;
end;

procedure Tfmimportcontainer.FormActivate(Sender: TObject);
var tsum1:string;

begin
query1.Close;
query1.Params[0].AsString:='20''';
query1.Params[1].AsString:='E';
query1.Active:=true;
statusbar1.Panels.Items[0].Text:=' 20''E  '+inttostr(query1.RecordCount);

query1.Close;
query1.Params[0].AsString:='20''';
query1.Params[1].AsString:='F';
query1.Active:=true;

query2.Close;
query2.Active:=true;;
if query2.Locate('ccc;lzt',vararrayof(['20''','F']),[loPartialKey]) then
begin
tsum1:=formatfloat('0.000',query2.Fields[2].value);
statusbar1.Panels.Items[1].Text:=' 20''F  '+inttostr(query1.RecordCount)+'   '+tsum1;
end
else
statusbar1.Panels.Items[1].Text:=' 20''F  '+inttostr(query1.RecordCount);


query1.Close;
query1.Params[0].AsString:='40''';
query1.Params[1].AsString:='E';
query1.Active:=true;
statusbar1.Panels.Items[2].Text:=' 40''E  '+inttostr(query1.RecordCount);

query1.Close;
query1.Params[0].AsString:='40''';
query1.Params[1].AsString:='F';
query1.Active:=true;
query2.Close;
query2.Active:=true;;
if query2.Locate('ccc;lzt',vararrayof(['40''','F']),[loPartialKey]) then
begin
tsum1:=formatfloat('0.000',query2.Fields[2].value);
statusbar1.Panels.Items[3].Text:=' 40''F  '+inttostr(query1.RecordCount)+'   '+tsum1;
end
else
statusbar1.Panels.Items[3].Text:=' 40''F  '+inttostr(query1.RecordCount);

query1.Close;
query1.Params[0].AsString:='45''';
query1.Params[1].AsString:='E';
query1.Active:=true;
statusbar1.Panels.Items[4].Text:=' 45''E  '+inttostr(query1.RecordCount);


query1.Close;
query1.Params[0].AsString:='45''';
query1.Params[1].AsString:='F';
query1.Active:=true;
query2.Close;
query2.Active:=true;;
if query2.Locate('ccc;lzt',vararrayof(['45''','F']),[loPartialKey]) then
begin
tsum1:=formatfloat('0.000',query2.Fields[2].value);
statusbar1.Panels.Items[5].Text:=' 45''F  '+inttostr(query1.RecordCount)+'   '+tsum1;
end
else
statusbar1.Panels.Items[5].Text:=' 45''F  '+inttostr(query1.RecordCount);


table1.Active:=true;
if table1.RecordCount>0 then bitbtn3.Enabled:=true else bitbtn3.Enabled:=false;


end;

procedure Tfmimportcontainer.BitBtn3Click(Sender: TObject);
begin
if messagedlg('是否确认提交任务?',mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
begin
batchmove1.Execute;
//table1.Active:=false;
table1.Close;
table1.EmptyTable;
fmimportcontainer.Activate;
showmessage('提交任务成功!!');
end;
end;

procedure Tfmimportcontainer.Table1AfterScroll(DataSet: TDataSet);
begin
fmimportcontainer.Activate;
end;

procedure Tfmimportcontainer.DBGrid1Exit(Sender: TObject);
begin
fmimportcontainer.Activate;
end;

procedure Tfmimportcontainer.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
begin
edit5.Color:=clwindow;
edit5.Enabled:=true;
edit5.SetFocus;
end
else
begin
edit5.Enabled:=false;
edit5.Color:=clgraytext;
end;
end;

procedure Tfmimportcontainer.BitBtn5Click(Sender: TObject);
begin
application.CreateForm(Tfmimportreport,fmimportreport);
fmimportreport.Table1.TableName:='tmpimportcontainer.DB';
fmimportreport.QRLabel18.Caption:=fmimportcontainer.StatusBar1.Panels[0].Text;
fmimportreport.QRLabel19.Caption:=fmimportcontainer.StatusBar1.Panels[1].Text;
fmimportreport.QRLabel20.Caption:=fmimportcontainer.StatusBar1.Panels[2].Text;
fmimportreport.QRLabel21.Caption:=fmimportcontainer.StatusBar1.Panels[3].Text;
fmimportreport.QRLabel22.Caption:=fmimportcontainer.StatusBar1.Panels[4].Text;
fmimportreport.QRLabel23.Caption:=fmimportcontainer.StatusBar1.Panels[5].Text;
fmimportreport.Table1.active:=true;
fmimportreport.QuickRep1.Preview;
end;

procedure Tfmimportcontainer.Edit3Exit(Sender: TObject);
begin
if length(trim(edit3.Text))<>11 then
begin
showmessage('箱号输入不完整,请重新输入!');
edit3.SetFocus;
end;
end;

end.