realtyl22a.pas

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

         Edit3.SetFocus;
         exit;
      end;

     if Edit4.Text='' then
     begin
         showmessage('请选择部门属性。');
         Edit4.SetFocus;
         exit;
      end;

     if Edit5.Text='' then
     begin
         showmessage('负责人不能为空。');
         Edit5.SetFocus;
         exit;
      end;

     if Edit2.Text='' then
     begin
         showmessage('名称不能为空。');
         Edit2.SetFocus;
         exit;
      end;

      if edit6.text='' then edit6.Text:='-';

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

      if f_RealtyL22.bNew=true then
      begin
          query.SQL.Clear;
          Query.SQL.Add('select * from 部门 where 单号='''+Edit1.text+'''');
          Query.Open ;
          if query.RecordCount>0 then
          begin
              showmessage('单号重复，请重新输入');
              Edit1.SetFocus;
              query.Close ;
              query.Free ;
              exit;
          end;


          s := 'insert into 部门(单号,名称,所属组织机构,负责人,部门属性,备注) values(:s1,:s2,:s3,:s4,:s5,:s6)';

          query.sql.Clear ;
          query.sql.add(s);
          query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
          query.Parameters.ParamByName('s2').Value:=Edit2.text;
          query.Parameters.ParamByName('s3').Value:=trim(Edit3.Text);
          query.Parameters.ParamByName('s4').Value:=trim(Edit5.Text);
          query.Parameters.ParamByName('s5').Value:=trim(Edit4.TEXT);
          query.Parameters.ParamByName('s6').Value:=trim(Edit6.text);

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

          for i:=0 to listview1.items.count-1 do
          begin
              if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';
              if listview1.Items.Item[i].SubItems[0]='' then listview1.Items.Item[i].SubItems[0]:='-';
              if listview1.Items.Item[i].SubItems[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
              if listview1.Items.Item[i].SubItems[2]='' then listview1.Items.Item[i].SubItems[2]:='-';
              if listview1.Items.Item[i].SubItems[3]='' then listview1.Items.Item[i].SubItems[3]:='-';
              if listview1.Items.Item[i].SubItems[4]='' then listview1.Items.Item[i].SubItems[4]:='-';
              if listview1.Items.Item[i].SubItems[5]='' then listview1.Items.Item[i].SubItems[5]:='-';
              if listview1.Items.Item[i].SubItems[6]='' then listview1.Items.Item[i].SubItems[6]:='-';
              if listview1.Items.Item[i].SubItems[7]='' then listview1.Items.Item[i].SubItems[7]:='-';
              if listview1.Items.Item[i].SubItems[8]='' then listview1.Items.Item[i].SubItems[8]:='-';

              s := 'insert into 部门联系方式(单号,联系人姓名,电话1,电话2,移动电话,传真,电子邮件,MSN,';
              s:=s+'QQ号,地址,备注) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11)';

              query.sql.Clear ;
              query.sql.add(s);
              query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
              query.Parameters.ParamByName('s2').Value:=listview1.items.item[i].caption;
              query.Parameters.ParamByName('s3').Value:=trim(listview1.items.item[i].subitems[0]);
              query.Parameters.ParamByName('s4').Value:=trim(listview1.items.item[i].subitems[1]);
              query.Parameters.ParamByName('s5').Value:=trim(listview1.items.item[i].subitems[2]);
              query.Parameters.ParamByName('s6').Value:=trim(listview1.items.item[i].subitems[3]);
              query.Parameters.ParamByName('s7').Value:=trim(listview1.items.item[i].subitems[4]);
              query.Parameters.ParamByName('s8').Value:=trim(listview1.items.item[i].subitems[5]);
              query.Parameters.ParamByName('s9').Value:=trim(listview1.items.item[i].subitems[6]);
              query.Parameters.ParamByName('s10').Value:=trim(listview1.items.item[i].subitems[7]);
              query.Parameters.ParamByName('s11').Value:=trim(listview1.items.item[i].subitems[8]);

              DataModuleADO.ADOConnection1.BeginTrans;
              query.execsql;
              DataModuleADO.ADOConnection1.CommitTrans;
          end;
          showmessage('保存成功。');  
          query.SQL.Clear;
          query.SQL.Add('select * from 部门 where 单号='''+edit1.Text+'''');
          query.Open;
          if query.recordcount>0 then
          begin
              with f_RealtyL22.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);
              end;
          end;
          query.Close;
          query.Free;


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


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

          edit1.SetFocus;
    end;


    if f_RealtyL22.bNew=false then
    begin
        s:='update 部门 set 单号='''+edit1.text;
        s:=s+''',名称='''+edit2.text;
        s:=s+''',所属组织机构='''+edit3.text;
        s:=s+''',部门属性='''+edit4.text;
        s:=s+''',负责人='''+edit5.text;
        s:=s+''',备注='''+edit6.text;
        s:=s+''' where 单号='''+f_RealtyL22.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_RealtyL22.listview1.Selected.Caption+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;


        for i:=0 to listview1.items.count-1 do
          begin
              if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';
              if listview1.Items.Item[i].SubItems[0]='' then listview1.Items.Item[i].SubItems[0]:='-';
              if listview1.Items.Item[i].SubItems[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
              if listview1.Items.Item[i].SubItems[2]='' then listview1.Items.Item[i].SubItems[2]:='-';
              if listview1.Items.Item[i].SubItems[3]='' then listview1.Items.Item[i].SubItems[3]:='-';
              if listview1.Items.Item[i].SubItems[4]='' then listview1.Items.Item[i].SubItems[4]:='-';
              if listview1.Items.Item[i].SubItems[5]='' then listview1.Items.Item[i].SubItems[5]:='-';
              if listview1.Items.Item[i].SubItems[6]='' then listview1.Items.Item[i].SubItems[6]:='-';
              if listview1.Items.Item[i].SubItems[7]='' then listview1.Items.Item[i].SubItems[7]:='-';
              if listview1.Items.Item[i].SubItems[8]='' then listview1.Items.Item[i].SubItems[8]:='-';




              s := 'insert into 部门联系方式(单号,联系人姓名,电话1,电话2,移动电话,传真,电子邮件,MSN,';
              s:=s+'QQ号,地址,备注) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11)';

              query.sql.Clear ;
              query.sql.add(s);
              query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
              query.Parameters.ParamByName('s2').Value:=listview1.items.item[i].caption;
              query.Parameters.ParamByName('s3').Value:=trim(listview1.items.item[i].subitems[0]);
              query.Parameters.ParamByName('s4').Value:=trim(listview1.items.item[i].subitems[1]);
              query.Parameters.ParamByName('s5').Value:=trim(listview1.items.item[i].subitems[2]);
              query.Parameters.ParamByName('s6').Value:=trim(listview1.items.item[i].subitems[3]);
              query.Parameters.ParamByName('s7').Value:=trim(listview1.items.item[i].subitems[4]);
              query.Parameters.ParamByName('s8').Value:=trim(listview1.items.item[i].subitems[5]);
              query.Parameters.ParamByName('s9').Value:=trim(listview1.items.item[i].subitems[6]);
              query.Parameters.ParamByName('s10').Value:=trim(listview1.items.item[i].subitems[7]);
              query.Parameters.ParamByName('s11').Value:=trim(listview1.items.item[i].subitems[8]);

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


        query.sql.clear;
        query.SQL.Add('select * from 部门 where 单号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            with f_RealtyL22.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;
            end;
        end;
        query.Close;
        query.Free;
        close;
    end;  

end;

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

procedure Tf_RealtyL22A.edit4Select(Sender: TObject);
begin
    if edit4.Text='新增部门属性' then
    begin
        mainform.t1:='部门属性';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

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

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

end.