您所在位置：主题：向表中插入数据的问题
chagnm
[专家分：0] 发布于 2011-06-17 03:07:00
请个位高手帮忙解决一下，不甚感激!
界面图如附件所示
销售表的记录是:编号，药名，数量，单位，单价，金额，日期，店号；
代码如下：
dm.adctuihuo.CommandText:='insert 销售表 values('+#39+edit2.Text+#39,'select 药名 from 库存表 where 编号='+#39+edit2.text+#39,'+
''+#39+edit3.Text+#39,'select 单位 from 库存表 where 编号='+#39+edit2.text+#39,'+#39+edit3.Text+#39,'+
getdate(),'+#39+edit2.Text+#39)
dm.adctuihuo.Execute;
Edit2 的onchange事件代码为：edit4.Text:='selct 价格 from 药品查询表 where 编号='+#39+edit2.Text+#39;
错误提示：
[错误] saleFrm.pas(60): 'END' expected but ',' found
[错误] saleFrm.pas(60): Unterminated string
[错误] saleFrm.pas(62): Unterminated string
[致命错误] Project1.dpr(12): Could not compile used unit 'saleFrm.pas'
界面图如附件所示
销售表的记录是:编号，药名，数量，单位，单价，金额，日期，店号；
代码如下：
dm.adctuihuo.CommandText:='insert 销售表 values('+#39+edit2.Text+#39,'select 药名 from 库存表 where 编号='+#39+edit2.text+#39,'+
''+#39+edit3.Text+#39,'select 单位 from 库存表 where 编号='+#39+edit2.text+#39,'+#39+edit3.Text+#39,'+
getdate(),'+#39+edit2.Text+#39)
dm.adctuihuo.Execute;
Edit2 的onchange事件代码为：edit4.Text:='selct 价格 from 药品查询表 where 编号='+#39+edit2.Text+#39;
错误提示：
[错误] saleFrm.pas(60): 'END' expected but ',' found
[错误] saleFrm.pas(60): Unterminated string
[错误] saleFrm.pas(62): Unterminated string
[致命错误] Project1.dpr(12): Could not compile used unit 'saleFrm.pas'