停车场收费软件源代码

来源:誉澄智能 2012/7/6 8:24:51      点击:

 begin
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Park_Day_Fstd_Info WHERE 组合类型 = ''' + cmbFareStd.Text + '''');
        Open;
        qs1  := FieldByName('起始时间1').AsDateTime ;
        jz1  := FieldByName('结束时间1').AsDateTime ;
        qs2  := FieldByName('起始时间2').AsDateTime ;
        jz2  := FieldByName('结束时间2').AsDateTime ;
        qs3  := FieldByName('起始时间3').AsDateTime ;
        jz3  := FieldByName('结束时间3').AsDateTime ;
        qs4  := FieldByName('起始时间4').AsDateTime ;
        jz4  := FieldByName('结束时间4').AsDateTime ;

        sflx1 :=trim(FieldByName('收费类型1').AsString);
        sflx2 :=trim(FieldByName('收费类型2').AsString);
        sflx3 :=trim(FieldByName('收费类型3').AsString);
        sflx4 :=trim(FieldByName('收费类型4').AsString);

        btQy1:=FieldByName('有效1').AsBoolean ;
        btQy2:=FieldByName('有效2').AsBoolean ;
        btQy3:=FieldByName('有效3').AsBoolean ;
        btQy4:=FieldByName('有效4').AsBoolean ;
    end;