Хранимая процедура

@kabachok · Регистрация: 25.03.2012

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

Уважаемые программисты, прошу помощи.
Создал динамическую форму, на ней много TCheckBox и TBitBtn. С помощью кнопки делаю сохранение данных. То есть, сохраняю две String-овые записи взятые с 3 формы и Boolean-вое значение всех CheckBox. Выскакивает ошибка, ..."FDStoredProc_KururovanueDorog: Parametr 'Sotrudnik' not found."... И так на каждый параметр. Как только все параметры удаляю, между Prepare и ExecProc пусто, все сохраняется. В чем ошибка? Помогите, пожалуйста. Сам код в текстовом файле.

@krapotkin · 05.07.2016, 22:01

такое впечатление, что всем жалко положить один компонент, настроить его и успокоиться
сделайте для каждой ХП свой компонент, отладьте один раз и все
зачем эти километры кода

по существу вопроса - как тут узнать, есть в SQL параметр или нет?

и еще совет,
у вас все данные перемешаны с компонентами, вы уже не можете совладать с этой кашей. задумайтесь...

когда я вижу переменные CheckBox154, DBGrid11, желания разбираться, где у вас что лежит, нет ни на грамм
вам же лень дать переменным и компонентам нормальные названия, лень разделить простыни кода на процедуры по выполняемым функциям, а мне лень разгребать это

@kabachok · 05.07.2016, 22:15 **[ТС]**

Вы знаете, хотел сначала обидится на ответ, но...
А потом подумал, а почему я занялся программированием? Да только по тому, что обратившись к программистам, задача не была сделана так как хочется, по многим причинам. Решил заняться сам, программированием. Но наступил на те же грабли, я не профи в этом. Но учусь, хочу научится. Из-за этого пишу безграмотные программы. Вы правы, у меня просто нет навыка написания программ.
Но под лежачий камень вода не течет, я хочу написать свою программу, поэтому и попросил помощи. К вашим советам прислушаюсь, но тогда когда в этом буду более лучше разбираться.
Сможете, помогите пожалуйста. Нет, на нет и суда нет.

@krapotkin · 05.07.2016, 22:20

по существу я тоже ответил

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

@Пытливый · 06.07.2016, 11:50

Такое количество флагов лучше хранить в одной строковой переменной, передавать придется только одну строку длиной 50 символов, вместо 50 параметров. Каждый символ такой строки содержит значение 0 или 1.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function ReadCheckBoxState(Form: TForm): String;
var i: Integer;
begin
 Result := '';
 for i := 0 to Form.ControlCount - 1
 do if Form.Controls[i] is TCheckBox
    then if TCheckBox(Form.Controls[i]).Checked
         then Result := Result + '1'
         else Result := Result + '0';
end;
 
procedure WriteCheckBoxState(Form: TForm; State: String);
var i,n: Integer;
begin
 n := 0;
 for i := 0 to Form.ControlCount - 1
 do if Form.Controls[i] is TCheckBox
    then begin
         Inc(n);
         TCheckBox(Form.Controls[i]).Checked := State[n] = '1';
         end;
end;

Кстати и присвоить всем чекбоксам нужный флаг намного проще:

Delphi
1
WriteCheckBoxState(Self, DupeString('1', 8));

Такой способ хранения имеет только один недостаток, привязку к порядку и количеству чекбоксов на форме. Но можно от этого избавится если использовать свойство Tag у чекбокса.

@krapotkin · 06.07.2016, 12:07

от этого лучше избавляться используя CheckListBox
с ним все будет еще проще

@kabachok · 07.07.2016, 19:38 **[ТС]**

