成都公司:成都市成華區(qū)建設(shè)南路160號1層9號
重慶公司:重慶市江北區(qū)紅旗河溝華創(chuàng)商務(wù)大廈18樓
當(dāng)前位置:工程項目OA系統(tǒng) > 領(lǐng)域應(yīng)用 > 辦公管理系統(tǒng) > 門禁管理系統(tǒng)
門禁管理系統(tǒng)軟件設(shè)計程序分析
停車場管理軟件程序代碼分析: 本程序直接保存停車場收費標(biāo)準(zhǔn)的設(shè)置.
with qryStd do
begin
Close;
SQL.Clear;
SQL.Add('SELECT * FROM JY_Park_Day_Fstd_Info WHERE 編號 = '+inttostr(stdType));
Open;
str:=trim(FieldByName('收費類型1').AsString);
Close;
SQL.Clear;
SQL.Add('SELECT * FROM JY_Park_New_Fstd_Info WHERE 收費車類型 = ''' + str+'''');
Open;
FareStd.FreeTime := FieldByName('免費時間').AsInteger;
FareStd.FirstFare := FieldByName('起始收費').AsFloat;
FareStd.FirstTime := FieldByName('起始時間').AsInteger;
FareStd.LaterFare := FieldByName('收費').AsFloat;
FareStd.LaterTime := FieldByName('時長').AsInteger;
FareStd.DayFare := FieldByName('日收費').AsFloat;
Farestd.MaxFare := FieldByName('最高收費').AsFloat;
FareStd.FreeTime1 := FieldByName('免費時間1').AsInteger;
FareStd.FirstFare1 := FieldByName('起始收費1').AsFloat;
FareStd.FirstTime1 := FieldByName('起始時間1').AsInteger;
FareStd.LaterFare1 := FieldByName('收費1').AsFloat;
FareStd.LaterTime1 := FieldByName('時長1').AsInteger;
FareStd.DayFare1 := FieldByName('日收費1').AsFloat;
Farestd.MaxFare1 := FieldByName('最高收費1').AsFloat;
FareStd.SecondTime :=FieldByName('時區(qū)B').AsInteger;
FareStd.SecondFare :=FieldByName('時區(qū)B收費').AsFloat;
FareStd.SecondPerTim :=FieldByName('時長B').AsInteger;
FareStd.ThirdTime :=FieldByName('時區(qū)C').AsInteger;
farestd.ThirdFare :=FieldByName('時區(qū)C收費').AsFloat;
FareStd.ThirdPerTim :=FieldByName('時長C').AsInteger;
FareStd.SecondTime1 :=FieldByName('時區(qū)B1').AsInteger;
FareStd.SecondFare1 :=FieldByName('時區(qū)B收費1').AsFloat;
FareStd.SecondPerTim1 :=FieldByName('時長B1').AsInteger;
FareStd.ThirdTime1 :=FieldByName('時區(qū)C1').AsInteger;
farestd.ThirdFare1 :=FieldByName('時區(qū)C收費1').AsFloat;
FareStd.ThirdPerTim1 :=FieldByName('時長C1').AsInteger;
end;
本站推薦
- 1土建項目竣工門禁系統(tǒng)可以拆除嗎
- 2弱電工程門禁系統(tǒng):保障場所安全、實現(xiàn)高效人員出入管控的關(guān)鍵設(shè)施
- 3門禁系統(tǒng)工程行業(yè)工程項目管理系統(tǒng) 工地管理的智能安全預(yù)警與應(yīng)急響應(yīng)
- 4弱電工程門禁系統(tǒng)業(yè)務(wù)描述與產(chǎn)品結(jié)構(gòu)概覽?
- 5ERP(OA)門禁系統(tǒng)如何操作?升級步驟詳解
- 6ERP(OA)門禁系統(tǒng)供應(yīng)商推薦,作用如何助力企業(yè)安全?
- 7電梯門禁管理系統(tǒng)的業(yè)務(wù)架構(gòu)與產(chǎn)品組合策略?
- 8ERP(OA)門禁系統(tǒng)安裝過程中需規(guī)避哪些風(fēng)險?實施風(fēng)險管理策略有哪些?
- 9工程門禁管理系統(tǒng)的業(yè)務(wù)架構(gòu)亮點及產(chǎn)品特性?