门禁管理系统软件设计程序分析

申请免费试用、咨询电话：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('时区B').AsInteger;
        FareStd.SecondFare :=FieldByName('时区B收费').AsFloat;
        FareStd.SecondPerTim :=FieldByName('时长B').AsInteger;

        FareStd.ThirdTime :=FieldByName('时区C').AsInteger;
        farestd.ThirdFare :=FieldByName('时区C收费').AsFloat;
        FareStd.ThirdPerTim :=FieldByName('时长C').AsInteger;

        FareStd.SecondTime1 :=FieldByName('时区B1').AsInteger;
        FareStd.SecondFare1 :=FieldByName('时区B收费1').AsFloat;
        FareStd.SecondPerTim1 :=FieldByName('时长B1').AsInteger;

        FareStd.ThirdTime1 :=FieldByName('时区C1').AsInteger;
        farestd.ThirdFare1 :=FieldByName('时区C收费1').AsFloat;
        FareStd.ThirdPerTim1 :=FieldByName('时长C1').AsInteger;

     end;