Пытливый, но у меня вопрос заключался не в улучшении написания кода, в чем ты прав. Мне еще всему этому учиться и учиться. Вопрос в том, почему не получается сохранить данные?
Вот сама хранимая процедура:

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
USE [TransLog]
GO
/****** Object:  StoredProcedure [dbo].[INSERT_KururovanueDorog_Table]    Script Date: 07/07/2016 21:35:10 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:      <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
ALTER PROCEDURE [dbo].[INSERT_KururovanueDorog_Table]
     (@id INT,
      @Sotrudnik NCHAR(20),
      @Nasha_Kompaniua NCHAR(30),
      @OKT bit,
      @EST bit,
      @LAT bit,
      @KLG bit,
      @LUT bit,
      @BEL bit,
      @MSK bit,
      @GOR bit,
      @SEV bit,
      @UZP bit,
      @LIB bit,
      @MLD bit,
      @ODS bit,
      @UJN bit,
      @PDN bit,
      @DON bit,
      @SKV bit,
      @AZR bit,
      @UKJ bit,
      @GRZ bit,
      @UVS bit,
      @PRV bit,
      @KBSH bit,
      @KZX bit,
      @KRG bit,
      @YZB bit,
      @TDJ bit,
      @TRK bit,
      @SVR bit,
      @UYR bit,
      @ZSB bit,
      @KRM bit,
      @KRS bit,
      @JDU bit,
      @VSB bit,
      @MNR bit,
      @ZAB bit,
      @DVS bit,
      @SAX bit,
      @KR bit,
      @DUMPKAR bit,
      @XOPER bit,
      @PL bit,
      @PV bit,
      @CS bit,
      @IVT bit,
      @VT bit,
      @ZERN bit)
AS 
BEGIN TRAN
    INSERT INTO KururovanueDorog_Table
    
    (Sotrudnik,Nasha_Kompaniua,OKT,EST,LAT,KLG,LUT,BEL,MSK,GOR,SEV,UZP,LIB,MLD,ODS,UJN,PDN,DON,SKV,
     AZR,UKJ,GRZ,UVS,PRV,KBSH,KZX,KRG,YZB,TDJ,TRK,SVR,UYR,ZSB,KRM,KRS,JDU,VSB,MNR,ZAB,DVS,SAX,KR,
     DUMPKAR,XOPER,PL,PV,CS,IVT,VT,ZERN)
    VALUES
    (@Sotrudnik,@Nasha_Kompaniua,@OKT,@EST,@LAT,@KLG,@LUT,@BEL,@MSK,@GOR,@SEV,@UZP,@LIB,@MLD,@ODS,@UJN,
     @PDN,@DON,@SKV,@AZR,@UKJ,@GRZ,@UVS,@PRV,@KBSH,@KZX,@KRG,@YZB,@TDJ,@TRK,@SVR,@UYR,@ZSB,@KRM,@KRS,
     @JDU,@VSB,@MNR,@ZAB,@DVS,@SAX,@KR,@DUMPKAR,@XOPER,@PL,@PV,@CS,@IVT,@VT,@ZERN)
COMMIT TRAN;

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. На мобильном - сканируйте QR-код. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,670 Записей в блоге: 21
	05.07.2016, 22:01
	такое впечатление, что всем жалко положить один компонент, настроить его и успокоиться сделайте для каждой ХП свой компонент, отладьте один раз и все зачем эти километры кода по существу вопроса - как тут узнать, есть в SQL параметр или нет? и еще совет, у вас все данные перемешаны с компонентами, вы уже не можете совладать с этой кашей. задумайтесь... когда я вижу переменные CheckBox154, DBGrid11, желания разбираться, где у вас что лежит, нет ни на грамм вам же лень дать переменным и компонентам нормальные названия, лень разделить простыни кода на процедуры по выполняемым функциям, а мне лень разгребать это 0

@kabachok 22 / 4 / 1 Регистрация: 25.03.2012 Сообщений: 199
	05.07.2016, 22:15 [ТС]
	Вы знаете, хотел сначала обидится на ответ, но... А потом подумал, а почему я занялся программированием? Да только по тому, что обратившись к программистам, задача не была сделана так как хочется, по многим причинам. Решил заняться сам, программированием. Но наступил на те же грабли, я не профи в этом. Но учусь, хочу научится. Из-за этого пишу безграмотные программы. Вы правы, у меня просто нет навыка написания программ. Но под лежачий камень вода не течет, я хочу написать свою программу, поэтому и попросил помощи. К вашим советам прислушаюсь, но тогда когда в этом буду более лучше разбираться. Сможете, помогите пожалуйста. Нет, на нет и суда нет. 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,670 Записей в блоге: 21
	05.07.2016, 22:20
	по существу я тоже ответил чтобы разобраться упакуйте весь проект и базу и выложите водить пальцем по тексту, когда есть отладчик, совсем плохое времяпровождение 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,670 Записей в блоге: 21
	06.07.2016, 12:07
	от этого лучше избавляться используя CheckListBox с ним все будет еще проще 0