門禁管理系統軟件設計程序分析

申請免費試用、咨詢電話：400-8352-114

停車場管理軟件程序代碼分析： 本程序直接保存停車場收費標準的設置.

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;