Как посчитать - БД в Delphi

Kovalenko.lokal · 01.05.2008, 12:23

Здравствуйте уважаемые пргораммисты помогите пожалуйста разобраться.
Каждый месяц в бд (аксес) я должен записывать сумму из edita и складывать с прошлой суммой и заносить в бд

Например на счете лежит 100 и отображается в Dbgride потом я добавляю из edita 50 и в dbgride Должно это отобразиться и одновременно занестись в бд 150 (использую Ado) Если можно то пример кода заранее спасибо

Pitbull · 01.05.2008, 23:18

ADOTable1.Edit;
ADOTable1.FieldByName('ПОЛЕ').Value :=ADOTable1.FieldByName('ПОЛЕ').Val ue+StrToInt(Edit1.Text);
ADOTable1.Post;

или

запросом

Pitbull · 01.05.2008, 23:26

var
i:integer;
begin
i:=ADOQuery1.Fields[0].Value;// запоминаете позицию той записи,которую нужно редактировать... Я использую поле под индексом 0, у меня єто поле отвечает за номер записи....

ADOCommand1.CommandText:='update proezd_main set kindavto=kindavto+'+Edit1.Text+ ' where id_proezd='+IntToStr(i);
ADOCommand1.Execute;
//обновляем данніе
ADOQuery1.Close;
ADOQuery1.Open;

Kovalenko.lokal · 02.05.2008, 11:05

Спасибо огромное

Kovalenko.lokal · 04.05.2008, 08:20

еще один вопрос немогу понять в чем дело
надо в label занести результат деления двух других labelov

label8.Caption:=inttostr(strtoint(l abel4.caption)/ StrToInt(Label10.caption));

говорит так нельзя а в чем проблема подскажите пожалуйста

Bor_Gus · 04.05.2008, 10:14

Такое деление возвращает значение с плавающей точкой а не целочисленное используй так:
label8.Caption:=FloatToStr(strtoint(label4.caption)/ StrToInt(Label10.caption));

Kovalenko.lokal · 04.05.2008, 10:28

Спасибо все получилось только число сильно длинное вот бы его еще округлить

dron-s · 04.05.2008, 10:59

Цитата:

Спасибо все получилось только число сильно длинное вот бы его еще округлить

Round или RoundTo из модуля Math

Kovalenko.lokal · 04.05.2008, 17:11

Ребята еще один вопрос помогите новичку
в общем таже БД есть одно поле ('sum') в нем записаны кол во зданных денег как это все сложить и получить результат например в labele
если можно то пример кода заранее спасибо

Bor_Gus · 04.05.2008, 18:16

По этому вопросу на форуме уже есть ответы. Сделай запрос вида:

ADOQuery1.SQL.add('SELECT SUM(sum) from MyTable');
Label1.Caption := Query1.FieldByName('SUM').AsInteger ;

Ну и соответственно добавив параметры

01.05.2008, 12:23	#1
Kovalenko.lokal Пользователь Регистрация: 21.04.2008 Сообщений: 17	Как посчитать Здравствуйте уважаемые пргораммисты помогите пожалуйста разобраться. Каждый месяц в бд (аксес) я должен записывать сумму из edita и складывать с прошлой суммой и заносить в бд Например на счете лежит 100 и отображается в Dbgride потом я добавляю из edita 50 и в dbgride Должно это отобразиться и одновременно занестись в бд 150 (использую Ado) Если можно то пример кода заранее спасибо

01.05.2008, 23:18	#2
Pitbull детский тренер Форумчанин Регистрация: 08.06.2007 Сообщений: 532	ADOTable1.Edit; ADOTable1.FieldByName('ПОЛЕ').Value :=ADOTable1.FieldByName('ПОЛЕ').Val ue+StrToInt(Edit1.Text); ADOTable1.Post; или запросом Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp

01.05.2008, 23:26	#3
Pitbull детский тренер Форумчанин Регистрация: 08.06.2007 Сообщений: 532	var i:integer; begin i:=ADOQuery1.Fields[0].Value;// запоминаете позицию той записи,которую нужно редактировать... Я использую поле под индексом 0, у меня єто поле отвечает за номер записи.... ADOCommand1.CommandText:='update proezd_main set kindavto=kindavto+'+Edit1.Text+ ' where id_proezd='+IntToStr(i); ADOCommand1.Execute; //обновляем данніе ADOQuery1.Close; ADOQuery1.Open; Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Посчитать символы в Edit	Avalonix	Общие вопросы Delphi	3	20.05.2008 15:06
посчитать заливки	Gly	Microsoft Office Excel	1	04.03.2008 12:53
Как посчитать матрицу?	RECREATOR	Помощь студентам	8	30.11.2007 07:10
Посчитать пример из строчки	CoDeR	Общие вопросы Delphi	5	15.10.2007 11:59
Помогите посчитать ряд..горю	xlr8	Паскаль, Turbo Pascal, PascalABC.NET	7	18.01.2007 07:51

02.05.2008, 11:05	#4
Kovalenko.lokal Пользователь Регистрация: 21.04.2008 Сообщений: 17	Спасибо огромное

04.05.2008, 08:20	#5
Kovalenko.lokal Пользователь Регистрация: 21.04.2008 Сообщений: 17	еще один вопрос немогу понять в чем дело надо в label занести результат деления двух других labelov label8.Caption:=inttostr(strtoint(l abel4.caption)/ StrToInt(Label10.caption)); говорит так нельзя а в чем проблема подскажите пожалуйста

04.05.2008, 10:14	#6
Bor_Gus Пользователь Регистрация: 02.04.2008 Сообщений: 18	Такое деление возвращает значение с плавающей точкой а не целочисленное используй так: label8.Caption:=FloatToStr(strtoint(label4.caption)/ StrToInt(Label10.caption));

04.05.2008, 10:28	#7
Kovalenko.lokal Пользователь Регистрация: 21.04.2008 Сообщений: 17	Спасибо все получилось только число сильно длинное вот бы его еще округлить

04.05.2008, 17:11	#9
Kovalenko.lokal Пользователь Регистрация: 21.04.2008 Сообщений: 17	Ребята еще один вопрос помогите новичку в общем таже БД есть одно поле ('sum') в нем записаны кол во зданных денег как это все сложить и получить результат например в labele если можно то пример кода заранее спасибо

04.05.2008, 18:16	#10
Bor_Gus Пользователь Регистрация: 02.04.2008 Сообщений: 18	По этому вопросу на форуме уже есть ответы. Сделай запрос вида: ADOQuery1.SQL.add('SELECT SUM(sum) from MyTable'); Label1.Caption := Query1.FieldByName('SUM').AsInteger ; Ну и соответственно добавив параметры