if Flag = 1 then
begin
if share.userId = Trim(ComboBox1.Text) then
begin Sql := 'Insert into ZHAOWEI.BZGZ(NN,workdate,banzu,workdata,people,manincharge) values(''' + (Form1.Query1.FieldByName('bh').AsString) + ''','''+ DateToStr(Self.DateTimePicker1.Date) + ''',''' + Trim(ComboBox1.Text) + ''',''' + Trim(Memo1.Text) + ''',''' + Trim(Memo2.Text) + ''',''' + Trim(Edit1.Text) + ''')' ;
// else
// Application.MessageBox('班组选择错误','提醒',mb_ok);
end
end;
begin
if share.userId = Trim(ComboBox1.Text) then
begin Sql := 'Insert into ZHAOWEI.BZGZ(NN,workdate,banzu,workdata,people,manincharge) values(''' + (Form1.Query1.FieldByName('bh').AsString) + ''','''+ DateToStr(Self.DateTimePicker1.Date) + ''',''' + Trim(ComboBox1.Text) + ''',''' + Trim(Memo1.Text) + ''',''' + Trim(Memo2.Text) + ''',''' + Trim(Edit1.Text) + ''')' ;
// else
// Application.MessageBox('班组选择错误','提醒',mb_ok);
end
end;
解决方案 »
- 如何使得RxDBRichEdit支持PopupMenu
- [抢分题]ADO远程连接SQL Server的问题!!
- DELPHI MSCOMM 串口通信 帮帮我!!!!!!!!
- rave报表如何只打印当前记录?
- 放分100——强力支持WGYKING(修罗是谁?!)做Delphi 语言基础/算法/系统设计版版主!
- SQL如何操作Memo中的多行文本?
- 求一个系统的解决方案
- 一个非常菜鸟的问题----如何打开一个新FORM,如何如何把一个变量从一个FORM 到另一个FORM?
- 我是阿水,特来送分。还有巨难问题(打印走纸控制)求大家帮忙
- MDIChild在MDI Client 区的移动
- 写设备管理需要用到的SetupDi 系列函数的说明
- 熊猫烧香病毒代码
'insert into 表 (日期字段) values (' + QuoTedStr('#'+'字串'+'#') + ')'
后出现了问题 在运行时跳出来来个SQL ERROR