pastsxxcx.pas

一个图书批发商的通用软件

unit pastsxxcx;

interface

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

type
  Ttsxxcx = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton5: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    dxBarButton1: TdxBarButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    RadioButton4: TRadioButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure dxBarLargeButton5Click(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tsxxcx: Ttsxxcx;

implementation

{$R *.dfm}

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

procedure Ttsxxcx.FormDestroy(Sender: TObject);
begin
  tsxxcx:=nil;
end;

procedure Ttsxxcx.dxBarLargeButton5Click(Sender: TObject);
var stemp:string;
begin

  if RadioButton1.Checked then stemp:='select * from tbbookclass where bookid like '''+trim(Edit2.Text)+'%''';
  if RadioButton2.Checked then stemp:='select * from tbbookclass where BookName like '''+trim(Edit1.Text)+'%''';
  if RadioButton3.Checked then stemp:='select * from tbbookclass where BookEdition like '''+trim(Edit3.Text)+'%''';
  if RadioButton4.Checked then stemp:='select * from tbbookclass';
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:=stemp;
  ADOQuery1.Open;
end;

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

end.