demo.pas

D6+SQL2000 通用自定义查询.

unit Demo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TDemoForm = class(TForm)
    Station: TADOQuery;
    dsWarehouse: TDataSource;
    dsScaleData: TDataSource;
    Warehouse: TADOQuery;
    Vendor: TADOQuery;
    dsStation: TDataSource;
    UserList: TADOQuery;
    dsDeductReasonList: TDataSource;
    ScaleData: TADOQuery;
    ScaleDataID: TAutoIncField;
    ScaleDatacSVCode: TStringField;
    ScaleDatacCarNo: TStringField;
    ScaleDatacCTCode: TStringField;
    ScaleDatacCTName: TStringField;
    ScaleDatacInvCode: TStringField;
    ScaleDatacInvName: TStringField;
    ScaleDatacInvStd: TStringField;
    ScaleDatacCusCode: TStringField;
    ScaleDatacCusName: TStringField;
    ScaleDatacVenCode: TStringField;
    ScaleDatacVenName: TStringField;
    ScaleDatacWhCode: TStringField;
    ScaleDatacWhName: TStringField;
    ScaleDataiGross: TFloatField;
    ScaleDataiTare: TFloatField;
    ScaleDataiNet: TFloatField;
    ScaleDatacGSCode: TStringField;
    ScaleDatacGSName: TStringField;
    ScaleDatacTSCode: TStringField;
    ScaleDatacTSName: TStringField;
    ScaleDatadGTime: TDateTimeField;
    ScaleDatadTTime: TDateTimeField;
    ScaleDatacGUser: TStringField;
    ScaleDatacTUser: TStringField;
    ScaleDatadPrintTime: TDateTimeField;
    ScaleDatacSMCode: TStringField;
    ScaleDatacSMName: TStringField;
    ScaleDatacPrinter: TStringField;
    ScaleDatadDatetime: TDateTimeField;
    ScaleDatacMemo: TStringField;
    ScaleDatacDRCode: TStringField;
    ScaleDatacDRName: TStringField;
    ScaleDataiDWeight: TFloatField;
    ScaleDatacCardID1: TStringField;
    ScaleDatacCardID2: TStringField;
    ScaleDataiCID: TIntegerField;
    dsScaleMode: TDataSource;
    DeductReasonList: TADOQuery;
    dsVendor: TDataSource;
    ScaleMode: TADOQuery;
    dsInventory: TDataSource;
    Inventory: TADOQuery;
    InventorycInvCode: TStringField;
    InventorycInvName: TStringField;
    InventorycInvStd: TStringField;
    InventorycPr_Code: TStringField;
    InventorycVenCode: TStringField;
    InventorycWhCode: TStringField;
    dsUserList: TDataSource;
    CarType: TADOQuery;
    dsCarType: TDataSource;
    Customer: TADOQuery;
    dsCustomer: TDataSource;
    btn1: TButton;
    grd1: TDBGrid;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DemoForm: TDemoForm;

implementation

uses SQLBuilder;

{$R *.dfm}

procedure TDemoForm.btn1Click(Sender: TObject);
begin
  if TSQlBuilderForm.Create(ScaleData).ShowModal=mrOk then
  begin
    if ScaleData.Active then
      ScaleData.Requery
    else
      ScaleData.Active:=True;
  end;
end;

end.