realtyh21a.pas

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

          query.execsql;
          DataModuleADO.ADOConnection1.CommitTrans;

          if listview1.Items.Count>0 then
          begin
            for i:=0 to listview1.Items.Count-1 do
            begin
                if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';

                s:='insert into 绿化任务绿化项目 (单号,绿化项目) values (:s1,:s2)';

                query.SQL.Clear;
                query.SQL.Add(s);

                query.Parameters.ParamByName('s1').Value:=edit1.text;
                query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].Caption;

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

        if listview2.Items.Count>0 then
        begin
            for i:=0 to listview2.Items.Count-1 do
            begin
                if listview2.Items.Item[i].Caption='' then listview2.Items.Item[i].Caption:='-';
                if listview2.Items.Item[i].SubItems[0]='' then listview2.Items.Item[i].SubItems[0]:='-';
                if listview2.Items.Item[i].SubItems[1]='' then listview2.Items.Item[i].SubItems[1]:='-';

                s:='insert into 绿化任务清洁检查 (单号,检查人,检查结果,检查说明)values (:s1,:s2,:s3,:s4)';

                query.SQL.Clear;
                query.SQL.Add(s);

                query.Parameters.ParamByName('s1').Value:=edit1.text;
                query.Parameters.ParamByName('s2').Value:=listview2.Items.Item[i].Caption;
                query.Parameters.ParamByName('s3').Value:=listview2.Items.Item[i].subitems[0];
                query.Parameters.ParamByName('s4').Value:=listview2.Items.Item[i].subitems[1];
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;
        end;

        showmessage('保存成功。');


        query.SQL.Clear;
        query.SQL.Add('select * from 清洁绿化任务 where 单号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            with f_RealtyH21.listview1.Items.Add do
            begin
                caption:=query.fieldbyname('单号').Value;
                subitems.Add(query.fieldbyname('名称').Value);
                subitems.Add(query.fieldbyname('片区').Value);
                subitems.Add(query.fieldbyname('负责人').Value);

                query1.SQL.clear;
                query1.SQL.Add('select * from 职员 where 名称='''+query.fieldbyname('负责人').Value+'''');
                query1.open;
                if query1.RecordCount>0 then
                begin
                    subitems.Add(query1.fieldbyname('岗位').Value);
                end;
                subitems.Add(query.fieldbyname('工作要求').Value);
                subitems.Add(query.fieldbyname('备注').Value);
                subitems.Add(mainform.getName('组织机构',query.fieldbyname('组织机构').Value));
                subitems.Add(query.fieldbyname('审核').Value);
            end;
        end;
        query.Close;
        query.Free;

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


          //清空，新增
        getId;
        edit2.Text:='';
        edit5.ItemIndex:=edit5.Items.IndexOf('');
        edit6.text:='';
        edit3.Text:='';
        edit4.text:='';
        edit7.text:='';
        listview1.Items.Clear;
        listview2.Items.Clear;
    end;


    if f_RealtyH21.bNew=false then
    begin
        s:='update 清洁绿化任务 set 单号='''+edit1.text;
        s:=s+''',名称='''+edit2.text;
        s:=s+''',组织机构='''+trim(mainform.getNum(edit3.Text));
        s:=s+''',负责人='''+edit4.text;
        s:=s+''',片区='''+edit5.text;
        s:=s+''',工作要求='''+edit6.Lines.text;
        s:=s+''',备注='''+edit7.Lines.text;
        s:=s+''' where 单号='''+f_RealtyH21.ListView1.Selected.Caption+'''';

        query.SQL.Clear;
        query.SQL.Add(s);
        DataModuleADO.ADOConnection1.BeginTrans;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        DataModuleADO.ADOConnection1.BeginTrans;
        query.sql.clear;
        query.SQL.Text:='delete  from 绿化任务绿化项目 where 单号='''+f_RealtyH21.listview1.Selected.subitems[1]+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;


        DataModuleADO.ADOConnection1.BeginTrans;
        query.sql.clear;
        query.SQL.Text:='delete  from 绿化任务清洁检查 where 单号='''+f_RealtyH21.listview1.Selected.subitems[1]+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        if listview1.Items.Count>0 then
          begin
            for i:=0 to listview1.Items.Count-1 do
            begin
                if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';

                s:='insert into 绿化任务绿化项目 (单号,绿化项目) values (:s1,:s2)';

                query.SQL.Clear;
                query.SQL.Add(s);

                query.Parameters.ParamByName('s1').Value:=edit1.text;
                query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].Caption;

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

        if listview2.Items.Count>0 then
        begin
            for i:=0 to listview2.Items.Count-1 do
            begin
                if listview2.Items.Item[i].Caption='' then listview2.Items.Item[i].Caption:='-';
                if listview2.Items.Item[i].SubItems[0]='' then listview2.Items.Item[i].SubItems[0]:='-';
                if listview2.Items.Item[i].SubItems[1]='' then listview2.Items.Item[i].SubItems[1]:='-';


                s:='insert into 绿化任务清洁检查 (单号,检查人,检查结果,检查说明)values (:s1,:s2,:s3,:s4)';

                query.SQL.Clear;
                query.SQL.Add(s);

                query.Parameters.ParamByName('s1').Value:=edit1.text;
                query.Parameters.ParamByName('s2').Value:=listview2.Items.Item[i].Caption;
                query.Parameters.ParamByName('s3').Value:=listview2.Items.Item[i].subitems[0];
                query.Parameters.ParamByName('s4').Value:=listview2.Items.Item[i].subitems[1];
                DataModuleADO.ADOConnection1.BeginTrans;
                query.ExecSQL;
                DataModuleADO.ADOConnection1.CommitTrans;
            end;
        end;


        query.sql.clear;
        query.SQL.Add('select * from 清洁绿化任务 where 单号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            with f_RealtyH21.listview1.Selected do
            begin
                caption:=query.fieldbyname('单号').Value;
                subitems[0]:=query.fieldbyname('名称').Value;
                subitems[1]:=query.fieldbyname('片区').Value;
                subitems[2]:=query.fieldbyname('负责人').Value;

                query1.SQL.clear;
                query1.SQL.Add('select * from 职员 where 名称='''+query.fieldbyname('负责人').Value+'''');
                query1.open;
                if query1.RecordCount>0 then
                begin
                    subitems[3]:=query1.fieldbyname('岗位').Value;
                end;
                subitems[4]:=query.fieldbyname('工作要求').Value;
                subitems[5]:=query.fieldbyname('备注').Value;
                subitems[6]:=mainform.getName('组织机构',query.fieldbyname('组织机构').Value);
                subitems[7]:=query.fieldbyname('审核').Value;
            end;
        end;
        query1.Close;
        query1.Free;
        query.Close;
        query.Free;

        close;
    end;

end;

procedure Tf_RealtyH21A.Button5Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyH21A.Button1Click(Sender: TObject);
begin
    f_realtyI11C:=Tf_realtyI11C.Create(self);
    f_RealtyI11C.button1.Visible:=true;
    f_realtyI11C.ShowModal;

    if  f_realtyI11C.bOk=true then
    begin
        edit3.Text:=f_realtyI11C.ListView1.Selected.Caption+'--'+f_realtyI11C.ListView1.Selected.SubItems[0];
    end;
end;

procedure Tf_RealtyH21A.edit5Select(Sender: TObject);
begin
    if edit5.Text='新增片区' then
    begin
        mainform.t1:='片区';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit5.Items.Add(mainform.t1);
            edit5.ItemIndex:=edit5.Items.IndexOf(mainform.t1);
        end
        else edit5.ItemIndex:=edit5.Items.IndexOf('');
    end;
end;

procedure Tf_RealtyH21A.N1Click(Sender: TObject);
begin
    if pagecontrol1.ActivePageIndex=0 then
    begin
         bNew:=true;
        f_RealtyH21AA:=Tf_RealtyH21AA.create(self);
        f_RealtyH21AA.showmodal;
    end;
    if pagecontrol1.ActivePageIndex=1 then
    begin
         bNew:=true;
        f_RealtyH21AB:=Tf_RealtyH21AB.create(self);
        f_RealtyH21AB.showmodal;
    end;
end;

procedure Tf_RealtyH21A.e1Click(Sender: TObject);
begin
    if pagecontrol1.ActivePageIndex=0 then
    begin
        bNew:=false;
        if listview1.SelCount=0 then exit;
        f_RealtyH21AA:=Tf_RealtyH21AA.create(self);
        f_RealtyH21AA.showmodal;
    end;
    if pagecontrol1.ActivePageIndex=1 then
    begin
        bNew:=false;
        if listview2.SelCount=0 then exit;
        f_RealtyH21AB:=Tf_RealtyH21AB.create(self);
        f_RealtyH21AB.showmodal;
    end;
end;

procedure Tf_RealtyH21A.D1Click(Sender: TObject);
begin
    if pagecontrol1.ActivePageIndex=0 then
    begin
        if listview1.SelCount=0 then exit;
        if(Application.MessageBox(PChar('确认要删除所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=2) then exit;
        listview1.Selected.Delete ;
    end;
    if pagecontrol1.ActivePageIndex=1 then
    begin
        if listview2.SelCount=0 then exit;
        if(Application.MessageBox(PChar('确认要删除所选记录吗?') ,'提示',Mb_OKCANCEL+Mb_IconInformation)=2) then exit;
        listview2.Selected.Delete ;
    end;
end;

procedure Tf_RealtyH21A.ListView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    if Button=mbRight then
     PopupMenu6.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;

procedure Tf_RealtyH21A.ListView2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
    if Button=mbRight then
     PopupMenu6.Popup(mouse.CursorPos.X,mouse.CursorPos.Y);
end;

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

end.