unit_login.pas

基本信息：房屋基本信息、客户基本信息、职工基本信息 房屋交易：客户订购、退房、购买 信息查询：销售、订购、结款、交易记录查询 报表查询：日报表、月报表

unit Unit_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB, ToolWin, ComCtrls, jpeg,Unitquanxian;

type
  Tlogin = class(TForm)
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Image1: TImage;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login: Tlogin;

implementation
     uses unit_main, Unit_xgmm;
{$R *.dfm}

procedure Tlogin.Button1Click(Sender: TObject);
var sqlstr:string;
begin
if trim(labelededit1.text)='' then
begin
 messagebox(login.Handle,'用户名不能为空！','提示',mb_iconinformation);
 exit;
end;

if trim(combobox1.text)='' then
begin
 messagebox(login.Handle,'用户类型不能为空！','提示',mb_iconinformation);
 exit;
end;

if trim(labelededit2.text)='' then
begin
 messagebox(login.Handle,'密码不能为空！','提示',mb_iconinformation);
 exit;
end;

 sqlstr:='select * from yonghu where (name='''+trim(labelededit1.text)+''')';
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.sql.add(sqlstr);
 adoquery1.Open;
 if adoquery1.RecordCount=0 then
 begin
  messagebox(login.Handle,'用户名不存在!!','提示',mb_iconinformation);
  exit;
 end;



 sqlstr:='select * from yonghu where(name='''+trim(labelededit1.text)+''')and(type='''+trim(combobox1.text)+''')and(password='''+trim(labelededit2.text)+''')';
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.sql.add(sqlstr);
 adoquery1.Open;

 if adoquery1.RecordCount=0 then
 begin
  messagebox(login.Handle,'密码或类型错误、请重新输入!!','提示',mb_iconinformation);
  exit;


 end;





 main.statusbar1.Panels[3].Text:=trim(labelededit1.text);
 main.statusbar1.panels[5].text:=datetostr((date));
 main.statusbar1.panels[7].text:=timetostr((time));
 if combobox1.text='经理'then quanxian:=1
 else if combobox1.text='员工' then quanxian:=2
 else if combobox1.text='客户' then quanxian:=3
 else if combobox1.text='管理员' then quanxian:=4;

 xgmm.labelededit1.text:=combobox1.text;
 xgmm.labelededit2.text:=labelededit1.Text;

 main.showsss();

end;

procedure Tlogin.Button2Click(Sender: TObject);
begin
 if messagedlg('你确定要关闭窗口吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
close
else
 exit;
end;

end.