addbalanceunit.~pas

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

unit addbalanceunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;

type
  Tfrm_AddBalance = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    memberid: TEdit;
    membername: TEdit;
    t_member: TADOTable;
    ds_member: TDataSource;
    b_input: TButton;
    b_cancel: TButton;
    Label3: TLabel;
    sum: TEdit;
    Label4: TLabel;
    procedure FormShow(Sender: TObject);
    procedure b_cancelClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure b_inputClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    function ismoney(s:string):boolean;
  public
    { Public declarations }
  end;

var
  frm_AddBalance: Tfrm_AddBalance;

implementation
  uses datamoduleunit;
{$R *.dfm}
function tfrm_addbalance.ismoney(s:string):boolean;
var i:integer;
 begin
 i:=1;
 while i<=length(s) do
  begin
   if (s[i]<>'.') and ((ord(s[i])<48) or (ord(s[i])>57)) then
    begin
     result:=FALSE;
     exit;
    end;
   i:=i+1;
   result:=true;
 end;

 end;

procedure Tfrm_AddBalance.FormShow(Sender: TObject);
begin
t_member.Open;
frm_addbalance.DBGrid1CellClick(nil);
sum.Text:='';
end;

procedure Tfrm_AddBalance.b_cancelClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_AddBalance.DBGrid1CellClick(Column: TColumn);
begin
memberid.Text:=inttostr(t_member.FieldValues['会员编号']);
membername.Text:=t_member.FieldValues['会员姓名'];
end;

procedure Tfrm_AddBalance.b_inputClick(Sender: TObject);
var name:string;
begin
if (sum.Text='') or (sum.Text='0') then
 begin
  showmessage('请输入要充值的金额数');
  activecontrol:=sum;
  exit;
 end; 
 if (ismoney(sum.Text)=false) or (strtofloat(sum.Text)<0) then
  begin
  showmessage('请确认添入的充值金额是否正确!');
  activecontrol:=sum;
  exit;
 end;
 t_member.Edit;
 t_member.FieldByName('结余').AsCurrency:=t_member.FieldValues['结余']+(sum.Text);
 t_member.Post;
 
  messagedlg('金额已成功添加进'''''+t_member.FieldValues['会员姓名']+'''''账户里!本次添加金额:'
    +sum.Text+'元.',mtconfirmation,[mbok],0);
    sum.Clear;
end;

procedure Tfrm_AddBalance.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
t_member.Close;
end;

end.