?? realtyc43.pas
字號(hào):
//其它
b:=false;
//所有
if nLevel=0 then
begin
b:=true;
s:='select * from 車(chē)位 where 名稱(chēng) like ''%'+Edit2.text;
s:=s+'%'' order by 編號(hào) asc';
query.SQL.Clear;
Query.SQL.Add(s);
Query.Open ;
while not Query.Eof do
begin
s:='select * from 客戶(hù)車(chē)位 where 車(chē)位 ='''+Query.FieldByName('編號(hào)').Value;
s:=s+''' order by 編號(hào) asc';
query4.SQL.Clear;
Query4.SQL.Add(s);
Query4.Open ;
if query4.RecordCount>0 then
begin
s:='select * from 車(chē)位費(fèi)用 where 單號(hào) like ''%'+Edit1.text;
s:=s+'%'' and 收費(fèi)月份>='''+copy(datetostr(datetimepicker1.Date),1,7);
s:=s+''' and 收費(fèi)月份<='''+copy(datetostr(datetimepicker2.Date),1,7);
s:=s+'%''order by 單號(hào) asc';
query4.SQL.Clear;
Query4.SQL.Add(s);
Query4.Open ;
while not Query4.Eof do
begin
s:='select * from 客戶(hù)資料 where 客戶(hù)代碼='''+Query4.FieldByName('客戶(hù)').Value;
s:=s+''' and 客戶(hù)名稱(chēng) like ''%'+edit3.Text+'%''';
query5.SQL.Clear;
Query5.SQL.Add(s);
Query5.Open ;
if query5.RecordCount>0 then
begin
s1:=query5.fieldbyname('客戶(hù)名稱(chēng)').value;
s:='select * from 車(chē)位 where 編號(hào)='''+query4.fieldbyname('車(chē)位').Value;
s:=s+''' and 名稱(chēng) like ''%'+edit2.text+'%''';
query5.SQL.clear;
query5.SQL.add(s);
query5.Open;
if query5.RecordCount>0 then
begin
s2:=query5.fieldbyname('停車(chē)場(chǎng)').Value;
s3:=mainform.getName('停車(chē)場(chǎng)',s2);
s4:=query5.fieldbyname('管理區(qū)').Value;
s5:=mainform.getName('管理區(qū)',s4);
s6:=query5.fieldbyname('管理處').Value;
s7:=mainform.getName('組織機(jī)構(gòu)',s6);
s:='select * from 房間 where 編號(hào)='''+Query4.FieldByName('房間').Value+'''';
query5.SQL.Clear;
Query5.SQL.Add(s);
Query5.Open ;
if query5.RecordCount>0 then r1:=query5.fieldbyname('名稱(chēng)').Value;
query5.SQL.clear;
query5.SQL.add('select * from 收費(fèi)項(xiàng)目 where 編號(hào)='''+query4.fieldbyname('收費(fèi)項(xiàng)目').Value+'''');
query5.Open;
if query5.RecordCount>0 then s8:=query5.fieldbyname('名稱(chēng)').Value;
query5.SQL.clear;
query5.SQL.add('select * from 收費(fèi)標(biāo)準(zhǔn) where 編號(hào)='''+query4.fieldbyname('收費(fèi)標(biāo)準(zhǔn)').Value+'''');
query5.Open;
if query5.RecordCount>0 then s9:=query5.fieldbyname('名稱(chēng)').Value;
with ListView1.Items.Add do
begin
Caption:=s1;
SubItems.Add(r1);
SubItems.Add(Query4.FieldByName('單號(hào)').Value);
SubItems.Add(mainform.getName('車(chē)位', Query4.FieldByName('車(chē)位').Value));
SubItems.Add(mainform.getName('收費(fèi)項(xiàng)目', Query4.FieldByName('收費(fèi)項(xiàng)目').Value));
SubItems.Add(Query4.FieldByName('應(yīng)收日期').Value);
SubItems.Add(Query4.FieldByName('單價(jià)').Value);
SubItems.Add(Query4.FieldByName('金額').Value);
SubItems.Add(Query4.FieldByName('優(yōu)惠金額').Value);
SubItems.Add(Query4.FieldByName('優(yōu)惠后金額').Value);
SubItems.Add(Query4.FieldByName('滯納金截至日期').Value);
SubItems.Add(Query4.FieldByName('滯納金天數(shù)').Value);
SubItems.Add(Query4.FieldByName('減免繳滯納金').Value);
SubItems.Add(Query4.FieldByName('應(yīng)收滯納金').Value);
SubItems.Add(Query4.FieldByName('收取滯納金').Value);
SubItems.Add(Query4.FieldByName('應(yīng)收金額').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('收費(fèi)項(xiàng)目').Value);
SubItems.Add(Query4.FieldByName('計(jì)費(fèi)開(kāi)始日期').Value);
SubItems.Add(Query4.FieldByName('計(jì)費(fèi)結(jié)束日期').Value);
SubItems.Add(Query4.FieldByName('收費(fèi)標(biāo)準(zhǔn)').Value);
SubItems.Add(s9);
SubItems.Add(Query4.FieldByName('客戶(hù)').Value);
end;
end;
end;
query4.Next;
end;
end;
query.Next;
end;
end;
if nLevel>0 then
begin
//管理區(qū)
s:='select * from 管理區(qū) where 名稱(chēng)='''+treeview1.Selected.Text+'''';
Query.SQL.Add(s);
Query.Open ;
if query.RecordCount>0 then
begin
b:=true;
s1:=Query.FieldByName('編號(hào)').Value;
s2:=Query.FieldByName('管理處').Value;
s:='select * from 停車(chē)場(chǎng) where 管理區(qū) ='''+s1;
s:=s+''' and 管理處 ='''+s2;
s:=s+''' order by 編號(hào) asc';
query1.SQL.Clear;
Query1.SQL.Add(s);
Query1.Open ;
while not Query1.Eof do
begin
s:='select * from 車(chē)位 where 編號(hào) like ''%'+Edit1.text;
s:=s+'%'' and 名稱(chēng) like ''%'+Edit2.text;
s:=s+'%'' and 停車(chē)場(chǎng) ='''+Query1.FieldByName('編號(hào)').Value;
s:=s+''' and 管理區(qū) ='''+s1;
s:=s+''' and 管理處 ='''+s2;
s:=s+''' order by 編號(hào) asc';
query.SQL.Clear;
Query.SQL.Add(s);
Query.Open ;
while not Query.Eof do
begin
s:='select * from 客戶(hù)車(chē)位 where 車(chē)位 ='''+Query.FieldByName('編號(hào)').Value;
s:=s+''' order by 編號(hào) asc';
query4.SQL.Clear;
Query4.SQL.Add(s);
Query4.Open ;
if query4.RecordCount>0 then
begin
s:='select * from 車(chē)位費(fèi)用 where 單號(hào) like ''%'+Edit1.text;
s:=s+'%'' and 收費(fèi)月份>='''+copy(datetostr(datetimepicker1.Date),1,7);
s:=s+''' and 收費(fèi)月份<='''+copy(datetostr(datetimepicker2.Date),1,7);
s:=s+'%''order by 單號(hào) asc';
query4.SQL.Clear;
Query4.SQL.Add(s);
Query4.Open ;
while not Query4.Eof do
begin
s:='select * from 客戶(hù)資料 where 客戶(hù)代碼='''+Query4.FieldByName('客戶(hù)').Value;
s:=s+''' and 客戶(hù)名稱(chēng) like ''%'+edit3.Text+'%''';
query5.SQL.Clear;
Query5.SQL.Add(s);
Query5.Open ;
if query5.RecordCount>0 then
begin
s1:=query5.fieldbyname('客戶(hù)名稱(chēng)').value;
s:='select * from 車(chē)位 where 編號(hào)='''+query4.fieldbyname('車(chē)位').Value;
s:=s+''' and 名稱(chēng) like ''%'+edit2.text+'%''';
query5.SQL.clear;
query5.SQL.add(s);
query5.Open;
if query5.RecordCount>0 then
begin
s2:=query5.fieldbyname('停車(chē)場(chǎng)').Value;
s3:=mainform.getName('停車(chē)場(chǎng)',s2);
s4:=query5.fieldbyname('管理區(qū)').Value;
s5:=mainform.getName('管理區(qū)',s4);
s6:=query5.fieldbyname('管理處').Value;
s7:=mainform.getName('組織機(jī)構(gòu)',s6);
s:='select * from 房間 where 編號(hào)='''+Query4.FieldByName('房間').Value+'''';
query5.SQL.Clear;
Query5.SQL.Add(s);
Query5.Open ;
if query5.RecordCount>0 then r1:=query5.fieldbyname('名稱(chēng)').Value;
query5.SQL.clear;
query5.SQL.add('select * from 收費(fèi)項(xiàng)目 where 編號(hào)='''+query4.fieldbyname('收費(fèi)項(xiàng)目').Value+'''');
query5.Open;
if query5.RecordCount>0 then s8:=query5.fieldbyname('名稱(chēng)').Value;
query5.SQL.clear;
query5.SQL.add('select * from 收費(fèi)標(biāo)準(zhǔn) where 編號(hào)='''+query4.fieldbyname('收費(fèi)標(biāo)準(zhǔn)').Value+'''');
query5.Open;
if query5.RecordCount>0 then s9:=query5.fieldbyname('名稱(chēng)').Value;
with ListView1.Items.Add do
begin
Caption:=s1;
SubItems.Add(r1);
SubItems.Add(Query4.FieldByName('單號(hào)').Value);
SubItems.Add(Query4.FieldByName('車(chē)位').Value);
SubItems.Add(Query4.FieldByName('收費(fèi)項(xiàng)目').Value);
SubItems.Add(Query4.FieldByName('應(yīng)收日期').Value);
SubItems.Add(Query4.FieldByName('單價(jià)').Value);
SubItems.Add(Query4.FieldByName('金額').Value);
SubItems.Add(Query4.FieldByName('優(yōu)惠金額').Value);
SubItems.Add(Query4.FieldByName('優(yōu)惠后金額').Value);
SubItems.Add(Query4.FieldByName('滯納金截至日期').Value);
SubItems.Add(Query4.FieldByName('滯納金天數(shù)').Value);
SubItems.Add(Query4.FieldByName('減免繳滯納金').Value);
SubItems.Add(Query4.FieldByName('應(yīng)收滯納金').Value);
SubItems.Add(Query4.FieldByName('收取滯納金').Value);
SubItems.Add(Query4.FieldByName('應(yīng)收金額').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('收費(fèi)項(xiàng)目').Value);
SubItems.Add(Query4.FieldByName('計(jì)費(fèi)開(kāi)始日期').Value);
SubItems.Add(Query4.FieldByName('計(jì)費(fèi)結(jié)束日期').Value);
SubItems.Add(Query4.FieldByName('收費(fèi)標(biāo)準(zhǔn)').Value);
SubItems.Add(s9);
SubItems.Add(Query4.FieldByName('客戶(hù)').Value);
end;
end;
end;
query4.Next;
end;
end;
query.Next;
end;
query1.Next;
end;
end;
//停車(chē)場(chǎng)
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -