?? cw_kfbb.pas
字號:
unit cw_kfbb;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Buttons, ComCtrls, StdCtrls;
type
TForm52 = class(TForm)
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Button3: TButton;
rqq: TDateTimePicker;
rqh: TDateTimePicker;
Label1: TLabel;
SpeedButton1: TSpeedButton;
Q_Room: TQuery;
Q_sn: TQuery;
Q_ckxf: TQuery;
procedure SpeedButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form52: TForm52;
implementation
uses cw_bbdykf, cw_main;
{$R *.dfm}
procedure TForm52.SpeedButton1Click(Sender: TObject);
begin
close;
end;
procedure TForm52.FormShow(Sender: TObject);
begin
rqq.Date:=date-1;
rqh.Date:=date;
end;
procedure TForm52.Button3Click(Sender: TObject);
var
aaa,bbb:string;
ckxf:integer;
begin
aaa:=DateTimeToStr(rqq.DateTime);
bbb:=DateTimeToStr(rqh.DateTime);
Q_ckxf.Active:=false;
Q_ckxf.Params.ParamValues['aaaa']:=aaa;
Q_ckxf.Params.ParamValues['bbbb']:=bbb;
Q_ckxf.Active:=true;
ckxf:=Q_ckxf.RecordCount;
form53.X2.Caption:=Inttostr(ckxf);
form53.tjsj.Caption:='從'+aaa+'至'+bbb;
form53.BBR.Caption:=form1.operator.Caption;
form53.BBSJ.Caption:=datetimetostr(now);
Q_Room.Active:=false;
Q_room.Params.ParamValues['aaa']:=aaa;
Q_room.Params.ParamValues['bbb']:=bbb;
Q_room.Active:=true;
form53.L1.Caption:=Q_room.fieldbyname('L1').asstring;
form53.L2.Caption:=Q_room.fieldbyname('L2').asstring;
form53.L3.Caption:=Q_room.fieldbyname('L3').asstring;
form53.L4.Caption:=Q_room.fieldbyname('L4').asstring;
form53.L5.Caption:=Q_room.fieldbyname('L5').asstring;
form53.L6.Caption:=Q_room.fieldbyname('L6').asstring;
form53.L7.Caption:=Q_room.fieldbyname('L7').asstring;
form53.L8.Caption:=Q_room.fieldbyname('L8').asstring;
form53.L9.Caption:=Q_room.fieldbyname('L9').asstring;
form53.L10.Caption:=Q_room.fieldbyname('L10').asstring;
form53.L11.Caption:=Q_room.fieldbyname('L11').asstring;
form53.L12.Caption:=Q_room.fieldbyname('L12').asstring;
form53.L13.Caption:=Q_room.fieldbyname('L13').asstring;
form53.L14.Caption:=Q_room.fieldbyname('L14').asstring;
form53.L15.Caption:=Q_room.fieldbyname('L15').asstring;
form53.L16.Caption:=Q_room.fieldbyname('L16').asstring;
form53.L17.Caption:=Q_room.fieldbyname('L17').asstring;
form53.L18.Caption:=Q_room.fieldbyname('L18').asstring;
Q_SN.Active:=false;
Q_SN.Params.ParamValues['aa']:=aaa;
Q_SN.Params.ParamValues['bb']:=bbb;
Q_SN.Active:=true;
form53.X1.Caption:=Q_sn.fieldbyname('X1').AsString;
// form53.X2.Caption:=Q_sn.fieldbyname('X2').AsString;
form53.X3.Caption:=Q_sn.fieldbyname('X3').AsString;
form53.X4.Caption:=Q_sn.fieldbyname('X4').AsString;
form53.X5.Caption:=Q_sn.fieldbyname('X5').AsString;
form53.X6.Caption:=Q_sn.fieldbyname('X6').AsString;
form53.X7.Caption:=Q_sn.fieldbyname('X7').AsString;
form53.X8.Caption:=Q_sn.fieldbyname('X8').AsString;
form53.X9.Caption:=Q_sn.fieldbyname('X9').AsString;
form53.X10.Caption:=Q_sn.fieldbyname('X10').AsString;
form53.X11.Caption:=Q_sn.fieldbyname('X11').AsString;
form53.X12.Caption:=Q_sn.fieldbyname('X12').AsString;
form53.X13.Caption:=Q_sn.fieldbyname('X13').AsString;
form53.X14.Caption:=Q_sn.fieldbyname('X14').AsString;
form53.X15.Caption:=Q_sn.fieldbyname('X15').AsString;
form53.X16.Caption:=Q_sn.fieldbyname('X16').AsString;
form53.X17.Caption:=Q_sn.fieldbyname('X17').AsString;
form53.X18.Caption:=Q_sn.fieldbyname('X18').AsString;
form53.X19.Caption:=Q_sn.fieldbyname('X19').AsString;
form53.X20.Caption:=Q_sn.fieldbyname('X20').AsString;
form53.X21.Caption:=Q_sn.fieldbyname('X21').AsString;
form53.X22.Caption:=Q_sn.fieldbyname('X22').AsString;
form53.print;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -