?? rbform.pas
字號:
unit rbForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, DB, DBClient;
type
TFrmrb = class(TForm)
Panel1: TPanel;
rqpk: TDateTimePicker;
PrintBtn: TButton;
Label1: TLabel;
procedure PrintBtnClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frmrb: TFrmrb;
implementation
uses DataModule, rbbForm;
{$R *.dfm}
procedure TFrmrb.PrintBtnClick(Sender: TObject);
begin
with DM.tempquery do
begin
ACtive:=FAlse;
SQL.Clear;
SQL.Add('select spmc,gg,sum(case when czlx=0 then -sl else sl end)as kc,sum(case when czlx=1 then sl*dl else -sl*dl end) as kczl ');
SQL.Add('from crk_v where lxid=1 and czrq<=:czrq group by spmc,gg order by spmc');
Parameters.ParamByName('czrq').Value:=rqpk.Date;
Active:=True;
First;
end;
Frmrbb:=TFrmrbb.Create(self);
Frmrbb.rqLabel.Caption:=Datetostr(rqpk.Date);
Frmrbb.qr.PreView;
end;
procedure TFrmrb.FormShow(Sender: TObject);
begin
rqpk.Date:=date;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -