realtyh41a.pas

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

          query.Parameters.ParamByName('s6').Value:=trim(Edit6.text);
          query.Parameters.ParamByName('s7').Value:=datetostr(Edit7.date);
          query.Parameters.ParamByName('s8').Value:=datetostr(Edit8.date);
          query.Parameters.ParamByName('s9').Value:=trim(Edit9.text);
          query.Parameters.ParamByName('s10').Value:='N';

          DataModuleADO.ADOConnection1.BeginTrans;
          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]:='-';
                if listview2.Items.Item[i].SubItems[2]='' then listview2.Items.Item[i].SubItems[2]:='-';

                s:='insert into 保洁任务清洁检查 (单号,检查人,检查结果,检查说明,检查时间,审核)values (:s1,:s2,:s3,:s4,:s5,:s6)';

                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];
                query.Parameters.ParamByName('s5').Value:=listview2.Items.Item[i].subitems[2];
                query.Parameters.ParamByName('s6').Value:='N';

                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_RealtyH41.listview1.Items.Add do
            begin
                caption:=query.fieldbyname('单号').Value;
                subitems.Add(query.fieldbyname('名称').Value);
                subitems.Add(query.fieldbyname('负责人').Value);
                subitems.Add(query.fieldbyname('片区').Value);
                subitems.Add(query.fieldbyname('保洁周期').Value);
                subitems.Add(query.fieldbyname('保洁开始时间').Value);
                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_RealtyH41.listview1.Items.Count>0 then f_RealtyH41.listview1.Items.Item[0].Selected:=true;


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


    if f_RealtyH41.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.text;
        s:=s+''',保洁开始时间='''+datetostr(edit7.date);
        s:=s+''',保洁结束时间='''+datetostr(edit8.date);
        s:=s+''',备注='''+edit9.text;
        s:=s+''' where 单号='''+f_RealtyH41.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_RealtyH41.listview1.Selected.Caption+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;


        DataModuleADO.ADOConnection1.BeginTrans;
        query.sql.clear;
        query.SQL.Text:='delete  from 保洁任务清洁检查 where 单号='''+f_RealtyH41.listview1.Selected.Caption+'''';
        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]:='-';
                if listview2.Items.Item[i].SubItems[2]='' then listview2.Items.Item[i].SubItems[2]:='-';

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

                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];
                query.Parameters.ParamByName('s5').Value:=listview2.Items.Item[i].subitems[2];
                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_RealtyH41.listview1.Selected do
            begin
                caption:=query.fieldbyname('单号').Value;
                subitems[0]:=query.fieldbyname('名称').Value;
                subitems[1]:=query.fieldbyname('负责人').Value;
                subitems[2]:=query.fieldbyname('片区').Value;
                subitems[3]:=query.fieldbyname('保洁周期').Value;
                subitems[4]:=query.fieldbyname('保洁开始时间').Value;
                subitems[5]:=query.fieldbyname('保洁结束时间').Value;
                subitems[6]:=query.fieldbyname('备注').Value;
                subitems[7]:=mainform.getName('组织机构',query.fieldbyname('组织机构').Value);
                subitems[8]:=query.fieldbyname('审核').Value;
            end;
        end;
        query.Close;
        query.Free;

        close;
    end;

end;

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

procedure Tf_RealtyH41A.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_RealtyH41A.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_RealtyH41A.edit6Select(Sender: TObject);
begin
    if edit6.Text='新增保洁周期' then
    begin
        mainform.t1:='保洁周期';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

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

procedure Tf_RealtyH41A.N1Click(Sender: TObject);
begin
    if pagecontrol1.ActivePageIndex=0 then
    begin
         bNew:=true;
        f_RealtyH41AA:=Tf_RealtyH41AA.create(self);
        f_RealtyH41AA.showmodal;
    end;
    if pagecontrol1.ActivePageIndex=1 then
    begin
         bNew:=true;
        f_RealtyH41AB:=Tf_RealtyH41AB.create(self);
        f_RealtyH41AB.showmodal;
    end;
end;

procedure Tf_RealtyH41A.e1Click(Sender: TObject);
begin
    if pagecontrol1.ActivePageIndex=0 then
    begin
        bNew:=false;
        if listview1.SelCount=0 then exit;
        f_RealtyH41AA:=Tf_RealtyH41AA.create(self);
        f_RealtyH41AA.showmodal;
    end;
    if pagecontrol1.ActivePageIndex=1 then
    begin
        bNew:=false;
        if listview2.SelCount=0 then exit;
        f_RealtyH41AB:=Tf_RealtyH41AB.create(self);
        f_RealtyH41AB.showmodal;
    end;
end;

procedure Tf_RealtyH41A.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_RealtyH41A.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_RealtyH41A.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_RealtyH41A.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action := caFree;
end;

end.