uexportcontainer.~pas

物流行业

unit Uexportcontainer;

interface

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

type
  Tfmexportcontainer = 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;
    Query3: TQuery;
    Table3: TTable;
    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 Edit3Exit(Sender: TObject);
    procedure Edit3Enter(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmexportcontainer: Tfmexportcontainer;

implementation

uses Uexportreport, udm_user;

//uses Uimportreport;

{$R *.dfm}

procedure Tfmexportcontainer.FormCreate(Sender: TObject);
begin
datetimepicker1.Date:=date();
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
combobox1.Text:='';
combobox2.Text:='';
combobox3.Text:='';
combobox4.Text:='';
combobox5.Text:='';
combobox7.Text:='';
radiogroup1.ItemIndex:=-1;


//edit1.SetFocus;
end;

procedure Tfmexportcontainer.BitBtn4Click(Sender: TObject);
begin
fmexportcontainer.Close;
end;

procedure Tfmexportcontainer.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 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['cmdg']:=combobox7.Text;
table1.FieldValues['lyc']:=checkbox1.Checked;
table1.FieldValues['mbz']:=edit5.Text;
table1.FieldValues['cyh']:=fmuser.struname;

table1.Post;

if table3.Locate('cxh;lout',VarArrayOf([table1.FieldValues['cxh'],false]),[])
then
begin
table3.Edit;
table3.FieldValues['lout']:=true;
table3.Post;
table3.Active:=true;
end;
end
else
showmessage('输入箱号重复,请核对!!')
end
else
showmessage('请核对输入内容不能为空!');


fmexportcontainer.Activate;
end;

procedure Tfmexportcontainer.BitBtn2Click(Sender: TObject);
begin
if dbgrid1.DataSource.DataSet.RecordCount>0 then
begin
if table3.Locate('cxh',table1.FieldValues['cxh'],[])
then
begin
table3.Edit;
table3.FieldValues['lout']:=false;
table3.Post;
table3.Active:=true;
end;
table1.Delete
end
else showmessage('没有可删除的记录!');
fmexportcontainer.Activate;
end;

procedure Tfmexportcontainer.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 Tfmexportcontainer.BitBtn3Click(Sender: TObject);
begin
if messagedlg('是否确认提交任务?',mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
begin
batchmove1.Execute;
table1.Close;
table1.EmptyTable;
fmexportcontainer.Activate;
showmessage('提交任务成功!!');
end;
end;

procedure Tfmexportcontainer.Table1AfterScroll(DataSet: TDataSet);
begin
fmexportcontainer.Activate;
end;

procedure Tfmexportcontainer.DBGrid1Exit(Sender: TObject);
begin
fmexportcontainer.Activate;
end;

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

query3.Close;
query3.Params[0].AsString:=trim(edit3.Text);
query3.Active:=true;
if query3.RecordCount=1 then
begin
combobox1.Text:=query3.FieldValues['ccc'];
if query3.FieldValues['lzt1']='E' then
edit4.Text:='' else
edit4.Text:=formatfloat('0.000',query3.FieldValues['nxz']);
if query3.FieldValues['lzt1']='F' then
radiogroup1.ItemIndex:=1 else radiogroup1.ItemIndex:=0;
combobox2.Text:=query3.FieldValues['cxx'];
combobox3.Text:=query3.FieldValues['ccxr'];
combobox4.Text:=query3.FieldValues['cxw'];
combobox5.Text:=query3.FieldValues['chm'];
checkbox1.Checked:=query3.FieldValues['lyc'];
if query3.FieldByName('mbz').AsString='' then edit5.Text:=''
else edit5.Text:=query3.FieldValues['mbz'];

end;


end;

procedure Tfmexportcontainer.Edit3Enter(Sender: TObject);
begin
datetimepicker1.Date:=date();
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
combobox1.Text:='';
combobox2.Text:='';
combobox3.Text:='';
combobox4.Text:='';
combobox5.Text:='';
radiogroup1.ItemIndex:=-1;

end;

procedure Tfmexportcontainer.BitBtn5Click(Sender: TObject);
begin
application.CreateForm(Tfmexportreport,fmexportreport);
fmexportreport.Table1.TableName:='tmpexportcontainer.DB';
fmexportreport.QRLabel18.Caption:=fmexportcontainer.StatusBar1.Panels[0].Text;
fmexportreport.QRLabel19.Caption:=fmexportcontainer.StatusBar1.Panels[1].Text;
fmexportreport.QRLabel20.Caption:=fmexportcontainer.StatusBar1.Panels[2].Text;
fmexportreport.QRLabel21.Caption:=fmexportcontainer.StatusBar1.Panels[3].Text;
fmexportreport.QRLabel22.Caption:=fmexportcontainer.StatusBar1.Panels[4].Text;
fmexportreport.QRLabel23.Caption:=fmexportcontainer.StatusBar1.Panels[5].Text;
fmexportreport.Table1.active:=true;
fmexportreport.QuickRep1.Preview;

end;

end.