Один обработчик события для нескольких Data Module

@vasek39 · Регистрация: 07.01.2014

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

Вызывать другие формы(data mobule)
Господа нужен ваш совет. Ситуация следующая надо есть форма FMain на ней много DBGrid1....20 и каждый DBGrid привязан к своей базе. Прописывать каждый раз вот это в событии OnDblClick не удобно.

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
procedure TFMain.DBGrid24DblClick(Sender: TObject);
begin
try
  {Отключаем таймер}
  OTP_1.Timer.Enabled:=false;
  FView:=TFView.Create(self);
 {Загружаем данные, чтобы пользователь смог их изменить}
  FView.Caption:= (OTP_1.TableFIO.Value);
  OTP_1.Obzvon.Close;
  OTP_1.Plat.Close;
  OTP_1.Rod.Close;
 
  OTP_1.Obzvon.Parameters.ParamByName('Par').Value:=OTP_1.TableID.Value;
  OTP_1.Plat.Parameters.ParamByName('Par').Value:=OTP_1.TableID.Value;
  OTP_1.Rod.Parameters.ParamByName('Par').Value:=OTP_1.TableID.Value;
 
  FView.DBGrid1.DataSource:=OTP_1.DataObzvon;
  FView.DBGrid2.DataSource:=OTP_1.DataPlat;
  FView.DBGrid3.DataSource:=OTP_1.DataRod;
  FView.DBComboBox1.DataSource:=OTP_1.DataObzvon;
  FView.DBComboBox2.DataSource:=OTP_1.DataPlat;
  FView.DBComboBox3.DataSource:=OTP_1.DataRod;
  OTP_1.Obzvon.Open;
  OTP_1.Plat.Open;
  OTP_1.Rod.Open;
  {Личные данные}
  FView.Label23.Caption:=IntToStr(OTP_1.TableID_user.Value);  //Порятковый номер
  FView.Label26.Caption:=IntToStr(OTP_1.TableID.Value);  //ID номер
  FView.Edit1.Text:=OTP_1.TableFIO.Value; //ФИО
  FView.Edit2.Text:=OTP_1.TableData.Value; //дата рождения
  FView.Edit3.Text:=OTP_1.TableMesto.Value; //место рождения
  FView.Edit4.Text:=OTP_1.TableLS.Value; //л.с
  FView.Edit5.Text:=OTP_1.TableTip_kred.Value; //тип кредитного продукта
  FView.Edit6.Text:=OTP_1.TableValuta_kred.Value; //валюта
  FView.Edit7.Text:=OTP_1.TableSumma_kred.Value; //сумма основного долга
  FView.Edit8.Text:=OTP_1.TableSymma_proc_kred.Value; // сумма процентов
  FView.Edit9.Text:=OTP_1.TableShtraf_kred.Value; //штрафные санкции
  FView.Edit10.Text:=OTP_1.TableObshay_kred.Value; //общая сумма долга
  FView.Edit11.Text:=OTP_1.TableData_pros.Value; //дата возникновения задолжности
  FView.Edit12.Text:=OTP_1.TableSrok_pros.Value; // срок просрочки
  FView.Edit17.Text:=OTP_1.Tablechas_snij_symma.Value; //частичное снижение суммы
  FView.Edit18.Text:=OTP_1.Tableizmen_ysl.Value; //внесения изменений в условия
  FView.Edit13.Text:=OTP_1.TableNomer_reg.Value; //номер тел. по регестрации
  FView.Edit14.Text:=OTP_1.TableNomer_fakt.Value; //номер тел. по фактическому
  FView.Edit15.Text:=OTP_1.TableNomer_rab.Value; //номер тел. рабочий
  FView.Edit16.Text:=OTP_1.TableNomer_mob.Value; //номер тел. мобильный
  FView.Edit19.Text:=OTP_1.TablePrim.Value; //примичания
 
 
  FView.Label29.Caption:=OTP_1.Tabledata_iz.Value; //дата изменения
  FView.ComboBox1.Text:=OTP_1.TableStatys.Value; //статус
  FView.Label39.Caption:=OTP_1.Tableavtoinfo.Value;//avtoinfo
  FView.Label40.Caption:=OTP_1.Tablesmsinfo.Value;//smsinfo
  FView.Label37.Caption:=OTP_1.Tableop_pol.Value;//оплатил полностью
  FView.Label38.Caption:=OTP_1.Tablearhiv.Value;//в архив
  FView.Label42.Caption:=OTP_1.TableReg.Value;//Регион
  FView.Label31.Caption:=OTP_1.TableSotrydnik.Value;//Регион
  FView.Label27.Caption:=OTP_1.Tablerezyltat.Value;// rezyltat
  FView.Label44.Caption:=OTP_1.Tabledata_oplat.Value;// data_opl
  FView.Label45.Caption:=OTP_1.Tablesymma_oplat.Value;// symma_opl
  FView.Label33.Caption:=OTP_1.Tablekol_vo_zv.Value;// кол-во звонков
  FView.Label35.Caption:=OTP_1.Tablekol_vo_otv.Value;// кол-во ответов
  FView.Label47.Caption:=OTP_1.TableID_Klienta.Value;// кол-во ответов
  if OTP_1.Tabledata_obesh.Value='NULL' then begin Label4.Caption:='01.02.2014' end else begin FView.Label49.Caption:=OTP_1.Tabledata_obesh.Value; end;
  Label4.Caption:=OTP_1.Tabledata_obesh.Value;
 
  FUser.Edit1.Text:=OTP_1.TableFIO.Value; //ФИО
  FUser.Edit2.Text:=OTP_1.TableData.Value; //дата рождения
  FUser.Edit3.Text:=OTP_1.TableMesto.Value; //место рождения
  FUser.Edit4.Text:=OTP_1.TablePasport.Value; //паспорт
  FUser.Edit9.Text:=OTP_1.TableName_rab.Value; //название орг
  FUser.Edit10.Text:=OTP_1.Tableadress_rab.Value; //адрес орг
  //FUser.Edit11.Text:=Dengi.TableNomer_reg.Value; //должность
  FUser.Edit12.Text:=OTP_1.TableNomer_rab.Value; //тел орг
  FUser.Edit13.Text:=OTP_1.TableNomer_reg.Value; //номер тел. по регестрации
  FUser.Edit14.Text:=OTP_1.TableNomer_fakt.Value; //номер тел. по фактическому
  FUser.Edit15.Text:=OTP_1.TableNomer_mob.Value; //номер тел. мобильный
  //FUser.Edit19.Text:=Dengi.TablePrim.Value; //примичания
  FUser.Edit16.Text:=OTP_1.TableTip_kred.Value; //тип кредитного продукта
  FUser.Edit17.Text:=OTP_1.TableValuta_kred.Value; //валюта
  FUser.Edit18.Text:=OTP_1.TableSumma_kred.Value; //сумма основного долга
  FUser.Edit19.Text:=OTP_1.TableSymma_proc_kred.Value; // сумма процентов
  FUser.Edit20.Text:=OTP_1.TableShtraf_kred.Value; //штрафные санкции
  FUser.Edit21.Text:=OTP_1.TableObshay_kred.Value; //общая сумма долга
  FUser.Edit22.Text:=OTP_1.TableData_pros.Value; //дата возникновения задолжности
  FUser.Edit23.Text:=OTP_1.TableSrok_pros.Value; // срок просрочки
  FUser.Edit24.Text:=OTP_1.TableLS.Value; // счет
  FUser.Edit25.Text:=OTP_1.TableBiznas.Value; // Бизнос блог
  FUser.Edit26.Text:=OTP_1.TableData_kred.Value; // Дата выдачи кред
  FUser.Edit27.Text:=OTP_1.TableSrok_kred.Value; // срок действия кред
  FUser.Edit31.Text:=OTP_1.Tableadress_reg.Value; // адрес по рег
  FUser.Edit35.Text:=OTP_1.Tableadress_fakt.Value; // адрес по факт
  FView.ShowModal;
 finally
end;
end;

Тут OTP_1 - это data mobule (форма)
и таких форм 20 шт.

Что можете посоветовать? Как сделать так что бы каждый раз не прописывать этот код а создать процедуру и просто заменять Формы?

Использую связь ADOConnection->ADOQuery->DataSet->DBGrid.
Delphi 2010 + SQL Server 2008.

Спасибо заранее. Жду ваших советов.

@ZfoxAK · 29.07.2014, 13:22

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

руками вносить изменения или как?

Или как. Если программер не может написать код, то заполняет руками до тех пор пока не напишет код ...
Я не вкурсе как данные из файла вносятся в таблицу у вас, я обычно вношу скриптом который заполняет все необходимые поля. Т.е. в процессе подгрузки новой инфы в скрипте уставливать кто из пользователей будет иметь доступ к записям.

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

как мне соединить что бы не менять данные в таблице.

В зависимости от СУБД организация взамисвязи между таблицами различные читайте по своей СУБД.
Изменения данных в БД осуществляется SQL запросами типа UPDATE - так же SQL язык различается для СУБД - читайте.
в общем виде UPDATE таблица в которое вносится изменение SET поле в которое вносится изменение = значение WHERE условия ограничивающие кол-во записей в которые вносится изменения
Дальше уже вам решать каким записям устнавливать какие значения.

