uhomework.pas

港口货物管理系统

unit uhomework;

interface

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

type
  Tfmhomework = class(TForm)
    Label1: TLabel;
    Bevel1: TBevel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    bmimport: TBatchMove;
    bmexport: TBatchMove;
    import: TTable;
    mimport: TTable;
    outputdb: TTable;
    moutputdb: TTable;
    Query1: TQuery;
    Table1: TTable;
    BatchMove1: TBatchMove;
    Query2: TQuery;
    Table2: TTable;
    BatchMove2: TBatchMove;
    Query3: TQuery;
    Table3: TTable;
    Table4: TTable;
    BatchMove3: TBatchMove;
    Query4: TQuery;
    BatchMove4: TBatchMove;
    Table5: TTable;
    GroupBox1: TGroupBox;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmhomework: Tfmhomework;

implementation

uses uinputgoods, uexportgoods, ulogin;
{$R *.dfm}

procedure Tfmhomework.Button3Click(Sender: TObject);
var datecur:string;
begin

if  checkbox1.State=cbchecked
then
begin
mimport.Close;
bmimport.Execute;
//mimport.Open;

table5.Close;
batchmove4.Source:=import;
batchmove4.Execute;
mimport.Open;


import.Close;
import.EmptyTable;
import.Open;
end;

if  checkbox2.State=cbchecked
then
begin
moutputdb.Close;
bmexport.Execute;
//moutputdb.Open;

table5.Close;
batchmove4.Source:=outputdb;
batchmove4.Execute;
moutputdb.Open;

outputdb.Close;
outputdb.EmptyTable;
outputdb.Open;
end;
messagedlg('按你选择提交作业成功！', mtInformation,[mbOk], 0);

fmhomework.OnActivate(sender);
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select atnum,agname,adime,sum(ncoil),sum(nton),agoodd from mimport group by atnum,agname,adime,agoodd');
query1.ExecSQL;
table1.EmptyTable;
batchmove1.Execute;

query2.Close;
query2.SQL.Clear;
query2.SQL.Add('select atnum,agname,adime,agoodd,sum(ncoil),sum(nton) from mexport group by atnum,agname,adime,agoodd');
query2.ExecSQL;
table2.EmptyTable;
batchmove2.Execute;

query4.Close;
query4.SQL.clear;
query4.sql.add('select ddate,atnum,agname,adime,agoodd,sum(ncoil),sum(nton),atname,adir from mexport group by ddate,atname,atnum,agname,adime,agoodd,adir');
query4.ExecSQL;
table4.EmptyTable;
batchmove3.Execute;

table3.EmptyTable;
query3.Close;
query3.SQL.clear;
query3.SQL.add('insert into  sumimport(ddate,atnum,agname,adime,agoodd,nplanton,ncoil,nton,lend,adir)');
query3.SQL.add(' select aa.ddate,aa.atnum,aa.agname,aa.adime,aa.agoodd,aa.nton,bb.ncoil,bb.nton,aa.lend,aa.adir from mplan aa left join sumimportall bb on (bb.atnum=aa.atnum) and (bb.agname=aa.agname) and (bb.adime=aa.adime) and (bb.agoodd=aa.agoodd)');
query3.ExecSQL;

end;

procedure Tfmhomework.Button4Click(Sender: TObject);
begin


fmhomework.Close;
end;

procedure Tfmhomework.FormActivate(Sender: TObject);
begin
if import.RecordCount=0
then
checkbox1.State:=cbgrayed;
if outputdb.RecordCount=0
then
checkbox2.State:=cbgrayed;

{if (checkbox1.State=cbgrayed) or  (checkbox1.State=cbunchecked)
then  if  (checkbox2.State=cbunchecked) or (checkbox2.State=cbgrayed)
      then button3.Enabled:=false
      else button3.Enabled:=true
      else button3.Enabled:=true;}
end;

procedure Tfmhomework.CheckBox1Click(Sender: TObject);
begin
fmhomework.OnActivate(sender);
end;

procedure Tfmhomework.CheckBox2Click(Sender: TObject);
begin
fmhomework.OnActivate(sender);
end;

procedure Tfmhomework.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;
  outputdb.Open;
import.Open;
moutputdb.Open;
mimport.Open;
end;

procedure Tfmhomework.FormDestroy(Sender: TObject);
begin
outputdb.close;
import.close;
moutputdb.close;
mimport.close;


end;

procedure Tfmhomework.Button1Click(Sender: TObject);
begin
application.CreateForm(tfminputgoods,fminputgoods);
fminputgoods.showmodal;
end;

procedure Tfmhomework.Button2Click(Sender: TObject);
begin
application.CreateForm(Tfmexporgoods,fmexporgoods);
fmexporgoods.showmodal;
end;

end.