unit10.~pas

商场管理 内容:通过商场入口和用户入口实现

unit Unit10;

interface

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

type
  Tfrm_pwdcheck = class(TForm)
    Query1: TQuery;
    Label1: TLabel;
    Label2: TLabel;
    cob_user: TComboBox;
    edt_pass: TEdit;
    btn_login: TBitBtn;
    Image1: TImage;
    procedure FormShow(Sender: TObject);
    procedure btn_loginClick(Sender: TObject);
    procedure edt_passKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_pwdcheck: Tfrm_pwdcheck;

implementation

uses Unit11, Unit12;

{$R *.dfm}

procedure Tfrm_pwdcheck.FormShow(Sender: TObject);
var
  i:integer;
begin
with query1 do
   begin
      sql.Text:='select distinct 姓名 from passinfor.db';
      open;

      cob_user.Items.Clear;
      for i:=1 to recordcount do
      begin
      cob_user.Items.Add(fieldbyname('姓名').AsString);
      next;
      end;
      close;
      end; 
 end;

procedure Tfrm_pwdcheck.btn_loginClick(Sender: TObject);
var
asql:string;
begin
asql:='select * from passinfor.db where 姓名="'+cob_user.Text+'"and 口令="'+edt_pass.text+'"';
query1.SQL.Text:=asql;
query1.Open;

if query1.RecordCount <>0 then
begin
  if query1.FieldByName('权限').AsString='管理' then
  begin
     frm_pass.show;
     close;
     end
     else
        frm_change.show;
    end;
     query1.close;
     edt_pass.clear;
     close;
end;

procedure Tfrm_pwdcheck.edt_passKeyPress(Sender: TObject; var Key: Char);
begin

if key=chr(13) then
begin
  key:=chr(0);
  btn_login.Click;
  end;
end;

end.