не срабатывают DBEdit`ы

[sergeant94]

код

procedure TForm6.Button3Click(Sender: TObject);
var word:string;
begin
   Word:=Copy(Combobox4.Text,0,Pos(':',Combobox4.Text)-1);
   IF (monthCalendar3.date>(main.today-1))and(monthCalendar4.date>=monthCalendar3.date) then
   begin
     IF radioButton1.checked=true then
     begin
     dmg.clients.FieldValues['kol']:=0;
     dmg.clients.FieldValues['comment']:='Çàáðîíèðîâàë íîìåð';
     dmg.clients.post;
     DBEdit10.Text:=dmg.clients.FieldValues['CLId'];
                                                                                //DBEdit10.Text:=dmg.clients.FieldValues['CLId'];
     dmg.res_rooms.FieldValues['DPos']:=MonthCalendar3.Date;
     dmg.res_rooms.FieldValues['DOsv']:=MonthCalendar4.Date;
     dmg.res_rooms.FieldValues['cena']:=Label15.Caption;
     dmg.res_rooms.post;
     close;
     end;


     IF radioButton2.checked=true then
     with dmg.clients do
      begin
      Form2.DBGrid1.DataSource.DataSet.Open;
       First;
        while not Eof do
        begin
          IF (word<>'')and(fieldByName('clid').asString=word) then
          begin

          showmessage(word);                                                                               //   FieldValues['comment']:='Çàáðîíèðîâàë íîìåð';
          DBEdit10.Text:=FieldValues['CLId'];
          DBEdit11.Text:=FieldValues['Imya'];
          DBEdit7.Text:=FieldValues['Fam'];
          DBEdit6.Text:=FieldValues['Otch'];
          DBEdit9.Text:=FieldValues['Passport'];

          end;
        Next;
      end;
      end;
    //  EnableControls;


      dmg.res_rooms.edit;
      dmg.res_rooms.FieldValues['DPos']:=MonthCalendar3.Date;
      dmg.res_rooms.FieldValues['DOsv']:=MonthCalendar4.Date;
      dmg.res_rooms.FieldValues['cena']:=Label15.Caption;
      dmg.res_rooms.post;
     close;


   end
   else
   showmessage('Îøèáêà ñ äàòàìè...');
end;

кому интересно могу скинуть проект или остальные рукописи...

[Yurk@]

голый код и всё?
ты и вправду думаешь что кто-то будет вот так вот пытаться его понять?
опиши свою проблему, ошибки и т.д.

[Аватар]

А что должно изменится? Простое присваивание в DBEdit.Text ни каких действий с DataSet-ом не производит. Метод DataSet.Edit не выполняетсмя и, соответственно, данные в поля не помещаются

[sergeant94]

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

данные в поля помещаются, но не те какого клиента в комбобоксе выбрал..текст комбобокса начинаются с кода клиента['CLId']

поддержки нету...сам сделал, кому интересно вот что было не так,

procedure TForm6.Button3Click(Sender: TObject);
var word:string;
begin
   Word:=Copy(Combobox4.Text,0,Pos(' ',Combobox4.Text)-1);
   IF (monthCalendar3.date>(main.today-1))and(monthCalendar4.date>=monthCalendar3.date) then
   begin
     IF radioButton1.checked=true then
     begin
     dmg.clients.FieldValues['kol']:=0;
     dmg.clients.FieldValues['comment']:='Çàáðîíèðîâàë íîìåð';
     dmg.clients.post;
     DBEdit10.Text:=dmg.clients.FieldValues['CLId'];
                                                                                //DBEdit10.Text:=dmg.clients.FieldValues['CLId'];
     dmg.res_rooms.FieldValues['DPos']:=MonthCalendar3.Date;
     dmg.res_rooms.FieldValues['DOsv']:=MonthCalendar4.Date;
     dmg.res_rooms.FieldValues['cena']:=Label15.Caption;
     dmg.res_rooms.post;
     close;
     end;


     IF radioButton2.checked=true then
      with dmg.clients do
      begin
      First;
       while not Eof do
        begin
        Word:=Copy(Combobox4.Text,1,Pos(' ',Combobox4.Text)-1);
        IF (Word<>'')and(fieldByName('clid').asString=word) then
         begin
          //dmg.clients.Edit;                                                                 //   FieldValues['comment']:='Çàáðîíèðîâàë íîìåð';
          DBEdit10.Text:=FieldValues['CLId'];
          DBEdit11.Text:=FieldValues['Imya'];
          DBEdit7.Text:=FieldValues['Fam'];
          DBEdit6.Text:=FieldValues['Otch'];
          DBEdit9.Text:=FieldValues['Passport'];
         dmg.res_rooms.edit;
         dmg.res_rooms.FieldValues['DPos']:=MonthCalendar3.Date;
         dmg.res_rooms.FieldValues['DOsv']:=MonthCalendar4.Date;
         dmg.res_rooms.FieldValues['cena']:=Label15.Caption;
         dmg.res_rooms.post;
          end;
        Next;
        end;
      end;
      close;
   end
   else
   showmessage('Îøèáêà ñ äàòàìè...');
end;