停車(chē)場(chǎng)收費(fèi)軟件源代碼
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM JY_Park_Day_Fstd_Info WHERE 組合類(lèi)型 = ''' + cmbFareStd.Text + '''');
Open;
qs1 := FieldByName('起始時(shí)間1').AsDateTime ;
jz1 := FieldByName('結(jié)束時(shí)間1').AsDateTime ;
qs2 := FieldByName('起始時(shí)間2').AsDateTime ;
jz2 := FieldByName('結(jié)束時(shí)間2').AsDateTime ;
qs3 := FieldByName('起始時(shí)間3').AsDateTime ;
jz3 := FieldByName('結(jié)束時(shí)間3').AsDateTime ;
qs4 := FieldByName('起始時(shí)間4').AsDateTime ;
jz4 := FieldByName('結(jié)束時(shí)間4').AsDateTime ;
sflx1 :=trim(FieldByName('收費(fèi)類(lèi)型1').AsString);
sflx2 :=trim(FieldByName('收費(fèi)類(lèi)型2').AsString);
sflx3 :=trim(FieldByName('收費(fèi)類(lèi)型3').AsString);
sflx4 :=trim(FieldByName('收費(fèi)類(lèi)型4').AsString);
btQy1:=FieldByName('有效1').AsBoolean ;
btQy2:=FieldByName('有效2').AsBoolean ;
btQy3:=FieldByName('有效3').AsBoolean ;
btQy4:=FieldByName('有效4').AsBoolean ;
end;
- 上一篇:停車(chē)場(chǎng)系統(tǒng)設(shè)置程序 2012/7/7
- 下一篇:停車(chē)場(chǎng)收費(fèi)系統(tǒng)代碼源程序 2012/7/2