login_unit.pas

单机进销存管理程序 Delphi+Acce

unit login_unit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,data, StdCtrls, Buttons, Mask, Grids, DBGrids;

type
  Tlogin_form = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login_form: Tlogin_form;

implementation
uses mainform;


{$R *.dfm}

procedure Tlogin_form.BitBtn1Click(Sender: TObject);
begin
if length(edit1.Text)= 0 then
   begin
   showmessage('登陆错误,用户名不能为空!');
   edit1.SetFocus;
   end
else if length(maskedit1.Text)= 0 then
    begin
    showmessage('登陆错误,密码不能为空!');
    maskedit1.SetFocus;
    end
else
begin
  begin
  data.database.adoq0.Connection :=data.database.adoc;
  data.database.adoq0.SQL.Clear ;
  data.database.adoq0.SQL.Add('select * from userid  where 用户名=:name and 密码=:pass ');
  data.Database.adoq0.Parameters.ParamByName('name').Value :=edit1.Text;
  data.Database.adoq0.Parameters.ParamByName('pass').Value :=maskedit1.Text ;
  data.database.adoq0.Active :=true;
  end ;

  if data.Database.ADOQ0.Recordset.RecordCount = 0 then
  begin
  showmessage('此用户名不存在或密码不正确!');
  edit1.Clear; edit1.SetFocus; maskedit1.Clear;
  end
  else
    begin
     mainform.main_Form.Image1.Visible:=true;
     Close ;
    end;
  end;
 main_form.StatusBar1.Panels[0].Text:='   登陆成功！';
 main_form.StatusBar1.Panels[1].Text:='欢迎你使用进销存管理软件！如有问题请与我联系！联系方式：QQ ：54480882' ;
 main_form.statusbar1.Panels[2].Text :='登陆时间：'+datetostr(date())+ ' -- '+timetostr(time())  ;


end;





procedure Tlogin_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//if application.MessageBox('确实要退出吗?','退出',4)=6 then
//application.Terminate;
end;

procedure Tlogin_form.BitBtn2Click(Sender: TObject);
begin
 main_form.StatusBar1.Panels[0].Text:=' 受限用户！请登陆！';
 main_form.StatusBar1.Panels[1].Text:='欢迎你使用进销存管理软件！如有问题请与我联系！联系方式：QQ ：54480882' ;
 main_form.statusbar1.Panels[2].Text :='登陆时间：'+datetostr(date())+ ' -- '+timetostr(time())  ;
 close;
end;

end.