realtya22.pas

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

unit RealtyA22;

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_RealtyA22 = class(TForm)
    GroupBox2: TGroupBox;
    TreeView1: TTreeView;
    ImageList1: TImageList;
    BInsert: TButton;
    BDelete: TButton;
    BESC: TButton;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    ListView1: TListView;
    Button1: TButton;
    Button2: 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);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

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

var
  f_RealtyA22: Tf_RealtyA22;


implementation

uses data, main,RealtyA22A,RealtyPrint1;

{$R *.dfm}

procedure Tf_RealtyA22.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..4] of AnsiString=('管理区验收项目','楼宇验收项目','停车场验收项目',
          '房间验收项目','车位验收项目');
begin
    FirstNode := treeview1.Items.GetFirstNode;
    tmpNode1 := treeview1.Items.AddChild(firstNode,'房产验收项目');

    for i:=0 to 4 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_RealtyA22.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_RealtyA22.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);
            end;

            query.Next ;
        end;
    end;

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

procedure Tf_RealtyA22.BInsertClick(Sender: TObject);
begin
    if treeview1.Selected.Level=0 then
    begin
        showmessage('请先选择房产验收项目');
        exit;
    end;

    bNew:=true;
    f_RealtyA22A:=Tf_RealtyA22A.Create(self);
    f_RealtyA22A.showmodal;
end;

procedure Tf_RealtyA22.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(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_RealtyA22.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_RealtyA22.BESCClick(Sender: TObject);
begin
    close();
End;



procedure Tf_RealtyA22.Button1Click(Sender: TObject);
begin
    if treeview1.Selected.Level=0 then
    begin
        showmessage('请先选择房产验收项目');
        exit;
    end;
    
    if listview1.SelCount=0 then exit;
    bNew:=false;
    f_RealtyA22A:=Tf_RealtyA22A.Create(self);
    f_RealtyA22A.showmodal;
end;

procedure Tf_RealtyA22.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_RealtyA22.Button2Click(Sender: TObject);
var
    i:integer;
    Query:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    DataModuleADO.ADOConnection1.BeginTrans;
    Query.SQL.Text:='delete from temp';
    query.ExecSQL;
    DataModuleADO.ADOConnection1.CommitTrans;

    for i:=0 to listview1.Items.Count-1 do
    begin
        s:= 'insert into temp(列1,列2,列3)';
        s:=s+'values(:s1,:s2,:s3)';

        query.sql.Clear ;
        query.sql.add(s);
        query.Parameters.ParamByName('s1').Value:=listview1.Items.Item[i].Caption;
        query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].SubItems[0];
        query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].SubItems[1];
        


        DataModuleADO.ADOConnection1.BeginTrans;
        query.execsql;
        DataModuleADO.ADOConnection1.CommitTrans;
    end;

    query.Close;
    query.Free;

    sFilep:='RealtyA22.fr3';

    sTitlep:=Caption;
    sPrintc:='select * from temp';
    f_RealtyPrint1:=Tf_RealtyPrint1.Create(self);
    f_RealtyPrint1.showmodal;
end;

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

end.