📄 realtyc43.pas
字号:
//其它
b:=false;
//所有
if nLevel=0 then
begin
b:=true;
s:='select * from 车位 where 名称 like ''%'+Edit2.text;
s:=s+'%'' order by 编号 asc';
query.SQL.Clear;
Query.SQL.Add(s);
Query.Open ;
while not Query.Eof do
begin
s:='select * from 客户车位 where 车位 ='''+Query.FieldByName('编号').Value;
s:=s+''' order by 编号 asc';
query4.SQL.Clear;
Query4.SQL.Add(s);
Query4.Open ;
if query4.RecordCount>0 then
begin
s:='select * from 车位费用 where 单号 like ''%'+Edit1.text;
s:=s+'%'' and 收费月份>='''+copy(datetostr(datetimepicker1.Date),1,7);
s:=s+''' and 收费月份<='''+copy(datetostr(datetimepicker2.Date),1,7);
s:=s+'%''order by 单号 asc';
query4.SQL.Clear;
Query4.SQL.Add(s);
Query4.Open ;
while not Query4.Eof do
begin
s:='select * from 客户资料 where 客户代码='''+Query4.FieldByName('客户').Value;
s:=s+''' and 客户名称 like ''%'+edit3.Text+'%''';
query5.SQL.Clear;
Query5.SQL.Add(s);
Query5.Open ;
if query5.RecordCount>0 then
begin
s1:=query5.fieldbyname('客户名称').value;
s:='select * from 车位 where 编号='''+query4.fieldbyname('车位').Value;
s:=s+''' and 名称 like ''%'+edit2.text+'%''';
query5.SQL.clear;
query5.SQL.add(s);
query5.Open;
if query5.RecordCount>0 then
begin
s2:=query5.fieldbyname('停车场').Value;
s3:=mainform.getName('停车场',s2);
s4:=query5.fieldbyname('管理区').Value;
s5:=mainform.getName('管理区',s4);
s6:=query5.fieldbyname('管理处').Value;
s7:=mainform.getName('组织机构',s6);
s:='select * from 房间 where 编号='''+Query4.FieldByName('房间').Value+'''';
query5.SQL.Clear;
Query5.SQL.Add(s);
Query5.Open ;
if query5.RecordCount>0 then r1:=query5.fieldbyname('名称').Value;
query5.SQL.clear;
query5.SQL.add('select * from 收费项目 where 编号='''+query4.fieldbyname('收费项目').Value+'''');
query5.Open;
if query5.RecordCount>0 then s8:=query5.fieldbyname('名称').Value;
query5.SQL.clear;
query5.SQL.add('select * from 收费标准 where 编号='''+query4.fieldbyname('收费标准').Value+'''');
query5.Open;
if query5.RecordCount>0 then s9:=query5.fieldbyname('名称').Value;
with ListView1.Items.Add do
begin
Caption:=s1;
SubItems.Add(r1);
SubItems.Add(Query4.FieldByName('单号').Value);
SubItems.Add(mainform.getName('车位', Query4.FieldByName('车位').Value));
SubItems.Add(mainform.getName('收费项目', Query4.FieldByName('收费项目').Value));
SubItems.Add(Query4.FieldByName('应收日期').Value);
SubItems.Add(Query4.FieldByName('单价').Value);
SubItems.Add(Query4.FieldByName('金额').Value);
SubItems.Add(Query4.FieldByName('优惠金额').Value);
SubItems.Add(Query4.FieldByName('优惠后金额').Value);
SubItems.Add(Query4.FieldByName('滞纳金截至日期').Value);
SubItems.Add(Query4.FieldByName('滞纳金天数').Value);
SubItems.Add(Query4.FieldByName('减免缴滞纳金').Value);
SubItems.Add(Query4.FieldByName('应收滞纳金').Value);
SubItems.Add(Query4.FieldByName('收取滞纳金').Value);
SubItems.Add(Query4.FieldByName('应收金额').Value);
SubItems.Add(Query4.FieldByName('备注').Value);
SubItems.Add(Query4.FieldByName('制单人').Value);
SubItems.Add(Query4.FieldByName('滞纳金').Value);
SubItems.Add(Query4.FieldByName('修订人').Value);
SubItems.Add(Query4.FieldByName('审核人').Value);
SubItems.Add(Query4.FieldByName('审核').Value);
SubItems.Add(s6);
SubItems.Add(s7);
SubItems.Add(s4);
SubItems.Add(s5);
SubItems.Add(s2);
SubItems.Add(s3);
SubItems.Add(Query4.FieldByName('收费项目').Value);
SubItems.Add(Query4.FieldByName('计费开始日期').Value);
SubItems.Add(Query4.FieldByName('计费结束日期').Value);
SubItems.Add(Query4.FieldByName('收费标准').Value);
SubItems.Add(s9);
SubItems.Add(Query4.FieldByName('客户').Value);
end;
end;
end;
query4.Next;
end;
end;
query.Next;
end;
end;
if nLevel>0 then
begin
//管理区
s:='select * from 管理区 where 名称='''+treeview1.Selected.Text+'''';
Query.SQL.Add(s);
Query.Open ;
if query.RecordCount>0 then
begin
b:=true;
s1:=Query.FieldByName('编号').Value;
s2:=Query.FieldByName('管理处').Value;
s:='select * from 停车场 where 管理区 ='''+s1;
s:=s+''' and 管理处 ='''+s2;
s:=s+''' order by 编号 asc';
query1.SQL.Clear;
Query1.SQL.Add(s);
Query1.Open ;
while not Query1.Eof do
begin
s:='select * from 车位 where 编号 like ''%'+Edit1.text;
s:=s+'%'' and 名称 like ''%'+Edit2.text;
s:=s+'%'' and 停车场 ='''+Query1.FieldByName('编号').Value;
s:=s+''' and 管理区 ='''+s1;
s:=s+''' and 管理处 ='''+s2;
s:=s+''' order by 编号 asc';
query.SQL.Clear;
Query.SQL.Add(s);
Query.Open ;
while not Query.Eof do
begin
s:='select * from 客户车位 where 车位 ='''+Query.FieldByName('编号').Value;
s:=s+''' order by 编号 asc';
query4.SQL.Clear;
Query4.SQL.Add(s);
Query4.Open ;
if query4.RecordCount>0 then
begin
s:='select * from 车位费用 where 单号 like ''%'+Edit1.text;
s:=s+'%'' and 收费月份>='''+copy(datetostr(datetimepicker1.Date),1,7);
s:=s+''' and 收费月份<='''+copy(datetostr(datetimepicker2.Date),1,7);
s:=s+'%''order by 单号 asc';
query4.SQL.Clear;
Query4.SQL.Add(s);
Query4.Open ;
while not Query4.Eof do
begin
s:='select * from 客户资料 where 客户代码='''+Query4.FieldByName('客户').Value;
s:=s+''' and 客户名称 like ''%'+edit3.Text+'%''';
query5.SQL.Clear;
Query5.SQL.Add(s);
Query5.Open ;
if query5.RecordCount>0 then
begin
s1:=query5.fieldbyname('客户名称').value;
s:='select * from 车位 where 编号='''+query4.fieldbyname('车位').Value;
s:=s+''' and 名称 like ''%'+edit2.text+'%''';
query5.SQL.clear;
query5.SQL.add(s);
query5.Open;
if query5.RecordCount>0 then
begin
s2:=query5.fieldbyname('停车场').Value;
s3:=mainform.getName('停车场',s2);
s4:=query5.fieldbyname('管理区').Value;
s5:=mainform.getName('管理区',s4);
s6:=query5.fieldbyname('管理处').Value;
s7:=mainform.getName('组织机构',s6);
s:='select * from 房间 where 编号='''+Query4.FieldByName('房间').Value+'''';
query5.SQL.Clear;
Query5.SQL.Add(s);
Query5.Open ;
if query5.RecordCount>0 then r1:=query5.fieldbyname('名称').Value;
query5.SQL.clear;
query5.SQL.add('select * from 收费项目 where 编号='''+query4.fieldbyname('收费项目').Value+'''');
query5.Open;
if query5.RecordCount>0 then s8:=query5.fieldbyname('名称').Value;
query5.SQL.clear;
query5.SQL.add('select * from 收费标准 where 编号='''+query4.fieldbyname('收费标准').Value+'''');
query5.Open;
if query5.RecordCount>0 then s9:=query5.fieldbyname('名称').Value;
with ListView1.Items.Add do
begin
Caption:=s1;
SubItems.Add(r1);
SubItems.Add(Query4.FieldByName('单号').Value);
SubItems.Add(Query4.FieldByName('车位').Value);
SubItems.Add(Query4.FieldByName('收费项目').Value);
SubItems.Add(Query4.FieldByName('应收日期').Value);
SubItems.Add(Query4.FieldByName('单价').Value);
SubItems.Add(Query4.FieldByName('金额').Value);
SubItems.Add(Query4.FieldByName('优惠金额').Value);
SubItems.Add(Query4.FieldByName('优惠后金额').Value);
SubItems.Add(Query4.FieldByName('滞纳金截至日期').Value);
SubItems.Add(Query4.FieldByName('滞纳金天数').Value);
SubItems.Add(Query4.FieldByName('减免缴滞纳金').Value);
SubItems.Add(Query4.FieldByName('应收滞纳金').Value);
SubItems.Add(Query4.FieldByName('收取滞纳金').Value);
SubItems.Add(Query4.FieldByName('应收金额').Value);
SubItems.Add(Query4.FieldByName('备注').Value);
SubItems.Add(Query4.FieldByName('制单人').Value);
SubItems.Add(Query4.FieldByName('滞纳金').Value);
SubItems.Add(Query4.FieldByName('修订人').Value);
SubItems.Add(Query4.FieldByName('审核人').Value);
SubItems.Add(Query4.FieldByName('审核').Value);
SubItems.Add(s6);
SubItems.Add(s7);
SubItems.Add(s4);
SubItems.Add(s5);
SubItems.Add(s2);
SubItems.Add(s3);
SubItems.Add(Query4.FieldByName('收费项目').Value);
SubItems.Add(Query4.FieldByName('计费开始日期').Value);
SubItems.Add(Query4.FieldByName('计费结束日期').Value);
SubItems.Add(Query4.FieldByName('收费标准').Value);
SubItems.Add(s9);
SubItems.Add(Query4.FieldByName('客户').Value);
end;
end;
end;
query4.Next;
end;
end;
query.Next;
end;
query1.Next;
end;
end;
//停车场
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -