泛普停車場管理軟件源代碼

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

  Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Park_Money_Rule');
        Open;
        conf.calDayType := FieldByName('計(jì)費(fèi)類型').AsInteger;
        conf.dayPointHour := FieldByName('分界時(shí)間點(diǎn)時(shí)').AsInteger;
        conf.dayPointminute := FieldByName('分界時(shí)間點(diǎn)分').AsInteger;
        conf.dayHours := FieldByName('分界時(shí)長').AsInteger;
        Close;
        SQL.Clear;
        SQL.Add('SELECT * FROM JY_Park_Setting');
        Open;
        conf.siteCount := FieldByName('車位數(shù)').AsInteger;
        conf.DelDays := FieldByName('自動刪除天數(shù)').AsInteger;
        conf.AutoDel := FieldByName('自動刪除').AsBoolean;
        conf.bWithPlateRec := FieldByName('帶車牌識別').AsBoolean;
        conf.bWithPic := FieldByName('帶圖像對比').AsBoolean;
        conf.CanOpen := FieldByName('崗位口可以開閘').AsBoolean;

        conf.CenterPay := FieldByName('中心收費(fèi)').AsBoolean;
        conf.CenterTime:=FieldByName('中心收費(fèi)出場時(shí)間').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('所屬網(wǎng)絡(luò)').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);