pasthcx1.~pas

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

unit pasthcx1;

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
  Tthcx1 = 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;
    dxBarButton1: TdxBarButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure ADOQuery3AfterScroll(DataSet: TDataSet);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
    procedure dxBarButton1Click(Sender: TObject);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure dxBarLargeButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  thcx1: Tthcx1;

implementation

{$R *.dfm}

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

procedure Tthcx1.FormDestroy(Sender: TObject);
begin
  thcx1:=nil;
end;

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

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

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

procedure Tthcx1.dxBarLargeButton2Click(Sender: TObject);
begin
 if ADOQuery3.State in dseditmodes then ADOQuery3.Post ;
  if ADOQuery4.State in dseditmodes then ADOQuery4.Post ;

end;

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

procedure Tthcx1.dxBarButton1Click(Sender: TObject);
begin
  adoquery4.Append;
end;

procedure Tthcx1.dxBarLargeButton3Click(Sender: TObject);
begin
  adoquery4.Delete;
end;

procedure Tthcx1.dxBarLargeButton5Click(Sender: TObject);
begin
  adoquery4.Close;
  adoquery4.Open;
end;

end.