unit_superman.~pas

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

unit unit_superman;

interface

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

type
  Tfrm_superman = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    sbtn_manager: TSpeedButton;
    sbtn_comment: TSpeedButton;
    sbtn_all: TSpeedButton;
    sbtn_exit: TSpeedButton;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    procedure sbtn_managerClick(Sender: TObject);
    procedure sbtn_commentClick(Sender: TObject);
    procedure sbtn_allClick(Sender: TObject);
    procedure sbtn_exitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_superman: Tfrm_superman;

implementation

uses unit_main, unit_first;

{$R *.dfm}

procedure Tfrm_superman.sbtn_managerClick(Sender: TObject);
begin
frm_first.adotable1.Filtered:=false;
frm_first.adotable1.Filter:='权限=0';
frm_first.adotable1.Filtered:=true;
frm_first.adotable1.Active:=true;
label1.Caption:='管理人员列表';
end;

procedure Tfrm_superman.sbtn_commentClick(Sender: TObject);
begin
frm_first.adotable1.Filtered:=false;
frm_first.adotable1.Filter:='权限=1';
frm_first.adotable1.Filtered:=true;
frm_first.adotable1.Active:=true;
label1.Caption:='一般用户列表';
end;

procedure Tfrm_superman.sbtn_allClick(Sender: TObject);
begin
frm_first.adotable1.Filtered:=false;
frm_first.adotable1.Active:=true;
label1.Caption:='所有人员列表';
end;

procedure Tfrm_superman.sbtn_exitClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_superman.FormCreate(Sender: TObject);
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:='密码';
end;

end.