Delphi - БД в Delphi - Страница 2

matroskin24 · 14.01.2009, 20:33

Я задам по другому вопрос, вот код:
procedure TForm10.Button1Click(Sender: TObject);
var tmp: single;
begin
tmp:=Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value;
Form8.Table1.Insert;
Form8.Table1.FieldByName('Дата').As String:= MaskEdit1.Text;
Form8.Table1.FieldByName('ГПП-7_ввод1_показания').AsString:= Edit2.Text;
Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value:=1.8*(Str ToFloat(Edit2.Text)-tmp);

Он работает но результат вычисления записывается в эту же калонку, а мне надо сделать так чтоб в этой колонке остались данные которые ввожу а результат записывался в колонку Form8.Table1.FieldByName('ГПП-7_ввод1_результат')

фЁдОр · 14.01.2009, 23:21

var tmp: single;
begin
tmp:=Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value;
Form8.Table1.Insert;
Form8.Table1.FieldByName('Дата').As String:= MaskEdit1.Text;
Form8.Table1.FieldByName('ГПП-7_ввод1_показания').AsString:= Edit2.Text;
Form8.Table1.FieldByName('ГПП-7_ввод1_РЕЗУЛЬТАТ').Value:=1.8*(Str ToFloat(Edit2.T ext)-tmp);
если и сейчас неправильно, значит корректно пишите вопросы, либо включайте свое серое вещество.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Программа-тест в Delphi) скиньте))а то програмку здавать преподу надо,и самой хочется понять Delphi	Верчик	Помощь студентам	9	02.03.2009 17:46
delphi 9 или delphi 2005 вопрос о работе	Doget	Компоненты Delphi	0	07.07.2008 08:50
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью?	redred	Общие вопросы Delphi	10	11.12.2007 10:43
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет?	dagarik	БД в Delphi	7	22.10.2007 17:54
не StringGrid1.Cells[1,1]:='Delphi'; а вот так SG1.C[1,1]:='Delphi'	Nemesisking	Компоненты Delphi	7	08.09.2007 03:27

14.01.2009, 20:33	#11
matroskin24 Пользователь Регистрация: 10.01.2009 Сообщений: 13	Я задам по другому вопрос, вот код: procedure TForm10.Button1Click(Sender: TObject); var tmp: single; begin tmp:=Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value; Form8.Table1.Insert; Form8.Table1.FieldByName('Дата').As String:= MaskEdit1.Text; Form8.Table1.FieldByName('ГПП-7_ввод1_показания').AsString:= Edit2.Text; Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value:=1.8*(Str ToFloat(Edit2.Text)-tmp); Он работает но результат вычисления записывается в эту же калонку, а мне надо сделать так чтоб в этой колонке остались данные которые ввожу а результат записывался в колонку Form8.Table1.FieldByName('ГПП-7_ввод1_результат')

14.01.2009, 23:21	#12
фЁдОр Форумчанин Регистрация: 06.09.2007 Сообщений: 908	var tmp: single; begin tmp:=Form8.Table1.FieldByName('ГПП-7_ввод1_показания').Value; Form8.Table1.Insert; Form8.Table1.FieldByName('Дата').As String:= MaskEdit1.Text; Form8.Table1.FieldByName('ГПП-7_ввод1_показания').AsString:= Edit2.Text; Form8.Table1.FieldByName('ГПП-7_ввод1_РЕЗУЛЬТАТ').Value:=1.8*(Str ToFloat(Edit2.T ext)-tmp); если и сейчас неправильно, значит корректно пишите вопросы, либо включайте свое серое вещество.