unit8.~pas

用dephi写的一个银行管理系统

unit Unit8;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, ADODB, ExtCtrls;

type
  TForm8 = class(TForm)
    StaticText1: TStaticText;
    StaticText4: TStaticText;
    ADOQuery1: TADOQuery;
    StaticText2: TStaticText;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    ADOStoredProc1: TADOStoredProc;
    StaticText3: TStaticText;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit7, Unit6, Unit3;

{$R *.dfm}

procedure TForm8.BitBtn1Click(Sender: TObject);
var
  id:string;
begin
 if(strtoint(StaticText4.Caption)<strtoint(Edit1.Text))then
 begin
  showmessage('不能透支这么多，请再次输入取款额');
  Edit1.SetFocus;
  Exit;
 end;
 if(strtoint(Edit1.Text)<strtofloat(Edit3.Text))then
 begin
 showmessage('你确认不透支？？');
 form6.Edit6.Text:=Edit1.Text;
 form6.show;
 Exit;
 end;
  //adoquery1.SQL.Clear;
 // adoquery1.SQL.Add('select customer_id as ss from customer_fund where (card_type=:a and caed_no=:b)');
// adoquery1.Parameters[0].Value:=trim(StaticText3.Caption);
// adoquery1.Parameters[1].Value:=Edit2.Text;
// adoquery1.Open;
// id:=adoquery1.fieldbyname('ss').Value;
 ADOStoredProc1.ProcedureName:='fetch2';
 ADOStoredProc1.Parameters.Refresh;
 ADOStoredProc1.Parameters.ParamByName('@type').Value:=StaticText3.caption;
 ADOStoredProc1.Parameters.ParamByName('@no').Value:=Edit2.text;
 ADOStoredProc1.Parameters.ParamByName('@amount').Value:=strtofloat(Edit1.text)-strtofloat(Edit3.Text);
 ADOStoredProc1.Parameters.ParamByName('@date').Value:=now();
 //ADOStoredProc1.Parameters.ParamByName('@id').Value:=id;
 ADOStoredProc1.ExecProc;
 showmessage('透支成功');
 form6.Show;
 form6.Panel3.Visible:=true;
 form6.Panel4.Visible:=false;
 self.Close;

end;

procedure TForm8.BitBtn2Click(Sender: TObject);
begin
  form6.Panel3.Visible:=false;
  form6.Panel4.Visible:=false;
  form6.Show;
  self.Close;
end;

end.