realtyc431.pas

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

           s6:='-';
           s7:='-';
           s8:='-';
           s9:='-';
           query1.SQL.clear;
           query1.SQL.add('select * from 客户资料 where 客户代码='''+query.fieldbyname('客户').Value+'''');
           query1.Open;
           if query1.RecordCount>0 then s1:=query1.fieldbyname('客户名称').Value;

           query1.SQL.clear;
           query1.SQL.add('select * from 房间 where 编号='''+query.fieldbyname('房间').Value+'''');
           query1.Open;
           if query1.RecordCount>0 then rr:=query1.fieldbyname('名称').Value;

           query1.SQL.clear;
           query1.SQL.add('select * from 车位 where 编号='''+query.fieldbyname('车位').Value+'''');
           query1.Open;
           if query1.RecordCount>0 then
           begin
               s2:=query1.fieldbyname('停车场').Value;
               s3:=mainform.getName('停车场',s2);
               s4:=query1.fieldbyname('管理区').Value;
               s5:=mainform.getName('管理区',s4);
               s6:=query1.fieldbyname('管理处').Value;
               s7:=mainform.getName('组织机构',s6);
           end;

           query1.SQL.clear;
           query1.SQL.add('select * from 收费项目 where 编号='''+query.fieldbyname('收费项目').Value+'''');
           query1.Open;
           if query1.RecordCount>0 then s8:=query1.fieldbyname('名称').Value;

           query1.SQL.clear;
           query1.SQL.add('select * from 收费标准 where 编号='''+query.fieldbyname('收费标准').Value+'''');
           query1.Open;
           if query1.RecordCount>0 then s9:=query1.fieldbyname('名称').Value;

           with f_RealtyC43.Listview1.Items.Add do
           begin
                Caption:=s1;
                SubItems.Add(rr);
                SubItems.Add(Query.FieldByName('单号').Value);
                SubItems.Add(mainform.getName('车位', 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);
                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(Query.FieldByName('计费开始日期').Value);
                SubItems.Add(Query.FieldByName('计费结束日期').Value);
                SubItems.Add(Query.FieldByName('收费标准').Value);
                SubItems.Add(mainform.getName('收费标准',Query.FieldByName('收费标准').Value));
                SubItems.Add(Query.FieldByName('客户').Value);
           end ;
        end;
        query1.Close;
        query1.free;
        query.Close;
        query.free;

        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:='';
        edit18.Text:=czy;
        edit19.Text:='';
        edit20.Text:='';

        datetimepicker1.Date:=date;
        datetimepicker2.Date:=date;
        datetimepicker3.Date:=date;
        datetimepicker4.Date:=date;
        edit21.text:='';
        checkbox1.Checked:=false;
        checkbox1.Checked:=false;
    end; 
end;

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

procedure Tf_RealtyC431.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
        edit4.Text:=f_RealtyB22.ListView1.Selected.caption+'--'+f_RealtyB22.ListView1.Selected.SubItems[0];
    end;
end;

procedure Tf_RealtyC431.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_RealtyC431.Button3Click(Sender: TObject);
begin
    f_RealtyA15A:=Tf_RealtyA15A.Create(self);
    f_RealtyA15A.ToolButton6.Visible:=true;
    f_RealtyA15A.ShowModal;

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

procedure Tf_RealtyC431.Edit8Exit(Sender: TObject);
begin
    edit14.Text:=mainform.StdDou2(edit14.text);
    edit8.Text:=mainform.StdDou2(edit8.text);
    edit9.Text:=mainform.StdDou2(edit9.text);
    edit10.Text:=floattostr(strtofloat(edit8.text)-strtofloat(edit9.text));
    if checkbox1.Checked=true then edit15.Text:=floattostr(strtofloat(edit10.text)+strtofloat(edit14.text))
    else edit14.Text:=edit10.text;
end;

procedure Tf_RealtyC431.Edit9Exit(Sender: TObject);
begin
    edit9.Text:=mainform.StdDou2(edit9.text);
    edit8.Text:=mainform.StdDou2(edit8.text);
    if strtofloat(edit9.Text)>strtofloat(edit8.text) then
    begin
        showmessage('优惠金额不得大于金额');
    end;

    Edit12Exit(Sender);
end;

procedure Tf_RealtyC431.Edit12Exit(Sender: TObject);
var
    d1,d2:double;
begin
    d2:=0;
    edit7.Text:=mainform.StdDou2(edit7.text);
    edit8.Text:=mainform.StdDou2(edit7.text);
    edit9.Text:=mainform.StdDou2(edit9.text);

    d1:=strtofloat(edit7.text);
    d1:=d1-strtofloat(edit9.text);

    edit10.Text:=floattostr(d1);
    edit10.Text:=mainform.StdDou2(edit10.text);


    if checkbox1.Checked=true then
    begin
        edit11.Text:=mainform.StdDou2(edit11.text);
        edit12.Text:=mainform.StdDou2(edit12.text);
        edit13.Text:=mainform.StdDou2(edit13.text);

        d2:=strtofloat(edit12.text);
        //d2:=d2*strtofloat(edit12.text);

        d2:=d2-strtofloat(edit13.text);

        edit14.Text:=floattostr(d2);
        edit14.Text:=mainform.StdDou2(edit14.text);
    end
    else
    begin
        Edit11.Text:='0';
        Edit12.Text:='0';
        Edit13.Text:='0';
        Edit14.Text:='0';
        d2:=0;
    end;

    Edit15.Text:=Format('%.2f', [d1+d2]);
end;

procedure Tf_RealtyC431.Edit13Exit(Sender: TObject);
begin
    Edit12Exit(Sender);
end;

procedure Tf_RealtyC431.edit5Exit(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;
        edit7.Text:=query.fieldbyname('单价').value;
    end;

    edit9.Text:=mainform.StdDou2(edit9.text);
    edit8.Text:=mainform.StdDou2(edit8.text);
    edit10.Text:=mainform.StdDou2(edit10.text);
    edit12.Text:=mainform.StdDou2(edit12.text);
    edit13.Text:=mainform.StdDou2(edit13.text);
    edit14.Text:=mainform.StdDou2(edit14.text);
    edit15.Text:=mainform.StdDou2(edit15.text);

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

end;

procedure Tf_RealtyC431.edit5Select(Sender: TObject);
var
    query:TADOQuery;
begin
    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;

    Edit6.Items.Clear;

    query.sql.clear;
    query.SQL.Add('select * from 收费标准 where 收费项目='''+mainform.getNum(edit5.Text)+'''');
    query.Open;
    while not query.Eof do
    begin
        Edit6.Items.Add(query.fieldbyname('编号').Value+'--'+query.fieldbyname('名称').Value);
        query.Next;
    end;

end;

procedure Tf_RealtyC431.Edit7Exit(Sender: TObject);
begin
    Edit12Exit(Sender);
end;

procedure Tf_RealtyC431.Edit11Exit(Sender: TObject);
begin
    Edit12Exit(Sender);
end;

end.