procedure TfrmDictionary.btnDictdeletClick(Sender: TObject);
var
Mysp:TADOStoredProc;
begin
gbDictEdit.Visible := false ;
MySp := TadoStoredProc.Create( Application );
with MySp do
try
begin
Connection := Adocon;
ProcedureName := 'sql..sp_sys_dict_set';
Parameters.CreateParameter('@operator_no', ftInteger, pdInput, 4, CommonInfo.OperatorNo);
Parameters.CreateParameter('@op_station', ftstring, pdInput, 12, CommonInfo.MAC);
Parameters.CreateParameter('@action', ftInteger, pdInput, 12, 3);
Parameters.CreateParameter('@dict_entry', ftInteger, pdInput, 4, cmbDict.itemindex);
Parameters.CreateParameter('@access_level', ftInteger, pdInput, 4, null);
Parameters.CreateParameter('@subentry', ftInteger, pdInput, 4, strtoint(edtDictCode.text));
Parameters.CreateParameter('@dict_prompt', ftstring, pdInput, 255, '');
Parameters.CreateParameter('@error_info', ftString, pdOutput, 255, '');
ExecProc;
if Parameters.ParamByName('@error_info').Value <> '' then
begin
ErrorFrm(Parameters.paramByName('@error_info').Value,1);
end
else
begin
MessageDlg( '删除成功!' , mtInformation, [mbOK], 0 );
end;
end;
except
MySp.free;
end;
MySp.free;
end;
数据库表如下:dict_entry subentry access_level dict_prompt
1 1 0 正常
1 2 0 冻结
2 1 0 系统管理员
2 2 0 普通管理员存储过程参数如下:
@operator_no int
@op_station char(12)
@action int
@dict_entry int
@subentry int
@access_level int
@dict_prompt varchar(255)
@error_info varchar(600)
如何删除一个数据字典子项名称,参数怎么传! “ @action int” 中action=3表示删除
var
Mysp:TADOStoredProc;
begin
gbDictEdit.Visible := false ;
MySp := TadoStoredProc.Create( Application );
with MySp do
try
begin
Connection := Adocon;
ProcedureName := 'sql..sp_sys_dict_set';
Parameters.CreateParameter('@operator_no', ftInteger, pdInput, 4, CommonInfo.OperatorNo);
Parameters.CreateParameter('@op_station', ftstring, pdInput, 12, CommonInfo.MAC);
Parameters.CreateParameter('@action', ftInteger, pdInput, 12, 3);
Parameters.CreateParameter('@dict_entry', ftInteger, pdInput, 4, cmbDict.itemindex);
Parameters.CreateParameter('@access_level', ftInteger, pdInput, 4, null);
Parameters.CreateParameter('@subentry', ftInteger, pdInput, 4, strtoint(edtDictCode.text));
Parameters.CreateParameter('@dict_prompt', ftstring, pdInput, 255, '');
Parameters.CreateParameter('@error_info', ftString, pdOutput, 255, '');
ExecProc;
if Parameters.ParamByName('@error_info').Value <> '' then
begin
ErrorFrm(Parameters.paramByName('@error_info').Value,1);
end
else
begin
MessageDlg( '删除成功!' , mtInformation, [mbOK], 0 );
end;
end;
except
MySp.free;
end;
MySp.free;
end;
数据库表如下:dict_entry subentry access_level dict_prompt
1 1 0 正常
1 2 0 冻结
2 1 0 系统管理员
2 2 0 普通管理员存储过程参数如下:
@operator_no int
@op_station char(12)
@action int
@dict_entry int
@subentry int
@access_level int
@dict_prompt varchar(255)
@error_info varchar(600)
如何删除一个数据字典子项名称,参数怎么传! “ @action int” 中action=3表示删除
解决方案 »
- 线程唤醒后怎么重新执行啊
- 想问下复旦金仕达测试部的情况
- 请问连接远程SYBASE数据库的Connectionstring的写法
- [救命]如何打开*.DB数据库文件?
- 关于排错的问题,每次拖动窗体标题栏都会出现对话框报警。哪位帮忙指导一下,多谢多谢
- 线程!奇怪!!!
- 请问如何得到当前RichEdit控件当前可显示的最多行数,为什么用RichEdit.Height/abs(RichEdit.Font.Height)不行???
- 集成开发环境的设置
- 在DELPHI中如何如何访问内存的绝对地址中的数据?
- xe8 可以在xcode9.2下面工作吗?包括模拟器
- 如何显示子窗口
- 为什么DELPHI7的QREPORT报表在不同打印机上打印的方向不一样?
我想删除一条记录,不知道怎么删除!参数怎么传,是不是只要把dict_prompt传空值就行了?各位帮帮我!谢谢大家了!
可以给用存储过程删除一条记录的例子吗?谢谢您了!
整型传空有什么