Подскажите как правильно написать код для ComboBox

@DDAri · Регистрация: 13.11.2014

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Недавно начала изучать дельфи. Подскажите как правильно написать в следующим коде привязку с ComboBox.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm3.RadioButton2Click(Sender: TObject);
begin
if RadioButton2.Checked then
begin
DataModule5.ADOQuery1.Close;
    DataModule5.ADOQuery1.SQL.Clear;
    DataModule5.ADOQuery1.SQL.Add('SELECT * FROM nefteproduct');
    DataModule5.ADOQuery1.Open;
    DataModule5.ADOQuery1.Active:=true;
if ComboBox2:=True then// не знаю как тут написать правильно
DataModule5.ADOQuery1.Insert;
DataModule5.ADOQuery1['fgp']:=edit5.Text;
            DataModule5.ADOQuery1['neft']:=edit5.Text;
            DataModule5.ADOQuery1['benzin']:=edit5.Text;
            DataModule5.ADOQuery1.Post;
 
end;
end;

Благодарю заранее!

@xxbesoxx · 26.08.2015, 15:18

Сообщение от DDAri

Тока данные в бд не сохраняются..

Не какой отношения это код не имеет сохранение БД запись .... Представляю что у вас много Adotable и AdoQuery назовите всех осмислення имя ... и покажите код

@DDAri · 26.08.2015, 15:29 **[ТС]**

Подскажите как правильно написать код для ComboBox

Правда у меня несколько таблиц. ТМЦ, Нефтепродукт и Общего журнала для каждого своя таблица в одной базе. (БД у меня MySQL). ТМЦ и Общий журнал сохраняются успешно. Тока вот с нефтепродуктом чет не то.

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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Menus, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls,
  Mask;
 
type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    ComboBox2: TComboBox;
    Edit5: TEdit;
    Label9: TLabel;
    Button1: TButton;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
uses Unit5, Unit6, Unit7;
 
{$R *.dfm}
 
procedure TForm3.FormCreate(Sender: TObject);
begin
Label11.Caption:='Дата: '+DateToStr(Date);
Label12.Caption:='Время: '+TimeToStr(Time);
end;
 
procedure TForm3.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked then
Form6.Show;
end;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
with DataModule5.qrynefteproduct do
  begin
  SQL.Clear;
  SQL.Append('SELECT DISTINCT Naimenovanie FROM nefteproduct'); 
  Open;
   // ---------Заполняем ComboBox1 ---------- //
  ComboBox2.Items.Clear;
  While not DataModule5.qrynefteproduct.Eof do
  begin
     ComboBox2.Items.Add(DataModule5.qrynefteproduct.Fields[0].AsString);
     DataModule5.qrynefteproduct.Next;
  end;
end;
begin
 try
    DataModule5.ADOQuery1.Close;
    DataModule5.ADOQuery1.SQL.Clear;
    DataModule5.ADOQuery1.SQL.Add('SELECT * FROM tmc');
    DataModule5.ADOQuery1.Open;
    DataModule5.ADOQuery1.Active:=true;
            DataModule5.ADOQuery1.Insert;
            DataModule5.ADOQuery1['FIO_inspectr_ohran_vezd']:=ComboBox1.Text;
            DataModule5.ADOQuery1['reg_num_auto_vezd']:=edit1.Text;
            DataModule5.ADOQuery1['num_polupricepa_vezd']:=edit2.Text;
            DataModule5.ADOQuery1['FIO_vnos_vvoz_vezd']:=edit3.Text;
            DataModule5.ADOQuery1['soprovod_doc_vezd']:=edit4.Text;
            DataModule5.ADOQuery1.Post;
            except
        ShowMessage('Ошибка сохранения');
            end;
            ShowMessage('Успешно сохранения');
        Form7.Show;
 
end;
end;
 
procedure TForm3.RadioButton3Click(Sender: TObject);
begin
ShowMessage('Пустой');
end;
 
