realtyb15a.pas

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

        exit;
    end;

    if combobox1.Text='' then combobox1.Text:='-';
    if edit3.Text='' then edit3.Text:='-';
    if Memo1.Lines.Text='' then Memo1.Lines.Text:='-';

    query:=TADOquery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;
    query1:=TADOquery.Create(nil);
    query1.Connection:=DataModuleADO.ADOConnection1;

    if f_RealtyB51.bMod then
    begin
        s:='update 客户事件 set 编号='''+edit4.Text;
        s:=s+''',客户事件类别='''+combobox1.Text;
        s:=s+''',日期='''+datetostr(datetimepicker1.Date);
        s:=s+''',房间='''+k1;
        s:=s+''',客户='''+edit2.Text;
        s:=s+''',经办人='''+edit3.Text;
        s:=s+''',事件描述='''+Memo1.Lines.Text;
        s:=s+''' where 编号='''+mainform.t1+'''';

        DataModuleADO.ADOConnection1.BeginTrans;
        query.SQL.Text:=s;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        query.SQL.Clear;
        Query.SQL.Add('select * from 客户事件 where 编号 ='''+edit4.text+'''');
        Query.Open ;
        if query.recordcount>0 then
        begin
            s1:='-';
            s2:='-';
            s3:='-';
            s4:='-';
            s5:='-';
            s6:='-';
            s7:='-';
            s8:='-';
            s9:='-';

            query1.SQL.Clear;
            query1.SQL.Add('select * from 客户资料 where 客户名称 like ''%'+query.fieldbyname('客户').value+'%''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s1:=query1.fieldbyname('电话').Value;
                s2:=query1.fieldbyname('客户类型').Value;
                s3:=query1.fieldbyname('工作单位').Value;
            end;

            query1.SQL.Clear;
            query1.SQL.Add('select * from 职员 where 名称 like ''%'+query.fieldbyname('经办人').Value+'%''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s4:=query1.fieldbyname('职务').Value;
                s5:=query1.fieldbyname('岗位').Value;
            end;


            query1.SQL.Clear;
            query1.SQL.Add('select * from 房间 where 编号 like ''%'+query.fieldbyname('房间').Value+'%''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s6:=query1.fieldbyname('名称').Value;
                r1:=query1.fieldbyname('管理处').Value;
                r2:=query1.fieldbyname('管理区').Value;
                r3:=query1.fieldbyname('楼宇').Value;
            end;

            query1.sql.Clear;
            query1.SQL.Add('select * from 楼宇 where 编号 ='''+r3+'''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s7:=query1.fieldbyname('名称').Value;
            end;

            query1.SQL.Clear;
            query1.SQL.Add('select * from 管理区 where 编号='''+r2+'''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s8:=query1.fieldbyname('名称').Value;
            end;

            query1.SQL.Clear;
            query1.SQL.Add('select * from 组织机构 where 编号='''+r1+'''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s9:=query1.fieldbyname('名称').Value;
            end;

            with f_RealtyB51.ListView1.selected do
            begin
                Caption:=Query.FieldByName('编号').Value;
                SubItems[0]:=s9;
                SubItems[1]:=s8;
                SubItems[2]:=s7;
                SubItems[3]:=query.fieldbyname('房间').Value;

                SubItems[4]:=s6;
                SubItems[5]:=Query.FieldByName('客户').Value;
                SubItems[6]:=Query.FieldByName('客户事件类别').Value;
                SubItems[7]:=Query.FieldByName('日期').Value;
                SubItems[8]:=Query.FieldByName('事件描述').Value;

                SubItems[9]:=s1;
                SubItems[10]:=s2;
                SubItems[11]:=s3;
                SubItems[12]:=Query.FieldByName('经办人').Value;
                SubItems[13]:=s4;

                SubItems[14]:=s5;
            end;
        end;
        query1.Close;
        query1.Free;
        query.Close;
        query.Free;

        close;
    end
    else
    begin
        s:='insert into 客户事件 (编号,客户事件类别,日期,房间,客户,经办人,事件描述,审核)';
        s:=s+'values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8)';

        query.sql.clear;
        query.SQL.Add(s);

        query.Parameters.ParamByName('s1').Value:=edit4.text;
        query.Parameters.ParamByName('s2').Value:=combobox1.Text;
        query.Parameters.ParamByName('s3').Value:=datetostr(datetimepicker1.Date);
        query.Parameters.ParamByName('s4').Value:=k1;
        query.Parameters.ParamByName('s5').Value:=edit2.Text;
        query.Parameters.ParamByName('s6').Value:=edit3.Text;
        query.Parameters.ParamByName('s7').Value:=Memo1.Lines.Text;
        query.Parameters.ParamByName('s8').Value:='N';


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

         showmessage('保存成功!');

        query.SQL.Clear;
        Query.SQL.Add('select * from 客户事件 where 编号 ='''+edit4.text+'''');
        Query.Open ;
        if query.recordcount>0 then
        begin
            s1:='-';
            s2:='-';
            s3:='-';
            s4:='-';
            s5:='-';
            s6:='-';
            s7:='-';
            s8:='-';
            s9:='-';

            query1.SQL.Clear;
            query1.SQL.Add('select * from 客户资料 where 客户名称 like ''%'+query.fieldbyname('客户').value+'%''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s1:=query1.fieldbyname('电话').Value;
                s2:=query1.fieldbyname('客户类型').Value;
                s3:=query1.fieldbyname('工作单位').Value;
            end;

            query1.SQL.Clear;
            query1.SQL.Add('select * from 职员 where 名称 like ''%'+query.fieldbyname('经办人').Value+'%''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s4:=query1.fieldbyname('职务').Value;
                s5:=query1.fieldbyname('岗位').Value;
            end;


            query1.SQL.Clear;
            query1.SQL.Add('select * from 房间 where 编号 like ''%'+query.fieldbyname('房间').Value+'%''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s6:=query1.fieldbyname('名称').Value;
                r1:=query1.fieldbyname('管理处').Value;
                r2:=query1.fieldbyname('管理区').Value;
                r3:=query1.fieldbyname('楼宇').Value;
            end;

            query1.sql.Clear;
            query1.SQL.Add('select * from 楼宇 where 编号 ='''+r3+'''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s7:=query1.fieldbyname('名称').Value;
            end;

            query1.SQL.Clear;
            query1.SQL.Add('select * from 管理区 where 编号='''+r2+'''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s8:=query1.fieldbyname('名称').Value;
            end;

            query1.SQL.Clear;
            query1.SQL.Add('select * from 组织机构 where 编号='''+r1+'''');
            query1.Open;
            if query1.RecordCount>0 then
            begin
                s9:=query1.fieldbyname('名称').Value;
            end;

            with f_RealtyB51.ListView1.Items.Add do
            begin
                Caption:=Query.FieldByName('编号').Value;
                SubItems.Add(s9);
                SubItems.Add(s8);
                SubItems.Add(s7);
                SubItems.Add(query.fieldbyname('房间').Value);

                SubItems.Add(s6);
                SubItems.Add(Query.FieldByName('客户').Value);
                SubItems.Add(Query.FieldByName('客户事件类别').Value);
                SubItems.Add(Query.FieldByName('日期').Value);
                SubItems.Add(Query.FieldByName('事件描述').Value);

                SubItems.Add(s1);
                SubItems.Add(s2);
                SubItems.Add(s3);
                SubItems.Add(Query.FieldByName('经办人').Value);
                SubItems.Add(s4);

                SubItems.Add(s5);

            end;
        end;
        query1.Close;
        query1.Free;
        query.Close;
        query.Free;

        if f_RealtyB51.listview1.Items.Count > 0 then f_RealtyB51.ListView1.Items.Item[0].Selected := True;

        getID;

        edit1.Text:='';
        edit2.Text:='';
        edit3.Text:='';
        Memo1.Lines.Text:='';

        Edit4.setfocus;
    end;

end;

procedure Tf_RealtyB15A.Button4Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyB15A.Combobox1Select(Sender: TObject);
begin
    if Combobox1.Text='新增客户事件类别' then
    begin
        mainform.t1:='客户事件类别';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

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

end.