uoperincontainer.pas

物流行业

unit Uoperincontainer;

interface

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

type
  Tfmoperincontainer = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label10: TLabel;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    CheckBox1: TCheckBox;
    groupbox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    StatusBar1: TStatusBar;
    Query1: TQuery;
    BatchMove1: TBatchMove;
    Table2: TTable;
    Query3: TQuery;
    GroupBox3: TGroupBox;
    Memo1: TMemo;
    Label6: TLabel;
    Label7: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    CheckBox2: TCheckBox;
    Edit6: TEdit;
    Label8: TLabel;
    Edit7: TEdit;
    Table3: TTable;
    Label9: TLabel;
    ComboBox1: TComboBox;
    GroupBox4: TGroupBox;
    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);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmoperincontainer: Tfmoperincontainer;

implementation

uses udm_user;

{$R *.dfm}

procedure Tfmoperincontainer.FormCreate(Sender: TObject);
begin
datetimepicker1.Date:=date();
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
memo1.Clear;

end;

procedure Tfmoperincontainer.BitBtn4Click(Sender: TObject);
begin
fmoperincontainer.Close;
end;

procedure Tfmoperincontainer.BitBtn1Click(Sender: TObject);
begin
if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') and (trim(edit3.Text)<>'')  then
begin
table1.Append;
table1.FieldValues['drq']:=formatdatetime('yy/mm/dd',datetimepicker1.Date);
table1.FieldValues['cch']:=trim(edit1.Text);
table1.FieldValues['ctdh']:=trim(edit2.Text);
table1.FieldValues['cdl']:=combobox1.Text;
table1.FieldValues['cxh']:=trim(edit3.Text);
table1.FieldValues['ccc']:=query3.FieldValues['ccc'];
table1.FieldValues['cxx']:=query3.FieldValues['cxx'];
table1.FieldValues['cyh']:=fmuser.struname;


if checkbox2.Checked=true then
begin
table1.FieldValues['lzt']:='F';
if table2.Locate('cxh',table1.FieldValues['cxh'],[]) then
begin
table2.Edit;
table2.FieldValues['lzt1']:='F';
table2.Post;
table2.Active:=true;
end;
end
else  table1.FieldValues['lzt']:='E';


table1.FieldValues['chm']:=trim(edit6.Text);

if trim(edit4.Text)<>'' then
table1.FieldValues['njs']:=strtoint(trim(edit4.Text))
else table1.FieldValues['njs']:=0;
if trim(edit5.Text)<>'' then
table1.FieldValues['nzl']:=strtofloat(trim(edit5.Text))
else table1.FieldValues['nzl']:=0.000;

table1.FieldValues['lwz']:=checkbox1.Checked;
table1.FieldValues['mbz']:=edit7.Text;
table1.FieldValues['ccxr']:=query3.FieldValues['ccxr'];
table1.FieldValues['cxw']:=query3.FieldValues['cxw'];
table1.Post;

edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit7.Text:='';
memo1.Clear;
checkbox1.Checked:=false;
checkbox2.Checked:=false;
end
else
showmessage('请核对输入内容不能为空!');


fmoperincontainer.Activate;
end;

procedure Tfmoperincontainer.BitBtn2Click(Sender: TObject);
begin
if dbgrid1.DataSource.DataSet.RecordCount>0 then
  begin
  if messagedlg('是否确认删除此记录?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
     begin
         if table2.Locate('cxh',table1.FieldValues['cxh'],[])
           then
               begin
                table2.Edit;
                table2.FieldValues['lzt1']:='E';
                table2.Post;
                table2.Active:=true;
               end;
           table1.Delete;
   end;
end
else showmessage('没有可删除的记录!');
fmoperincontainer.Activate;
end;

procedure Tfmoperincontainer.FormActivate(Sender: TObject);
begin


table1.Active:=true;
query1.Close;
query1.Active:=true;
statusbar1.Panels.Items[0].Text:='记录条数： '+inttostr(table1.RecordCount);
statusbar1.Panels.Items[1].Text:='件数： '+inttostr(query1.Fields[0].AsInteger);
statusbar1.Panels.Items[2].Text:='吨位： '+floattostr(query1.Fields[1].asfloat) ;


end;

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

procedure Tfmoperincontainer.Table1AfterScroll(DataSet: TDataSet);
begin
fmoperincontainer.Activate;
end;

procedure Tfmoperincontainer.DBGrid1Exit(Sender: TObject);
begin
fmoperincontainer.Activate;
end;

procedure Tfmoperincontainer.Edit3Exit(Sender: TObject);
begin
query3.Close;
query3.Params[0].AsString:=trim(edit3.Text);
query3.Active:=true;
if query3.RecordCount=1 then
begin
memo1.Clear;
memo1.Lines.Add('箱号: '+query3.FieldValues['cxh']);
memo1.Lines.Add('尺寸: '+query3.FieldValues['ccc']);
memo1.Lines.Add('箱型: '+query3.FieldValues['cxx']);
if query3.FieldValues['lzt1']='F' then
memo1.Lines.Add('箱状态: 重箱')
else memo1.Lines.Add('箱状态: 空箱');
memo1.Lines.Add('持箱人: '+query3.FieldValues['ccxr']);
memo1.Lines.Add('箱位: '+query3.FieldValues['cxw']);

end;


end;

end.