uinputtdh.~pas

物流行业

unit Uinputtdh;

interface

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

type
  Tfminputtdh = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label10: TLabel;
    DateTimePicker1: TDateTimePicker;
    Edit2: TEdit;
    groupbox1: TGroupBox;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BatchMove1: TBatchMove;
    Table2: TTable;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Edit5: TEdit;
    RadioGroup1: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure Table2AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fminputtdh: Tfminputtdh;

implementation

{$R *.dfm}

procedure Tfminputtdh.FormCreate(Sender: TObject);
begin
datetimepicker1.Date:=date();
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
combobox1.ItemIndex:=-1;
end;

procedure Tfminputtdh.BitBtn4Click(Sender: TObject);
begin
fminputtdh.Close;
end;

procedure Tfminputtdh.BitBtn1Click(Sender: TObject);
begin
if (trim(edit1.Text)<>'') and (trim(edit2.Text)<>'') and (trim(edit3.Text)<>'') and (trim(combobox1.text)<>'') and (trim(edit5.Text)<>'') then
begin
   if table1.Locate('ctdh',trim(edit1.Text),[])=false then
  begin

table1.Append;
table1.FieldValues['drq']:=formatdatetime('yy/mm/dd',datetimepicker1.Date);
table1.FieldValues['ctdh']:=trim(edit1.Text);
table1.FieldValues['chm']:=trim(edit2.Text);
table1.FieldValues['cdl']:=combobox1.Text;
table1.FieldValues['cjl']:=trim(edit3.Text);
table1.FieldValues['nzl']:=strtofloat(edit5.Text);
table1.FieldValues['lbw']:=false;
table1.FieldValues['mbz']:=edit4.Text;
table1.Post;
datetimepicker1.Date:=date();
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
combobox1.ItemIndex:=-1;
end
else showmessage('提单号重复，请核对后输入!')

end
else
showmessage('请核对输入内容不能为空!');

end;

procedure Tfminputtdh.BitBtn2Click(Sender: TObject);
begin
if dbgrid1.DataSource.DataSet.RecordCount>0 then
  begin
  if messagedlg('是否确认删除此记录?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
  dbgrid1.DataSource.DataSet.Edit;
  dbgrid1.DataSource.DataSet.Delete;
  end

  {if radiogroup1.ItemIndex=0 then
  begin
  table1.Edit;
  table1.Delete;
  end
  else
  begin
  table2.edit;
  table2.Delete;
  end;}
end
else showmessage('没有可删除的记录!');
end;




procedure Tfminputtdh.BitBtn3Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then
 begin
    if messagedlg('是否确认提交任务?',mtConfirmation, [mbYes, mbNo], 0) = mrYes
      then
       begin
         table2.Close;
         batchmove1.Execute;
         table1.Close;
         table1.EmptyTable;
         showmessage('提交任务成功!!');
       end;
      end
else
begin
table2.Edit;
table2.Post;
showmessage('更新记录成功!!');
end;
end;

procedure Tfminputtdh.ComboBox1Click(Sender: TObject);
begin

if radiogroup1.ItemIndex=1 then
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';

if radiogroup1.ItemIndex=1 then
begin

table2.Filter:='cdl='+QuotedStr(combobox1.Text);
table2.Filtered:=true;
datasource1.DataSet:=table2;
table2.Active:=true;
table2.Edit;
table2.First;
if table2.RecordCount>0 then
begin
edit1.Text:=table2.FieldValues['ctdh'];
edit2.Text:=table2.FieldValues['chm'];
edit3.Text:=table2.FieldValues['cjl'];
edit5.Text:=table2.FieldValues['nzl'];

if  table2.FieldByName('mbz').IsNull then
edit4.Text:=''
else edit4.Text:=table2.FieldValues['mbz'];

end;

end;
end;
end;

procedure Tfminputtdh.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.ItemIndex=0 then
begin
datetimepicker1.Date:=date();
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
combobox1.ItemIndex:=-1;
edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;




bitbtn1.Enabled:=true;
dbgrid1.DataSource.DataSet:=table1;
table1.Active:=true;
bitbtn3.Caption:='提交任务';
end
else
begin
bitbtn1.Enabled:=false;
dbgrid1.DataSource.DataSet:=table2;
table2.Active:=true;
bitbtn3.Caption:='更新记录';
edit1.Enabled:=false;
edit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
edit5.Enabled:=false;

end;

end;

procedure Tfminputtdh.Table2AfterScroll(DataSet: TDataSet);
begin
if radiogroup1.ItemIndex=1 then
begin
if table2.RecordCount>0 then
begin
edit1.Text:=table2.FieldValues['ctdh'];
edit2.Text:=table2.FieldValues['chm'];
edit3.Text:=table2.FieldValues['cjl'];
edit5.Text:=table2.FieldValues['nzl'];

if  table2.FieldByName('mbz').IsNull then
edit4.Text:=''
else edit4.Text:=table2.FieldValues['mbz'];

end;
end;
end;
end.