lenya

摘要： li_file_no = FileOpen("system_error.log",LineMode!,Write!,Shared!,Append!)if li_file_no = 0 then Messagebox("出错信息","不能打开系统出错日志文件！",Exclamation!)else if FileWrite(li_file_no, "~r~n" + & "----------------------------------------------------------------& 阅读全文

摘要： 菜单:$PBExportHeader$m_compopup.srm$PBExportComments$通用右键弹出菜单 common popup menu.Create by lenya on 2010/9/30forwardglobal type m_compopup from menuend typetype m_item1 from menu within m_compopupend typetype m_item2 from menu within m_compopupend typetype m_item3 from menu within m_compopupend typetyp 阅读全文

摘要： MICROSOFT与PB的数据类型转换表 MICROSOFT PB(16Bit) PB(32Bit) Bool Boolean Boolean Byte, Char Char Char Char* Ref string Ref String Colorref Uint Ulong Double Double Double Dword Uint Ulong Float N/A N/A Handle Uint Ulong Hdc Uint Ulong Hfile Uint Ulong Hinstance Uint Ulong Hwnd Uint Ulong Int Int Int Long Lon 阅读全文

摘要： 如何固定一个activex控件的初始大小？Q：我做了一个控件（用MFC），做好之后，我想只要把它加入一个对话框它就自动设成固定大小，我试了多种方法都不行，我重载了precreatewindow,还有colecontrol::setinitialsize,都没有任何效果，控件只要一加入对话框的资源栏就自动成初始大小（100，50），可是如果在activex control test container中就没有问题。A：a1：(未验证)return ideal RECT in IOleObjectImpl::GetExtent。a2：(已通过验证)First, we need to set the 阅读全文

摘要： 1.定义一个局部的外部函数Function long DllRegisterServer() Library "QRBarcode.ocx"2:Integer li_retstring ls_templi_ret = RegistryGet("HKEY_CLASSES_ROOT/CLSID/{F5E7BFDD-DE8E-47FB-B009-F9230FFF154A}/TypeLib", "", RegString!, ls_temp)if -1 = li_ret then DllRegisterServer() //如果返回-1，说明 阅读全文

摘要： PB示例中打开帮助文档的函数:int li_major, li_minorContextInformation lcx_key/* Get PB Version. */ge_environment.GetContextService ( "ContextInformation", lcx_key)lcx_key.GetMajorVersion ( li_major )lcx_key.GetMinorVersion ( li_minor )ShowHelp("exampl" + String ( li_major ) + String ( li_minor 阅读全文

摘要： 获取数据窗口中summary区中一个计算字段的值:dw_1.getitemdecimal( 1, "compute_mk"))dw_1.describe("Evaluate('sum(mk_qty for all)',1)") 阅读全文

摘要： 最好不要做大数据量的删除,因为往往会引起逻辑日志满. 可以: 1.加where条件删除,把一个事务的删除记录控制在10000条内. 2.如果全表数据删除,不妨删掉整个表,在建表结构. 3.可以先把数据库变成无日志状态,再删数据,然后把数据库改成原状态. 阅读全文

摘要： 对于要实现实时的自动换行则需如下脚本：event editChanged;/***************************************************************************解决自动换行时，新行不能实时显示的问题。通过加上多个条件限制，使得 acceptText() 对有效性验证的影响最小***************************************************************************/try if Object.DataWindow.Detail.Height.AutoSize = &qu 阅读全文

摘要： 异或处理:一:-----------integer i,flag unsignedinteger returnvalue returnvalue=0 for i=1 to 16 if mod(dataA,2)=mod(dataB,2) then flag = 0 else flag = 1 end if dataA=dataA/2 dataB=dataB/2 returnvalue = returnvalue + flag * (2^(i - 1 )) next return returnvalue二:-----------WORD WINAPI xor(WORD d1,WORD d2... 阅读全文