泛普停车场管理软件源代码

申请免费试用、咨询电话：400-8352-114

  Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Park_Money_Rule');
        Open;
        conf.calDayType := FieldByName('计费类型').AsInteger;
        conf.dayPointHour := FieldByName('分界时间点时').AsInteger;
        conf.dayPointminute := FieldByName('分界时间点分').AsInteger;
        conf.dayHours := FieldByName('分界时长').AsInteger;
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Park_Setting');
        Open;
        conf.siteCount := FieldByName('车位数').AsInteger;
        conf.DelDays := FieldByName('自动删除天数').AsInteger;
        conf.AutoDel := FieldByName('自动删除').AsBoolean;
        conf.bWithPlateRec := FieldByName('带车牌识别').AsBoolean;
        conf.bWithPic := FieldByName('带图像对比').AsBoolean;
        conf.CanOpen := FieldByName('岗位口可以开闸').AsBoolean;

        conf.CenterPay := FieldByName('中心收费').AsBoolean;
        conf.CenterTime:=FieldByName('中心收费出场时间').AsInteger;
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Company_Info');
        Open;
        conf.Company := FieldByName('单位名称').AsString;
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Park_Mech_info');
        Open;
        pmDev.Items.Clear;
        while not Eof do
        begin
            new(pd);
            pd^.DevID := FieldByName('编号').AsInteger;
            pd^.CapID := FieldByName('视频编号').AsInteger;
            pd^.PicID := FieldByName('图像编号').AsInteger;
            pd^.bStop := FieldByName('暂停使用').AsBoolean;
            pd^.IOType := FieldBYName('出入').AsString;
            if not pd^.bStop then
               DevList.Items[pd^.DevID].ImageIndex := 0;
           
            ListDev.Add(pd);
            li := lvdz.Items.Add;
            li.Caption := format('%2.2d',[pd^.DevID]);
            if (trim(FieldByName('所属网络').AsString) = trim(conf.NetID)) and (FieldByName('出入').AsString = '出口') then
            begin
                Item := TMenuItem.Create(nil);
                pmDev.Items.Add(Item);
                Item.Caption := Format('%2.2d',[FieldByName('编号').AsInteger]) ;
                Item.OnClick := N11Click;
            end;
            Next;
        end;
        if pmDev.Items.Count > 0 then
        begin
            pmDev.Items[0].Checked := true;
            lbDev.Caption := pmDev.Items[0].Caption;
            lbDev.Caption:= RIniStr('DevNum', 'Num',lbDev.Caption);