umplan.pas

港口货物管理系统

unit umplan;

interface

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

type
  Tfmmplan = class(TForm)
    DBGrid1: TDBGrid;
    Bevel1: TBevel;
    Table1: TTable;
    Table2: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    Query1: TQuery;
    DataSource3: TDataSource;
    Query2: TQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Query3: TQuery;
    DateTimePicker1: TDateTimePicker;
    StatusBar1: TStatusBar;
    Table3: TTable;
    Query5: TQuery;
    DBLookupComboBox3: TDBLookupComboBox;
    Query4: TQuery;
    DataSource4: TDataSource;
    GroupBox1: TGroupBox;
    procedure DBLookupComboBox1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Table1AfterDelete(DataSet: TDataSet);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1Enter(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure DBLookupComboBox3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmmplan: Tfmmplan;

implementation

uses ulogin;

{$R *.dfm}

procedure Tfmmplan.DBLookupComboBox1Click(Sender: TObject);
begin
query2.Close;
query2.SQL.Clear;;
query2.SQL.Add('select adime from goodsspec where agname='''+dblookupcombobox1.Text+'''');
query2.SQL.Add(' order by adime');
query2.open;
dblookupcombobox2.ListField:='adime';
dblookupcombobox2.KeyField:='adime';
end;

procedure Tfmmplan.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;
bitbtn3.Enabled:=(table1.RecordCount>0);
datetimepicker1.Date:=date();
edit2.Text:='';
edit3.Text:='0';
edit5.Text:='';
edit6.Text:='';


end;

procedure Tfmmplan.BitBtn1Click(Sender: TObject);
begin
table1.Filter:='';
table1.Filtered:=false;
if table1.Locate('atnum;agname;adime',vararrayof([edit2.text,dblookupcombobox1.text,dblookupcombobox2.text]),[])=false
then
begin
table1.Append;
table1.FieldValues['ddate']:=formatdatetime('mm',datetimepicker1.Date);
table1.FieldValues['atnum']:=edit2.Text;
table1.FieldValues['agname']:=dblookupcombobox1.Text;
table1.FieldValues['adime']:=dblookupcombobox2.Text;
table1.FieldValues['nton']:=strtofloat(edit3.Text);
table1.FieldValues['agoodd']:=dblookupcombobox3.Text;
table1.FieldValues['adir']:=edit5.Text;
table1.FieldValues['aowner']:=edit6.Text;
table1.FieldValues['lend']:=false;
table1.post;
dbgrid1.SetFocus;
edit2.Text:='';
edit3.Text:='0';
edit5.Text:='';
edit6.Text:='';
end;
fmmplan.OnClick(sender);
end;

procedure Tfmmplan.BitBtn3Click(Sender: TObject);
begin
table1.Delete;
//bitbtn2.Click;
fmmplan.OnClick(sender);
end;

procedure Tfmmplan.Table1AfterDelete(DataSet: TDataSet);
begin

bitbtn3.Enabled:=(table1.RecordCount>0);
end;

procedure Tfmmplan.BitBtn2Click(Sender: TObject);
var i:integer;
    sumton:single;
begin
table1.Edit;
table1.Post;
table1.First;
for i:=1 to table1.RecordCount do
begin
 if table1.FieldValues['lend']=true then
 begin
 query5.Close;
 query5.SQL.clear;
 query5.SQl.Add('update sumimport set lend=true');
 query5.SQL.add(' where (ddate='''+table1.FieldValues['ddate']+'''');
 query5.sql.add(') and (atnum='''+table1.FieldValues['atnum']+'''');
 query5.SQL.Add(') and (agname='''+table1.FieldValues['agname']+'''');
 query5.SQL.add(') and (adime='''+table1.FieldValues['adime']+'''');
 query5.SQL.add(')');
 query5.ExecSQL;
 end;
 table1.Next;
end;
fmmplan.OnClick(sender);
end;

procedure Tfmmplan.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (length(edit2.Text)=0) and (length(edit3.Text)=0)
then bitbtn1.Enabled:=false
else
bitbtn1.Enabled:=true;
end;

procedure Tfmmplan.DBGrid1Enter(Sender: TObject);
begin
bitbtn3.Enabled:=(table1.RecordCount>0);
end;

procedure Tfmmplan.BitBtn4Click(Sender: TObject);
begin
fmmplan.Close;
end;

procedure Tfmmplan.FormClick(Sender: TObject);
var fstr:string;
    i:integer;
    sumton:single;

begin
table1.Filter:='';
table1.Filtered:=false;
fstr:='(ddate='''+formatdatetime('mm',datetimepicker1.date)+'''';
if dblookupcombobox3.Text<>'' then
fstr:=fstr+') and agoodd='''+dblookupcombobox3.Text+''''
else
fstr:=fstr+')';
table1.Filter:=fstr;
table1.Filtered:=true;
sumton:=0.000;
table1.First;
for i:=1 to table1.RecordCount do
begin
sumton:=sumton+table1.FieldValues['nton'];
table1.Next;
end;
statusbar1.Panels[1].Text:=inttostr(table1.RecordCount)+' 个记录';
statusbar1.Panels[2].Text:=formatfloat('0.000',sumton)+' 吨';


end;

procedure Tfmmplan.DBLookupComboBox3Click(Sender: TObject);
begin
fmmplan.OnClick(sender);
end;

procedure Tfmmplan.FormActivate(Sender: TObject);
begin
fmmplan.OnClick(sender);
end;

procedure Tfmmplan.DateTimePicker1Change(Sender: TObject);
begin
fmmplan.OnClick(sender);
end;

end.