📄 realtyc441.pas
字号:
query1.SQL.add('select * from 收费标准 where 编号='''+query.fieldbyname('收费标准').Value+'''');
query1.Open;
if query1.RecordCount>0 then s9:=query1.fieldbyname('名称').Value;
with f_RealtyC44.Listview1.Selected do
begin
Caption:=s1;
SubItems[0]:=Query.FieldbyName('客户').Value;
SubItems[1]:=rr;
SubItems[2]:=Query.FieldByName('单号').Value;
SubItems[3]:=Query.FieldByName('应收日期').Value;
SubItems[4]:=Query.FieldByName('收费项目').Value;
SubItems[5]:=s8;
SubItems[6]:=s10;
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;
SubItems[14]:=Query.FieldByName('收取滞纳金').Value;
SubItems[15]:=Query.FieldByName('滞纳金截至日期').Value;
SubItems[16]:=Query.FieldByName('滞纳金天数').Value;
SubItems[17]:=Query.FieldByName('应收金额').Value;
SubItems[18]:=Query.FieldByName('计费开始日期').Value;
SubItems[19]:=Query.FieldByName('计费结束日期').Value;
SubItems[20]:=s6;
SubItems[21]:=s7;
SubItems[22]:=s4;
SubItems[23]:=s5;
SubItems[24]:=s2;
SubItems[25]:=s3;
SubItems[26]:=Query.FieldByName('收费标准').Value;
SubItems[27]:=s9;
SubItems[28]:=Query.FieldByName('备注').Value;
SubItems[29]:=Query.FieldByName('制单人').Value;
SubItems[30]:=Query.FieldByName('修订人').Value;
SubItems[31]:=Query.FieldByName('审核人').Value;
SubItems[32]:=Query.FieldByName('审核').Value;
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+'减免缴滞纳金,应收滞纳金,收取滞纳金,应收金额,已收金额,';
s:=s+'已收全,收全日期,备注,制单人,修订人,收费月份,审核,审核人)';
s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6,:s7,:s8,:s9,:s10,';
s:=s+':s11,:s12,:s13,:s14,:s15,';
s:=s+':s16,:s17,:s18,:s19,:s20,';
s:=s+':s21,:s22,:s23,:s24,:s25,:s26,:s27,:s28)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:=mainform.GetNum(edit2.Text);
query.Parameters.ParamByName('s3').Value:=r1;
query.Parameters.ParamByName('s4').Value:=r3;
query.Parameters.ParamByName('s5').Value:=r5;
query.Parameters.ParamByName('s6').Value:=datetostr(datetimepicker1.date);
query.Parameters.ParamByName('s7').Value:=datetostr(datetimepicker2.date);
query.Parameters.ParamByName('s8').Value:=datetostr(datetimepicker3.date);
query.Parameters.ParamByName('s9').Value:=mainform.StdDou2(edit7.text);
query.Parameters.ParamByName('s10').Value:=mainform.StdDou2(edit8.text);
query.Parameters.ParamByName('s11').Value:=mainform.StdDou2(edit9.text);
query.Parameters.ParamByName('s12').Value:=mainform.StdDou2(edit10.Text);
query.Parameters.ParamByName('s13').Value:=datetostr(datetimepicker4.date);
query.Parameters.ParamByName('s14').Value:=edit11.Text;
query.Parameters.ParamByName('s15').Value:=mainform.StdDou2(edit12.Text);
query.Parameters.ParamByName('s16').Value:=mainform.StdDou2(edit13.Text);
query.Parameters.ParamByName('s17').Value:=mainform.StdDou2(edit14.Text);
query.Parameters.ParamByName('s18').Value:=s1;
query.Parameters.ParamByName('s19').Value:=mainform.StdDou2(edit15.text);
query.Parameters.ParamByName('s20').Value:=mainform.StdDou2(edit16.text);
query.Parameters.ParamByName('s21').Value:=s2;
query.Parameters.ParamByName('s22').Value:=edit21.text;
query.Parameters.ParamByName('s23').Value:=edit17.text;
query.Parameters.ParamByName('s24').Value:=edit18.text;
query.Parameters.ParamByName('s25').Value:=edit19.text;
query.Parameters.ParamByName('s26').Value:=copy(datetostr(datetimepicker5.date),1,7);
query.Parameters.ParamByName('s27').Value:= 'N';
query.Parameters.ParamByName('s28').Value:= '-';
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
showmessage('保存成功');
query.sql.clear;
Query.SQL.Add('select * from 其它费用 where 单号 ='''+edit1.Text+'''');
Query.Open;
if query.RecordCount>0 then
begin
s1:='-';
s2:='-';
s3:='-';
s4:='-';
s5:='-';
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
begin
rr:=query1.fieldbyname('名称').Value;
s2:=query1.fieldbyname('楼宇').Value;
s3:=mainform.getName('楼宇',s2);
s4:=query1.fieldbyname('管理区').Value;
s5:=mainform.getName('管理区',s4);
s6:=query1.fieldbyname('管理处').Value;
s7:=mainform.getName('组织机构',s6);
s10:=query1.fieldbyname('使用面积').value;
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_RealtyC44.Listview1.Items.Add do
begin
Caption:=s1;
SubItems.Add(Query.FieldbyName('客户').Value);
SubItems.Add(rr);
SubItems.Add(Query.FieldByName('单号').Value);
SubItems.Add(Query.FieldByName('应收日期').Value);
SubItems.Add(Query.FieldByName('收费项目').Value);
SubItems.Add(s8);
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(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(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:='';
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:='';
datetimepicker1.Date:=date;
datetimepicker2.Date:=date;
datetimepicker3.Date:=date;
datetimepicker4.Date:=date;
edit20.text:='';
checkbox1.Checked:=false;
checkbox2.Checked:=false;
end;
end;
procedure Tf_RealtyC441.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyC441.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_RealtyC441.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_RealtyC441.Edit9Exit(Sender: TObject);
begin
edit7.Text:=mainform.StdDou2(edit7.text);
edit8.Text:=mainform.StdDou2(edit8.text);
if strtofloat(edit9.Text)>strtofloat(edit7.text) then
begin
showmessage('优惠金额不得大于金额');
end;
Edit12Exit(Sender);
end;
procedure Tf_RealtyC441.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_RealtyC441.Edit13Exit(Sender: TObject);
begin
Edit12Exit(Sender);
end;
procedure Tf_RealtyC441.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_RealtyC441.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_RealtyC441.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;
edit7.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;
procedure Tf_RealtyC441.Edit7Exit(Sender: TObject);
begin
Edit12Exit(Sender);
end;
procedure Tf_RealtyC441.Edit11Exit(Sender: TObject);
begin
Edit12Exit(Sender);
end;
procedure Tf_RealtyC441.Edit16Exit(Sender: TObject);
begin
Edit12Exit(Sender);
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -