realtyb61.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit RealtyB61;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
  StrUtils, ExtDlgs, ComCtrls, math, ToolWin, ImgList, Menus;

type
    Tf_RealtyB61 = class(TForm)
    GroupBox1: TGroupBox;
    ListView1: TListView;
    Button1: TButton;
    Button5: TButton;
    Button6: TButton;
    Label1: TLabel;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    procedure Button4Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  
    procedure GetData;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1CustomDrawItem(Sender: TCustomTreeView;
      Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
    procedure TreeView1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
     bMod:bool;
     sTable:string;
     cols:integer;
  end;

var
  f_RealtyB61: Tf_RealtyB61;
implementation
uses data, main,RealtyPrint1;
{$R *.dfm}

//初始化
procedure Tf_RealtyB61.GetData;
Var
    Query,query1,query2:TADOQuery;
    s1,s2,s3,s4,s5,s6:string;
begin

end;


//Tab
procedure Tf_RealtyB61.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
        Begin
            key:=0;
            perform(WM_NEXTDLGCTL,0,0);
        end
    else if key=VK_ESCAPE then close;
end;

procedure Tf_RealtyB61.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caFree;
end;


procedure Tf_RealtyB61.Button4Click(Sender: TObject);
begin

end;

//取数据

procedure Tf_RealtyB61.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    if   Item.Selected = true then
    begin
          Sender.Canvas.Brush.Color   :=   clMenuHighlight;
          (Sender   as   TListView).Canvas.Font.Color   :=  clWhite;
    end;
end;


procedure Tf_RealtyB61.FormCreate(Sender: TObject);

begin
    getStructure(TreeView1);
    //TreeView1Click(Sender);


end;

procedure Tf_RealtyB61.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
    if Node.Selected=true then
    begin
        Sender.Canvas.Brush.Color := clMenuHighlight;
        (Sender as TTreeView).Canvas.Font.Color := clWhite;
    end;
end;

procedure Tf_RealtyB61.TreeView1Click(Sender: TObject);
Var
    query,query1,query2,query3,query11,query22,query33:TADOQuery;
    nLevel:integer;
    s,s1,s2,s3,s4:string;
    b:bool;
    r0,r1,r2,r3,r4,t1,t2,t3,t4:string;
begin
    listview1.Items.Clear;

    nLevel:=treeview1.Selected.Level;

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;
    Query2:=TADOQuery.Create(nil);
    Query2.Connection:=DataModuleADO.ADOConnection1;
    Query3:=TADOQuery.Create(nil);
    Query3.Connection:=DataModuleADO.ADOConnection1;

    Query11:=TADOQuery.Create(nil);
    Query11.Connection:=DataModuleADO.ADOConnection1;
    Query22:=TADOQuery.Create(nil);
    Query22.Connection:=DataModuleADO.ADOConnection1;
    Query33:=TADOQuery.Create(nil);
    Query33.Connection:=DataModuleADO.ADOConnection1;

    //所有
    if nLevel=0 then
    begin
        s:='select * from 房间 where  名称 like ''%'+Edit1.text;
        s:=s+'%'' order by 编号 asc';

        query.SQL.Clear;
        Query.SQL.Add(s);
        Query.Open ;
        while not Query.Eof do
        begin
            r0:=Query.FieldByName('管理处').Value;
            r1:=Query.FieldByName('管理区').Value;
            r2:=Query.FieldByName('楼宇').Value;

            t1:='-';
            t2:='-';
            t3:='-';
            t4:='-';
            s:='select * from 租赁合同租金 where 房间='''+Query.FieldByName('编号').Value;
            s:=s+'''';
            query1.SQL.Clear;
            query1.sql.add(s);
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s:='select * from 租赁合同 where 单号='''+Query1.FieldByName('单号').Value;
                s:=s+''' and 客户 like ''%'+Edit5.Text;
                s:=s+'%''';
                query1.SQL.Clear;
                query1.sql.add(s);
                query1.Open;
                if query1.RecordCount>0 then
                begin
                    s:='select * from 客户资料 where 客户名称='''+Query1.FieldByName('客户').Value;
                    s:=s+'''';
                    query1.SQL.Clear;
                    query1.sql.add(s);
                    query1.Open;
                    if query1.RecordCount>0 then
                    begin
                        r1:=Query1.FieldByName('客户代码').Value;
                        r2:=Query1.FieldByName('客户名称').Value;
                        r3:=Query1.FieldByName('电话').Value;
                        r4:=Query1.FieldByName('手机号').Value;
                    end;


                    s:='select * from 入伙登记 where 房间='''+Query.FieldByName('编号').Value;
                    s:=s+'''';

                    query1.SQL.Clear;
                    query1.sql.add(s);
                    query1.Open;
                    if query1.RecordCount>0 then
                    begin
                        s:='select * from 客户资料 where 客户名称='''+Query1.FieldByName('客户').Value;
                        s:=s+''' and 客户名称 like ''%'+Edit2.Text+'%''';

                        query1.SQL.Clear;
                        query1.sql.add(s);
                        query1.Open;
                        if query1.RecordCount>0 then
                        begin
                            s:='select * from 管理区 where 编号='''+r1;
                            s:=s+''' and 名称 like ''%'+edit6.Text+'%''';
                            query2.SQL.Clear;
                            query2.sql.add(s);
                            query2.Open;
                            if query2.RecordCount>0 then
                            begin
                                s:='select * from 楼宇 where 编号 ='''+r2;
                                s:=s+''' and 名称 like ''%'+edit3.Text+'%''';
                                query2.SQL.Clear;
                                query2.SQL.Add(s);
                                query2.Open;
                                if query2.RecordCount>0 then
                                begin
                                    with ListView1.Items.Add do
                                    begin
                                        Caption:=Query2.FieldByName('编号').Value;
                                        SubItems.Add(Query2.FieldByName('名称').Value);

                                        SubItems.Add(Query.FieldByName('名称').Value);
                                        SubItems.Add(Query.FieldByName('建筑面积').Value);

                                        SubItems.Add(Query1.FieldByName('客户代码').Value);
                                        SubItems.Add(Query1.FieldByName('客户名称').Value);
                                        SubItems.Add(Query1.FieldByName('电话').Value);
                                        SubItems.Add(Query1.FieldByName('手机号').Value);


                                        SubItems.Add(r1);
                                        SubItems.Add(r2);
                                        SubItems.Add(r3);