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('新帳戶成功建立,還繼續(xù)輸入新的帳戶嗎?',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.