uinputgoods.pas

港口货物管理系统

unit uinputgoods;

interface

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

type
  Tfminputgoods = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Bevel2: TBevel;
    Label10: TLabel;
    DBGrid1: TDBGrid;
    Edit2: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    Table1: TTable;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label9: TLabel;
    ComboBox2: TComboBox;
    Table2: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Query1: TQuery;
    DataSource3: TDataSource;
    Memo1: TMemo;
    Edit3: TEdit;
    Label11: TLabel;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    procedure ComboBox1Click(Sender: TObject);
    procedure DBLookupComboBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fminputgoods: Tfminputgoods;

implementation

{$R *.dfm}

procedure Tfminputgoods.ComboBox1Click(Sender: TObject);
begin
combobox4.Clear;
query1.Close;
query1.SQL.Clear;
query1.sql.add('select distinct atnum,agname from mplan where lend=false and agoodd='''+combobox1.Text+'''');
query1.SQL.Add(' order by atnum');
query1.ExecSQL;
query1.Active:=true;
end;

procedure Tfminputgoods.DBLookupComboBox1Click(Sender: TObject);
begin
combobox4.Clear;
try
table1.DisableControls;
table1.First;
while not  table1.eof
do
begin
if (table1.FieldValues['agoodd']=combobox1.Text) and (table1.FieldValues['atnum']=dblookupcombobox1.Text) and (table1.FieldValues['lend']=false)
then
//if table1.FieldValues['adime']<>'' then
combobox4.Items.add(table1.FieldValues['adime']);

table1.next;
end;
finally
table1.EnableControls;
end;
if combobox4.Items.Count=0
then
begin
combobox4.Enabled:=false;
memo1.Clear;
with table1 do
begin
table1.Locate('agoodd;atnum',vararrayof([combobox1.text,dblookupcombobox1.text]),[]);
memo1.Lines.Add('货代：'+table1.FieldValues['agoodd']);
memo1.Lines.Add('提单号：'+table1.FieldValues['atnum']);
memo1.Lines.Add('货名：'+table1.FieldValues['adime']+' '+table1.FieldValues['agname']);
memo1.Lines.Add('计划吨位：'+inttostr(table1.FieldValues['nton'])+'吨');

end;
end;
end;

procedure Tfminputgoods.FormCreate(Sender: TObject);
begin
edit3.Text:='0';
edit5.Text:='0';
edit6.Text:='';
edit2.Text:='';
edit1.Text:='';
end;

procedure Tfminputgoods.ComboBox3Click(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure Tfminputgoods.BitBtn4Click(Sender: TObject);
begin
fminputgoods.Close;
end;

procedure Tfminputgoods.BitBtn1Click(Sender: TObject);
begin
if table2.Locate('ddate;atnum;ncoil',vararrayof([datetimepicker1.date,dblookupcombobox1.text,strtoint(edit3.Text)]),[])=false
then
begin
table2.Append;
table2.FieldValues['ddate']:=datetimepicker1.Date;
table2.FieldValues['atnum']:=dblookupcombobox1.Text;
table2.FieldValues['agname']:=table1.FieldValues['agname'];
table2.FieldValues['adime']:=table1.FieldValues['adime'];
table2.FieldValues['ncoil']:=strtoint(edit3.Text);
table2.FieldValues['nton']:=strtoint(edit5.Text);
table2.FieldValues['aqd']:=combobox2.Text;
table2.FieldValues['atname']:=trim(edit6.Text);
table2.FieldValues['aspot']:=combobox3.Text+edit1.Text;
table2.FieldValues['agoodd']:=table1.FieldValues['agoodd'];
table2.FieldValues['lout']:=false;
table2.FieldValues['auser']:='jss';
table2.FieldValues['abz']:=edit2.Text;
table2.Post;
end
else
messagedlg('你已经输入此条记录！请核查！！',mtInformation,
      [mbOk], 0);

end;

procedure Tfminputgoods.BitBtn3Click(Sender: TObject);
begin
table2.Delete;
end;

procedure Tfminputgoods.BitBtn2Click(Sender: TObject);
begin
table2.Edit;
table2.Post;
end;

procedure Tfminputgoods.ComboBox4Click(Sender: TObject);
begin
memo1.Clear;
with table1 do
begin
table1.Locate('agoodd;atnum;adime',vararrayof([combobox1.text,dblookupcombobox1.text,combobox4.text]),[]);
memo1.Lines.Add('货代：'+table1.FieldValues['agoodd']);
memo1.Lines.Add('提单号：'+table1.FieldValues['atnum']);
memo1.Lines.Add('货名：'+table1.FieldValues['adime']+' '+table1.FieldValues['agname']);
memo1.Lines.Add('计划吨位：'+inttostr(table1.FieldValues['nton'])+'吨');
end;
end;

end.