realtyl11.pas

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

unit RealtyL11;

interface

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

type
    Tf_RealtyL11 = class(TForm)
    GroupBox2: TGroupBox;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    BInsert: TButton;
    BDelete: TButton;
    BESC: TButton;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    ListView1: TListView;
    Button1: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure BInsertClick(Sender: TObject);
    procedure BDeleteClick(Sender: TObject);
    procedure BESCClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);

  private
    { Private declarations }
  public
    { Public declarations }
     col,row: Integer;
     sStyle:string;
     sTable:string;
     bNew:bool;
  end;

var
  f_RealtyL11: Tf_RealtyL11;


implementation

uses data, main,RealtyL11A;

{$R *.dfm}

procedure Tf_RealtyL11.FormShow(Sender: TObject);
var
    firstNode, tmpNode1,tmpNode2,tmpNode3: TTreeNode;
    rootnode:TTreenode;
    cnode:TTreenode;
    i:integer;
    t1,t2,t3,t4,t5:string;
    r1,r2,r3,r4,r5,r6:string;
const
      s:Array[0..59] of AnsiString=('组织机构类别','部门属性','付费项目','班次','保证金项目','仓库单据业务类型','朝向','车辆类型',
          '车辆品牌','车辆维护类型','车辆状态','单位','单位员工职位等级','房型',
          '费用调整类型','服务类别','服务评价','岗亭','岗位','回访方式',
          '计量单位','检查结果','结算方式','客户人员关系','客户事件类别',
          '领料用途','楼宇结构','楼宇类型','满意程度',
          '片区','票据种类','器材','清洁绿化项目','权属类型','入伙登记收费项目',
          '入库状态','收费项目类别','停车场类型','投诉方式','投诉类别',
          '图书类别','文档分类','文档框架','文化程度',
          '消防等级','消防器材类型','消防器材状态','颜色','验收结果','要求处理事项',
          '用途','证件类别','职称','职务','职员类别',
          '治安事件类型','周期','装修验收项目','租赁收费方式',
          '组织机构类别');
begin
    FirstNode := treeview1.Items.GetFirstNode;
    tmpNode1 := treeview1.Items.AddChild(firstNode,'辅助资料集合');

    for i:=0 to 59 do treeview1.Items.AddChild(tmpNode1,s[i]);

    treeview1.images:=ImageList1;
    tmpNode1.ImageIndex:=1;

    treeview1.Items.Item[0].Selected := true;
    treeview1.AutoExpand:=true;
end;

procedure Tf_RealtyL11.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
    i:integer;
    d,d1,d2:double;
begin
    if key=VK_ESCAPE then BESCClick(Sender);
end;

procedure Tf_RealtyL11.TreeView1Click(Sender: TObject);
var
    s1:string;
    Query:TADOQuery;
    i,j:integer;
begin
    s1:= treeview1.selected.text;

    listview1.Items.Clear;

    if s1='辅助资料集合' then
    begin
        sTable:='-';
        Label1.Caption:='';
        BInsert.Enabled:=false;
        BDelete.Enabled:=false;
        Button1.Enabled:=false;
    end
    else
    begin
        sTable:='辅助资料';
        Label1.Caption:=s1;
        sStyle:=s1;
        BInsert.Enabled:=true;
        BDelete.Enabled:=true;
        Button1.Enabled:=true;

        i:=0;
        Query:=TADOQuery.Create(nil);
        Query.Connection:=DataModuleADO.ADOConnection1;
        Query.SQL.Add('select * from '+sTable+' where 类别='''+sStyle+'''');
        Query.Open ;
        while not query.Eof do
        begin
            inc(i);

            with listview1.Items.Add do
            begin
                caption:=inttostr(i);
                subitems.Add(query.fieldbyname('编号').Value);
                subitems.Add(query.fieldbyname('名称').Value);
                subitems.Add(query.fieldbyname('说明').Value);
                subitems.Add(query.fieldbyname('是否预设').Value);
            end;

            query.Next ;
        end;
    end;

    if listview1.Items.Count>0 then listview1.Items.Item[0].Selected:=true;
end;

procedure Tf_RealtyL11.BInsertClick(Sender: TObject);
begin
    if treeview1.Selected.Level=0 then
    begin
        showmessage('请先选择辅助资料类别');
        exit;
    end;

    bNew:=true;
    f_RealtyL11A:=Tf_RealtyL11A.Create(self);
    f_RealtyL11A.showmodal;
end;

procedure Tf_RealtyL11.BDeleteClick(Sender: TObject);
var
   i,j,rows:integer;
   d1,d2:double;
   s:string;
   Query:TADOQuery;
begin
    if treeview1.Selected.Level=0 then
    begin
        showmessage('请先选择辅助资料类别');
        exit;
    end;

    if listview1.SelCount=0 then exit;

    if listview1.Selected.SubItems[1]='管理处' then
    begin
        showmessage('管理处不能删除。');
        exit;
    end;

    if(Application.MessageBox(PChar('确认要删除所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=2) then exit;

    Query:=TADOQuery.Create(nil);
    Query.Connection := DataModuleADO.ADOConnection1;
    DataModuleADO.ADOConnection1.BeginTrans;
    query.sql.Clear ;
    Query.SQL.Text:='delete from '+sTable+' where 编号='''+listview1.Selected.SubItems[0]+''' and 类别='''+f_RealtyL11.TreeView1.Selected.Text+'''';
    query.ExecSQL;
    DataModuleADO.ADOConnection1.CommitTrans;

    query.Close;
    query.Free;

    listview1.DeleteSelected;

    if listview1.Items.Count>1 then ListView1.Items.Item[0].Selected:=true;

    for i:=0 to listview1.Items.Count-1 do
    begin
        listview1.Items.Item[i].Caption:=inttostr(i+1);
    end;
end;




procedure Tf_RealtyL11.BESCClick(Sender: TObject);
begin
    close();
End;



procedure Tf_RealtyL11.Button1Click(Sender: TObject);
begin
    if treeview1.Selected.Level=0 then
    begin
        showmessage('请先选择辅助资料类别');
        exit;
    end;
    
    if listview1.SelCount=0 then exit;

    if listview1.Selected.SubItems[1]='管理处' then
    begin
        showmessage('管理处不能修改。');
        exit;
    end;

    bNew:=false;
    f_RealtyL11A:=Tf_RealtyL11A.Create(self);
    f_RealtyL11A.showmodal;
end;

procedure Tf_RealtyL11.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;

end.