@vasek39 · 29.07.2014, 13:56 **[ТС]**

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

Использую связь ADOConnection->ADOQuery->DataSet->DBGrid.
Delphi 2010 + SQL Server 2008.

вот чем я пользуюсь.

@ZfoxAK · 30.07.2014, 05:08

Вижу что соединять компоненты в Delphi вы научились, осталось прочитать книги по БД, СУБД, SQL.

@Bit_Man · 30.07.2014, 08:26

М-да-а-а-а vasek39

плохи твои дела. Тут, наверное, самое время показать структуру твоей БД.

@vasek39 · 30.07.2014, 10:15 **[ТС]**

Один обработчик события для нескольких Data Module

вот на примере таблицы ARHIV
таких у меня сейчас уже 42 таблиц.

@Bit_Man · 31.07.2014, 04:04

Присоединюсь к ZfoxAK,

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

прочитать книги по БД, СУБД, SQL

@vasek39 · 31.07.2014, 10:26 **[ТС]**

я уже разобрался. спасибо. как закончу с проектом скину что бы посмотрели.

@vasek39 · 20.08.2014, 12:15 **[ТС]**

Ребята нужна помощь.

сделал как Вы посоветовали.

но проблема когда делаю данные за сегодня выходят много одинаковых данных хотя в базе он один.

Delphi
1
2
3
4
5
6
     FMain.ADOTable.Close;
     FMain.ADOTable.SQL.Clear;
     ADOTable.SQL.Add('SELECT * from Table_1 WHERE (ID_USERS = :ID_USERS) and (data_iz = :data_iz)');
     ADOTable.Parameters.ParamByName('ID_USERS').Value:=FMain.ID_USER.Caption;//FSecurity.PravaID_Table.Value; 
     ADOTable.Parameters.ParamByName('data_iz').Value:=FMain.Data_seg.Caption;//FSecurity.PravaID_Table.Value;
     ADOTable.Open;

FMain.ID_USER.Caption:='1';
FMain.Data_seg.Caption:='20.08.2014';

@Bit_Man · 20.08.2014, 16:08

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

но проблема когда делаю данные за сегодня выходят много одинаковых данных хотя в базе он один

кто один? запись одна? ты уверен?

@vasek39 · 20.08.2014, 17:38 **[ТС]**

да уверен. проверял. три раза. все данные в одном экземпляре. а выводит их аж 66 штук.

Добавлено через 29 минут
прошу прошения. да их много. но почему он создает их?

вот код на кнопку изменить:

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
 try
              ADOConnection1.BeginTrans;
 
            with FView.EditTable do
            begin
    Parameters.ParamByName('@ID').Value:= ID.Caption;
    Parameters.ParamByName('@ID_User').Value:= FMain.ADOTableID_User.Value;
    Parameters.ParamByName('@ID_Klienta').Value:= ID_Klienta.Text;
    Parameters.ParamByName('@FIO').Value:= FIO.Text;
    Parameters.ParamByName('@DATA').Value:= Data.Text;
    Parameters.ParamByName('@Mesto').Value:= Mesto.Text;
    Parameters.ParamByName('@Pasport').Value:= Passport.Text;
    Parameters.ParamByName('@Tip_kred').Value:= TIP.Text;
    Parameters.ParamByName('@Valuta_kred').Value:= Valuta.Text;
    Parameters.ParamByName('@Summa_kred').Value:= Symma_osnovnogo.Text;
    Parameters.ParamByName('@Symma_proc_kred').Value:= Symma_procentov.Text;
    Parameters.ParamByName('@Shtraf_kred').Value:= Symma_shtrafov.Text;
    Parameters.ParamByName('@Obshay_kred').Value:= Obsh_symma.Text;
    Parameters.ParamByName('@Data_pros').Value:= Data_voz.Text;
    Parameters.ParamByName('@Srok_pros').Value:= Srok_pros.Text;
 
    Parameters.ParamByName('@adress_fakt').Value:= Adress_fakt.Text;
    Parameters.ParamByName('@adress_reg').Value:= Adress_reg.Text;
    Parameters.ParamByName('@adress_rab').Value:= Adress_org.Text;
 
    Parameters.ParamByName('@Nomer_Reg_1').Value:= Dom1.Text;
    Parameters.ParamByName('@Nomer_Reg_2').Value:= Dom2.Text;
    Parameters.ParamByName('@Nomer_Reg_3').Value:= Dom3.Text;
    Parameters.ParamByName('@Nomer_Reg_4').Value:= Dom4.Text;
 
    Parameters.ParamByName('@Nomer_Fakt_1').Value:= Dom5.Text;
    Parameters.ParamByName('@Nomer_Fakt_2').Value:= Dom6.Text;
    Parameters.ParamByName('@Nomer_Fakt_3').Value:= Dom7.Text;
    Parameters.ParamByName('@Nomer_Fakt_4').Value:= Dom8.Text;
 
    Parameters.ParamByName('@Nomer_Rab_1').Value:= Rab1.Text;
    Parameters.ParamByName('@Nomer_Rab_2').Value:= Rab2.Text;
    Parameters.ParamByName('@Nomer_Rab_3').Value:= Rab3.Text;
 
    Parameters.ParamByName('@Nomer_Mob_1').Value:= Mob1.Text;
    Parameters.ParamByName('@Nomer_Mob_2').Value:= Mob2.Text;
    Parameters.ParamByName('@Nomer_Mob_3').Value:= Mob3.Text;
    Parameters.ParamByName('@Nomer_Mob_4').Value:= Mob4.Text;
 
 
    Parameters.ParamByName('@Data_kred').Value:= Data_kred.Text;
    Parameters.ParamByName('@Srok_kred').Value:= Srok_kred.Text;
 
    Parameters.ParamByName('@LS').Value:= Schet.Text;
 
    Parameters.ParamByName('@Reg').Value:= Reg.Text;
    Parameters.ParamByName('@Biznas').Value:= Bank.Caption;
    Parameters.ParamByName('@Chas_snij_symma').Value:= Chast_symma.Text;
    Parameters.ParamByName('@izmen_ysl').Value:= Vnesenie_izm.Text;
    Parameters.ParamByName('@statys').Value:= ComboBox1.Text;
    Parameters.ParamByName('@prim').Value:= Prim.Text;
    Parameters.ParamByName('@data_iz').Value:= FMain.Data_seg.Caption;
    Parameters.ParamByName('@avtoinfo').Value:= Avto_ID.Caption;
    Parameters.ParamByName('@Tel_Avto').Value:= Tel_Avto.Text;
    Parameters.ParamByName('@smsinfo').Value:= SMS_ID.Caption;
    Parameters.ParamByName('@Tel_SMS').Value:= Tel_SMS.Text;
    Parameters.ParamByName('@kol_vo_zv').Value:= FView.StatusBar1.Panels[1].text;
    Parameters.ParamByName('@kol_vo_otv').Value:= FView.StatusBar1.Panels[3].text;
    Parameters.ParamByName('@sotrydnik').Value:= FMain.Login.Caption;
    Parameters.ParamByName('@data_obesh').Value:= Data_obsh.Caption;
 
    Parameters.ParamByName('@kol_vo_opl').Value:= FView.StatusBar1.Panels[7].text;
    Parameters.ParamByName('@kol_vo_obsh').Value:= FView.StatusBar1.Panels[5].text;
    Parameters.ParamByName('@Nomer_dog').Value:= Nomer_dog.Text;
 
 
  //  Parameters.ParamByName('@rezyltat').Value:= St_plat.Caption;
  //  Parameters.ParamByName('@data_oplat').Value:= Data_plat.Caption;
  //  Parameters.ParamByName('@symma_oplat').Value:= Symma_plat.Caption;
 
    Parameters.ParamByName('@reestr').Value:= reestr.Caption;
    Parameters.ParamByName('@ID_Base').Value:= ID_Base.Caption;
    Parameters.ParamByName('@ID_Users').Value:= ID_Users.Caption;
 
    //Parameters.ParamByName('@symma_obesh').Value:= Label1.Caption;
  //  Parameters.ParamByName('@op_pol').Value:= Label37.Caption;
  //  Parameters.ParamByName('@arhiv').Value:= Label38.Caption;
    end;
 
EditTable.ExecProc;
ADOConnection1.CommitTrans;
FView.Close;
FMain.Timer3.Enabled:=true;
//FMain.Timer1.Enabled:=true;
//FMain.LogClick('Пользователь '+FMain.Login.Caption+' изменил данные клиента '+FIO.Text);
Except
ADOConnection1.RollbackTrans;
ShowMessage('Невозможно выполнить. Повторите');
end;

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
procedure TFMain.Timer3Timer(Sender: TObject);
var
 N:integer; {будет содержаться  код выбранной записи}
begin
if ADOTable.RecordCount>1 then
 N:=ADOTableID.Value;
 {Обновим набор данных}
 ADOTable.Close;
 ADOTable.Open;
 {Вернемся к записи, которая была активной, методом Locate
 первый параметр имя поля, второй искомое значение,
 третий условия отбора при поиске}
 ADOTable.Locate('ID',N,[]);
 
 
 
 
 
     FMain.Obzvon_seg.Close;
     FMain.Obzvon_seg.SQL.Clear;
     FMain.Obzvon_seg.SQL.Add ('SELECT * from Table_1 WHERE ID_USERS = :ID_USERS and data_obesh = :data_obesh');
     FMain.Obzvon_seg.Parameters.ParamByName('ID_USERS').Value:=FMain.ID_USER.Caption;//FSecurity.PravaID_Table.Value;
     FMain.Obzvon_seg.Parameters.ParamByName('data_obesh').Value:=FMain.Data_seg.Caption;//FSecurity.PravaID_Table.Value;
     FMain.Obzvon_seg.Open;
 
 
     FMain.Obsh.Close;
     FMain.Obsh.SQL.Clear;
     FMain.Obsh.SQL.Add ('SELECT * from Table_1 WHERE ID_USERS = :ID_USERS and statys = :statys and data_obesh = :data_obesh');
     FMain.Obsh.Parameters.ParamByName('ID_USERS').Value:=FMain.ID_USER.Caption;//FSecurity.PravaID_Table.Value;
     FMain.Obsh.Parameters.ParamByName('statys').Value:=FMain.Statys_Text.Caption;//FSecurity.PravaID_Table.Value;
     FMain.Obsh.Parameters.ParamByName('data_obesh').Value:=FMain.Data_seg.Caption;//FSecurity.PravaID_Table.Value;
     FMain.Obsh.Open;
 
 
 
     ID_Table.Caption:='';
     FMain.TPodschet.Enabled:=true;
 
 
 
 
 
 Timer3.Enabled:=false;
end;

где ошибка?

Добавлено через 2 минуты
вот SQL код

SQL
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
140
CREATE PROCEDURE EditTable_1
 
@ID INT,
@ID_User INT,
@ID_Klienta VARCHAR(50),
@FIO VARCHAR(50),
@DATA VARCHAR(50),
@Mesto VARCHAR(5000),
@Pasport VARCHAR(5000),
@Tip_kred VARCHAR(50),
@Valuta_kred VARCHAR(50),
@Summa_kred VARCHAR(50),
@Symma_proc_kred VARCHAR(50),
@Shtraf_kred VARCHAR(50),
@Obshay_kred VARCHAR(50),
@Data_pros VARCHAR(50),
@Srok_pros VARCHAR(50),
@adress_fakt VARCHAR(5000),
@adress_reg VARCHAR(5000),
@adress_rab VARCHAR(5000),
@Name_rab VARCHAR(5000),
@Data_kred VARCHAR(50),
@Srok_kred VARCHAR(50),
@LS VARCHAR(500),
@Reg VARCHAR(50),
@Biznas VARCHAR(50),
@Chas_snij_symma VARCHAR(50),
@izmen_ysl VARCHAR(50),
@statys VARCHAR(50),
@prim VARCHAR(5000),
@data_iz VARCHAR(50),
@avtoinfo VARCHAR (50),
@Tel_avto VARCHAR (50),
@smsinfo VARCHAR(50),
@Tel_SMS VARCHAR (50),
@kol_vo_zv VARCHAR(50),
@kol_vo_otv VARCHAR(50),
@rezyltat VARCHAR(50),
@data_oplat VARCHAR(50),
@symma_oplat VARCHAR(50),
@data_obesh VARCHAR(50),
@symma_obesh VARCHAR(50),
@op_pol VARCHAR(50),
@arhiv VARCHAR(50),
@sotrydnik VARCHAR(50),
@Nomer_dog VARCHAR(50),
@Nomer_Fakt_1 VARCHAR(500),
@Nomer_Fakt_2 VARCHAR(50),
@Nomer_Fakt_3 VARCHAR(50),
@Nomer_Fakt_4 VARCHAR(50),
@Nomer_Reg_1 VARCHAR(500),
@Nomer_Reg_2 VARCHAR(50),
@Nomer_Reg_3 VARCHAR(50),
@Nomer_Reg_4 VARCHAR(50),
@Nomer_Rab_1 VARCHAR(500),
@Nomer_Rab_2 VARCHAR(50),
@Nomer_Rab_3 VARCHAR(50),
@Nomer_Mob_1 VARCHAR(500),
@Nomer_Mob_2 VARCHAR(50),
@Nomer_Mob_3 VARCHAR(50),
@Nomer_Mob_4 VARCHAR(50),
@Data_posl_plat VARCHAR(50),
@kol_vo_opl VARCHAR(50),
@kol_vo_obsh VARCHAR(50),
@reestr VARCHAR(10),
@ID_Base INT,
@ID_Users INT
 
 
 
AS
 
