⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 start1.pas

📁 职工信息管理系统的源代码
💻 PAS
字号:
🔍 
unit start1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, DB, DBTables, Buttons;

type
  Tstart = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Label3: TLabel;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    user: TTable;
    userBDEDesigner: TStringField;
    userBDEDesigner2: TStringField;
    userRignt: TStringField;
    Button3: TSpeedButton;
    Button5: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  start: Tstart;
   c:integer;
implementation

uses quan;

{$R *.dfm}

procedure Tstart.FormCreate(Sender: TObject);
begin
user.Active:=false;
user.DatabaseName:=s;
user.TableName:='user.db';
user.Active:=true;
c:=0;
button5.Enabled:=false;
RadioButton1.Checked:=true;
end;

procedure Tstart.RadioButton2Click(Sender: TObject);
var i:integer;
begin
combobox1.Items.Clear;
user.Active:=true;
user.First;
 for i:=0 to user.RecordCount-1 do
 begin
 if user.FieldByName('rignt').AsString=qu.cf('2') then
 combobox1.Items.Add(qu.cf(user.fieldbyname('用户名').AsString));
 user.Next;
 end;
end;

procedure Tstart.RadioButton3Click(Sender: TObject);
var i:integer;
begin
combobox1.Items.Clear;
user.Active:=true;
user.First;
 for i:=0 to user.RecordCount-1 do
 begin
 if user.FieldByName('rignt').AsString=qu.cf('3') then
 combobox1.Items.Add(qu.cf(user.fieldbyname('用户名').AsString));
 user.Next;
 end;
end;

procedure Tstart.RadioButton1Click(Sender: TObject);
var i:integer;
begin
combobox1.Items.Clear;
user.Active:=true;
user.First;
 for i:=0 to user.RecordCount-1 do
 begin
 if user.FieldByName('rignt').AsString=qu.cf('1') then
 combobox1.Items.Add(qu.cf(user.fieldbyname('用户名').AsString));
 user.Next;
 end;
end;

