uqueryspot.pas

港口货物管理系统

unit Uqueryspot;

interface

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

type
  Tfmqueryspot = class(TForm)
    Label1: TLabel;
    Table2: TTable;
    Table3: TTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    Query2: TQuery;
    Table1: TTable;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label3: TLabel;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Label4: TLabel;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    BitBtn3: TBitBtn;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    Table4: TTable;
    Table5: TTable;
    BatchMove1: TBatchMove;
    BatchMove2: TBatchMove;
    DBGrid1: TDBGrid;
    Query3: TQuery;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmqueryspot: Tfmqueryspot;

implementation

{$R *.dfm}







procedure Tfmqueryspot.FormActivate(Sender: TObject);
//var qstr:string;
begin
//qstr:='select distinct atnum,sum(a.ncoil),sum(b.ncoil) from mimport a inner join mexport b  by a.atnum ';
//query1.Close;
//query1.SQL.Clear;
//query1.SQL.add(qstr);
//query1.Open;
//dblookupcombobox1.ListField:='atnum';
end;





procedure Tfmqueryspot.BitBtn3Click(Sender: TObject);

begin
table4.EmptyTable;
table5.EmptyTable;
batchmove1.Execute;
batchmove2.Execute;
{qstr:='select a.atnum,a.adime,sum(a.ncoil) as ncoil,sum(a.nton)  as nton,sum(b.ncoil),sum(b.nton) from mimport a inner join mexport b on a.atnum=b.atnum ';

query1.Close;
query1.SQL.Clear;
query1.SQL.add(qstr);
query1.Open;}

end;

end.