什么地方越界吧,Exaple:数组越界!
解决方案 »
- delphi调用动态库 Readpebble
- DBLookupComboboxEh下拉问题
- 如何实现抓取一个网站的所有连接 delphi
- 100分请教:PaintBox.canvas保存为bmp图像问题,请指教!!!!
- 有关题库系统
- 我怎么删除不了数据呢??
- 我在一个主表单1的一个按钮中SHOWMODAL另一个表单2,想让FORM2能直接使用FORM1中的。。。
- 请教这段程序干什么得阿
- DbGrid为什么不能在mdiChild类型的窗口中显示
- 关于QuickReport的一个高级问题
- 请问怎么知道,控件是装到哪个标签下面!
- 请教:我欲将采集卡缓存中数据写入内存中,如何实现将一段内容写入给定地址的某一缓冲区中?谢谢!
if db_srvid.Text<>'' then
begin
Tsave.Connection:=Main.JMain.ADO1;//数据库
Tsave.SQL.Clear;
Tsave.SQL.Add('insert into Srv_App(srv_id,app_id');
Tsave.SQL.Add(',OrderNo,AskName)');
Tsave.SQL.Add(' values(:kj1,:kj2,:kj3,:kj4)');
try
Main.JMain.ADO1.BeginTrans;
Tsave.Parameters[0].Value:='001001';
Tsave.Parameters[1].Value:='001001';
Tsave.Parameters[2].Value:=1
Tsave.Parameters[3].Value:='ykj';
Tsave.ExecSQL;
Main.JMain.ADO1.CommitTrans;
except
Tsave.Free;
end;