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
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
在一个网页上有两个submit 按钮。。。。一个是搜索的。一个是发帖的。。。如果直接
o :=WebBrowser1.oleobject.document.all.item('submit',0);
......
