delphi编程碰到一个不知所措的问题???
各位大佬:
小弟做一超市前台收银用触摸屏.思路是:前动态生成组件方式生成商品单以便选择,这作为前一个FORM,后一个FORM是打印并同时将临时库中的商品选购数据存入总库中(二个库结构完成相同),在第二个FORM时,第一个不关闭,程序用ODBC与SQL连接,前一个FORM运行正常,但在操作第二FORM时却发生了这样情况:
所有导入的数据都不能在总库中正确反应,或是变成0或是NULL,但我将后一个FORM单独运行时,导入的数据正确,这是为何,真不知所措了!
procedure TForm6.Button1Click(Sender: TObject);
var
f6_b1i1,f6_b1i2:integer;
f6_ryname:string;
begin
self.xpdy ;//打印程序
table1.Open;//总库
table1.Last;
table1.Edit;
// f6_b1i1:=table2.RecordCount ;
table2.Open;//临时库
table2.First ;
if table1.RecordCount =0 then f6_b1i2:=1;
if table1.RecordCount >0 then f6_b1i2:=table1.fieldbyname('id').AsInteger+1 ;
for f6_b1i1:=0 to table2.RecordCount-1 do
begin
table1.Append;
table1.Edit;
table1.fieldbyname('id').asinteger:=f6_b1i2;(这能正确导入)
table1.FieldByName('dj_no').asinteger:=strtoint(form3.edit14.text);(这能正确导入)
table1.FieldByName('renyuanmc').AsString:=table2.fieldbyname('renyuanmc').AsString ;(以下不能正确导入)
table1.FieldByName('je').Asfloat:=table2.fieldbyname('je').Asfloat ;
table1.FieldByName('dj').Asfloat:=table2.fieldbyname('dj').Asfloat ;
table1.Fi
相关问答：
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
