realtyc421.pas

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

                  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(s8);

                  SubItems.Add(Query.FieldByName('收费标准').Value);
                  SubItems.Add(s9);
                  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;
        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:='';

        edit12.Text:='';
        edit13.Text:='';
        edit14.Text:='';
        edit15.Text:='';
        edit16.Text:='';
        edit17.Text:='';
        edit18.Text:='';
        edit19.Text:='';

        edit20.Text:='';
        edit21.Text:='';
        edit22.Text:='';
        edit23.Text:=czy;
        edit24.Text:='';
        edit25.Text:='';
        datetimepicker1.Date:=date;
        datetimepicker2.Date:=date;
        datetimepicker3.Date:=date;
        datetimepicker4.Date:=date;
        edit26.text:='';
        checkbox1.Checked:=false;
        checkbox1.Checked:=false;
    end;

end;

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

procedure Tf_RealtyC421.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_RealtyC421.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_RealtyC421.Edit13Exit(Sender: TObject);
begin
    edit14.Text:=mainform.StdDou2(edit14.text);
    edit13.Text:=mainform.StdDou2(edit13.text);
    edit19.Text:=mainform.StdDou2(edit19.text);
    edit16.Text:=mainform.StdDou2(edit16.text);
    edit15.Text:=floattostr(strtofloat(edit13.text)-strtofloat(edit14.text));
    if checkbox1.Checked=true then edit20.Text:=floattostr(strtofloat(edit15.text)+strtofloat(edit19.text))
    else edit20.Text:=edit15.text;

end;

procedure Tf_RealtyC421.Edit14Exit(Sender: TObject);
begin
    edit13.Text:=mainform.StdDou2(edit13.text);
    edit14.Text:=mainform.StdDou2(edit14.text);
    if strtofloat(edit14.Text)>strtofloat(edit13.text) then
    begin
        showmessage('优惠金额不得大于金额');
    end;
    Edit17Exit(Sender);
end;

procedure Tf_RealtyC421.Edit17Exit(Sender: TObject);
var
    d1,d2:double;
begin
    d2:=0;
    edit12.Text:=mainform.StdDou2(edit12.text);
    edit13.Text:=mainform.StdDou2(edit12.text);
    edit14.Text:=mainform.StdDou2(edit14.text);

    d1:=strtofloat(edit12.text);
    d1:=d1-strtofloat(edit14.text);

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


    if checkbox1.Checked=true then
    begin
        edit16.Text:=mainform.StdDou2(edit16.text);
        edit17.Text:=mainform.StdDou2(edit17.text);
        edit18.Text:=mainform.StdDou2(edit18.text);

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

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

        edit19.Text:=floattostr(d2);
        edit19.Text:=mainform.StdDou2(edit19.text);
    end
    else
    begin
        Edit16.Text:='0';
        Edit17.Text:='0';
        Edit18.Text:='0';
        Edit19.Text:='0';
        d2:=0;
    end;

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

procedure Tf_RealtyC421.Edit18Exit(Sender: TObject);
begin
    Edit17Exit(Sender);   
end;

procedure Tf_RealtyC421.CheckBox1Click(Sender: TObject);
begin
    edit15.Text:=mainform.StdDou2(edit15.text);
    edit19.Text:=mainform.StdDou2(edit19.text);
    if checkbox1.Checked=true then edit20.Text:=floattostr(strtofloat(edit15.text)+strtofloat(edit19.text))
    else edit20.Text:=edit15.text;
end;

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

    edit13.Text:=mainform.StdDou2(edit13.text);
    edit14.Text:=mainform.StdDou2(edit14.text);
    edit15.Text:=mainform.StdDou2(edit15.text);
    edit17.Text:=mainform.StdDou2(edit17.text);
    edit18.Text:=mainform.StdDou2(edit18.text);
    edit15.Text:=mainform.StdDou2(edit15.text);
    edit19.Text:=mainform.StdDou2(edit19.text);

    if checkbox1.Checked=true then edit20.Text:=floattostr(strtofloat(edit15.text)+strtofloat(edit19.text))
    else edit20.Text:=edit15.text;
end;

procedure Tf_RealtyC421.Button3Click(Sender: TObject);
var
    query,query1:TADOQuery;
    s:string;
begin
    if edit2.Text='' then
    begin
        showmessage('请先选择房间');
        exit;
    end;
    f_RealtyC33:=Tf_RealtyC33.Create(self);

    f_RealtyC33.Button8.Visible:=true;
    f_RealtyC33.TreeView1.Enabled:=false;
    f_RealtyC33.Button1.Enabled:=false;

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

    query.SQL.Add('select * from 房间仪表 where 房间='''+mainform.getNum(edit2.Text)+'''');
    query.Open;
    while not query.Eof do
    begin
        s:='select * from 房间 where 编号 ='''+query.fieldbyname('房间').Value+'''';
        query1.SQL.Clear;
        Query1.SQL.Add(s);
        Query1.Open ;
        if query1.RecordCount>0 then
        begin
            with f_RealtyC33.ListView1.Items.Add do
            begin
                Caption:=query.fieldbyname('编号').Value;
                SubItems.Add(Query.FieldByName('仪表种类').Value);
                SubItems.Add(query1.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(mainform.getName('管理区',query1.FieldByName('管理区').Value));
                SubItems.Add(Query.FieldByName('总表').Value);
                SubItems.Add(Query.FieldByName('上次读数日期').Value);
            end;
        end;
        query.next;
    end;
    query.close;
    query.free;

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

    f_RealtyC33.ShowModal;

    if  f_RealtyC33.bOk=true then
    begin
       edit4.Text:=f_RealtyC33.sNum;
    end;

    edit7.Text:=mainform.StdDou4(edit7.text);
    edit8.Text:=mainform.StdDou4(edit8.text);
    edit9.Text:=mainform.StdDou4(edit9.text);

end;

procedure Tf_RealtyC421.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_RealtyC421.Edit7Exit(Sender: TObject);
begin
    Edit7.Text:=mainform.StdDou2(Edit7.text);
    Edit8.Text:=mainform.StdDou2(Edit8.text);

    Edit9.Text:=floattostr(strtofloat(Edit8.Text)-strtofloat(Edit7.Text));
    Edit9.Text:=mainform.StdDou2(Edit9.text);
end;

procedure Tf_RealtyC421.Edit8Exit(Sender: TObject);
begin
    Edit7Exit(Sender);
end;

procedure Tf_RealtyC421.Edit12Exit(Sender: TObject);
begin
    Edit17Exit(Sender);    
end;





procedure Tf_RealtyC421.Edit16Exit(Sender: TObject);
begin
    Edit17Exit(Sender);   
end;

end.

.