Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Форум программистов и сисадминов Киберфорум > Форум программистов > Delphi > Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/8: Рейтинг темы: голосов - 8, средняя оценка - 4.50
2 / 2 / 0
Регистрация: 09.09.2013
Сообщений: 130

Поместить значение из dbedit1.text в таблицу

07.01.2015, 13:59. Показов 1774. Ответов 8
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
БД access

Есть значение которое находится в dbedit1.text взятое из переменной y.
Как поместить значение из dbedit1.text или переменную y (тип real) в таблицу T1?
представьте несколько вариантов кодов плиз
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 07.01.2015, 13:59
Ответы с готовыми решениями:

Поместить значение DBEdit1 в строчку (столбец)
пишу такой код DBEdit3 ->Text = StrToInt((IntToStr(StrToInt(DBEdit1->Text)+StrToInt(DBEdit2->Text)))) ; т.е. должно считать сумму...

DateTimePicker1.Date = DBEdit1.Text ;
Здравствуйте ребята. Хочу что DateTimePicker выбрал из DBEdit дата .... если на DBEdit1 дата =20.02.2011 что тоже самое установить...

как из выпадающего списка поместить выбранное значение в input type=text
Подскажите пожалуйста как из выпадающего списка поместить выбранное значение в <input type="text" name="test">...

8
 Аватар для virtual[ity]
165 / 143 / 66
Регистрация: 05.06.2010
Сообщений: 641
07.01.2015, 16:54
Delphi
1
2
3

ADOSQL.Append;
ADOSQL.FieldByName('Столбец1').Value:= y или DBEdit1.text;
ADOSQL.Post;
SQL
1

INSERT INTO T1(Столбец1) VALUES('''+y+''' или '''+dbedit1.text+''')
Как то так.
0
2 / 2 / 0
Регистрация: 09.09.2013
Сообщений: 130
08.01.2015, 08:43  [ТС]
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

DBEdit27.Visible:=true;
if DBCheckBox3.Checked=false then begin
bk:=0
end
else
bk:=strtofloat(form33.DBGrid3.DataSource.DataSet.Fields[1].AsString);
 
if DBCheckBox4.Checked=false then begin
k2:=0
end
else
k2:=strtofloat(form33.DBGrid5.DataSource.DataSet.Fields[1].AsString);
 
if DBCheckBox5.Checked=false then begin
k1:=0
end
else
k1:=strtofloat(form33.DBGrid7.DataSource.DataSet.Fields[1].AsString);
 
if DBCheckBox6.Checked=false then begin
vk:=0
end
else
vk:=strtofloat(form33.DBGrid9.DataSource.DataSet.Fields[1].AsString);
 
