unit_zhhgl.pas

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

unit Unit_zhhgl;

interface

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

type
  Tzhhgl = class(TForm)
    ADOConnection1: TADOConnection;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    LabeledEdit1: TLabeledEdit;
    ComboBox1: TComboBox;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    LabeledEdit7: TLabeledEdit;
    LabeledEdit8: TLabeledEdit;
    Button2: TButton;
    Button3: TButton;
    Image1: TImage;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhhgl: Tzhhgl;

implementation

{$R *.dfm}

procedure Tzhhgl.Button1Click(Sender: TObject);
var sql:string;
begin

 if trim(labelededit3.text)<>trim(labelededit4.text) then
 begin
 showmessage('密码两次输入的不一致，请重新输入!!');
 end
 else
  if trim(labelededit4.text)='' then
  begin
   showmessage('密码不能为空!!!!!');
  end
  else

 begin
   sql:='select * from yonghu where (userno='''+trim(labelededit1.text)+''')and(type='''+trim(combobox1.text)+''')and(name='''+trim(labelededit2.text)+''')and(password='''+trim(labelededit4.text)+''')';
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add(sql);
   adoquery1.Open;
     if adoquery1.RecordCount>0 then
     begin
       showmessage('该记录已经存在，请重新输入!!!');
     end
     else
     begin
       sql:='insert into yonghu values('''+trim(labelededit1.text)+''','''+trim(combobox1.text)+''','''+trim(labelededit2.text)+''','''+trim(labelededit4.text)+''')';
       adoquery1.close;
       adoquery1.sql.Clear;
       adoquery1.sql.Add(sql);
      // adoquery1.execsql;

       showmessage('增加成功!');
     end;
       adoquery1.Close;
       adoquery1.sql.Add('select * from yonghu ');
       adoquery1.Open();
  end;


end;

procedure Tzhhgl.ComboBox1Click(Sender: TObject);
begin

  if trim(combobox1.text)='员工' then
  labelededit1.text:='2'
  else if trim(combobox1.text)='经理' then
  labelededit1.text:='1'
  else if trim(combobox1.text)='客户' then
  labelededit1.text:='3' ;

end;

procedure Tzhhgl.DBGrid1CellClick(Column: TColumn);
begin
labelededit5.Text:=adoquery1.Fields[0].AsString;
labelededit6.Text:=adoquery1.Fields[1].AsString;
labelededit7.Text:=adoquery1.Fields[2].AsString;
labelededit8.Text:=adoquery1.Fields[3].AsString;

end;

procedure Tzhhgl.Button2Click(Sender: TObject);
begin
if messagedlg('你确定要删除该用户吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
showmessage('用户类型：'+labelededit5.text+'，    用户级别：'+labelededit6.text+'，姓名：'+labelededit7.text+'，密码：'+labelededit8.text);
adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.Add('delete from yonghu where(userno='''+trim(labelededit5.text)+''')and(type='''+trim(labelededit6.text)+''')and(name='''+trim(labelededit7.text)+''')and(password='''+trim(labelededit8.text)+''')');
adoquery1.ExecSQL;
adoquery1.close;
adoquery1.sql.Clear;
adoquery1.SQL.Add('select * from yonghu');
adoquery1.Open();

 showmessage('删除成功!!!');
end
else
exit;
end;

procedure Tzhhgl.Button3Click(Sender: TObject);
var sql:string;

 begin
   sql:='select * from yonghu where (userno='''+trim(labelededit1.text)+''')and(type='''+trim(combobox1.text)+''')and(name='''+trim(labelededit2.text)+''')and(password='''+trim(labelededit4.text)+''')';
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add(sql);
   adoquery1.Open;
     if adoquery1.RecordCount=0 then
     begin
       showmessage('该记录不存在，请重新输入!!!');
     end
     else
     begin
       adoquery1.SQL.Add('delete from yonghu where(userno='''+trim(combobox1.text)+''')and(type='''+trim(labelededit1.text)+''')and(name='''+trim(labelededit2.text)+''')and(password='''+trim(labelededit4.text)+''')and(password='''+trim(labelededit3.text)+''')');
       adoquery1.close;
       adoquery1.sql.Clear;
       adoquery1.sql.Add(sql);
      // adoquery1.execsql;

       showmessage('删除成功!');

     end;
       adoquery1.Close;
       adoquery1.sql.Add('select * from yonghu ');
       adoquery1.Open();
  end;


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

end.