u_frmlogin.pas

sqllite3数据库基本应用(打开,关闭表,及更新数据表)

unit u_frmlogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TFrmlogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    ComboBoxname: TComboBox;
    Editpwd: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmlogin: TFrmlogin;
  i: integer = 0;
  m: Boolean = False;//防止关闭登录窗口进入系统

implementation

uses u_data, u_frmmain, u_frmuser;

{$R *.dfm}

procedure TFrmlogin.BitBtn2Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TFrmlogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if m = False then
    Application.Terminate ;
end;

procedure TFrmlogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
if   Key=#13   then   
      begin
      Key:=#0;
      SelectNext(ActiveControl,True,True);
      end;
end;

procedure TFrmlogin.BitBtn1Click(Sender: TObject);
begin
  with Data.Qlogin do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from department where (departmentname= :a)and(departmentpwd= :b)');
    params.ParamByName('a').Value := Trim(ComboboxName.Text);
    params.ParamByName('b').Value := Trim(Editpwd.Text);
    Open;
  end;
  if trim(comboboxname.Text)='' then
  begin
  application.MessageBox('请选择车间名称','提示',0+64);
  comboboxname.SetFocus;

  end

  else
  if Data.Qlogin.RecordCount > 0 then
  begin
  application.CreateForm(tfrmmain,frmmain);
  frmmain.Show;
  frmlogin.Hide;
  end
  else
  begin
    if i <3 then
    begin
      Application.MessageBox('密码不正确，请重新输入。','提示',0+64);
      Editpwd.Clear;
      editpwd.SetFocus;
      Inc(i);
    end
    else
    begin
      Application.MessageBox('对不起，您无权使用本系统。','提示',0+64);
      Application.Terminate ;
    end;
  end;
end;

procedure TFrmlogin.FormShow(Sender: TObject);
begin
with Data.Qlogin do
     begin
     close;
     sql.Clear;
     sql.Add('select  * from department');
     open;
     comboboxname.Clear;
     end;
     while not Data.Qlogin.Eof do
     begin
     comboboxname.Items.add(Data.Qlogin.fieldbyname('departmentname').AsString);
     Data.Qlogin.Next;
     end;
end;

end.