門禁管理系統(tǒng)軟件設(shè)計(jì)程序分析

申請免費(fèi)試用、咨詢電話：400-8352-114

停車場管理軟件程序代碼分析： 本程序直接保存停車場收費(fèi)標(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('收費(fèi)類型1').AsString);

        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Park_New_Fstd_Info WHERE 收費(fèi)車類型 = ''' + str+'''');
        Open;
        FareStd.FreeTime := FieldByName('免費(fèi)時(shí)間').AsInteger;
        FareStd.FirstFare := FieldByName('起始收費(fèi)').AsFloat;
        FareStd.FirstTime := FieldByName('起始時(shí)間').AsInteger;
        FareStd.LaterFare := FieldByName('收費(fèi)').AsFloat;
        FareStd.LaterTime := FieldByName('時(shí)長').AsInteger;
        FareStd.DayFare := FieldByName('日收費(fèi)').AsFloat;
        Farestd.MaxFare := FieldByName('最高收費(fèi)').AsFloat;

        FareStd.FreeTime1 := FieldByName('免費(fèi)時(shí)間1').AsInteger;
        FareStd.FirstFare1 := FieldByName('起始收費(fèi)1').AsFloat;
        FareStd.FirstTime1 := FieldByName('起始時(shí)間1').AsInteger;
        FareStd.LaterFare1 := FieldByName('收費(fèi)1').AsFloat;
        FareStd.LaterTime1 := FieldByName('時(shí)長1').AsInteger;
        FareStd.DayFare1 := FieldByName('日收費(fèi)1').AsFloat;
        Farestd.MaxFare1 := FieldByName('最高收費(fèi)1').AsFloat;

        FareStd.SecondTime :=FieldByName('時(shí)區(qū)B').AsInteger;
        FareStd.SecondFare :=FieldByName('時(shí)區(qū)B收費(fèi)').AsFloat;
        FareStd.SecondPerTim :=FieldByName('時(shí)長B').AsInteger;

        FareStd.ThirdTime :=FieldByName('時(shí)區(qū)C').AsInteger;
        farestd.ThirdFare :=FieldByName('時(shí)區(qū)C收費(fèi)').AsFloat;
        FareStd.ThirdPerTim :=FieldByName('時(shí)長C').AsInteger;

        FareStd.SecondTime1 :=FieldByName('時(shí)區(qū)B1').AsInteger;
        FareStd.SecondFare1 :=FieldByName('時(shí)區(qū)B收費(fèi)1').AsFloat;
        FareStd.SecondPerTim1 :=FieldByName('時(shí)長B1').AsInteger;

        FareStd.ThirdTime1 :=FieldByName('時(shí)區(qū)C1').AsInteger;
        farestd.ThirdFare1 :=FieldByName('時(shí)區(qū)C收費(fèi)1').AsFloat;
        FareStd.ThirdPerTim1 :=FieldByName('時(shí)長C1').AsInteger;

     end;