login.~pas

这是一个用delphi+oracle开发的学生管理系统

unit Login;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls,ADODB;

type
  TfrmLogin = class(TForm)
    Label1: TLabel;
    edtUserName: TEdit;
    Label2: TLabel;
    edtPassword: TEdit;
    bbtnOK: TBitBtn;
    bbtnCancel: TBitBtn;
    Image1: TImage;
    procedure bbtnOKClick(Sender: TObject);
    procedure bbtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmLogin: TfrmLogin;
implementation
uses U_Data,U_main;
{$R *.dfm}

procedure TfrmLogin.bbtnOKClick(Sender: TObject);
var sUserName,sPassword :string;
    sqlConn :string;
begin
   sUserName := trim(edtUserName.Text);
   sPassword := trim(edtPassword.Text);
   sqlConn := 'Provider=OraOLEDB.Oracle.1;Data Source=oracle1;Persist Security Info=True;' ;
   sqlConn := sqlConn + 'User ID='+ sUserName+';Password='+sPassword;
   if   datam.Conn.Connected  then
        Datam.conn.Connected := False;
   datam.Conn.LoginPrompt  :=False;
   datam.Conn.ConnectionString := sqlConn;
   datam.Conn.Mode := cmReadWrite;
   datam.Conn.CursorLocation := clUseClient;
   try
     datam.Conn.Open ;
     //frmLogin.Close  ;
     frmMain.Show;
   except
      application.MessageBox('连接数据库出错','提示',mb_OK) ;
      application.Terminate ;
   end;

end;

procedure TfrmLogin.bbtnCancelClick(Sender: TObject);
begin
 if datam.Conn.Connected then
        datam.Conn.Connected:= False;
  application.Terminate ;
end;
end.