frmlogin.pas

地税局发票程序源代码,自己开发的一个程序,最近整理资料的时候看到,放在那也是放着,拿出来供大家

unit FrmLogin;

interface

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

type
  TLogin = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    class function CreateLogin:Boolean;  //创建登陆窗体
    procedure SelectUser;                //读取税务员
    { Public declarations }
  end;

var
  Login: TLogin;

implementation

uses
  FrmCustom, FrmData;

{$R *.dfm}

{ TLogin }

class function TLogin.CreateLogin: Boolean;
begin
  try
    Login:=TLogin.Create(Application);
    Login.ShowModal;
    if Login.ModalResult=mrOk then
      Result:=True
    else
      Result:=False;
  finally
    Login.Free;
    Login:=nil;
  end;
end;


procedure TLogin.SelectUser;
begin
  with MyData do
  begin
    ComboBox1.Clear;
    ADOSelect.SQL.Clear;
    ADOSelect.SQL.Add('Select 用户名 From Admin');
    ADOSelect.Open;
    while not ADOSelect.Eof do
    begin
      ComboBox1.Items.Add(ADOSelect.Fields[0].AsString);
      ADOSelect.Next;
    end;
  end;
end;

procedure TLogin.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    Edit1.SetFocus;
end;

procedure TLogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    BitBtn1.Click;
end;

procedure TLogin.BitBtn2Click(Sender: TObject);
begin
   if Application.MessageBox('你是否真的要退出', ' 提示', MB_YESNO +
     MB_ICONWARNING + MB_DEFBUTTON3 + MB_TOPMOST) = IDYES then
   begin
     Application.Terminate;
   end;
end;

procedure TLogin.BitBtn1Click(Sender: TObject);
var
  aSql: string;
begin
  if Length(Trim(Edit1.Text))=0 then
  begin
    Application.MessageBox('密码不能为空！  ', ' 提示', MB_OK +
      MB_ICONWARNING + MB_DEFBUTTON3 + MB_TOPMOST);
    Edit1.SetFocus;
    Exit;
  end;
  with MyData do
  begin
    ADOSelect.SQL.Clear;
    aSql:='Select * From Admin Where 用户名 ='+QuotedStr(ComboBox1.Text)+' and 密码='
      +QuotedStr(Edit1.Text);
    ADOSelect.SQL.Add(aSql);
    ADOSelect.Open;
    if not ADOSelect.Eof then
    begin
//      if ADOSelect.FieldByName('管理员').AsString='是' then
//        IsAdmin:=True;
      CurrenUser:=ComboBox1.Text;
      Self.ModalResult:=mrOk;
    end
    else
    begin
      Application.MessageBox('密码错误！  ', ' 提示', MB_OK +
        MB_ICONWARNING + MB_DEFBUTTON3 + MB_TOPMOST);
      edit1.Clear;
      edit1.SetFocus;  
    end;
  end;
end;

procedure TLogin.FormShow(Sender: TObject);
begin
  SelectUser;
end;

end.