y:=bk+k2+k1+vk;
DBEdit27.Text:=floattostr(y); 
data_dog.Qnarkoz_itog.Close;
data_dog.Qnarkoz_itog.SQL.Clear;
data_dog.Qnarkoz_itog.SQL.Add('INSERT INTO narkoz_itog (Expr1001) VALUES('''+strtofloat(y)+''')');
data_dog.Qnarkoz_itog.Open;
выдает ошибку при компиляции, что не так?
[Error] doc_narkoz_bk.pas(741): There is no overloaded version of 'StrToFloat' that can be called with these arguments
[Fatal Error] medocs.dpr(41): Could not compile used unit 'doc_narkoz_bk.pas'
0
пофигист широкого профиля
4769 / 3204 / 862
Регистрация: 15.07.2013
Сообщений: 18,612
08.01.2015, 09:33
Цитата Сообщение от dumkast Посмотреть сообщение
что не так?
Честно говоря всё не так.
1. Зачем тебе вообще DBEdit?
2. Запрос INSERT INTO выполнится при Query.ExecSQL, а не Query.Open
3. Данная конкретная ошибка при компиляции из-за
Цитата Сообщение от dumkast Посмотреть сообщение
strtofloat(y)
y уже и так число, а не строка.
0
2 / 2 / 0
Регистрация: 09.09.2013
Сообщений: 130
08.01.2015, 09:59  [ТС]
DBEdit для вывода итога суммы чтобы пользователь видел сумму.
если просто писать
Delphi
1

data_dog.Qnarkoz_itog.SQL.Add('INSERT INTO narkoz_itog (Expr1001) VALUES('+y+')');
пишет ошибку.
[Error] doc_narkoz_bk.pas(740): Incompatible types: 'String' and 'Real'
[Fatal Error] medocs.dpr(41): Could not compile used unit 'doc_narkoz_bk.pas'
0
231 / 163 / 54
Регистрация: 26.10.2014
Сообщений: 928
08.01.2015, 12:28
попробуйте так:
Delphi
1

data_dog.Qnarkoz_itog.SQL.Add('INSERT INTO narkoz_itog (Expr1001) VALUES('+FloatToStr(y)+')');
1
пофигист широкого профиля
4769 / 3204 / 862
Регистрация: 15.07.2013
Сообщений: 18,612
09.01.2015, 02:08
Цитата Сообщение от dumkast Посмотреть сообщение
DBEdit для вывода итога суммы чтобы пользователь видел сумму.
Для вывода "итога суммы чтобы пользователь видел сумму" вполне достаточно обычного TLabel.
Не надо думать что если программа работает с БД, то все визуальные компоненты на форме обязательно должны иметь приставку DB.
0
2 / 2 / 0
Регистрация: 09.09.2013
Сообщений: 130
10.01.2015, 17:37  [ТС]
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115

var
i:integer;
begin
i:=DBEdit3.DataSource.DataSet.Fields[0].AsInteger;
if DBEdit16.Visible= false  then begin
data_dog.Qnarkoz_bk_itog.Close;
data_dog.Qnarkoz_bk_itog.SQL.Clear;
data_dog.Qnarkoz_bk_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_bk.nomer_dogovora, SUM(vzrosliy_bk.vrach_bez_kat_vsros*vipoln_uslugi_narkoz_bk.kol_uslugi_vzros)' );
data_dog.Qnarkoz_bk_itog.SQL.Add('FROM vipoln_uslugi_narkoz_bk');
data_dog.Qnarkoz_bk_itog.SQL.Add('INNER JOIN vzrosliy_bk ON vipoln_uslugi_narkoz_bk.kod_uslugi_vzros=vzrosliy_bk.id_vsros');
data_dog.Qnarkoz_bk_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_bk.nomer_dogovora');
data_dog.Qnarkoz_bk_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_bk.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_bk_itog.Open;
 
data_dog.Qnarkoz_2k_itog.Close;
data_dog.Qnarkoz_2k_itog.SQL.Clear;
data_dog.Qnarkoz_2k_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_2kat.nomer_dogovora, SUM(vzrosliy_2kat.vrach_2_kat_vsros*vipoln_uslugi_narkoz_2kat.kol_uslugi_vzros)' );
data_dog.Qnarkoz_2k_itog.SQL.Add('FROM vipoln_uslugi_narkoz_2kat');
data_dog.Qnarkoz_2k_itog.SQL.Add('INNER JOIN vzrosliy_2kat ON vipoln_uslugi_narkoz_2kat.kod_uslugi_vzros=vzrosliy_2kat.id_vsros');
data_dog.Qnarkoz_2k_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_2kat.nomer_dogovora');
data_dog.Qnarkoz_2k_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_2kat.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_2k_itog.Open;
 
data_dog.Qnarkoz_1k_itog.Close;
data_dog.Qnarkoz_1k_itog.SQL.Clear;
data_dog.Qnarkoz_1k_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_1k.nomer_dogovora, SUM(vzrosliy_1kat.vrach_1_kat_vsros*vipoln_uslugi_narkoz_1k.kol_uslugi_vzros)' );
data_dog.Qnarkoz_1k_itog.SQL.Add('FROM vipoln_uslugi_narkoz_1k');
data_dog.Qnarkoz_1k_itog.SQL.Add('INNER JOIN vzrosliy_1kat ON vipoln_uslugi_narkoz_1k.kod_uslugi_vzros=vzrosliy_1kat.id_vsros');
data_dog.Qnarkoz_1k_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_1k.nomer_dogovora');
data_dog.Qnarkoz_1k_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_1k.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_1k_itog.Open;
 
data_dog.Qnarkoz_vk_itog.Close;
data_dog.Qnarkoz_vk_itog.SQL.Clear;
data_dog.Qnarkoz_vk_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_vk.nomer_dogovora, SUM(vsrosliy_vishkat.vrach_vish_kat_vsros*vipoln_uslugi_narkoz_vk.kol_uslugi_vzros)' );
data_dog.Qnarkoz_vk_itog.SQL.Add('FROM vipoln_uslugi_narkoz_vk');
data_dog.Qnarkoz_vk_itog.SQL.Add('INNER JOIN vsrosliy_vishkat ON vipoln_uslugi_narkoz_vk.kod_uslugi_vzros=vsrosliy_vishkat.id_vsros');
data_dog.Qnarkoz_vk_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_vk.nomer_dogovora');
data_dog.Qnarkoz_vk_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_vk.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_vk_itog.Open;
end
else
begin
data_dog.Qnarkoz_bk_itog.Close;// запрос по скидкам тут
data_dog.Qnarkoz_bk_itog.SQL.Clear;
data_dog.Qnarkoz_bk_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_bk.nomer_dogovora, SUM(vzrosliy_bk.vrach_bez_kat_vsros*vipoln_uslugi_narkoz_bk.kol_uslugi_vzros)-(SUM((vzrosliy_bk.vrach_bez_kat_vsros*vipoln_uslugi_narkoz_bk.kol_uslugi_vzros)*10)/100)');
data_dog.Qnarkoz_bk_itog.SQL.Add('FROM vipoln_uslugi_narkoz_bk');
data_dog.Qnarkoz_bk_itog.SQL.Add('INNER JOIN vzrosliy_bk ON vipoln_uslugi_narkoz_bk.kod_uslugi_vzros=vzrosliy_bk.id_vsros');
data_dog.Qnarkoz_bk_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_bk.nomer_dogovora');
data_dog.Qnarkoz_bk_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_bk.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_bk_itog.Open;
 
data_dog.Qnarkoz_2k_itog.Close;
data_dog.Qnarkoz_2k_itog.SQL.Clear;
data_dog.Qnarkoz_2k_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_2kat.nomer_dogovora, SUM(vzrosliy_2kat.vrach_2_kat_vsros*vipoln_uslugi_narkoz_2kat.kol_uslugi_vzros)-(SUM((vzrosliy_2kat.vrach_2_kat_vsros*vipoln_uslugi_narkoz_2kat.kol_uslugi_vzros)*10)/100)');
data_dog.Qnarkoz_2k_itog.SQL.Add('FROM vipoln_uslugi_narkoz_2kat');
data_dog.Qnarkoz_2k_itog.SQL.Add('INNER JOIN vzrosliy_2kat ON vipoln_uslugi_narkoz_2kat.kod_uslugi_vzros=vzrosliy_2kat.id_vsros');
data_dog.Qnarkoz_2k_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_2kat.nomer_dogovora');
data_dog.Qnarkoz_2k_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_2kat.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_2k_itog.Open;
 
data_dog.Qnarkoz_1k_itog.Close;
data_dog.Qnarkoz_1k_itog.SQL.Clear;
data_dog.Qnarkoz_1k_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_1k.nomer_dogovora, SUM(vzrosliy_1kat.vrach_1_kat_vsros*vipoln_uslugi_narkoz_1k.kol_uslugi_vzros)-(SUM((vzrosliy_1kat.vrach_1_kat_vsros*vipoln_uslugi_narkoz_1k.kol_uslugi_vzros)*10)/100)');
data_dog.Qnarkoz_1k_itog.SQL.Add('FROM vipoln_uslugi_narkoz_1k');
data_dog.Qnarkoz_1k_itog.SQL.Add('INNER JOIN vzrosliy_1kat ON vipoln_uslugi_narkoz_1k.kod_uslugi_vzros=vzrosliy_1kat.id_vsros');
data_dog.Qnarkoz_1k_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_1k.nomer_dogovora');
data_dog.Qnarkoz_1k_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_1k.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_1k_itog.Open;
 
data_dog.Qnarkoz_vk_itog.Close;
data_dog.Qnarkoz_vk_itog.SQL.Clear;
data_dog.Qnarkoz_vk_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_vk.nomer_dogovora, SUM(vsrosliy_vishkat.vrach_vish_kat_vsros*vipoln_uslugi_narkoz_vk.kol_uslugi_vzros)-(SUM((vsrosliy_vishkat.vrach_vish_kat_vsros*vipoln_uslugi_narkoz_vk.kol_uslugi_vzros)*10)/100)');
data_dog.Qnarkoz_vk_itog.SQL.Add('FROM vipoln_uslugi_narkoz_vk');
data_dog.Qnarkoz_vk_itog.SQL.Add('INNER JOIN vsrosliy_vishkat ON vipoln_uslugi_narkoz_vk.kod_uslugi_vzros=vsrosliy_vishkat.id_vsros');
data_dog.Qnarkoz_vk_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_vk.nomer_dogovora');
data_dog.Qnarkoz_vk_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_vk.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_vk_itog.Open;
end;';
 
label40.Visible:=true;
if DBCheckBox3.Checked=false then begin
bk:=0
end
else
bk:=strtofloat(form33.DBGrid3.DataSource.DataSet.Fields[1].AsString);
 
if DBCheckBox4.Checked=false then begin
k2:=0
end
else
k2:=strtofloat(form33.DBGrid5.DataSource.DataSet.Fields[1].AsString);
 
if DBCheckBox5.Checked=false then begin
k1:=0
end
else
k1:=strtofloat(form33.DBGrid7.DataSource.DataSet.Fields[1].AsString);
 
if DBCheckBox6.Checked=false then begin
vk:=0
end
else
vk:=strtofloat(form33.DBGrid9.DataSource.DataSet.Fields[1].AsString);
 
y:=bk+k2+k1+vk;
y1:=floattostr(y);
label40.Caption:=floattostr(y); 
data_dog.Qnarkoz_itog.Close;
data_dog.Qnarkoz_itog.SQL.Clear;
data_dog.Qnarkoz_itog.SQL.Text:='DELETE FROM narkoz_itog';
data_dog.Qnarkoz_itog.ExecSQL;
data_dog.Qnarkoz_itog.SQL.Clear;
data_dog.Qnarkoz_itog.SQL.Add('INSERT INTO narkoz_itog (Expr1001) VALUES('+y1+')');
data_dog.Qnarkoz_itog.ExecSQL;
все считает, но ошибка выскакивает
Миниатюры
Поместить значение из dbedit1.text в таблицу  
0
2 / 2 / 0
Регистрация: 09.09.2013
Сообщений: 130
10.01.2015, 20:53  [ТС]
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

var
VAR
i:integer;
begin
i:=DBEdit3.DataSource.DataSet.Fields[0].AsInteger;
if DBEdit16.Visible= false  then begin
data_dog.Qnarkoz_bk_itog.Close;
data_dog.Qnarkoz_bk_itog.SQL.Clear;
data_dog.Qnarkoz_bk_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_bk.nomer_dogovora, SUM(vzrosliy_bk.vrach_bez_kat_vsros*vipoln_uslugi_narkoz_bk.kol_uslugi_vzros)' );
data_dog.Qnarkoz_bk_itog.SQL.Add('FROM vipoln_uslugi_narkoz_bk');
data_dog.Qnarkoz_bk_itog.SQL.Add('INNER JOIN vzrosliy_bk ON vipoln_uslugi_narkoz_bk.kod_uslugi_vzros=vzrosliy_bk.id_vsros');
data_dog.Qnarkoz_bk_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_bk.nomer_dogovora');
data_dog.Qnarkoz_bk_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_bk.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_bk_itog.Open;
 
data_dog.Qnarkoz_2k_itog.Close;
data_dog.Qnarkoz_2k_itog.SQL.Clear;
data_dog.Qnarkoz_2k_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_2kat.nomer_dogovora, SUM(vzrosliy_2kat.vrach_2_kat_vsros*vipoln_uslugi_narkoz_2kat.kol_uslugi_vzros)' );
data_dog.Qnarkoz_2k_itog.SQL.Add('FROM vipoln_uslugi_narkoz_2kat');
data_dog.Qnarkoz_2k_itog.SQL.Add('INNER JOIN vzrosliy_2kat ON vipoln_uslugi_narkoz_2kat.kod_uslugi_vzros=vzrosliy_2kat.id_vsros');
data_dog.Qnarkoz_2k_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_2kat.nomer_dogovora');
data_dog.Qnarkoz_2k_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_2kat.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_2k_itog.Open;
 
data_dog.Qnarkoz_1k_itog.Close;
data_dog.Qnarkoz_1k_itog.SQL.Clear;
data_dog.Qnarkoz_1k_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_1k.nomer_dogovora, SUM(vzrosliy_1kat.vrach_1_kat_vsros*vipoln_uslugi_narkoz_1k.kol_uslugi_vzros)' );
data_dog.Qnarkoz_1k_itog.SQL.Add('FROM vipoln_uslugi_narkoz_1k');
data_dog.Qnarkoz_1k_itog.SQL.Add('INNER JOIN vzrosliy_1kat ON vipoln_uslugi_narkoz_1k.kod_uslugi_vzros=vzrosliy_1kat.id_vsros');
data_dog.Qnarkoz_1k_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_1k.nomer_dogovora');
data_dog.Qnarkoz_1k_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_1k.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_1k_itog.Open;
 
data_dog.Qnarkoz_vk_itog.Close;
data_dog.Qnarkoz_vk_itog.SQL.Clear;
data_dog.Qnarkoz_vk_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_vk.nomer_dogovora, SUM(vsrosliy_vishkat.vrach_vish_kat_vsros*vipoln_uslugi_narkoz_vk.kol_uslugi_vzros)' );
data_dog.Qnarkoz_vk_itog.SQL.Add('FROM vipoln_uslugi_narkoz_vk');
data_dog.Qnarkoz_vk_itog.SQL.Add('INNER JOIN vsrosliy_vishkat ON vipoln_uslugi_narkoz_vk.kod_uslugi_vzros=vsrosliy_vishkat.id_vsros');
data_dog.Qnarkoz_vk_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_vk.nomer_dogovora');
data_dog.Qnarkoz_vk_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_vk.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_vk_itog.Open;
end
else
begin
data_dog.Qnarkoz_bk_itog.Close;
data_dog.Qnarkoz_bk_itog.SQL.Clear;
data_dog.Qnarkoz_bk_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_bk.nomer_dogovora, SUM(vzrosliy_bk.vrach_bez_kat_vsros*vipoln_uslugi_narkoz_bk.kol_uslugi_vzros)-(SUM((vzrosliy_bk.vrach_bez_kat_vsros*vipoln_uslugi_narkoz_bk.kol_uslugi_vzros)*10)/100)');
data_dog.Qnarkoz_bk_itog.SQL.Add('FROM vipoln_uslugi_narkoz_bk');
data_dog.Qnarkoz_bk_itog.SQL.Add('INNER JOIN vzrosliy_bk ON vipoln_uslugi_narkoz_bk.kod_uslugi_vzros=vzrosliy_bk.id_vsros');
data_dog.Qnarkoz_bk_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_bk.nomer_dogovora');
data_dog.Qnarkoz_bk_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_bk.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_bk_itog.Open;
 
data_dog.Qnarkoz_2k_itog.Close;
data_dog.Qnarkoz_2k_itog.SQL.Clear;
data_dog.Qnarkoz_2k_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_2kat.nomer_dogovora, SUM(vzrosliy_2kat.vrach_2_kat_vsros*vipoln_uslugi_narkoz_2kat.kol_uslugi_vzros)-(SUM((vzrosliy_2kat.vrach_2_kat_vsros*vipoln_uslugi_narkoz_2kat.kol_uslugi_vzros)*10)/100)');
data_dog.Qnarkoz_2k_itog.SQL.Add('FROM vipoln_uslugi_narkoz_2kat');
data_dog.Qnarkoz_2k_itog.SQL.Add('INNER JOIN vzrosliy_2kat ON vipoln_uslugi_narkoz_2kat.kod_uslugi_vzros=vzrosliy_2kat.id_vsros');
data_dog.Qnarkoz_2k_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_2kat.nomer_dogovora');
data_dog.Qnarkoz_2k_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_2kat.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_2k_itog.Open;
 
data_dog.Qnarkoz_1k_itog.Close;
data_dog.Qnarkoz_1k_itog.SQL.Clear;
data_dog.Qnarkoz_1k_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_1k.nomer_dogovora, SUM(vzrosliy_1kat.vrach_1_kat_vsros*vipoln_uslugi_narkoz_1k.kol_uslugi_vzros)-(SUM((vzrosliy_1kat.vrach_1_kat_vsros*vipoln_uslugi_narkoz_1k.kol_uslugi_vzros)*10)/100)');
data_dog.Qnarkoz_1k_itog.SQL.Add('FROM vipoln_uslugi_narkoz_1k');
data_dog.Qnarkoz_1k_itog.SQL.Add('INNER JOIN vzrosliy_1kat ON vipoln_uslugi_narkoz_1k.kod_uslugi_vzros=vzrosliy_1kat.id_vsros');
data_dog.Qnarkoz_1k_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_1k.nomer_dogovora');
data_dog.Qnarkoz_1k_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_1k.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_1k_itog.Open;
 
data_dog.Qnarkoz_vk_itog.Close;
data_dog.Qnarkoz_vk_itog.SQL.Clear;
data_dog.Qnarkoz_vk_itog.SQL.Add('SELECT vipoln_uslugi_narkoz_vk.nomer_dogovora, SUM(vsrosliy_vishkat.vrach_vish_kat_vsros*vipoln_uslugi_narkoz_vk.kol_uslugi_vzros)-(SUM((vsrosliy_vishkat.vrach_vish_kat_vsros*vipoln_uslugi_narkoz_vk.kol_uslugi_vzros)*10)/100)');
data_dog.Qnarkoz_vk_itog.SQL.Add('FROM vipoln_uslugi_narkoz_vk');
data_dog.Qnarkoz_vk_itog.SQL.Add('INNER JOIN vsrosliy_vishkat ON vipoln_uslugi_narkoz_vk.kod_uslugi_vzros=vsrosliy_vishkat.id_vsros');
data_dog.Qnarkoz_vk_itog.SQL.Add('GROUP BY vipoln_uslugi_narkoz_vk.nomer_dogovora');
data_dog.Qnarkoz_vk_itog.SQL.Add('HAVING vipoln_uslugi_narkoz_vk.nomer_dogovora= '+inttostr(i));
data_dog.Qnarkoz_vk_itog.Open;
end;
 
label40.Visible:=true;
if DBCheckBox3.Checked=false then begin
bk:=0
end
else
bk:=strtofloat(form33.DBGrid3.DataSource.DataSet.Fields[1].AsString);
 
if DBCheckBox4.Checked=false then begin
k2:=0
end
else
k2:=strtofloat(form33.DBGrid5.DataSource.DataSet.Fields[1].AsString);
 
if DBCheckBox5.Checked=false then begin
k1:=0
end
else
k1:=strtofloat(form33.DBGrid7.DataSource.DataSet.Fields[1].AsString);
 
if DBCheckBox6.Checked=false then begin
vk:=0
end
else
vk:=strtofloat(form33.DBGrid9.DataSource.DataSet.Fields[1].AsString);
 
y:=bk+k2+k1+vk;
y1:=floattostr(y);
label40.Caption:=floattostr(y); //ðåçóëòàò õðàíèì ïîêà â ïàìÿòè
data_dog.Qnarkoz_itog.Close;
data_dog.Qnarkoz_itog.SQL.Clear;
data_dog.Qnarkoz_itog.SQL.Text:='DELETE FROM narkoz_itog';
data_dog.Qnarkoz_itog.ExecSQL;
data_dog.Qnarkoz_itog.SQL.Clear;
data_dog.Qnarkoz_itog.SQL.Add('INSERT INTO narkoz_itog (nomer_dogovora, Expr1001) VALUES('+y1+')');
data_dog.Qnarkoz_itog.ExecSQL;
Добавлено через 1 час 36 минут
разобрался сам всем спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 10.01.2015, 20:53
Помогаю со студенческими работами здесь

Как в excel поместить значение в координатную таблицу
Приветствую всех, подскажите по решению следующей задачи: Есть таблица, координатная сверху по горизонтали цифры, с боку по вертикали...

Edit->Text поместить в TMemoryStream.?
Добрый день, ребят! Вопрос простой, но что-то я не могу разобраться. Есть на форме Edit, в него записывается много текста. Не пойму,...

Поместить название активного Tabitem'а в label1.Text
Ребят, такая проблемка. Поставил Tabcontrol создал 8 Tabitem, toolbar и на toolbar повесил 2 кнопки, и на них повесил по Action, что бы...

результат выборки из БД: rs.next(); String text=rs.getString('text'); <input type=text name=name value=<%=text%>>
Возникла проблема в текстовое поле надо вывести результат выборки из БД rs.next(); String text=rs.getString('text'); &lt;input...

combobox2.text не переносит свое значение в label1.caption и в clientdataset1.Lookup('Dolz',ComboBox2.text,'Put')
1 Выбираю первым комбобоксом фильтрующее значение, фильтрую таблицу и заполняю второй комбобокс значениями из второго поля таблицы 2...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
 Символические и жёсткие ссылки в Linux.
algri14 15.03.2026
Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора
ФедосеевПавел 14.03.2026
Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
 SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
 Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru