share.pas

Access数据库用户权限的管理程序

unit share;

interface
uses
   DB,ADODB,SysUtils,Windows, Forms;
var
  Connect,ADOCon:TADOConnection;
  DataPath:string;
  UserName:string='';
  UserPwd:string='';
  ZH:string='';
  ZH1:string='';
  num:integer;
  QXGL_Q1:TADOQuery;
  ZGNB_Q:TADOQuery;
  CZRZ:string;
  CZRZ_Q:TADOQuery;
  procedure CZRZInit;
  procedure WriteCZRZ;
  procedure F1_Help(var Key: Word);


implementation

uses Main_Form, HTMLHelp_Decl;

procedure F1_Help(var Key: Word);
begin
  if key=vk_F1 then
    HtmlHelp(Application.handle, '.\QHelp.chm',HH_HELP_CONTEXT, DWORD_PTR(num));
  //HtmlHelp( handle, '.\QHelp.chm',HH_HELP_CONTEXT, DWORD_PTR(ActiveControl.HelpContext));
end;

procedure CZRZInit;
begin
   CZRZ_Q:= TADOQuery.Create(nil);
   CZRZ_Q.Connection := Connect;
   CZRZ_Q.SQL.Add('select * from  操作日志');
   CZRZ_Q.Open;
end;

procedure WriteCZRZ;
begin
  CZRZ_Q.Append;
  CZRZ_Q.FieldByName('帐号').AsString:=UserName;
  CZRZ_Q.FieldByName('日期').AsDateTime:=date;
  CZRZ_Q.FieldByName('操作').AsString:=trim(CZRZ);
  CZRZ_Q.Post;
end;

end.