unit3.pas

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

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    StaticText1: TStaticText;
    Edit1: TEdit;
    StaticText2: TStaticText;
    Edit2: TEdit;
    Panel1: TPanel;
    StaticText3: TStaticText;
    Edit3: TEdit;
    StaticText4: TStaticText;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    Edit5: TEdit;
    StaticText7: TStaticText;
    Edit6: TEdit;
    StaticText8: TStaticText;
    Edit7: TEdit;
    Button3: TButton;
    Button4: TButton;
    TabSheet3: TTabSheet;
    StaticText9: TStaticText;
    Edit8: TEdit;
    StaticText10: TStaticText;
    Edit9: TEdit;
    Button5: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    procedure StaticText5Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.StaticText5Click(Sender: TObject);
begin
  if((length(trim(Edit1.Text))=0) and (length(trim(Edit2.Text))=0))then
  begin
      showmessage('输入信息不能为空');
  end
  else
    begin
    with ADOquery1 do
    begin
      adoquery1.SQL.Clear;
      adoquery1.SQL.Add('select * from T_user where (User_name=:a) and (Keyword=:b)');
      adoquery1.Parameters[0].Value:=Edit1.Text;
      adoquery1.Parameters[1].Value:=trim(Edit2.Text);
      adoquery1.Open;
      if adoquery1.RecordCount>0 then
        begin
           self.Panel1.Visible:=true;
        end
      else showmessage('这个用户不存在,请核实你所输入的信息');
    end
  end
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  if((length(trim(Edit3.Text))>0) and (length(trim(Edit4.Text))>0)) then
  begin
    if(trim(Edit3.Text)<>trim(Edit4.Text))  then
    begin
      showmessage('前后两次输入的密码不对');
    end
    else
       begin
          with ADOquery1 do
          begin
            adoquery1.SQL.Clear;
            adoquery1.SQL.Add('update T_user set Keyword=:a where (User_name=:b) and (Keyword=:c)');
            adoquery1.Parameters[0].Value:=Edit4.Text;
            adoquery1.Parameters[1].Value:=Edit1.Text;
            adoquery1.Parameters[2].Value:=Edit2.Text;
            adoquery1.ExecSQL;
            showmessage('修改成功');
            self.Panel1.Visible:=false;

          end

       end
  end

end;



procedure TForm3.Button3Click(Sender: TObject);
begin
  if(trim(Edit6.Text)<>trim(Edit7.Text))then
  begin
    showmessage('请确定两次输入的密码一致');
    Exit;
  end;
  with adoquery1 do
  begin
     adoquery1.SQL.Clear;
     adoquery1.SQL.add('select * from T_user where User_name=:a');
     adoquery1.Parameters[0].Value:=Edit5.Text;
     adoquery1.Open;
     if(adoquery1.RecordCount>0) then
     begin
       showmessage('该用户已经存在');
       Exit;
     end;
     adoquery1.Close;
     adoquery1.SQL.Clear;
     adoquery1.SQL.Add('insert T_user values(:a,:b)');
     adoquery1.Parameters[0].Value:=Edit5.Text;
     adoquery1.Parameters[1].Value:=Edit6.Text;
     adoquery1.ExecSQL;
     Application.MessageBox('添加成功','提示',0+64);
  end;

end;

procedure TForm3.Button5Click(Sender: TObject);
begin
  with adoquery1 do
  begin
    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select * from T_user where (User_name=:a and Keyword=:b)');
    adoquery1.Parameters[0].Value:=Edit8.Text;
    adoquery1.Parameters[1].Value:=Edit9.Text;
    adoquery1.Open;
    if(adoquery1.RecordCount>0)then
    begin
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('delete from T_user where (User_name=:a and Keyword=:b)');
       adoquery1.Parameters[0].Value:=Edit8.Text;
       adoquery1.Parameters[1].Value:=Edit9.Text;
       adoquery1.ExecSQL;
       showmessage('删除成功');
    end
    else showmessage('该用户不存在或者你输入的信息不正确');
  end;

end;

procedure TForm3.Image1Click(Sender: TObject);
begin
   form1.N5.Visible:=true;
   form1.N8.Visible:=false;
   form1.Show;
   self.Hide;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
   form1.N5.Visible:=true;
   form1.N8.Visible:=false;
   form1.Show;
   self.Hide;
end;

procedure TForm3.Image2Click(Sender: TObject);
begin
  form1.N5.Visible:=true;
  form1.N8.Visible:=false;
  form1.Show;
  self.Hide;
end;

procedure TForm3.Image3Click(Sender: TObject);
begin
    form1.N5.Visible:=true;
    form1.N8.Visible:=false;
    form1.Show;
    self.Hide;
end;

end.