?? uvipfull.pas
字號:
unit uvipfull;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Base, Mask, wwdbedit, wwdbdatetimepicker, ExtCtrls, StdCtrls,
Buttons, DB, DBClient;
type
Tfrmvipfull = class(TfrmBase)
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Bevel1: TBevel;
GroupBox2: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label28: TLabel;
text3: TwwDBDateTimePicker;
text2: TwwDBEdit;
text1: TwwDBEdit;
Label26: TLabel;
Label25: TLabel;
Label27: TLabel;
text6: TwwDBEdit;
text5: TwwDBEdit;
text4: TwwDBEdit;
Bevel2: TBevel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit2: TEdit;
Edit3: TEdit;
btnexit: TBitBtn;
btnok: TBitBtn;
SpeedButton1: TSpeedButton;
CDSbaseinfo: TClientDataSet;
dsBaseinfo: TDataSource;
BitBtn1: TBitBtn;
procedure btnexitClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton1Click(Sender: TObject);
procedure btnokClick(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn1Click(Sender: TObject);
private
Cvipid:integer;
{ Private declarations }
public
{ Public declarations }
end;
var
frmvipfull: Tfrmvipfull;
implementation
uses Global, common;
{$R *.dfm}
procedure Tfrmvipfull.btnexitClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure Tfrmvipfull.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
frmvipfull:=nil;
end;
procedure Tfrmvipfull.SpeedButton1Click(Sender: TObject);
var
CmdStr:string;
begin
inherited;
if (Edit1.Text='') then Exit;
ClearCDSData(CDSbaseinfo);
CmdStr:=' fcode='+vartosql(edit1.Text);
GetsqlData(CDSbaseinfo,'Vvip','fid',CmdStr,1);
if CDSbaseinfo.RecordCount > 0 then
begin
CvipID:=CDSbaseinfo.fieldbyname('fid').AsInteger;
text1.Text:=CDSbaseinfo.fieldbyname('fname').AsString;
text2.Text:=CDSbaseinfo.fieldbyname('ftel').AsString;
text3.Text:=CDSbaseinfo.fieldbyname('flastconsumed').AsString;
text4.Text:=CDSbaseinfo.fieldbyname('fcomsumetotle').AsString;
text5.Text:=CDSbaseinfo.fieldbyname('fbalance').AsString;
text6.Text:=CDSbaseinfo.fieldbyname('fintegral').AsString;
end;
end;
procedure Tfrmvipfull.btnokClick(Sender: TObject);
var
cmdStr:string;
begin
inherited;
if Cvipid = 0 then
begin
Messagedlg('沒有正確刷卡,請重新刷卡 ! ',mtWarning,[mbok],0);
Exit;
end;
if (strtofloat(edit2.Text) = 0) then
begin
Messagedlg('請輸入充值金額 ! ',mtWarning,[mbok],0);
Exit;
end;
cmdStr:='update tvip set fbalance='+
vartosql(strtoint(edit2.Text)+strtoint(text5.Text))+
',fintegral='+vartosql(strtoint(edit3.Text)+strtoint(text6.Text))+
' where fid='+vartosql(CvipID);
if Execsql(cmdStr) then
begin
Messagedlg('充值成功 ! ',mtWarning,[mbok],0);
syslog(self.Name,'充值會員金額 ,會員卡號'+Trim(edit1.Text));
Exit;
end;
end;
procedure Tfrmvipfull.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if not (key in['0'..'9',#8]) then
key:=#0;
end;
procedure Tfrmvipfull.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
inherited;
if not (key in['0'..'9',#8]) then
key:=#0;
end;
procedure Tfrmvipfull.BitBtn1Click(Sender: TObject);
var
cmdStr:String;
begin
inherited;
if Cvipid = 0 then
begin
Messagedlg('沒有正確刷卡,請重新刷卡 ! ',mtWarning,[mbok],0);
Exit;
end;
cmdStr:='update tvip set fbalance=0,fintegral=0 where fid='+vartosql(CvipID);
if Execsql(cmdStr) then
begin
Messagedlg('凍結(jié)成功 ! ',mtWarning,[mbok],0);
syslog(self.Name,'凍結(jié)會員金額 ,會員卡號'+Trim(edit1.Text));
Exit;
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -