newzh.pas

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

unit newzh;

interface

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

type
  TForm_NewZH = class(TForm)
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsStoredSkin1: TbsStoredSkin;
    bsSkinMessage1: TbsSkinMessage;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    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 bsSkinEdit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure bsSkinEdit1Exit(Sender: TObject);
    procedure bsSkinEdit2Exit(Sender: TObject);
    procedure bsSkinEdit3Exit(Sender: TObject);
    procedure bsSkinEdit4Exit(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_NewZH: TForm_NewZH;

implementation
uses main,mydatabase;
{$R *.dfm}
{******************************************************************************}
//初始化
{******************************************************************************}
procedure TForm_NewZH.FormCreate(Sender: TObject);
begin
//清空
bsskinedit1.Clear ;
bsskinedit2.Clear ;
bsskinedit3.Clear ;
bsskinedit4.Clear ;
bsskinedit4.Text :='备注';
end;
{******************************************************************************}
//关闭
{******************************************************************************}
procedure TForm_NewZH.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
{******************************************************************************}
//切换
{******************************************************************************}
procedure TForm_NewZH.bsSkinEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
   bsskinedit2.SetFocus 
end;
{******************************************************************************}
//切换
{******************************************************************************}
procedure TForm_NewZH.bsSkinEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
   bsskinedit3.SetFocus ;
end;
{******************************************************************************}
//切换
{******************************************************************************}
procedure TForm_NewZH.bsSkinEdit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=vk_return then
   bsskinedit4.SetFocus ;
end;
{******************************************************************************}
//切换
{******************************************************************************}
procedure TForm_NewZH.bsSkinEdit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if  key=vk_return then
    Form_NewZH.bsSkinButton1Click(Sender);
end;
{******************************************************************************}
//控制只能输入数字
{******************************************************************************}
procedure TForm_NewZH.bsSkinEdit2KeyPress(Sender: TObject; var Key: Char);
begin
if ((key<'0') or (key>'9')) and (key<>#8) then
   key:=#0;
end;
{******************************************************************************}
//控制只能输入数字
{******************************************************************************}
procedure TForm_NewZH.bsSkinEdit3KeyPress(Sender: TObject; var Key: Char);
begin
if ((key<'0') or (key>'9')) and (key<>#8) then
   key:=#0;
end;
{******************************************************************************}
//输入不能为空
{******************************************************************************}
procedure TForm_NewZH.bsSkinEdit1Exit(Sender: TObject);
begin
if bsskinedit1.Text='' then
   bsskinedit1.SetFocus 
end;
{******************************************************************************}
//输入不能为空
{******************************************************************************}
procedure TForm_NewZH.bsSkinEdit2Exit(Sender: TObject);
begin
if bsskinedit2.Text='' then
   bsskinedit2.SetFocus
end;
{******************************************************************************}
//输入不能为空
{******************************************************************************}
procedure TForm_NewZH.bsSkinEdit3Exit(Sender: TObject);
begin
if bsskinedit3.Text='' then
   bsskinedit3.SetFocus
end;
{******************************************************************************}
//输入不能为空
{******************************************************************************}
procedure TForm_NewZH.bsSkinEdit4Exit(Sender: TObject);
begin
if bsskinedit4.Text='' then
   bsskinedit4.SetFocus
end;

procedure TForm_NewZH.bsSkinButton1Click(Sender: TObject);
var
temp,sear:string;
begin
{-------------------------------出帐信息---------------------------------------}
temp:=trim(bsskinedit2.Text);
datamodule1.adotable1.DisableControls ;
datamodule1.adotable1.Filtered :=false;
sear:='银行帐号'+'='+''''+temp+'''';
datamodule1.adotable1.Filter :=sear;
datamodule1.adotable1.Filtered :=true;
datamodule1.adotable1.EnableControls ;
if datamodule1.ADOTable1.RecordCount=0 then begin
   datamodule1.adotable1.Filtered :=false;
   datamodule1.ADOTable1.AppendRecord([self.bsskinedit1.Text,self.bsskinedit2.text,self.bsskinedit3.text,self.bsskinedit4.text]);
   Form_main.bsSkinListBox1.Items.Add(trim(bsskinedit2.Text)); 
   if  bsskinmessage1.MessageDlg('新帐户成功建立,还继续输入新的帐户吗?',mtinformation,[mbok,mbno],0)=mrok then begin
       bsskinedit1.Clear ;
       bsskinedit2.Clear ;
       bsskinedit3.Clear ;
       bsskinedit4.Clear ;
       bsskinedit4.Text :='备注';
       bsskinedit1.SetFocus ;
       end
   else
       close
   end
else begin
      datamodule1.adotable1.Filtered :=false;
      bsskinmessage1.MessageDlg('该帐户已经存在,请输入新的帐户!',mtinformation,[mbok,mbno],0);
      bsskinedit2.Text :='';
      bsskinedit2.SetFocus ;
     end;
end;

end.