|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.04.2008, 15:12 | #11 |
Пользователь
Регистрация: 21.04.2008
Сообщений: 17
|
procedure TForm1.Button1Click(Sender: TObject);
begin if (LabeledEdit1.text='') or (Labelededit2.text='')or (LabeledEdit3.text='') then MessageDlg ('Çàïîëíèòå âñå ïîëÿ!', mtWarning, [mbOK], 0) else with AdoTable1 do Begin insert; FindField('Name').AsString:=Labeled Edit1.Text; FindField('1').AsString:=LabeledEdi t2.Text; FindField('2').AsString:=LabeledEdi t3.Text; Post; end; with Form1 do begin LabeledEdit1.Text:=''; LabeledEdit2.Text:=''; LabeledEdit3.Text:=''; end; end; procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet); begin Dbgrid1.Columns.Itog.Value:=(1.Valu e+2.Value); end; end. сама процедура обработки (я немогу работать с Dbgrid1) как обращаться к полям напишите пожалуйста |
21.04.2008, 17:10 | #12 | |
Форумчанин
Регистрация: 04.03.2007
Сообщений: 615
|
Цитата:
|
|
21.04.2008, 17:52 | #13 |
Пользователь
Регистрация: 21.04.2008
Сообщений: 17
|
а без query никак нельзя????
|
21.04.2008, 18:04 | #14 | ||
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
И вы туда ничего никогда в жизни не занесете. Любые данные можно занести только в датасет (ADOTable). Цитата:
Воспользуйтесь, в конце концов, богатым набором демо-программ, которые находятся на вашем компьютере в каталоге ...Borland\...Delphi7\Demos. Вы там найдете образцы программ почти на все случаи из жизни начинающих... |
||