procedure TForm3.ComboBox2Change(Sender: TObject);
begin
 if RadioButton2.Checked=false then
 begin
   ShowMessage('Выберите нефтепродукт');
   ComboBox2.SetFocus;
 end
 else
 if RadioButton2.Checked=true then
 begin
   with DataModule5.ADOQuery1 do
   begin
     SQL.Clear;
     SQL.Append('SELECT * FROM nefteproduct where Naimenovanie= '''+ Trim(ComboBox2.Text)+'''');
     Open;
     Edit5.Text := DataModule5.ADOQuery1.FieldByName('Toni').AsString;
   end;
 end;
 
end;
 
end.

Благодарю Вас!

@xxbesoxx · 26.08.2015, 15:41

1)

DataModule5.ADOQuery1.Open;
DataModule5.ADOQuery1.Active:=true;

на 89 и 90 Open и Active:=true; одно и тоже ! Убери 1 или 2

2) От 70 До 84 это код из события OnShow

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
with DataModule5.qrynefteproduct do
  begin
  SQL.Clear;
  SQL.Append('SELECT DISTINCT Naimenovanie FROM nefteproduct'); 
  Open;
   // ---------Заполняем ComboBox1 ---------- //
  ComboBox2.Items.Clear;
  While not DataModule5.qrynefteproduct.Eof do
  begin
     ComboBox2.Items.Add(DataModule5.qrynefteproduct.Fields[0].AsString);
     DataModule5.qrynefteproduct.Next;
  end;
end;

И проверяй

@xxbesoxx · 26.08.2015, 15:50

У тебя на кнопке Form3.Button1Click написано много разное чего .... и за этого

@DDAri · 26.08.2015, 15:57 **[ТС]**

Если делаю по Вашему

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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Menus, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls,
  Mask;
 
type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    ComboBox2: TComboBox;
    Edit5: TEdit;
    Label9: TLabel;
    Button1: TButton;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    procedure RadioButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ShowForm(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
uses Unit5, Unit6, Unit7;
 
{$R *.dfm}
 
 
procedure TForm3.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked then
Form6.Show;
end;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
 try
    DataModule5.ADOQuery1.Close;
    DataModule5.ADOQuery1.SQL.Clear;
    DataModule5.ADOQuery1.SQL.Add('SELECT * FROM tmc');
    DataModule5.ADOQuery1.Active:=true;
            DataModule5.ADOQuery1.Insert;
            DataModule5.ADOQuery1['FIO_inspectr_ohran_vezd']:=ComboBox1.Text;
            DataModule5.ADOQuery1['reg_num_auto_vezd']:=edit1.Text;
            DataModule5.ADOQuery1['num_polupricepa_vezd']:=edit2.Text;
            DataModule5.ADOQuery1['FIO_vnos_vvoz_vezd']:=edit3.Text;
            DataModule5.ADOQuery1['soprovod_doc_vezd']:=edit4.Text;
            DataModule5.ADOQuery1.Post;
            except
        ShowMessage('Îøèáêà ñîõðàíåíèÿ');
            end;
            ShowMessage('Óñïåøíî ñîõðàíåíèÿ');
        Form7.Show;
 
end;
 
 
procedure TForm3.RadioButton3Click(Sender: TObject);
begin
ShowMessage('Ïóñòîé');
end;
 
procedure TForm3.ComboBox2Change(Sender: TObject);
begin
 if RadioButton2.Checked=false then
 begin
   ShowMessage('Âûáåðèòå íåôòåïðîäóêò');
   ComboBox2.SetFocus;
 end
 else
 if RadioButton2.Checked=true then
 begin
   with DataModule5.ADOQuery1 do
   begin
     SQL.Clear;
     SQL.Append('SELECT * FROM nefteproduct where Naimenovanie= '''+ Trim(ComboBox2.Text)+'''');
     Open;
     Edit5.Text := DataModule5.ADOQuery1.FieldByName('Toni').AsString;
   end;
 end;
 
end;
 
procedure TForm3.ShowForm(Sender: TObject);
begin
Label11.Caption:='Äàòà: '+DateToStr(Date);
Label12.Caption:='Âðåìÿ: '+TimeToStr(Time);
begin
with DataModule5.qrynefteproduct do
  begin
  SQL.Clear;
  SQL.Append('SELECT DISTINCT Naimenovanie FROM nefteproduct'); 
  Open;
   // ---------Çàïîëíÿåì ComboBox1 ---------- //
  ComboBox2.Items.Clear;
  While not DataModule5.qrynefteproduct.Eof do
  begin
     ComboBox2.Items.Add(DataModule5.qrynefteproduct.Fields[0].AsString);
     DataModule5.qrynefteproduct.Next;
  end;
end;
end;
end;
 
end.

то в Комбобокс2 ничего не выходит. Т.е.

Огромное огромнейшие СПАСИБО ВАМ!

@xxbesoxx · 26.08.2015, 16:13

Сообщение от DDAri

то в Комбобокс2 ничего не выходит. Т.е.

qrynefteproduct Должен только для этого запроса . Пример смотрите

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
with DataModule2.qrynefteproduct do
  begin
  SQL.Clear;
  SQL.Append('SELECT DISTINCT Naimenovanie FROM nefteproduct'); 
  Open;
   // ---------Çàïîëíÿåì ComboBox1 ---------- //
  ComboBox1.Items.Clear;
  While not DataModule2.qrynefteproduct.Eof do
  begin
     ComboBox1.Items.Add(DataModule2.qrynefteproduct.Fields[0].AsString);
     DataModule2.qrynefteproduct.Next;
  end;
end;

@xxbesoxx · 26.08.2015, 16:24

Сообщение от DDAri

то в Комбобокс2 ничего не выходит. Т.е.

Смотри скриншоту

@xxbesoxx · 26.08.2015, 16:34

OnShow исправите и все

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm3.ShowForm(Sender: TObject);
begin
  Label11.Caption:='Дата: '+DateToStr(Date);
  Label12.Caption:='Время:'+TimeToStr(Time);
end;
with DataModule5.qrynefteproduct do
  begin
  SQL.Clear;
  SQL.Append('SELECT DISTINCT Naimenovanie FROM nefteproduct'); 
  Open;
   // ---------Заполняем ComboBox1 ---------- //
  ComboBox2.Items.Clear;
  While not DataModule5.qrynefteproduct.Eof do
  begin
     ComboBox2.Items.Add(DataModule5.qrynefteproduct.Fields[0].AsString);
     DataModule5.qrynefteproduct.Next;
  end;
end;
end;
 
 
end.

@DDAri · 26.08.2015, 16:51 **[ТС]**

xxbesoxx, сделала все по Вашему. И по Тест2 сравнила. Ве равно также выходит.

Благодарю Вас за все!

@DDAri · 26.08.2015, 16:53 **[ТС]**

Если код изз ShowForm ставлю на procedure TForm3.Button1Click(Sender: TObject); , то выходит правильно, но заполненные в Едит5 данные не сохраняются в таблице.

@xxbesoxx · 26.08.2015, 17:01

Сообщение от DDAri

И по Тест2 сравнила. Ве равно также выходит.

Тогда смотри Test3 и сравни

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.FormShow(Sender: TObject);
begin
  Label2.Caption:='Дата: '+DateToStr(Date);
  Label3.Caption:='Время:'+TimeToStr(Time);
  //-------------- -----------------------------//
  with DataModule2.qrynefteproduct do
  begin
  SQL.Clear;
  SQL.Append('SELECT DISTINCT Naimenovanie FROM nefteproduct'); 
  Open;
   // ---------Заполняем ComboBox1 ---------- //
  ComboBox1.Items.Clear;
  While not DataModule2.qrynefteproduct.Eof do
  begin
     ComboBox1.Items.Add(DataModule2.qrynefteproduct.Fields[0].AsString);
     DataModule2.qrynefteproduct.Next;
  end;
end;
end;
 
 
end.

@DDAri · 26.08.2015, 17:23 **[ТС]**

xxbesoxx, блин стока времени теряете из-за меня...Спасибо Вам большое!

не знаю из-за чего, но в ДБГриде выходит id из другой таблицы, а не из nefteproduct. (как я поняла читает ну ту таблицу)

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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Menus, StdCtrls, DB, ADODB, ExtCtrls, DBCtrls,
  Mask;
 
type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    ComboBox2: TComboBox;
    Edit5: TEdit;
    Label9: TLabel;
    Button1: TButton;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    procedure RadioButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ShowForm(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
uses Unit5, Unit6, Unit7;
 
{$R *.dfm}
 
 
procedure TForm3.RadioButton1Click(Sender: TObject);
begin
if RadioButton1.Checked then
Form6.Show;
end;
 
procedure TForm3.Button1Click(Sender: TObject);
begin
 try
    DataModule5.ADOQuery1.Close;
    DataModule5.ADOQuery1.SQL.Clear;
    DataModule5.ADOQuery1.SQL.Add('SELECT * FROM tmc');
    DataModule5.ADOQuery1.Active:=true;
            DataModule5.ADOQuery1.Insert;
            DataModule5.ADOQuery1['FIO_inspectr_ohran_vezd']:=ComboBox1.Text;
            DataModule5.ADOQuery1['reg_num_auto_vezd']:=edit1.Text;
            DataModule5.ADOQuery1['num_polupricepa_vezd']:=edit2.Text;
            DataModule5.ADOQuery1['FIO_vnos_vvoz_vezd']:=edit3.Text;
            DataModule5.ADOQuery1['soprovod_doc_vezd']:=edit4.Text;
            DataModule5.ADOQuery1.Post;
            except
        ShowMessage('Ошибка сохранения');
            end;
            ShowMessage('Успешно сохранения');
        Form7.Show;
 
end;
 
 
procedure TForm3.RadioButton3Click(Sender: TObject);
begin
ShowMessage('Пустой');
end;
 
procedure TForm3.ComboBox2Change(Sender: TObject);
begin
 if RadioButton2.Checked=false then
 begin
   ShowMessage('Выберите нефтепродукт');
   ComboBox2.SetFocus;
 end
 else
 if RadioButton2.Checked=true then
 begin
   with DataModule5.ADOQuery1 do
   begin
     SQL.Clear;
     SQL.Append('SELECT * FROM nefteproduct where Naimenovanie= '''+ Trim(ComboBox2.Text)+'''');
     Open;
     Edit5.Text := DataModule5.ADOQuery1.FieldByName('Toni').AsString;
   end;
 end;
 
end;
 
procedure TForm3.ShowForm(Sender: TObject);
begin
  Label11.Caption:='Дата: '+DateToStr(Date);
  Label12.Caption:='Время:'+TimeToStr(Time);
  //-------------- -----------------------------//
  with DataModule5.qrynefteproduct do
  begin
  SQL.Clear;
  SQL.Append('SELECT DISTINCT Naimenovanie FROM nefteproduct'); 
  Open;
   // ---------Заполняем ComboBox2---------- //
  ComboBox2.Items.Clear;
  While not DataModule5.qrynefteproduct.Eof do
  begin
     ComboBox2.Items.Add(DataModule5.qrynefteproduct.Fields[0].AsString);
     DataModule5.qrynefteproduct.Next;
  end;
end;
end;
 
 
 
 
 
end.

Спасибо Вам еще раз!

@xxbesoxx · 26.08.2015, 17:29

Сообщение от DDAri

но в ДБГриде выходит id из другой таблицы, а не из nefteproduct.

В каком Gride ? и когда это ? вам надо при сохранение запись что бы сохранить nefteproduct.ID на дочерние таблице ? смотрите этот DBGrid на каком DataSource подключено

@DDAri · 26.08.2015, 18:04 **[ТС]**

xxbesoxx, все также. Уже ничего не понимаю..капец я тупая

Добавила еще один ДатаСоуз. Теперь не находит таблицу nefteproduct. (до этого один ДатаСоуз был, но он другую таблицу находил)
Название: Снимок экрана (8).png
Просмотров: 18

Размер: 5.9 Кб

Название: Снимок экрана (8).png
Просмотров: 18

Размер: 5.9 Кб

@DDAri · 26.08.2015, 18:05 **[ТС]**

xxbesoxx, Спасибо большое за помощь!

Новые блоги и статьи Все статьи Все блоги /
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .	Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .

@xxbesoxx 1135 / 616 / 129 Регистрация: 13.02.2009 Сообщений: 3,613
	26.08.2015, 15:50
	У тебя на кнопке Form3.Button1Click написано много разное чего .... и за этого 0

@DDAri 5 / 5 / 5 Регистрация: 13.11.2014 Сообщений: 325
	26.08.2015, 16:51 [ТС]
	xxbesoxx, сделала все по Вашему. И по Тест2 сравнила. Ве равно также выходит. Благодарю Вас за все! 0

@DDAri 5 / 5 / 5 Регистрация: 13.11.2014 Сообщений: 325
	26.08.2015, 16:53 [ТС]
	Если код изз ShowForm ставлю на procedure TForm3.Button1Click(Sender: TObject); , то выходит правильно, но заполненные в Едит5 данные не сохраняются в таблице. 0

@DDAri 5 / 5 / 5 Регистрация: 13.11.2014 Сообщений: 325
	26.08.2015, 18:04 [ТС]
	xxbesoxx, все также. Уже ничего не понимаю..капец я тупая Добавила еще один ДатаСоуз. Теперь не находит таблицу nefteproduct. (до этого один ДатаСоуз был, но он другую таблицу находил) 0

@DDAri 5 / 5 / 5 Регистрация: 13.11.2014 Сообщений: 325
	26.08.2015, 18:05 [ТС]
	xxbesoxx, Спасибо большое за помощь! 0