addmoneyf.pas

用delphi和sql server编写的校园IC卡管理系统。

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.