【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,addmoneyF.pas,希望对大家有所帮助!
unit addmoneyF;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, DB, ADODB;
type
Taddmoney = class(TForm)
Image1: TImage;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
MonthCalendar1: TMonthCalendar;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
procedure clear(); //定义清空信息函数clear();
end;
var
addmoney: Taddmoney;
implementation
{$R *.dfm}
uses mainF;
//*****各输入框清空*****
procedure Taddmoney.clear;
begin
edit1.Clear;
edit2.Clear;
end;
//***********IC卡充值********
procedure Taddmoney.BitBtn1Click(Sender: TObject);
var
money,cardno:string;
begin
//要求输入正确的卡号和金额
if (trim(edit1.Text)='') then
begin
messagedlg(' 请输入卡号!',mtWarning,[mbOK],0);
edit1.SetFocus;
exit;
end;
if (trim(edit2.Text)='') then
begin
messagedlg(' 请输入充入金额!',mtWarning,[mbOK],0);
edit2.SetFocus;
exit;
end;
//查询是否存在此卡号
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from 卡信息 where 卡号='''+trim(edit1.Text)+'''');
adoquery1.Open;
cardno:=adoquery1.fieldByName('卡号').AsString;
if cardno='' then
begin
MessageDlg(' 没有这个卡号! ',mtInformation,[mbOk], 0);
exit;
end;
money:=adoquery1.fieldByName('金额').AsString;
adoquery1.Close;
money:=trim(floattostr(strtofloat(money)+strtofloat(trim(edit2.Text))));
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('update 卡信息 set 金额='''+money+''' where 卡号='''+trim(edit1.Text)+'''');
adoquery2.ExecSQL;
adoquery2.Close;
MessageDlg(' 充值完成! ',mtInformation,[mbOk], 0);
end;
//***********退出窗口**********
procedure Taddmoney.BitBtn2Click(Sender: TObject);
begin
clear();
close;
end;
//*********打开窗口时清空输入框信息**************
procedure Taddmoney.FormCreate(Sender: TObject);
begin
clear();
end;
//*************按回车跳到充值金额输入框
procedure Taddmoney.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;
//**************输入完充值金额后按回车执行充值操作*********
procedure Taddmoney.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
bitbtn1.Click;
end;
end.
上一篇:
addhost.pas
下一篇:
扛起年轻化大旗,哈弗F系玩转行业新风潮