paskhthcx.pas

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

unit paskhthcx;

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
  Tkhthcx = 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);
    procedure dxBarLargeButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  khthcx: Tkhthcx;

implementation

{$R *.dfm}

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

procedure Tkhthcx.FormDestroy(Sender: TObject);
begin
  khthcx:=nil;
end;

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

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

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

procedure Tkhthcx.dxBarLargeButton4Click(Sender: TObject);
begin
  close;
end;

end.