realtyc621.pas

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

    if f_RealtyC62.bMod=true then
    begin 
        DataModuleADO.ADOConnection1.BeginTrans;
        query.SQL.Text:='delete  from 保证金明细 where 单号='''+f_RealtyC62.ListView1.Selected.Caption+'''';
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;

        s:='update 保证金 set 单号='''+edit1.Text;
        s:=s+''',客户='''+r1;
        s:=s+''',房间='''+mainform.getNum(edit3.Text);
        s:=s+''',结算方式='''+edit4.Text;
        s:=s+''',保证金额='+edit5.Text;
        s:=s+',收款日期='''+datetostr(datetimepicker1.Date);
        s:=s+''',收据号='''+edit6.Text;
        s:=s+''',备注='''+Memo1.Lines.Text;
        s:=s+''',制单人='''+edit8.Text;
        s:=s+''',修订人='''+edit9.Text;
        s:=s+''' where 单号='''+f_RealtyC62.ListView1.Selected.Caption+'''';

        query.SQL.Clear;
        query.sql.Add(s);
        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:='-';
                listview1.Items.Item[i].SubItems[0]:=mainform.stddou2(listview1.Items.Item[i].SubItems[0]);


                s:='insert into 保证金明细 (单号,保证金项目,保证金额,退款金额)';
                s:=s+'values (:s1,:s2,:s3,:s4)';

                query.sql.clear;
                query.SQL.add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.text;
                query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].Caption;
                query.Parameters.ParamByName('s3').Value:=strtofloat(listview1.Items.Item[i].subitems[0]);
                query.Parameters.ParamByName('s4').Value:=0;

                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
             s1:='-';
             s2:='-';
             s3:='-';
             s4:='-';
             d1:=0.00;
             d2:=0.00;

             query1.SQL.clear;
             query1.SQL.add('select * from 房间 where 编号='''+query.fieldbyname('房间').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then
             begin
                 s1:=query1.fieldbyname('名称').Value;
                 s2:=query1.fieldbyname('楼宇').Value;
                 s3:=query1.fieldbyname('管理区').Value;
                 s4:=query1.fieldbyname('管理处').Value;
             end;

             query1.SQL.clear;
             query1.SQL.add('select * from 客户资料 where 客户代码='''+query.fieldbyname('客户').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then
             begin
                 s5:=query1.fieldbyname('客户名称').Value;
             end;

             with f_RealtyC62.Listview1.Selected do
             begin
                  d1:=strtofloat(Query.FieldByName('保证金额').Value);

                  Caption:=Query.FieldByName('单号').Value;
                  SubItems[0]:=s1;
                  SubItems[1]:=s5;
                  SubItems[2]:=Query.FieldByName('收据号').Value;
                  SubItems[3]:=floattostr(d1);
                  SubItems[4]:=Query.FieldByName('结算方式').Value;
                  SubItems[5]:=Query.FieldByName('制单人').Value;
                  SubItems[6]:=Query.FieldByName('修订人').Value;

                  SubItems[7]:=Query.FieldByName('收款日期').Value;
                  SubItems[8]:=mainform.getName('楼宇',s2);
                  SubItems[9]:=mainform.getName('管理区',s3);
                  SubItems[10]:=mainform.getName('组织机构',s4);
             end;
        end;
        query1.Close;
        query1.free;
        query.Close;
        query.free;
        close;
    end
    else
    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+'收款日期,收据号,备注,制单人,';
        s:=s+'修订人,审核,退款金额)';
        s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
        s:=s+':s6,:s7,:s8,:s9,:s10,:s11,:s12)';

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

        query.Parameters.ParamByName('s1').Value:=edit1.Text;
        query.Parameters.ParamByName('s2').Value:=r1;
        query.Parameters.ParamByName('s3').Value:=mainform.getNum(edit3.text);
        query.Parameters.ParamByName('s4').Value:=edit4.text;
        query.Parameters.ParamByName('s5').Value:=strtofloat(edit5.text);
        query.Parameters.ParamByName('s6').Value:=datetostr(datetimepicker1.date);
        query.Parameters.ParamByName('s7').Value:=edit6.text;
        query.Parameters.ParamByName('s8').Value:=Memo1.Lines.Text;
        query.Parameters.ParamByName('s9').Value:=edit8.text;
        query.Parameters.ParamByName('s10').Value:=edit9.text;
        query.Parameters.ParamByName('s11').Value:='N';
        query.Parameters.ParamByName('s12').Value:=0;

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

                s:='insert into 保证金明细 (单号,保证金项目,保证金额,退款金额)';
                s:=s+'values (:s1,:s2,:s3,:s4)';

                query.sql.clear;
                query.SQL.add(s);
                query.Parameters.ParamByName('s1').Value:=edit1.text;
                query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].Caption;
                query.Parameters.ParamByName('s3').Value:=strtofloat(listview1.Items.Item[i].subitems[0]);
                query.Parameters.ParamByName('s4').Value:=0;

                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
             s1:='-';
             s2:='-';
             s3:='-';
             s4:='-';
             d1:=0.00;
             d2:=0.00;

             query1.SQL.clear;
             query1.SQL.add('select * from 房间 where 编号='''+query.fieldbyname('房间').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then
             begin
                 s1:=query1.fieldbyname('名称').Value;
                 s2:=query1.fieldbyname('楼宇').Value;
                 s3:=query1.fieldbyname('管理区').Value;
                 s4:=query1.fieldbyname('管理处').Value;
             end;

             query1.SQL.clear;
             query1.SQL.add('select * from 客户资料 where 客户代码='''+query.fieldbyname('客户').Value+'''');
             query1.Open;
             if query1.RecordCount>0 then
             begin
                 s5:=query1.fieldbyname('客户名称').Value;
             end;

             with f_RealtyC62.Listview1.Items.Add do
             begin
                  d1:=strtofloat(Query.FieldByName('保证金额').Value);

                  Caption:=Query.FieldByName('单号').Value;
                  SubItems.Add(s1);
                  SubItems.Add(s5);
                  SubItems.Add(Query.FieldByName('收据号').Value);
                  SubItems.Add(floattostr(d1));
                  SubItems.Add(Query.FieldByName('结算方式').Value);
                  SubItems.Add(Query.FieldByName('制单人').Value);
                  SubItems.Add(Query.FieldByName('修订人').Value);

                  SubItems.Add(Query.FieldByName('收款日期').Value);
                  SubItems.Add(mainform.getName('楼宇',s2));
                  SubItems.Add(mainform.getName('管理区',s3));
                  SubItems.Add(mainform.getName('组织机构',s4));
             end;
        end;
        if f_RealtyC62.ListView1.Items.Count>0 then f_RealtyC62.ListView1.Items.Item[0].Selected:=true;
        query1.Close;
        query1.free;
        query.Close;
        query.free;

        getid;
        edit2.text:='';
        edit3.text:='';
        edit4.ItemIndex:=edit4.Items.IndexOf('');
        edit5.text:='';
        edit6.text:='';

        edit8.text:=czy;
        edit9.text:='';
        Memo1.Lines.Text:='';
        datetimepicker1.date:=date;
        listview1.Items.Clear;
    end;


end;

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

procedure Tf_RealtyC621.Button1Click(Sender: TObject);
begin
    f_RealtyB22:=Tf_RealtyB22.Create(self);
    f_RealtyB22.toolButton6.Visible:=true;
    f_RealtyB22.ShowModal;

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

procedure Tf_RealtyC621.Button2Click(Sender: TObject);
begin
    f_RealtyA14:=Tf_RealtyA14.Create(self);
    f_RealtyA14.ToolButton6.Visible:=true;
    f_RealtyA14.ShowModal;

    if  f_RealtyA14.bOk=true then
    begin
       edit3.Text:=f_RealtyA14.sNum+'--'+f_RealtyA14.sName;
    end;
end;

procedure Tf_RealtyC621.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_RealtyC621.ListView1Exit(Sender: TObject);
var
    i:integer;
    d1,d2:double;
begin
    d1:=0;
    d2:=0;
    for i:=0 to listview1.Items.Count-1 do
    begin
        d1:=d1+strtofloat(listview1.Items.Item[i].SubItems[0]);
    end;

    Edit5.Text:=Format('%.2f', [d1]);

end;

end.