摘要: this.PicId = NumberSeq::newGetNumFromCode('PicId',true).num(); 阅读全文
posted @ 2011-08-10 15:46 perock 阅读(267) 评论(0) 推荐(0) 编辑
摘要: 其实AX中条形码就是一种特殊有字体,如下代码中,将barCode的Font属性设成BC I25 Narrow字体后,打印出来的内容将以条形码显示。 (此处Barcode是StringEdit) public boolean fetch() { // boolean ret; // ret = super(); ; m_BarCodeSetup = barCodeSetup::find("... 阅读全文
posted @ 2011-08-10 12:05 perock 阅读(678) 评论(0) 推荐(0) 编辑
摘要: static void Update(thread t) { CCADOConnection connection; str strSQL; CCADOCommand Command; CCADORecordSet RSet; InventTable it; SysOperationProgress simpleProgress; int i,RecCount; ; c... 阅读全文
posted @ 2011-08-10 10:19 perock 阅读(282) 评论(0) 推荐(0) 编辑
摘要: static client void ShowProgressBar() { #avifiles SysOperationProgress simpleProgress; int i; ; simpleProgress = SysOperationProgress::newGeneral(#aviUpdate, 'Updating...', 100); for(i=1;i<=100;i... 阅读全文
posted @ 2011-08-10 10:13 perock 阅读(219) 评论(0) 推荐(0) 编辑
摘要: lines = UploadText.text(); line = strLine(lines, 0); while (strlen(line) > 0) { cnt++; sStrings += (line+","); if((cnt mod 20) ==0) { qbsProdTable.addRange(fieldnum(ProdTable,ProdId)).value(sS... 阅读全文
posted @ 2011-08-10 09:37 perock 阅读(190) 评论(0) 推荐(0) 编辑
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; btn3: TButton... 阅读全文
posted @ 2011-08-10 08:32 perock 阅读(1786) 评论(0) 推荐(0) 编辑