procedure Tstart.Button5Click(Sender: TObject);
begin
user.Active:=true;
user.SetKey;
user.fieldbyname('用户名').AsString:=qu.cf(combobox1.Text);
if user.GotoKey then
begin
if (qu.cf(edit1.Text)=user.fieldbyname('密码').AsString)and(length(qu.cf(edit1.Text))=length(user.fieldbyname('密码').AsString)) then
begin
username:=qu.cf(user.fieldbyname('用户名').AsString);
if RadioButton1.Checked=true  then
begin
application.MessageBox('你以高级管理员身份登录，你的操作将不受任何限制','注意',mb_ok+mb_iconinformation);
qu.n16.visible:=true;
qu.N11.Visible:=true;
qu.N1.Visible:=true;
qu.N2.Visible:=true;
qu.N3.Visible:=true;
qu.N4.Visible:=true;
qu.n6.Visible:=true;
qu.N11.Visible:=true;
qu.n12.Visible:=true;
qu.n13.Visible:=true;
qu.N14.Visible:=true;
qu.N16.Visible:=true;
qu.N17.Visible:=true;
qu.N18.Visible:=true;
qu.N19.Visible:=true;
qu.N28.Visible:=true;
qu.N29.Visible:=true;
qu.N30.Visible:=true;
qu.N31.Visible:=true;
qu.N32.Visible:=true;
qu.N33.Visible:=true;
qu.N34.Visible:=true;
qu.N35.Visible:=true;
qu.N36.Visible:=true;
qu.N37.Visible:=true;
qu.N38.Visible:=true;
qu.N39.Visible:=true;
qu.speedbutton1.Visible:=true;
qu.speedbutton2.Visible:=true;
qu.speedbutton10.Visible:=true;
qu.speedbutton11.Visible:=true;
qu.speedbutton12.Visible:=true;
qu.speedbutton15.Visible:=true;
qu.speedbutton16.Visible:=true;
qu.speedbutton5.Visible:=true;
qu.SpeedButton1.Visible:=true;
qu.SpeedButton2.Visible:=true;
qu.SpeedButton10.Visible:=true;
qu.SpeedButton11.Visible:=true;
qu.SpeedButton12.Visible:=true;
qu.SpeedButton15.Visible:=true;
qu.SpeedButton16.Visible:=true;
qu.SpeedButton5.Visible:=true;
qu.SpeedButton6.Visible:=true;
end
else
if RadioButton2.Checked=true  then
begin
application.MessageBox('你以普通管理员身份登录，你的操作将受限制','注意',mb_ok+mb_iconinformation);
qu.speedbutton7.Visible:=true;
qu.speedbutton8.Visible:=true;
qu.speedbutton9.Visible:=true;
qu.speedbutton13.Visible:=true;
qu.speedbutton14.Visible:=true;
qu.speedbutton3.Visible:=true;
qu.speedbutton4.Visible:=true;
qu.speedbutton1.Visible:=true;
qu.speedbutton2.Visible:=true;
qu.speedbutton10.Visible:=true;
qu.speedbutton11.Visible:=true;
qu.speedbutton12.Visible:=true;
qu.speedbutton15.Visible:=true;
qu.speedbutton16.Visible:=true;
qu.speedbutton5.Visible:=true;
qu.speedbutton6.Visible:=true;
qu.SpeedButton12.Visible:=false;
qu.SpeedButton15.Visible:=false;
qu.SpeedButton16.Visible:=false;
qu.SpeedButton6.Visible:=false;
qu.SpeedButton5.Visible:=false;
qu.n16.visible:=true;
qu.N1.Visible:=true;
qu.N2.Visible:=true;
qu.N3.Visible:=true;
qu.N4.Visible:=false;
qu.n6.Visible:=true;
qu.N11.Visible:=false;
qu.n12.Visible:=false;
qu.n13.Visible:=false;
qu.N14.Visible:=true;
qu.N16.Visible:=true;
qu.N17.Visible:=false;
qu.N18.Visible:=false;
qu.N19.Visible:=false;
qu.N28.Visible:=true;
qu.N29.Visible:=true;
qu.N30.Visible:=true;
qu.N31.Visible:=true;
qu.N32.Visible:=false;
qu.N33.Visible:=false;
qu.N34.Visible:=true;
qu.N35.Visible:=false;
qu.N36.Visible:=false;
qu.N37.Visible:=false;
qu.N38.Visible:=false;
qu.N39.Visible:=false;
end
else
if RadioButton3.Checked=true then
begin
application.MessageBox('你以用户身份登录，你不能操作任何数据','注意',mb_ok+mb_iconinformation);
qu.n16.visible:=false;
qu.N1.Visible:=true;
qu.N2.Visible:=false;
qu.N3.Visible:=false;
qu.N4.Visible:=false;
qu.n6.Visible:=true;
qu.N11.Visible:=false;
qu.n12.Visible:=false;
qu.n13.Visible:=false;
qu.N14.Visible:=true;
qu.N16.Visible:=false;
qu.N28.Visible:=false;
qu.N29.Visible:=false;
qu.N30.Visible:=false;
qu.N31.Visible:=false;
qu.N32.Visible:=false;
qu.N33.Visible:=false;
qu.N34.Visible:=true;
qu.N35.Visible:=false;
qu.N36.Visible:=false;
qu.N37.Visible:=false;
qu.N38.Visible:=false;
qu.N39.Visible:=false;
qu.speedbutton1.Visible:=false;
qu.speedbutton2.Visible:=false;
qu.speedbutton10.Visible:=false;
qu.speedbutton11.Visible:=false;
qu.speedbutton12.Visible:=false;
qu.speedbutton15.Visible:=false;
qu.speedbutton16.Visible:=false;
qu.speedbutton5.Visible:=false;
qu.speedbutton6.Visible:=false;
qu.Panel4.Visible:=false;
qu.Panel3.Left:=123;
end;
close;
end
else
begin
if application.MessageBox('密码错误','注意',mb_ok+mb_iconquestion)=idok then
begin
c:=c+1;
if c>3 then
qu.Close;
end;
end;
end;
end;
procedure Tstart.ComboBox1Change(Sender: TObject);
begin
button5.Enabled:=true;
end;

procedure Tstart.Button3Click(Sender: TObject);
begin
if application.MessageBox('确实要退出系统吗？','信息',mb_okcancel+mb_iconquestion)=idok then
qu.close;
end;

procedure Tstart.FormClose(Sender: TObject; var Action: TCloseAction);
begin
user.Active:=false;

end;

procedure Tstart.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button5.Click;
end;

procedure Tstart.FormPaint(Sender: TObject);
var a,b:real;
i:integer;
begin
a:=clientheight/256;
b:=0;
for i:=255 downto 0 do
begin
canvas.Brush.Color:=$000000000+i*$10000;
canvas.FillRect(rect(0,round(b),clientwidth,round(a+b)));
b:=b+a;
end;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -