realtyf51a.pas

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

    //  3 定义数据集
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;
    Query2:=TADOQuery.Create(nil);
    Query2.Connection:=DataModuleADO.ADOConnection1;
    Query3:=TADOQuery.Create(nil);
    Query3.Connection:=DataModuleADO.ADOConnection1;


    // 4 新增
    if f_RealtyF51.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 装修申请(单号,房间,客户,装修开始时间,装修保证金,装修公司,拟结束时间,施工负责人,';
        s:=s+'联系电话,装修项目,备注,操作员,修订,审核,审核时间,审核人,审核意见) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13,:s14,:s15,:s16,:s17)';

        query.sql.Clear ;
        query.sql.add(s);
        query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
        query.Parameters.ParamByName('s2').Value:=trim(s4);
        query.Parameters.ParamByName('s3').Value:=trim(Edit3.Text);
        query.Parameters.ParamByName('s4').Value:=datetostr(Edit4.date);
        query.Parameters.ParamByName('s5').Value:=trim(Edit5.Text);
        query.Parameters.ParamByName('s6').Value:=trim(Edit6.text);
        query.Parameters.ParamByName('s7').Value:=datetostr(Edit7.date);
        query.Parameters.ParamByName('s8').Value:=trim(Edit8.Text);
        query.Parameters.ParamByName('s9').Value:=trim(Edit9.Text);
        query.Parameters.ParamByName('s10').Value:=trim(Edit10.Text);
        query.Parameters.ParamByName('s11').Value:=trim(Edit11.Text);
        query.Parameters.ParamByName('s12').Value:=trim(Edit12.Text);
        query.Parameters.ParamByName('s13').Value:=trim(Edit13.Text);
        query.Parameters.ParamByName('s14').Value:='N';
        query.Parameters.ParamByName('s15').Value:='-';
        query.Parameters.ParamByName('s16').Value:='-';
        query.Parameters.ParamByName('s17').Value:='-';

        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[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
            listview1.Items.Item[i].SubItems[0]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[0]);

            s:='insert into 装修收费(收费项目,收费金额,收费时间,单号) values(:s1,:s2,:s3,:s4)';
            query.SQL.Clear;
            query.SQL.Add(s);
            query.Parameters.ParamByName('s1').Value:=trim(listview1.Items.Item[i].Caption);
            query.Parameters.ParamByName('s2').Value:=strtofloat(listview1.Items.Item[i].SubItems[0]);
            query.Parameters.ParamByName('s3').Value:=trim(listview1.Items.Item[i].SubItems[1]);
            query.Parameters.ParamByName('s4').Value:=trim(edit1.Text);

            DataModuleADO.ADOConnection1.BeginTrans;
            query.ExecSQL;
            DataModuleADO.ADOConnection1.CommitTrans;
        end;
        showmessage('保存成功-');


        //   三 追加数据到父窗口listview中
        query.sql.clear;
        query.SQL.Add('select * from 装修申请 where 单号='''+edit1.Text+'''');
        query.Open;
        if query.recordcount>0 then
        begin
            with f_RealtyF51.listview1.Items.Add do
            begin
                s3:=mainform.getName('房间',query.fieldbyname('房间').Value);

                caption:=query.fieldbyname('单号').Value;
                subitems.Add(s3);
                subitems.Add(query.fieldbyname('客户').Value);

                query2.SQL.Clear;
                query2.SQL.Add('select * from 客户资料 where 客户名称='''+query.fieldbyname('客户').Value+'''');
                query2.Open;
                if query2.RecordCount>0 then
                begin
                    subitems.Add(query2.fieldbyname('电话').Value);
                end
                else
                begin
                    subitems.Add('');
                end;

                subitems.Add(query.fieldbyname('拟结束时间').Value);
                subitems.Add('');
                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(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
                    query2.SQL.Clear;
                    query2.SQL.Add('select * from 管理区 where 编号='''+query1.fieldbyname('管理区').Value+'''');
                    query2.Open;
                    if query2.RecordCount>0 then s1:=query2.fieldbyname('名称').Value;

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

                    subitems.Add(s2);
                    subitems.Add(s1);
                end;
            end;
        end;

        query2.Close;
        query2.Free;
        query1.Close;
        query1.Free;
        query.Close;
        query.Free;

        //   四 清空字段、设置自动编号并移动光标到第一个录入字段的输入框中
        getId;
        edit2.Text:='';
        edit3.Text:='';
        edit5.Text:='';
        edit4.date:=date;
        edit7.date:=date;
        edit8.Text:='';
        edit9.Text:='';
        edit10.Text:='';
        edit11.Text:='';
        listview1.Items.Clear;

        Edit1.SetFocus;
    end;



    //  5 修改
    if f_RealtyF51.bnew=false then
    begin
        // 一更新主表

          s:='update 装修申请 set 单号='''+edit1.text;
          s:=s+''',房间='''+s4;
          s:=s+''',客户='''+edit3.Text;
          s:=s+''',装修开始时间='''+datetostr(edit4.date);
          s:=s+''',装修保证金='+edit5.Text;
          s:=s+',装修公司='''+edit6.text;
          s:=s+''',拟结束时间='''+datetostr(edit7.date);
          s:=s+''',施工负责人='''+edit8.Text;
          s:=s+''',联系电话='''+edit9.Text;
          s:=s+''',装修项目='''+edit10.Text;
          s:=s+''',备注='''+edit11.Text;
          s:=s+''',操作员='''+edit12.Text;
          s:=s+''',修订='''+edit13.Text;
          s:=s+''' where 单号='''+f_RealtyF51.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_RealtyF51.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[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
            listview1.Items.Item[i].SubItems[0]:=mainform.StdDou2(listview1.Items.Item[i].SubItems[0]);
            
            s:='insert into 装修收费(收费项目,收费金额,收费时间,单号) values(:s1,:s2,:s3,:s4)';
            query.SQL.Clear;
            query.SQL.Add(s);
            query.Parameters.ParamByName('s1').Value:=trim(listview1.Items.Item[i].Caption);
            query.Parameters.ParamByName('s2').Value:=strtofloat(listview1.Items.Item[i].SubItems[0]);
            query.Parameters.ParamByName('s3').Value:=trim(listview1.Items.Item[i].SubItems[1]);
            query.Parameters.ParamByName('s4').Value:=trim(edit1.Text);

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


        //   三 更新父窗口listview中的当前行数据
        query.SQL.Clear;
        query.SQL.Add('select * from 装修申请 where 单号='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
            with f_RealtyF51.listview1.Selected do
            begin
                s3:=mainform.getName('房间',query.fieldbyname('房间').Value);

                caption:=query.fieldbyname('单号').Value;
                subitems[0]:=s3;
                subitems[1]:=query.fieldbyname('客户').Value;

                query2.SQL.Clear;
                query2.SQL.Add('select * from 客户资料 where 客户名称='''+query.fieldbyname('客户').Value+'''');
                query2.Open;
                if query2.RecordCount>0 then
                begin
                    subitems[2]:=query2.fieldbyname('电话').Value;
                end
                else
                begin
                    subitems[2]:='';
                end;

                subitems[3]:=query.fieldbyname('拟结束时间').Value;

                query1.SQL.clear;
                query1.SQL.Add('select * from 装修验收 where 申请单号 ='''+query.fieldbyname('单号').Value+'''');
                query1.Open;
                if query1.RecordCount>0 then        subitems[4]:=query1.fieldbyname('验收日期').Value
                else  subitems[4]:='';

                subitems[5]:=query.fieldbyname('施工负责人').Value;
                subitems[6]:=query.fieldbyname('联系电话').Value;
                subitems[7]:=query.fieldbyname('装修项目').Value;
                subitems[8]:=query.fieldbyname('装修公司').Value;
                subitems[9]:=query.fieldbyname('审核').Value;
                subitems[10]:=query.fieldbyname('审核时间').Value;
                subitems[11]:=query.fieldbyname('审核人').Value;
                subitems[12]:=query.fieldbyname('审核意见').Value;
                subitems[13]:=query.fieldbyname('操作员').Value;

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

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

                    subitems[14]:=s2;
                    subitems[15]:=s1;
                end;
            end;
        end;
        query2.Close;
        query2.Free;
        query1.Close;
        query1.Free;
        query.Close;
        query.Free;

        //   四 关闭窗口
        close;
    end;

end;

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

procedure Tf_RealtyF51A.Button2Click(Sender: TObject);
begin
    f_RealtyL33:=Tf_RealtyL33.Create(self);
    f_RealtyL33.Button2.Visible:=true;
    f_RealtyL33.ShowModal;

    if  f_RealtyL33.bOk=true then
    begin
        edit6.Text:=f_RealtyL33.sName;
    end;
end;

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

end.