門禁管理系統(tǒng)源程序代碼之車位統(tǒng)計

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

   Close;
                           SQL.Clear;
                           SQL.Add('SELECT * FROM JY_Park_Inout');
                           SQL.Add('WHERE 車道編號= ''' + inttostr(DevID) + '''');   //2008
                           Open;
                           if recordCount > 0 then
                            begin
                              parkname:=trim(FieldByName('車場名稱').AsString);
                              with qryComm do
                              begin
                                 Close;
                                 SQL.Clear;
                                 //SQL.Add('SELECT 剩余車位 FROM JY_Park_info');
                                 SQL.Add('SELECT * FROM JY_Park_info');
                                 SQL.Add('where 車場名稱='''+parkname+'''');
                                 Open;
                                 if recordCount > 0 then
                                  begin
                                   parknum:=FieldByName('剩余車位').AsInteger;
                                   if (parknum< (FieldByName('車位數量').AsInteger )) then
                                      parknum:=parknum +1;
                                  end;

                                 Close;
                                 SQL.Clear;
                                 SQL.Add('UPDATE JY_Park_info SET 剩余車位='+IntToStr(parknum));
                                 SQL.Add('where 車場名稱='''+parkname+'''');
                                  try
                                      ExecSQL;
                                  except
                                       SQL.SaveToFile(AppDir+'logs' + FormatDateTime('YYYYMMddHHmmss',now)+'.txt');
                                  end;
                                 showLed(parknum,DevID);
                              end;
                            end;