?? main.~pas
字號:
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ToolWin, ComCtrls, Menus,checkuser,user,changepassword,dbtables,rsxx,seek;
type
TMain_Form = class(TForm)
ToolBar1: TToolBar;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
procedure N8Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Main_Form: TMain_Form;
username,password:string;
qx1,qx2,qx3:boolean;
implementation
{$R *.dfm}
procedure TMain_Form.N8Click(Sender: TObject);
begin
Close;
end;
procedure TMain_Form.FormActivate(Sender: TObject);
begin
//用戶檢測初始化
username:='';
password:='';
qx1:=false;
qx2:=false;
qx3:=false;
checkuserform.ShowModal();
if username<>'' then
begin
//管理員權限
if qx1=true then
begin
n4.Enabled:=true;
n6.Enabled:=true;
speedbutton1.Enabled:=true;
speedbutton3.Enabled:=true;
end
else
begin
n4.Enabled:=false;
n6.Enabled:=false;
speedbutton1.Enabled:=false;
speedbutton3.Enabled:=false;
end;
//操作員權限
if qx2=true then
begin
n2.Enabled:=true;
speedbutton4.enabled:=true;
end
else
begin
n3.Enabled:=false;
speedbutton4.enabled:=false;
end;
//查詢權限
if qx3=true then
begin
n3.Enabled:=true;
speedbutton5.enabled:=true;
end
else
begin
n3.Enabled:=false;
speedbutton5.enabled:=false;
end;
end
else
close;
end;
procedure TMain_Form.N4Click(Sender: TObject);
begin
UserForm.ShowModal();
end;
procedure TMain_Form.N5Click(Sender: TObject);
begin
PasswordChangeForm.ShowModal();
end;
procedure TMain_Form.N6Click(Sender: TObject);
var
Table1:TTable;
begin
Table1:=TTable.create(self);
table1.DatabaseName:='rsgl';
//初始化Operator.db
Table1.TableName:='Operator.db';
table1.EmptyTable;
Table1.open;
Table1.Append;
Table1.FieldByName('name').asstring:='admin';
Table1.FieldByName('password').asstring:='admin';
Table1.FieldByName('department').asstring:='網管中心';
Table1.FieldByName('stamp').asdatetime:=date();
Table1.FieldByName('right_1').asboolean:=true;
Table1.FieldByName('right_2').asboolean:=true;
Table1.FieldByName('right_3').asboolean:=true;
Table1.post;
Table1.Close;
//初始化Info.db
Table1.TableName:='info.db';
Table1.EmptyTable;
Application.MessageBox('初始化結束!','提示信息',mb_ok);
end;
procedure TMain_Form.N2Click(Sender: TObject);
begin
Info_Form.ShowModal();
end;
procedure TMain_Form.N3Click(Sender: TObject);
begin
SeekForm.ShowModal();
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -