?? unit27.pas
字號:
unit Unit27;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, DB, ADODB, Buttons;
type
TForm27 = class(TForm)
Label3: TLabel;
DTP1: TDateTimePicker;
Label4: TLabel;
DTP2: TDateTimePicker;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ADOQuery1: TADOQuery;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form27: TForm27;
implementation
uses Unit11, Unit16, Unit1;
{$R *.dfm}
procedure TForm27.BitBtn2Click(Sender: TObject);
begin
if messagedlg('您確定要刪除收費記錄?'+#13+'刪除后將不能恢復。',mtconfirmation,[mbok,mbno],0)=mrok then
begin
ADOQuery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('delete from recharge where chargetime between :time1 and :time2');
adoquery1.Parameters.ParamByName('time1').Value:=dtp1.DateTime;
adoquery1.Parameters.ParamByName('time2').Value:=dtp2.DateTime;
adoquery1.ExecSQL;
end
end;
procedure TForm27.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select opname,sum(money)as totalmoney from recharge where chargetime between :time1 and :time2 group by opname');
adoquery1.Parameters.ParamByName('time1').Value:=dtp1.DateTime;
adoquery1.Parameters.ParamByName('time2').Value:=dtp2.DateTime;
adoquery1.Open;
with czysf do
begin
quickrep1.DataSet:=adoquery1;
qrdbtext1.DataSet:=adoquery1;
qrdbtext1.DataField:='opname';
qrdbtext2.DataSet:=adoquery1;
qrdbtext2.DataField:='totalmoney';
qrlabel5.Caption:=datetostr(dtp1.DateTime);
qrlabel7.Caption:=datetostr(dtp2.DateTime);
qrlabel9.Caption:=trim(user);
quickrep1.Preview;
end
end;
procedure TForm27.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Resize:=false;
end;
procedure TForm27.FormShow(Sender: TObject);
begin
Dtp1.DateTime:=now;
dtp2.DateTime:=now;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -