procedure qx; //自定义过程---登陆时用户的权限设置
procedure b_okClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure b_cancelClick(Sender: TObject);
procedure E_USEKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormCreate(Sender: TObject);
procedure JC_DATETIME;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure e_userKeyPress(Sender: TObject; var Key: Char);
procedure e_passwordKeyPress(Sender: TObject; var Key: Char); //检测系统日期时间
private
{ Private declarations }
public
rz_id:integer;//保存日志ID
{ Public declarations }
end;
var
f_password: Tf_password;
user_name:string; //全局变量,保存登陆系统的用户名
implementation
uses p_mc,p_gl,P_DM;
{$R *.dfm}
procedure tf_password.JC_DATETIME;
begin
//检测计算机日期时间是否小于上次登陆日期时间
with dm do
begin
t_dl.Open;
if t_dl['dl_date']>now then
begin
t_dl.Edit;
t_dl['dl_date']:=strtodate('1900-03-20');
t_dl.Post;
application.MessageBox('计算机日期或时间有误,请更正！','登陆失败',mb_ok+mb_iconstop);
f_password.Close;
end
else
begin
t_dl.Edit;
t_dl['dl_date']:=datetostr(now);
t_dl.Post;
// t_dl.Close;
end; //endif
t_dl.Close;
end; //with dm do 语句完毕
end;
procedure tf_password.qx; //自定义过程---登陆时用户的权限设置
var
n:integer;
xz:boolean; //该权限是否选择
begin
with dm,f_gl do
begin
t_qx.Open;
t_qx.Filter:='user_name='''+user_name+'''';
t_qx.Filtered:=true;
t_qx.First;
while not t_qx.eof do
begin
n:=t_qx['menu_id'];
