【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了MC_User.pas提供大家参考,希望对大家有所帮助!
unit MC_User;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, StdCtrls, Buttons, ImgList, jpeg, ShellAPI, Db,
DBTables, Grids, DBGrids, DBCtrls;
type
TUser = class(TForm)
ListView1: TListView;
Panel1: TPanel;
Panel2: TPanel;
Bevel1: TBevel;
Bevel2: TBevel;
BitBtn1: TBitBtn;
Bevel3: TBevel;
Image1: TImage;
Edit1: TEdit;
Label3: TLabel;
BitBtn2: TBitBtn;
ImageList1: TImageList;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Query1: TQuery;
Query1BDEDesigner: TStringField;
Query1BDEDesigner2: TStringField;
Query1BDEDesigner3: TStringField;
Query1BDEDesigner4: TStringField;
Query1BDEDesigner5: TStringField;
Timer1: TTimer;
Label1: TLabel;
Bevel4: TBevel;
DBText1: TDBText;
DBText2: TDBText;
Label2: TLabel;
Label7: TLabel;
DataSource1: TDataSource;
procedure Label6Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Edit1Enter(Sender: TObject);
procedure Edit1Exit(Sender: TObject);
procedure FormShow(Sender: TObject);
// procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure BitBtn1Click(Sender: TObject);
procedure ListView1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure FormHide(Sender: TObject);
private
User_CLose:integer;
Name:String;
{ Private declarations }
public
{ Public declarations }
end;
var
User: TUser;
implementation
uses Unit1, MC_DYYLBrose;
{$R *.DFM}
procedure TUser.Label6Click(Sender: TObject);
begin
ShellExecute(handle,nil,'http://www.MingRiSoft.com',nil,nil,sw_shownormal); //连接网址
end;
procedure TUser.Label6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Label6.font.Color:=Clred;
end;
procedure TUser.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
Label6.Font.Color:=clWindowText;
end;
procedure TUser.Edit1Enter(Sender: TObject);
begin
Edit1.Color:=ClAqua;
end;
procedure TUser.Edit1Exit(Sender: TObject);
begin
Edit1.Color:=ClWindow;
end;
procedure TUser.FormShow(Sender: TObject);
var List:Array[0..1]of TListItem;
begin
Timer1.Enabled:=True;
User_Close:=0; //打开关闭钥匙
Query1.Close;
Query1.Open;
ListView1.Items.Clear;
While not Query1.Eof do
begin
List[0]:=ListView1.Items.Add;
List[0].Caption:=Query1.FieldByName('').AsString;
if Query1.FieldByName('编号').AsString='controller' then
begin
List[0].ImageIndex:=0;
End
Else
begin
List[0].ImageIndex:=1;
end;
Query1.Next;
end;
end;
procedure TUser.BitBtn1Click(Sender: TObject); //登陆
begin
MainForm.ToolButton1.Enabled:=True;
MainForm.ToolButton2.Enabled:=True;
MainForm.ToolButton3.Enabled:=True;
MainForm.ToolButton4.Enabled:=True;
MainForm.ToolButton5.Enabled:=True;
MainForm.ToolButton11.Enabled:=True;
MainForm.N12121.Enabled:=True;
MainForm.N5.Enabled:=True;
MainForm.N48.Enabled:=True;
MainForm.N52.Enabled:=True;
MainForm.N51.Enabled:=True;
MainForm.N33.Enabled:=True;
MainForm.N7.Enabled:=True;
MainForm.N4.Enabled:=True;
MainForm.N23.Enabled:=True;
MainForm.N6.Enabled:=True;
MainForm.N22.Enabled:=True;
MainForm.N24.Enabled:=True;
MainForm.N1.Enabled:=True;
MainForm.N8.Enabled:=True;
MainForm.N9.Enabled:=True;
MainForm.N28.Enabled:=True;
MainForm.N11.Enabled:=True;
MainForm.N2.Enabled:=True;
MainForm.N55.Enabled:=True;
MainForm.N17.Enabled:=True;
MainForm.N18.Enabled:=True;
MainForm.N5.Enabled:=True;
MainForm.N48.Enabled:=True;
MainForm.N52.Enabled:=True;
MainForm.N51.Enabled:=True;
MainForm.N33.Enabled:=True;
if Query1.FieldByName('编号').AsString='controller' then //如果是系统管理员
begin
if Edit1.Text<>Query1.FieldByName('密码').AsString then
begin
ShowMessage('['+Query1.FieldByName('').AsString+']的口令错误.'); //口令错误
Edit1.SetFocus;
End
Else
begin
MainForm.StatusBar1.Panels[1].Text:='用户['+Query1.FieldByName('').AsString+']';
DYYLBrose.StatusBar1.Panels[1].Text:='用户['+Query1.FieldByName('').AsString+']';
MainForm.User1:=Query1.FieldByName('').AsString;
User_Close:=3;
Timer1.Enabled:=False;
Close;
end;
End
Else
begin
MainForm.ToolButton1.Enabled:=False;
MainForm.ToolButton2.Enabled:=False;
MainForm.ToolButton3.Enabled:=False;
MainForm.ToolButton4.Enabled:=False;
MainForm.ToolButton5.Enabled:=False;
MainForm.ToolButton11.Enabled:=False;
MainForm.N12121.Enabled:=False;
MainForm.N5.Enabled:=False;
MainForm.N48.Enabled:=False;
MainForm.N52.Enabled:=False;
MainForm.N51.Enabled:=False;
MainForm.N33.Enabled:=False;
MainForm.N7.Enabled:=False;
MainForm.N4.Enabled:=False;
MainForm.N23.Enabled:=False;
MainForm.N6.Enabled:=False;
MainForm.N22.Enabled:=False;
MainForm.N24.Enabled:=False;
MainForm.N1.Enabled:=False;
MainForm.N8.Enabled:=False;
MainForm.N9.Enabled:=False;
MainForm.N28.Enabled:=False;
MainForm.N11.Enabled:=False;
MainForm.N2.Enabled:=False;
MainForm.N55.Enabled:=False;
MainForm.N17.Enabled:=False;
MainForm.N18.Enabled:=False;
MainForm.N5.Enabled:=False;
MainForm.N48.Enabled:=False;
MainForm.N52.Enabled:=False;
MainForm.N51.Enabled:=False;
MainForm.N33.Enabled:=False;
if Edit1.Text<>Query1.FieldByName('密码').AsString then
begin
ShowMessage('['+Query1.FieldByName('').AsString+']的口令错误.');
Edit1.SetFocus;
End
Else
begin
Name:=Query1.FieldByName('权限').AsString;
MainForm.EnabledKey(Name); //设置操作员权限
MainForm.StatusBar1.Panels[1].Text:='用户['+Query1.FieldByName('').AsString+']';
DYYLBrose.StatusBar1.Panels[1].Text:='用户['+Query1.FieldByName('').AsString+']';
User_Close:=3;
Timer1.Enabled:=False;
Close;
end;
end;
end;
procedure TUser.ListView1Click(Sender: TObject); //选择操作员
var List:Array[0..1]of TListItem;
begin
List[0]:=ListView1.Selected;
if List[0]<>Nil then
begin
Query1.Locate('',List[0].Caption,[loCaseInsensitive]); //查询,但是如果有从名的按第一个算.
end;
end;
procedure TUser.Timer1Timer(Sender: TObject);
begin
FlashWindow(Application.Handle,True); //闪烁项目一次
FlashWindow(Handle,True); //闪烁窗体一次
end;
procedure TUser.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then BitBtn1.Click; //回车焦点移“登陆“按钮
end;
procedure TUser.FormHide(Sender: TObject);
begin
Query1.Close;
end;
procedure TUser.BitBtn2Click(Sender: TObject
上一篇:
MC_TSZT.pas
下一篇:
还记得,那年的风车吗?