donglu.pas

该系统是学生人事管理系统

unit donglu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, bsSkinCtrls, bsSkinBoxCtrls, Mask;

type
  Tform10 = class(TForm)
    bsSkinPanel1: TbsSkinPanel;
    bsSkinComboBox1: TbsSkinComboBox;
    bsSkinPasswordEdit1: TbsSkinPasswordEdit;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form10:Tform10;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure Tform10.bsSkinButton2Click(Sender: TObject);
begin
close;
end;

procedure Tform10.bsSkinButton1Click(Sender: TObject);
var
flag:boolean;
begin
 datamodule3.ADOTable3.Open;
 datamodule3.ADOTable3.First;
 while not datamodule3.ADOTable3.Eof do
 begin
 if (bsskincombobox1.Text=datamodule3.ADOTable3.Fields[2].AsString)and(bsskinedit1.Text=datamodule3.ADOTable3.Fields[0].AsString)and(bsskinpasswordedit1.Text=datamodule3.ADOTable3.Fields[1].AsString)then

 flag:=true;
 datamodule3.ADOTable3.Next;

 if flag then
 begin
 datamodule3.ADOTable3.Open;
 //datamodule3.ADOTable3.AppendRecord([bsskinedit1.text,bsskincombobox1.Text,datetimetostr(now)]);
 //datamodule3.ADOTable3.Close;
   close;
 if bsskincombobox1.ItemIndex=0 then
 begin
 form1.ToolButton1.Enabled:=true;
 form1.ToolButton2.Enabled:=true;
 form1.ToolButton6.Enabled:=true;
 form1.ToolButton4.Enabled:=true;
 form1.ToolButton15.Enabled:=true;
 form1.N1.Enabled:=true;
 form1.N5.Enabled:=true;
 form1.N7.Enabled:=true;
 form1.p1.Enabled:=true;
 form1.f1.Enabled:=true;
 end;
 if bsskincombobox1.ItemIndex=1 then
 begin
 form1.N7.Enabled:=true;
 form1.p1.Enabled:=true;
 form1.f1.Enabled:=true;
 form1.ToolButton2.Enabled:=true;
 form1.ToolButton6.Enabled:=true;
 form1.ToolButton4.Enabled:=true;
end;
end
else
 showmessage('密码错误，请重新输入！');
end;

end;
procedure Tform10.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree;
end;

end.