realtyc411.pas

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

            query.Parameters.ParamByName('s27').Value:='按房间';
            query.Parameters.ParamByName('s28').Value:=copy(datetostr(DateTimePicker1.Date),1,7);
            query.Parameters.ParamByName('s29').Value:= 'N';
            query.Parameters.ParamByName('s30').Value:= '-';

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



            query.sql.clear;
            Query.SQL.Add('select * from 常规费用 where 单号 ='''+edit1.Text+'''');
            Query.Open;
            if query.RecordCount>0 then
            begin
                s:='select * from 客户资料 where 客户代码='''+Query.FieldByName('客户').Value;
                s:=s+'''';

                query1.SQL.Clear;
                Query1.SQL.Add(s);
                Query1.Open ;
                if query1.RecordCount>0 then
                begin
                    s1:=query1.fieldbyname('客户名称').value;

                    s:='select * from 房间 where 编号='''+Query.FieldByName('房间').Value;
                    s:=s+'''';

                    query2.SQL.Clear;
                    Query2.SQL.Add(s);
                    Query2.Open ;
                    if query2.RecordCount>0 then
                    begin
                        r2:=query2.fieldbyname('名称').value;
                        s2:=query2.fieldbyname('楼宇').Value;
                        s3:=mainform.getName('楼宇',s2);
                        s4:=query2.fieldbyname('管理区').Value;
                        s5:=mainform.getName('管理区',s4);
                        s6:=query2.fieldbyname('管理处').Value;
                        s7:=mainform.getName('组织机构',s6);
                        s10:=query2.fieldbyname('建筑面积').value;


                        with f_RealtyC41.ListView1.Items.Add do
                        begin
                            Caption:=s1;
                            SubItems.Add(Query.FieldbyName('客户').Value);
                            SubItems.Add(r2);
                            SubItems.Add(Query.FieldByName('单号').Value);
                            SubItems.Add(Query.FieldByName('应收日期').Value);

                            SubItems.Add(Query.FieldByName('收费项目').Value);
                            SubItems.Add(mainform.getName('收费项目',query.FieldByName('收费项目').Value));
                            SubItems.Add(s10);  //面积
                            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);
                            SubItems.Add(Query.FieldByName('滞纳金天数').Value);
                            SubItems.Add(Query.FieldByName('应收金额').Value);


                            SubItems.Add(s6);

                            SubItems.Add(s7);
                            SubItems.Add(s4);
                            SubItems.Add(s5);
                            SubItems.Add(s2);
                            SubItems.Add(s3);

                            SubItems.Add(Query.FieldByName('收费标准').Value);
                            SubItems.Add(mainform.getName('收费标准',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);
                        end;
                    end;
                end;
            end;
        end;


        query1.Close;
        query1.free;
        query.Close;
        query.free;
        if f_RealtyC41.listview1.Items.Count > 0 then f_RealtyC41.ListView1.Items.Item[0].Selected := True;
        getid;
        edit2.Text:='';
        edit3.Text:='';
        edit4.Text:='';
        edit5.ItemIndex:=edit5.Items.IndexOf('');
        edit6.ItemIndex:=edit6.Items.IndexOf('');
        edit7.Text:='';
        edit8.Text:='';
        edit9.Text:='';
        edit10.Text:='';
        edit11.Text:='';
        edit12.Text:='';
        edit13.Text:='';
        edit14.Text:='';
        edit15.Text:='';
        edit16.Text:='';
        edit17.Text:=czy;
        edit18.Text:='';
        edit19.Text:='';
        combobox1.ItemIndex:=combobox1.Items.IndexOf('');
        datetimepicker1.Date:=date;
        datetimepicker2.Date:=date;
        datetimepicker3.Date:=date;
        datetimepicker4.Date:=date;
         edit20.Date:=date;
        checkbox1.Checked:=false;
        checkbox1.Checked:=false;
    end;


end;

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

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

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

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

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

procedure Tf_RealtyC411.Edit7Exit(Sender: TObject);
begin
    edit7.Text:=mainform.StdDou2(edit7.text);
    edit13.Text:=mainform.StdDou2(edit13.text);
    edit8.Text:=mainform.StdDou2(edit8.text);
    edit9.Text:=mainform.StdDou2(edit9.text);
    edit9.Text:=floattostr(strtofloat(edit7.text)-strtofloat(edit8.text));
    if checkbox1.Checked=true then edit14.Text:=floattostr(strtofloat(edit9.text)+strtofloat(edit13.text))
    else edit14.Text:=edit9.text;
end;

procedure Tf_RealtyC411.Edit8Exit(Sender: TObject);
begin
    edit7.Text:=mainform.StdDou2(edit7.text);
    edit8.Text:=mainform.StdDou2(edit8.text);
    if strtofloat(edit8.Text)>strtofloat(edit7.text) then
    begin
        showmessage('优惠金额不得大于金额');
    end;   
    edit13.Text:=mainform.StdDou2(edit13.text);
    edit9.Text:=mainform.StdDou2(edit9.text);
    edit9.Text:=floattostr(strtofloat(edit7.text)-strtofloat(edit8.text));

    if checkbox1.Checked=true then edit14.Text:=floattostr(strtofloat(edit9.text)+strtofloat(edit13.text))
    else edit14.Text:=edit9.text;
end;

procedure Tf_RealtyC411.Edit11Exit(Sender: TObject);
begin
    edit9.Text:=mainform.StdDou2(edit9.text);
    edit11.Text:=mainform.StdDou2(edit11.text);
    edit12.Text:=mainform.StdDou2(edit12.text);
    edit13.Text:=mainform.StdDou2(edit13.text);
    edit13.Text:=floattostr(strtofloat(edit11.text)-strtofloat(edit12.text));
    if checkbox1.Checked=true then edit14.Text:=floattostr(strtofloat(edit9.text)+strtofloat(edit13.text))
    else edit14.Text:=edit9.text;
end;

procedure Tf_RealtyC411.Edit12Exit(Sender: TObject);
begin
    edit9.Text:=mainform.StdDou2(edit9.text);
    edit11.Text:=mainform.StdDou2(edit11.text);
    edit12.Text:=mainform.StdDou2(edit12.text);
    edit13.Text:=mainform.StdDou2(edit13.text);
    edit13.Text:=floattostr(strtofloat(edit11.text)-strtofloat(edit12.text));
    if checkbox1.Checked=true then edit14.Text:=floattostr(strtofloat(edit9.text)+strtofloat(edit13.text))
    else edit14.Text:=edit9.text;
end;

procedure Tf_RealtyC411.CheckBox1Click(Sender: TObject);
begin
    edit9.Text:=mainform.StdDou2(edit9.text);
    edit13.Text:=mainform.StdDou2(edit13.text);
    if checkbox1.Checked=true then edit14.Text:=floattostr(strtofloat(edit9.text)+strtofloat(edit13.text))
    else edit14.Text:=edit9.text;
end;

procedure Tf_RealtyC411.edit5Select(Sender: TObject);
var
    query:TADOQuery;
    s:string;
begin
    if Edit2.Text='' then
    begin
        showmessage('请先选择房间');
        exit;
    end;

    Edit6.Items.Clear;

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


    query.sql.Clear;
    query.SQL.add('select * from 房间 where 编号='''+mainform.getNum(Edit2.Text)+'''');
    query.Open;
    if query.RecordCount>0 then
    begin
        s:='select * from 收费标准 where 管理区='''+query.fieldbyname('管理区').value;
        s:=s+''' and 收费项目='''+mainform.getNum(edit5.Text)+'''';

        query.sql.Clear;
        query.SQL.add(s);
        query.Open;
        if query.RecordCount>0 then
            Edit6.Items.Add(query.fieldbyname('编号').value+'--'+query.fieldbyname('名称').Value);
    end;
end;

procedure Tf_RealtyC411.edit6Exit(Sender: TObject);
var
    query:TADOQuery;
    s:string;
begin
    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;

    query.sql.clear;
    query.SQL.Add('select * from 收费标准 where 名称='''+edit6.Text+'''');
    query.Open;
    if query.RecordCount>0 then
    begin
        s:=query.fieldbyname('收取滞纳金').Value;
        if s='Y' then checkbox1.Checked:=true
        else checkbox1.Checked:=false;
        edit4.Text:=query.fieldbyname('单价').value;
    end;
    edit7.Text:=mainform.StdDou2(edit7.text);
    edit8.Text:=mainform.StdDou2(edit8.text);
    edit9.Text:=mainform.StdDou2(edit9.text);
    edit11.Text:=mainform.StdDou2(edit11.text);
    edit12.Text:=mainform.StdDou2(edit12.text);
    edit13.Text:=mainform.StdDou2(edit13.text);
    edit14.Text:=mainform.StdDou2(edit14.text);

    if checkbox1.Checked=true then edit14.Text:=floattostr(strtofloat(edit9.text)+strtofloat(edit13.text))
    else edit14.Text:=edit9.text;

end;

end.