manage_users.pas

这是一个学藉管理系统

unit Manage_Users;

interface

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

type
  TForm12 = class(TForm)
    XPMenu1: TXPMenu;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;


implementation

{$R *.dfm}

uses implemntation,unit6,unit2;


procedure TForm12.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cafree;

end;

procedure TForm12.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_ESCAPE then self.close;

end;




procedure TForm12.FormCreate(Sender: TObject);
begin
if login_user<>'admin' then  showmessage('登录成功但权限不够，不能对用户进行管理！')
 else begin
 ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+Product_Dir+data_path+';Persist Security Info=False';
 try
 ADOConnection1.LoginPrompt:=false;  //去除登录验证
 ADOConnection1.Open;
 ADOtable1.Connection:=ADOConnection1;
 ADOtable1.TableName:='users';
 ADOtable1.Active:=true;
 DataSource1.DataSet:=ADOTable1;
 DBGrid1.DataSource:=DataSource1;
 except
   application.MessageBox('找不到数据库，引起该问题的原因是数据库可能被删除或改名.','无法打开数据库',0);
   application.Terminate;
 end;
 end;

 
end;





end.