pasthcx.pas

来自「一个图书批发商的通用软件」· PAS 代码 · 共 94 行

unit pasthcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dxCntner, dxEditor, dxEdLib, cxControls, cxContainer,
  cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
  cxDBLookupEdit, ExtCtrls, dxBar, dxBarExtItems, ComCtrls, Grids, DBGrids,
  DB, ADODB,data;

type
  Tthcx = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton5: TdxBarLargeButton;
    dxBarLargeButton6: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Label7: TLabel;
    Label8: TLabel;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DBGrid2: TDBGrid;
    Splitter1: TSplitter;
    ADOQuery3: TADOQuery;
    DataSource2: TDataSource;
    ADOQuery4: TADOQuery;
    DataSource3: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure ADOQuery3AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  thcx: Tthcx;

implementation

{$R *.dfm}

procedure Tthcx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tthcx.FormDestroy(Sender: TObject);
begin
  thcx:=nil;
end;

procedure Tthcx.FormCreate(Sender: TObject);
begin
 // ADOQuery1.Open;
end;

procedure Tthcx.dxBarLargeButton1Click(Sender: TObject);
var stemp:string;
begin
  if RadioButton3.Checked then
   stemp:='select * from tbBackUnit';
  if RadioButton1.Checked then
    stemp:='select * from tbBackUnit where UnitName like ''%'+trim(edit2.Text)+'%''';
  if RadioButton2.Checked then
    stemp:='select * from tbBackUnit where SaleDate ='+datetostr(DateTimePicker1.Date);
  ADOQuery3.Close;
  ADOQuery3.SQL.Text:=stemp;
  ADOQuery3.Open;
end;

procedure Tthcx.ADOQuery3AfterScroll(DataSet: TDataSet);
begin
  ADOQuery4.Close;
  ADOQuery4.SQL.Text :='select * from tbBackSubs where SaleId='''+ADOQuery3.fieldbyname('SaleId').AsString+'''';
  ADOQuery4.Open;
end;

end.