newrh.pas

本软件是小管家个人帐户管理系统 (ADO+ACCESS)

unit newrh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsMessages, bsSkinCtrls, StdCtrls, Mask,
  bsSkinBoxCtrls;

type
  TForm_rh = class(TForm)
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinMessage1: TbsSkinMessage;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bsSkinEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bsSkinEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bsSkinEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bsSkinComboBox1Exit(Sender: TObject);
    procedure bsSkinEdit1Exit(Sender: TObject);
    procedure bsSkinEdit2Exit(Sender: TObject);
    procedure bsSkinEdit3Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_rh: TForm_rh;

implementation
uses main,mydatabase;
{$R *.dfm}
{******************************************************************************}
//中文日期
{******************************************************************************}
function ChinaDate():string;
var
year,month,day:word;
begin
decodedate(date(),year,month,day);
result:=inttostr(year)+'年'+inttostr(month)+'月'+inttostr(day)+'日';
end;
{******************************************************************************}
//初始化信息
{******************************************************************************}
procedure TForm_rh.FormCreate(Sender: TObject);
var
i:integer;
begin
bsskincombobox1.Items.Clear ;
bsskinedit1.Clear ;
bsskinedit2.Clear ;
bsskinedit3.Clear ;
bsskinedit1.Text :=chinadate();
bsskinedit3.Text :='备注';
//导出帐号
try
   datamodule1.ADOTable1.First ;
   for i:=0 to datamodule1.adotable1.RecordCount -1 do  begin
    bsskincombobox1.Items.Add(datamodule1.adotable1.FieldValues['银行帐号']);
    datamodule1.adotable1.Next ;
end;
except
   bsskinmessage1.MessageDlg('数据导出错误!',mtinformation,[mbok],0);
end;
end;
{******************************************************************************}
//保存记录
{******************************************************************************}
procedure TForm_rh.bsSkinButton1Click(Sender: TObject);
begin
if (bsskincombobox1.Text='') or (bsskinedit1.Text='') or (bsskinedit2.Text='') then begin
   bsskinmessage1.MessageDlg('请填写数据!',mtinformation,[mbok],0);
   exit;
end;
try
   datamodule1.ADOTable3.AppendRecord([bsskincombobox1.Text,bsskinedit1.Text,bsskinedit2.Text,bsskinedit3.Text]);
   bsskinmessage1.MessageDlg('记录保存完成!',mtinformation,[mbok],0);
   close;
except
      bsskinmessage1.MessageDlg('数据无法保存!',mtinformation,[mbok],0);
      close;
end;
end;
{******************************************************************************}
//关闭
{******************************************************************************}
procedure TForm_rh.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
{******************************************************************************}
//控制只能输入数字
{******************************************************************************}
procedure TForm_rh.bsSkinComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
if ((key<'0') or (key>'9')) and (key<>#8) then
   key:=#0;
end;
{******************************************************************************}
//控制只能输入数字
{******************************************************************************}
procedure TForm_rh.bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if ((key<'0') or (key>'9')) and (key<>#8) then
   key:=#0;
end;
{******************************************************************************}
//切换
{******************************************************************************}
procedure TForm_rh.bsSkinComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
   bsskinedit1.SetFocus  
end;
{******************************************************************************}
//切换
{******************************************************************************}
procedure TForm_rh.bsSkinEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
   bsskinedit2.SetFocus  
end;
{******************************************************************************}
//切换
{******************************************************************************}
procedure TForm_rh.bsSkinEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
   bsskinedit3.SetFocus 
end;
{******************************************************************************}
//切换
{******************************************************************************}
procedure TForm_rh.bsSkinEdit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
   Form_rh.bsSkinButton1Click(Sender);
end;
{******************************************************************************}
//输入不能为空
{******************************************************************************}
procedure TForm_rh.bsSkinComboBox1Exit(Sender: TObject);
begin
if bsskincombobox1.Text='' then
   bsskincombobox1.SetFocus 
end;
{******************************************************************************}
//输入不能为空
{******************************************************************************}
procedure TForm_rh.bsSkinEdit1Exit(Sender: TObject);
begin
if bsskinedit1.Text='' then
   bsskinedit1.SetFocus 
end;
{******************************************************************************}
//输入不能为空
{******************************************************************************}
procedure TForm_rh.bsSkinEdit2Exit(Sender: TObject);
var
tempA,tempB:LongWord;
begin {0}
if bsskinedit2.Text =''then
   bsskinedit2.SetFocus
else begin {1}
        if  datamodule1.adotable1.Locate('银行帐号',bsskincombobox1.Text,datamodule1.opts) then begin {2}
            tempA:=strtoint( datamodule1.adotable1.FieldValues['当前金额']);
             //异常处理
            try
              tempB:=strtoint(bsskinedit2.Text);
            except
               bsskinmessage1.MessageDlg('超出了范围:0~4294967295',mtinformation,[mbok],0);
               bsskinedit2.Clear ;
               bsskinedit2.SetFocus ;
               exit;
            end;
            //修改帐户金额
            tempA:=tempA+tempB;
            datamodule1.ADOTable1.Edit ; //编辑模式
            datamodule1.ADOTable1.FieldValues['当前金额']:=inttostr(tempA); //写入数据
            datamodule1.ADOTable1.Post ; //保存
        end {2}
        else begin {3}
              bsskinmessage1.MessageDlg('无此帐户!',mtinformation,[mbok],0);
              close ; //关闭窗体
        end  {3}
     end {1}
end;{0}
{******************************************************************************}
//输入不能为空
{******************************************************************************}
procedure TForm_rh.bsSkinEdit3Exit(Sender: TObject);
begin
if bsskinedit3.Text ='' then
   bsskinedit3.SetFocus
end;

end.