?? pasfhjstj.pas
字號:
unit pasfhjstj;
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, FR_PTabl;
type
Tfrfhjstj = 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;
frPrintGrid1: TfrPrintGrid;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure dxBarLargeButton1Click(Sender: TObject);
procedure dxBarLargeButton4Click(Sender: TObject);
procedure dxBarLargeButton6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frfhjstj: Tfrfhjstj;
implementation
{$R *.dfm}
procedure Tfrfhjstj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure Tfrfhjstj.FormDestroy(Sender: TObject);
begin
frfhjstj:=nil;
end;
procedure Tfrfhjstj.FormCreate(Sender: TObject);
begin
ADOQuery1.Open;
end;
procedure Tfrfhjstj.dxBarLargeButton1Click(Sender: TObject);
var stemp:string;
begin
if RadioButton1.Checked then
stemp:='select bookname as 圖書名稱,sum(addBook) as 數量 from tbSaleSubs group by bookname';
if RadioButton2.Checked then
stemp:='select bookname as 圖書名稱,sum(addBook) as 數量 from tbSaleSubs where bookid='''+trim(cxLookupComboBox1.Text)+''' group by bookname';
ADOQuery2.Close;
ADOQuery2.SQL.Text:=stemp;
ADOQuery2.Open;
end;
procedure Tfrfhjstj.dxBarLargeButton4Click(Sender: TObject);
begin
close;
end;
procedure Tfrfhjstj.dxBarLargeButton6Click(Sender: TObject);
var stemp:string;
begin
if not ADOQuery2.Active then
begin
exit;
end;
frPrintGrid1.Title.Text:=sysname;
stemp:='全部圖書按書名分類統計';
if RadioButton2.Checked then stemp:='圖書名稱:'+trim(cxLookupComboBox1.Text);
frPrintGrid1.PageHeader.Text:='發貨加損統計表 ->'+stemp;
frPrintGrid1.PageFooter.Text:=datetimetostr(now);
frPrintGrid1.ShowReport;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -