log1.pas

delphi开发的委托加工管理系统源代码

unit log1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, DB, ADODB, TFlatComboBoxUnit,
  TFlatEditUnit, TFlatButtonUnit, WinSkinData, WinSkinStore,
  BusinessSkinForm, bsSkinCtrls, bsSkinBoxCtrls, inifiles,RzButton, RzTray, DosMove,
  RzCmboBx;

type
  Tlog = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    ADOQuery1: TADOQuery;
    ADODataSet1: TADODataSet;
    flatedit1: TbsSkinPasswordEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    SkinData1: TSkinData;
    FlatComboBox1: TRzComboBox;
    procedure FlatComboBox1DropDown(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure FlatComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure flatedit1KeyPress(Sender: TObject; var Key: Char);
    procedure FlatComboBoxDropDown(Sender: TObject);
    procedure FlatComboBoxKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    itimes:integer;
  public
    { Public declarations }
  end;

var
  log: Tlog;

implementation

uses main1, adodm, gy1, help1;

{$R *.dfm}

procedure Tlog.FlatComboBox1DropDown(Sender: TObject);
var
i:integer;
begin
flatcombobox1.clear;
adoquery1.Open;
if (adoquery1.RecordCount>0) then
adoquery1.First;
for i:=0 to adoquery1.RecordCount - 1 do
begin
flatcombobox1.Items.add(adoquery1.Fieldbyname('username').AsString);
adoquery1.Next;
end;
end;

procedure Tlog.RzBitBtn1Click(Sender: TObject);
begin
close
end;

procedure Tlog.RzBitBtn2Click(Sender: TObject);
begin
inc(itimes);
adodataset1.Active:=false;
adodataset1.CommandText:='select * from usedata where username='''+trim(flatcombobox1.Text)+'''';
adodataset1.Active:=true;
if (adodataset1.RecordCount<>0) then
if  adodataset1.Fields[2].AsString=''+trim(flatedit1.text)+'' then
begin
main.show;
log.Hide;
help.Show;
main.Image1.Picture.LoadFromFile('ico\back.bmp');
main.statusbar1.Panels[2].Text:='用户名： '+''+trim(flatcombobox1.text)+'';
main.statusbar1.Panels[3].Text:='权限： '+adodataset1.Fields[3].AsString;
if  adodataset1.Fields[3].AsString='作业员' then
begin
main.ToolButton11.Enabled:=false;
main.N19.Enabled:=false;
main.N20.Enabled:=false;
main.N21.Enabled:=false;
main.N27.Enabled:=false;
end;
if  adodataset1.Fields[3].AsString<>'管理员' then
begin
main.N2.Enabled:=false
end
else
main.N2.Enabled:=true;
flatedit1.Clear;
end
else
begin
showmessage('你输入的密码不正确');
flatedit1.SetFocus;
end
else
begin
showmessage('你输入的用户名不存在！');
flatcombobox1.SetFocus;
end;
if itimes=3 then
begin
showmessage('您进行身份确认已超过3次，本系统将停止执行！');
close
end;
end;

procedure Tlog.FlatComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN
flatedit1.SetFocus;
end;

procedure Tlog.flatedit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
rzbitbtn2.SetFocus;
end;

procedure Tlog.FlatComboBoxDropDown(Sender: TObject);
var
i:integer;
begin
flatcombobox1.clear;
adoquery1.Open;
if (adoquery1.RecordCount>0) then
adoquery1.First;
for i:=0 to adoquery1.RecordCount - 1 do
begin
flatcombobox1.Items.add(adoquery1.Fieldbyname('username').AsString);
adoquery1.Next;
end;
end;

procedure Tlog.FlatComboBoxKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN
flatedit1.SetFocus;
end;

procedure Tlog.FormCreate(Sender: TObject);
var
skinset:tinifile;
begin
skinset:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'skinset.ini');
skindata1.SkinFile:=skinset.ReadString('skin','skinpath','')
end;

procedure Tlog.RzBitBtn2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
rzbitbtn2.Click;
end;

end.