realtya32.pas

来自「物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、」· PAS 代码 · 共 837 行 · 第 1/3 页

//del
procedure Tf_RealtyA32.Button1Click(Sender: TObject);
var
    Query:TADOQuery;
    s,s1,s2,s3:string;
begin
    if f_RealtyA32.pagecontrol1.ActivePageIndex=0 then  If ListView1.SelCount=0 Then exit;
    if f_RealtyA32.pagecontrol1.ActivePageIndex=1 then  If ListView2.SelCount=0 Then exit;
    if f_RealtyA32.pagecontrol1.ActivePageIndex=2 then  If ListView3.SelCount=0 Then exit;
    if f_RealtyA32.pagecontrol1.ActivePageIndex=3 then  If ListView4.SelCount=0 Then exit;
    if f_RealtyA32.pagecontrol1.ActivePageIndex=4 then  If ListView5.SelCount=0 Then exit;

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

    if f_RealtyA32.pagecontrol1.ActivePageIndex=0 then  s1:='管理区';
    if f_RealtyA32.pagecontrol1.ActivePageIndex=1 then  s1:='楼宇';
    if f_RealtyA32.pagecontrol1.ActivePageIndex=2 then  s1:='房间';
    if f_RealtyA32.pagecontrol1.ActivePageIndex=3 then  s1:='停车场';
    if f_RealtyA32.pagecontrol1.ActivePageIndex=4 then  s1:='车位';

    if f_RealtyA32.pagecontrol1.ActivePageIndex=0 then  s2:=listview1.Selected.SubItems[0];
    if f_RealtyA32.pagecontrol1.ActivePageIndex=1 then  s2:=listview2.Selected.SubItems[0];
    if f_RealtyA32.pagecontrol1.ActivePageIndex=2 then  s2:=listview3.Selected.SubItems[0];
    if f_RealtyA32.pagecontrol1.ActivePageIndex=3 then  s2:=listview4.Selected.SubItems[0];
    if f_RealtyA32.pagecontrol1.ActivePageIndex=4 then  s2:=listview5.Selected.SubItems[0];

    if f_RealtyA32.pagecontrol1.ActivePageIndex=0 then  s3:=listview1.Selected.SubItems[7];
    if f_RealtyA32.pagecontrol1.ActivePageIndex=1 then  s3:=listview2.Selected.SubItems[7];
    if f_RealtyA32.pagecontrol1.ActivePageIndex=2 then  s3:=listview3.Selected.SubItems[7];
    if f_RealtyA32.pagecontrol1.ActivePageIndex=3 then  s3:=listview4.Selected.SubItems[7];
    if f_RealtyA32.pagecontrol1.ActivePageIndex=4 then  s3:=listview5.Selected.SubItems[7];



    s:='select * from 房产验收 where 所属单位='''+s3;
    s:=s+''' and 类别='''+s1;
    s:=s+''' and 审核='''+'Y';
    s:=s+''' and 验收项目='''+s2+'''';

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

    query.SQL.Clear;
    query.SQL.Add(s);
    query.Open;
    if query.RecordCount>0 then
    begin
        showmessage('已经审核，不能删除。');
        exit;
    end;


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


    DataModuleADO.ADOConnection1.BeginTrans;
    Query.SQL.Text:='delete from 房产验收 where 验收项目='''+s2+''' and 所属单位='''+s3+''' and 类别='''+s1+'''';
    query.ExecSQL;
    DataModuleADO.ADOConnection1.CommitTrans;

    if f_RealtyA32.pagecontrol1.ActivePageIndex=0 then
    begin
        ListView1.Selected.Delete;
        if listview1.Items.Count > 0 then ListView1.Items.Item[0].Selected := True;
    end;

    if f_RealtyA32.pagecontrol1.ActivePageIndex=1 then
    begin
        ListView2.Selected.Delete;
        if listview2.Items.Count > 0 then ListView2.Items.Item[0].Selected := True;
    end;

    if f_RealtyA32.pagecontrol1.ActivePageIndex=2 then
    begin
        ListView3.Selected.Delete;
        if listview3.Items.Count > 0 then ListView3.Items.Item[0].Selected := True;
    end;

    if f_RealtyA32.pagecontrol1.ActivePageIndex=3 then
    begin
        ListView4.Selected.Delete;
        if listview4.Items.Count > 0 then ListView4.Items.Item[0].Selected := True;
    end;

    if f_RealtyA32.pagecontrol1.ActivePageIndex=4 then
    begin
        ListView5.Selected.Delete;
        if listview5.Items.Count > 0 then ListView5.Items.Item[0].Selected := True;
    end;


    Query.Close;
    Query.Free;
end;



//新增
procedure Tf_RealtyA32.ToolButton1Click(Sender: TObject);
begin
     if pagecontrol1.ActivePageIndex=0 then  CaptionName:='管理区验收';
     if pagecontrol1.ActivePageIndex=1 then  CaptionName:='楼宇验收';
     if pagecontrol1.ActivePageIndex=2 then  CaptionName:='房间验收';
     if pagecontrol1.ActivePageIndex=3 then  CaptionName:='停车场验收';
     if pagecontrol1.ActivePageIndex=4 then  CaptionName:='车位验收';

     bMod:=false;
     f_RealtyA321:=Tf_RealtyA321.create(self);
     f_RealtyA321.showmodal;
end;

//---------
procedure Tf_RealtyA32.PageControl1Change(Sender: TObject);
begin
    TreeView1Click(Sender);
    if pagecontrol1.ActivePageIndex=0 then  Label2.Caption:='管理区';
     if pagecontrol1.ActivePageIndex=1 then Label2.Caption:='楼宇';
     if pagecontrol1.ActivePageIndex=2 then  Label2.Caption:='房间';
     if pagecontrol1.ActivePageIndex=3 then  Label2.Caption:='停车场';
     if pagecontrol1.ActivePageIndex=4 then  Label2.Caption:='车位';
end;





procedure Tf_RealtyA32.ToolButton6Click(Sender: TObject);
begin
    N13Click(Sender);
end;


procedure Tf_RealtyA32.N13Click(Sender: TObject);
Var
    i:integer;
begin
     bMod:=true;
     if pagecontrol1.ActivePageIndex=0 then
     begin
         if listview1.SelCount=0 then
         begin
              exit;
         end
         else
         begin
             f_RealtyA321:=Tf_RealtyA321.Create(self);
             f_RealtyA321.ShowModal;
         end;
     end;

     if pagecontrol1.ActivePageIndex=1 then
     begin
         if listview2.SelCount=0 then
         begin
              exit;
         end
         else
         begin
             f_RealtyA321:=Tf_RealtyA321.Create(self);
             f_RealtyA321.ShowModal;
         end;
     end;

     if pagecontrol1.ActivePageIndex=2 then
     begin

         if listview3.SelCount=0 then
         begin
              exit;
         end
         else
         begin
             f_RealtyA321:=Tf_RealtyA321.Create(self);
             f_RealtyA321.ShowModal;
         end;
     end;

     if pagecontrol1.ActivePageIndex=3 then
     begin
         if listview4.SelCount=0 then
         begin
              exit;
         end
         else
         begin
             f_RealtyA321:=Tf_RealtyA321.Create(self);
             f_RealtyA321.ShowModal;
         end;
     end;

     if pagecontrol1.ActivePageIndex=4 then
     begin
         if listview5.SelCount=0 then
         begin
              exit;
         end
         else
         begin
             f_RealtyA321:=Tf_RealtyA321.Create(self);
             f_RealtyA321.ShowModal;
         end;
     end;
end;


//save




procedure Tf_RealtyA32.N26Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyA32.N14Click(Sender: TObject);
begin
    N14Click(Sender);
end;


procedure Tf_RealtyA32.Button3Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyA32.Button5Click(Sender: TObject);
begin



    if pagecontrol1.ActivePageIndex=0 then  If ListView1.SelCount=0 Then exit;
     if pagecontrol1.ActivePageIndex=1 then  If ListView2.SelCount=0 Then exit;
     if pagecontrol1.ActivePageIndex=2 then  If ListView3.SelCount=0 Then exit;
     if pagecontrol1.ActivePageIndex=3 then  If ListView4.SelCount=0 Then exit;
     if pagecontrol1.ActivePageIndex=4 then  If ListView5.SelCount=0 Then exit;


     if pagecontrol1.ActivePageIndex=0 then  CaptionName:='管理区验收';
     if pagecontrol1.ActivePageIndex=1 then  CaptionName:='楼宇验收';
     if pagecontrol1.ActivePageIndex=2 then  CaptionName:='房间验收';
     if pagecontrol1.ActivePageIndex=3 then  CaptionName:='停车场验收';
     if pagecontrol1.ActivePageIndex=4 then  CaptionName:='车位验收';



     bMod:=true;
     f_RealtyA321:=Tf_RealtyA321.create(self);
     f_RealtyA321.showmodal;
end;

procedure Tf_RealtyA32.TreeView1Click(Sender: TObject);
Var
    query,query1,query11:TADOQuery;
    nLevel:integer;
    s,s1,s2,s3,s4:string;
begin
    listview1.Items.Clear;
    listview2.Items.Clear;
    listview3.Items.Clear;
    listview4.Items.Clear;
    listview5.Items.Clear;

    nLevel:=treeview1.Selected.Level;

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

    //所有
    //管理区
    //其它