門(mén)禁管理系統(tǒng)源程序代碼之車(chē)位統(tǒng)計(jì)

申請(qǐng)免費(fèi)試用、咨詢(xún)電話：400-8352-114

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

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