UPDATE Table_1 SET
ID_user=@ID_User,
ID_Klienta=@ID_Klienta,
FIO=@FIO,
DATA=@DATA,
Mesto=@Mesto,
Pasport=@Pasport,
Tip_kred=@Tip_kred,
Valuta_kred=@Valuta_kred,
Summa_kred=@Summa_kred,
Symma_proc_kred=@Symma_proc_kred,
Shtraf_kred=@Shtraf_kred,
Obshay_kred=@Obshay_kred,
Data_pros=@Data_pros,
Srok_pros=@Srok_pros,
adress_fakt=@adress_fakt,
adress_reg=@adress_reg,
adress_rab=@adress_rab,
Data_kred=@Data_kred,
Srok_kred=@Srok_kred,
LS=@LS,
Reg=@Reg,
Biznas=@Biznas,
Chas_snij_symma=@Chas_snij_symma,
izmen_ysl=@izmen_ysl,
statys=@statys,
prim=@prim,
data_iz=@data_iz,
avtoinfo=@avtoinfo,
Tel_Avto=@Tel_avto,
smsinfo=@smsinfo,
Tel_SMS=@Tel_SMS,
kol_vo_zv=@kol_vo_zv,
kol_vo_otv=@kol_vo_otv,
rezyltat=@rezyltat,
data_oplat=@data_oplat,
symma_oplat=@symma_oplat,
data_obesh=@data_obesh,
symma_obesh=@symma_obesh,
op_pol=@op_pol,
arhiv=@arhiv,
sotrydnik=@sotrydnik,
Nomer_dog=@Nomer_dog,
Nomer_Fakt_1=@Nomer_Fakt_1,
Nomer_Fakt_2=@Nomer_Fakt_2,
Nomer_Fakt_3=@Nomer_Fakt_3,
Nomer_Fakt_4=@Nomer_Fakt_4,
Nomer_Reg_1=@Nomer_Reg_1,
Nomer_Reg_2=@Nomer_Reg_2,
Nomer_Reg_3=@Nomer_Reg_3,
Nomer_Reg_4=@Nomer_Reg_4,
Nomer_Rab_1=@Nomer_Rab_1,
Nomer_Rab_2=@Nomer_Rab_2,
Nomer_Rab_3=@Nomer_Rab_3,
Nomer_Mob_1=@Nomer_Mob_1,
Nomer_Mob_2=@Nomer_Mob_2,
Nomer_Mob_3=@Nomer_Mob_3,
Nomer_Mob_4=@Nomer_Mob_4,
Data_posl_plat=@Data_posl_plat,
kol_vo_opl=@kol_vo_opl,
kol_vo_obsh=@kol_vo_obsh,
reestr=@reestr,
ID_Base=@ID_Base,
ID_Users=@ID_Users
 
 
WHERE
ID=@ID

Добавлено через 49 минут
самое интересное что он создает 15 копий.

@vasek39 · 26.08.2014, 10:45 **[ТС]**

ребята помогите. создавать новую тему не хочу. это все проктически относиться к одному тому же.

вот sql запрос

Delphi
1
ADOQuery2.SQL.Add('UPDATE CKM_18_1, EOS_8_1, CKM_14_1, CKM_13_1, CKM_19_2, CKM_17_2, CKM_11_2, FK, YRS, CKM_19_1, CKM_13_2, RKS, Dengi, CKM_15_1, MLM_1_1, MLM_2_1, CKM_20_1 SET avtoinfo = NULL');

что не правильно?

если делать вот так

Delphi
1
2
3
4
5
6
7
8
9
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('UPDATE CKM_18_1 SET avtoinfo = NULL');
ADOQuery2.Open;
 
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('UPDATE EOS_8_1 SET avtoinfo = NULL');
ADOQuery2.Open

то выводит ошибку.

как мне быть?

@ZfoxAK · 26.08.2014, 12:11

Во первых

SQL
1
UPDATE название_таблици SET назавние_поля = значение

во вторых

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

ADOQuery2.Open

команда получения данных т.е. SELECT
Для команд DELETE, INSERT, UPDATE -

Delphi
1
ADOQuery2.ExecSQL

@vasek39 · 26.08.2014, 13:10 **[ТС]**

спасибо.

Новые блоги и статьи Все статьи Все блоги /
У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .
Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .	SUNO Ai - Река Без Дна zorxor 31.07.2026 Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .

@ZfoxAK 670 / 560 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	30.07.2014, 05:08
	Вижу что соединять компоненты в Delphi вы научились, осталось прочитать книги по БД, СУБД, SQL. 0

@Bit_Man 480 / 393 / 113 Регистрация: 24.04.2012 Сообщений: 1,632 Записей в блоге: 3
	30.07.2014, 08:26
	М-да-а-а-а vasek39 плохи твои дела. Тут, наверное, самое время показать структуру твоей БД. 0

@vasek39 1 / 1 / 2 Регистрация: 07.01.2014 Сообщений: 71
	30.07.2014, 10:15 [ТС]
	вот на примере таблицы ARHIV таких у меня сейчас уже 42 таблиц. 0

@vasek39 1 / 1 / 2 Регистрация: 07.01.2014 Сообщений: 71
	31.07.2014, 10:26 [ТС]
	я уже разобрался. спасибо. как закончу с проектом скину что бы посмотрели. 0

@vasek39 1 / 1 / 2 Регистрация: 07.01.2014 Сообщений: 71
	26.08.2014, 13:10 [ТС]
	спасибо. 0