ужно написать код на кнопку для регистрации

[sergeant94]

не работает по человечески код

IF (FieldValues['DPos']=MonthCalendar1.Date)and(FieldValues['nid']=DBComboBox3.text)and(FieldByName('DOsv').Value=null) then

Нужно сделать так чтобы если в балице active_rooms есть заселенный номер, с датой которую ставят при регистрации, выходила сообщение, о том что такой номер с такой датой не свободен и пользователя поросили изменить выбор. а если такого нету то зарегистрировать. Вот целый код. достаточно неддоработанный, просто то что пытался изменить выходили только одни ошибки. так более менее работает.

procedure TForm5.Button1Click(Sender: TObject);
begin
      With dmg.active_rooms do
      begin
      first;
        While not eof do
        begin
          IF (FieldValues['DPos']=MonthCalendar1.Date)and(FieldValues['nid']=DBComboBox3.text)and(FieldByName('DOsv').Value=null) then
          begin
          showmessage('Íà ýòî ÷èñëî ýòîò íîìåð íå ñâîáîäåí');
          end;
        next;
        end;
      end;

     IF monthCalendar1.date>(main.today-1) then
     begin
     dmg.clients.FieldValues['kol']:=1;
     dmg.clients.post;
     dbedit7.text:=dmg.clients.FieldValues['CLid'];
     dmg.active_rooms.FieldValues['DPos']:=MonthCalendar1.Date;
     dmg.active_rooms.FieldValues['prim']:=DBEdit6.text + ' (Öåíà çà ñóòêè: ' + Label8.Caption + ')';
     dmg.active_rooms.post;
     close;
     end
     else
     showmessage('Îøèáêà ñ äàòîé.');
     
end;

[sergeant94]

может как нибудь так

procedure TForm5.Button1Click(Sender: TObject);
begin
     IF monthCalendar1.date>(main.today-1) then
     begin
     dmg.clients.FieldValues['kol']:=1;
     dmg.clients.post;
     dbedit7.text:=dmg.clients.FieldValues['CLid'];
     dmg.active_rooms.FieldValues['DPos']:=MonthCalendar1.Date;
     dmg.active_rooms.FieldValues['prim']:=DBEdit6.text + ' (Öåíà çà ñóòêè: ' + Label8.Caption + ')';

      With dmg.active_rooms do
      begin
      first;


     Try
          While not eof do
          begin
          IF (FieldValues['DPos']=MonthCalendar1.Date)and(FieldValues['nid']=DBComboBox3.text)and(FieldByName('DOsv').Value=null) then
          begin
          showmessage('Íà ýòî ÷èñëî ýòîò íîìåð íå ñâîáîäåí');
          end;
          next;
          end;
     Except
           dmg.active_rooms.post;
           close;
     end;
//     else
//     showmessage('Îøèáêà ñ äàòîé.');
//      end;
//end;

[sergeant94]

ну не молчите люди..я уже весь день над этой ерунде застрял, было бы время сам бы все делал, просто мне эту программу для практики надо, осталось пару дней, а там кроме программы еще целая куча чего делать, ну помогите, спасибо скажу)

[Yurk@]

не работает по человечески код

а "по человечески код" это как?
опиши нормально свою проблему, ошибки ... тогда кто-то и поможет

[sergeant94]

не собираюсь я это объяснять, не важно, главное он не работает, если ты не понял,
а проблема в том что я при нажатии этой кнопки должно проверяться есть ли в таблице, в которую помещают новое поле, уже такое же поле, с таким же номером и с такой же датой поселения, эта программа для гостиницы

[Yurk@]

ну так и проверь нормально, запросом, а не ч\з костыли:

Query.Close;
Query.SQL.Text := 'SELECT * FROM poselenie WHERE number = :num AND data = :data';
Query.Parameters.ParamByName('num').AsInteger := StrToInt(Edit1.Text);
Query.Parameters.ParamByName('data').AsDate := MonthCalendar1.Date;
Query.Open;
if Query.RecordCount > 0 then 
  ShowMessage('Данный номер занят. Выберите другой');

[sergeant94]

у меня TTable и datasource...
люди ну помогите последняя проблема..и проект написан. весь день сижу

[Аватар]

sergeant94 MonthCalendar1.Date возвращает дату со временем. Мог бы в отладке давным-давно это увидеть. Надо же "весь день сижу". Чистая дата

var d: TDateTime;
...
d:=Trunc(MonthCalendar1.Date);

[Yurk@]

у меня TTable и datasource...

ну так реши эту проблему - создай еще TQuery

[Аватар]

не собираюсь я это объяснять, не важно, главное он не работает, если ты не понял,

С такими подходами не фиг на форумах помощи просить. Обычно и не дают. Жаль сразу не обратил внимания