门禁管理系统源程序代码之车位统计

申请免费试用、咨询电话：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;