pasdhjstj.pas

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

unit pasdhjstj;

interface

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

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

var
  frdhjstj: Tfrdhjstj;

implementation

{$R *.dfm}

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

procedure Tfrdhjstj.FormDestroy(Sender: TObject);
begin
  frfhjstj:=nil;
end;

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

procedure Tfrdhjstj.dxBarLargeButton1Click(Sender: TObject);
var stemp:string;
begin
  if RadioButton1.Checked then
    stemp:='select saleid as 销售单号,bookname as 图书名称,sum(addBook) as 数量 from tbSaleSubs group by saleid,bookname';
  if RadioButton2.Checked then
  stemp:='select saleid as 销售单号,bookname as 图书名称,sum(addBook) as 数量 from tbSaleSubs where bookid='''+trim(cxLookupComboBox1.Text)+''' group by saleid,bookname';
  ADOQuery2.Close;
  ADOQuery2.SQL.Text:=stemp;
  ADOQuery2.Open;
end;

end.