paskcxg.pas

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

unit paskcxg;

interface

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

type
  TFrmkcxg = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton5: TdxBarLargeButton;
    dxBarLargeButton6: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    dxBarButton1: TdxBarButton;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    cxLookupComboBox1: TcxLookupComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure dxBarButton1Click(Sender: TObject);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure dxBarLargeButton5Click(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmkcxg: TFrmkcxg;

implementation

{$R *.dfm}

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

procedure TFrmkcxg.FormDestroy(Sender: TObject);
begin
  frmkcxg:=nil;
end;

procedure TFrmkcxg.FormCreate(Sender: TObject);
begin
  ADOQuery2.Open;
end;

procedure TFrmkcxg.dxBarLargeButton1Click(Sender: TObject);
var stemp:string;
begin
  if RadioButton1.Checked then
   stemp:='select * from tbHouseSave';
   if RadioButton2.Checked then
   stemp:='select * from tbHouseSave where bookid='''+trim(cxLookupComboBox1.Text)+'''';
   ADOQuery1.Close;
   ADOQuery1.SQL.Text :=stemp;
   ADOQuery1.Open ;
end;

procedure TFrmkcxg.dxBarButton1Click(Sender: TObject);
begin
  ADOQuery1.Append;
end;

procedure TFrmkcxg.dxBarLargeButton3Click(Sender: TObject);
begin
  ADOQuery1.Delete;
end;

procedure TFrmkcxg.dxBarLargeButton2Click(Sender: TObject);
begin
  if ADOQuery1.State in dseditmodes then ADOQuery1.Post ;
end;

procedure TFrmkcxg.dxBarLargeButton5Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.Open;
end;

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

end.