unit_login.~pas

DELPHI 编写的绣花厂管理软件

unit Unit_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Buttons, DB, ADODB, Mask, ImgList, ExtCtrls,
  jpeg;

type
  TForm_login = class(TForm)
    ADOQuery2: TADOQuery;
    Panel1: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton_login: TSpeedButton;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit_password: TEdit;
    Label3: TLabel;
    Edit_bh: TEdit;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    ComboBox1: TComboBox;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton_loginClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit_passwordKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_login: TForm_login;

implementation

uses Unit_main;

{$R *.dfm}

procedure TForm_login.SpeedButton2Click(Sender: TObject);
begin
   self.Close;
end;

procedure TForm_login.SpeedButton_loginClick(Sender: TObject);
var str:string;
begin
   if trim(edit_bh.Text) = '' then
   begin
      showmessage('请输入用户编号！');
      exit;
   end;
   str:='select * from users where bh='+quotedstr(trim(edit_bh.Text))+  //编号
            ' and xm='+quotedstr(trim(combobox1.Text)) ;                //姓名
   adoquery2.Close;
   adoquery2.SQL.Text:=str;
   adoquery2.Open;
   if (adoquery2.RecordCount>0) and (trim(Edit_password.Text)=adoquery2.FieldByName('mima').AsString) then
   begin
      gs_username := ADOQuery2.fieldbyname('xm').AsString;  //名字
      gs_userID := ADOQuery2.fieldbyname('bh').AsString;    //id
      self.Tag := 1;
      self.close;
      //创建主窗体
      form_main.Enabled := true;
      form_main.StatusBar_main.Panels[0].Text := '当前登陆人：'+gs_username;
      form_main.SetFocus;
   end
   else
   begin
      showmessage('输入错误，请重新输入！');
      Edit_password.Text := '';
   end;
end;

procedure TForm_login.FormShow(Sender: TObject);
begin
   Edit_bh.SetFocus;
   adoquery3.Close;
   adoquery3.SQL.Text:='select * from users';
   adoquery3.Open;
   //产生操作员列表
   while not adoquery3.Eof do
      begin
         combobox1.Items.Add(adoquery3.fieldbyname('xm').AsString);
         adoquery3.Next;
      end;
end;

procedure TForm_login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if self.Tag <> 1 then form_main.Close;
end;

procedure TForm_login.Edit_passwordKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if key=13 then SpeedButton_login.Click;
end;

procedure TForm_login.FormCreate(Sender: TObject);
begin
   //窗体创建时将其名字加入主窗体的“已创建窗体数组”中
   form_main.p_add_form(self.Name);
end;
end.