unit2.pas

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

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    name_edit: TEdit;
    pass_edit: TEdit;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
 uses unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
  if(length(trim(name_edit.Text))>0)and(length(trim(pass_edit.Text))>0)then
  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:=name_edit.Text;
         adoquery1.Parameters[1].Value:=pass_edit.Text;
         adoquery1.Open;
         if adoquery1.RecordCount>0 then
         begin
           self.Close;
           form1.N5.Visible:=true;
           name_edit.Text:='';
           pass_edit.Text:='';
           form1.Show;
         end
         else showmessage('你输入的用户不存在！');
     end
  end
  else showmessage('请确认你的用户名或者密码不为空');
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
 form1.N5.Visible:=false;
 form1.N8.Visible:=false;
 form1.Show;
 self.Hide;

end;

end.