unit_first.~pas

DELPHI影碟音像出租管理系统（优秀全套）是出租管理的一个很典型的例子

unit unit_first;

interface

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

type
  Tfrm_first = class(TForm)
    cmb_right: TComboBox;
    edt_password: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    sbtn_enter: TSpeedButton;
    sbtn_exit: TSpeedButton;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    Image1: TImage;
    Timer1: TTimer;
    cmb_name: TComboBox;
    procedure sbtn_enterClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sbtn_exitClick(Sender: TObject);
    procedure edt_passwordKeyPress(Sender: TObject; var Key: Char);
    procedure cmb_rightKeyPress(Sender: TObject; var Key: Char);
    procedure cmb_nameKeyPress(Sender: TObject; var Key: Char);
    procedure cmb_rightChange(Sender: TObject);
  private
    { Private declarations }
  public
   right,i:integer;
   password,logname:string;
   flag:boolean; { Public declarations }
  end;

var
  frm_first: Tfrm_first;

implementation

uses unit_main;

{$R *.dfm}

procedure Tfrm_first.sbtn_enterClick(Sender: TObject);
begin
flag:=false;
right:=cmb_right.ItemIndex;
logname:=cmb_name.Text;
password:=edt_password.Text;
adotable1.Open;
adotable1.First;
while not adotable1.Eof do
begin
if (logname=adotable1.FieldValues['帐号']) and (right=adotable1.FieldValues['权限']) and (password=adotable1.FieldValues['密码']) then
flag:=true;
adotable1.Next;
end;
if flag then
begin
if right=0 then
begin
frm_main.Button3.Enabled:=true;
frm_main.Button4.Enabled:=true;
frm_main.N6.Enabled:=true;
frm_main.N10.Enabled:=true;
frm_main.Caption:='影碟出租试用版----管理员'+'('+cmb_name.Text+')';
end;
if right=1 then
begin
frm_main.Button3.Enabled:=false;
frm_main.Button4.Enabled:=false;
frm_main.N6.Enabled:=false;
frm_main.N10.Enabled:=false;
frm_main.Caption:='影碟出租试用版----一般用户'+'('+cmb_name.Text+')';
end;
cmb_name.Text:='';
edt_password.Text:='';
cmb_name.SetFocus;
adotable1.Close;
close;
end
else
begin
showmessage('此帐号不存在或密码错误,请从新输入!');
cmb_name.Text:='';
edt_password.Text:='';
cmb_name.SetFocus;
end;
end;

procedure Tfrm_first.FormCreate(Sender: TObject);
var
i:integer;
begin
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+getcurrentdir+'\db\password.mdb;Persist Security Info=False;Jet OLEDB:Database Password=80513';
adoconnection1.Connected:=true;
adotable1.TableName:='密码';

adotable1.Active:=true;
adotable1.First;
cmb_right.Text:='';

end;

procedure Tfrm_first.sbtn_exitClick(Sender: TObject);
begin
if frm_main.i=1 then
begin
frm_first.close;
frm_main.i:=0;
end
else
begin
frm_main.Close;
close;
end;  
end;

procedure Tfrm_first.edt_passwordKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
sbtn_enter.Click;
end;

procedure Tfrm_first.cmb_rightKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
cmb_name.SetFocus;
end;

procedure Tfrm_first.cmb_nameKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edt_password.SetFocus;
end;

procedure Tfrm_first.cmb_rightChange(Sender: TObject);
var
i:integer;
begin
adotable1.Active:=true;
cmb_name.Text:='';
if cmb_right.ItemIndex=0 then
begin
cmb_name.Items.Clear;
adotable1.Filter:='权限=0';
adotable1.Filtered:=true;
if adotable1.RecordCount<5 then
begin
adotable1.First;
for i:=0 to adotable1.RecordCount-1 do
begin
cmb_name.Items.Add(adotable1.FieldValues['帐号']);
adotable1.Next;
end;
end
else
begin
adotable1.First;
for i:=0 to 4 do
begin
cmb_name.Items.Add(adotable1.FieldValues['帐号']);
adotable1.Next;
end;

end;

end
else
begin
cmb_name.Items.Clear;
adotable1.Filter:='权限=1';
adotable1.Filtered:=true;
if adotable1.RecordCount<5 then
begin
for i:=0 to adotable1.RecordCount-1 do
begin
cmb_name.Items.Add(adotable1.FieldValues['帐号']);
adotable1.Next;
end;
end
else
begin
for i:=0 to 4 do
begin
cmb_name.Items.Add(adotable1.FieldValues['帐号']);
adotable1.Next;
end;

end;

end;

end;

end.