login.pas

一个用Delphi编写的简单售票系统,有查询,修改.增加.删除等功能.

unit login;

interface

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

type
  Tloginform = class(TForm)
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    ADOConnection1: TADOConnection;
    Image1: TImage;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  loginform: Tloginform;
  i:integer;

implementation
{$R *.dfm}
uses index;

procedure Tloginform.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tloginform.BitBtn1Click(Sender: TObject);
var
  Adodataset1:TAdoDataset;
begin
  AdoDataSet1:=TAdoDataset.Create(self);
  adoDataset1.Connection:=adoconnection1;
  adodataset1.CommandType:=cmdtext;
  Adodataset1.CommandText:='select * from userpass where user=:username and pass=:password';
  adodataset1.close;
  Adodataset1.Parameters.Clear;
  Adodataset1.Parameters.AddParameter;
  adodataset1.Parameters[0].name:='username';
  adodataset1.Parameters[0].DataType:=ftstring;
  Adodataset1.Parameters[0].Direction:=pdinput;
  adodataset1.Parameters[0].Value:=edit1.text;
  Adodataset1.Parameters.AddParameter;
  adodataset1.Parameters[1].name:='password';
  adodataset1.Parameters[1].DataType:=ftstring;
  Adodataset1.Parameters[1].Direction:=pdinput;
  adodataset1.Parameters[1].Value:=edit2.text;
  adodataset1.active:=true;
  if adodataset1.Recordset.RecordCount=1 then
  begin
      username:=edit1.Text;
      qx[1]:=adodataset1.FieldByName('txf1').asboolean;
      qx[2]:=adodataset1.FieldByName('txf2').asboolean;
      //qx[3]:=adodataset1.FieldByName('权限三').asboolean;
      //qx[4]:=adodataset1.FieldByName('权限四').asboolean;
      close;
  end
  else
  begin
      
      i:=i-1;
      edit2.text:='';
      edit2.SetFocus;
      Application.MessageBox('您输入的用户名或密码错误!您共有3次机会','提示信息',mb_ok);
  end;
  if i=0 then
  begin
      username:='';
      close;
  end;
  adodataset1.Active:=false;
end;

procedure Tloginform.FormActivate(Sender: TObject);
begin
    i:=3;
    edit2.Text:='';
    edit2.SetFocus;
end;

procedure Tloginform.FormCreate(Sender: TObject);
var
dbname:string;
begin
dbname:= ExtractFilePath(Application.ExeName) + 'tang.mdb';
with ADOConnection1 do
begin
ConnectionString:='Microsoft OLE DB Provider for Oracle;'+
'Data Source='+dbname+';'+
'Mode=ReadWrite;'+
'Persist Security Info=False';
Connected:=True;//打开数据连接
end;
end;

end.