亚洲AV无码久久精品蜜桃,久久久久无码专区亚洲av,亚洲色偷偷综合亚洲AV伊人蜜桃

Fri, 18 Dec 2009 06:11:00 GMT

http://www.cnblogs.com/yuanhuaming/

疯流成�?/a> 2009-12-18 14:11 发表评论

NopCommerce 研究心得 1

Sat, 11 Apr 2009 04:33:00 GMT

摘要: 很久没有更新blog了。这几天在研�I�一个开源电子商务源码NopCommerce�? 先来一张工�E�的图案片把 ��Z��3层的�l�构。所以很好理解�?用到�?个实体层。一个在DataAccess里，于数据库字段一一对应。还有一个在Common里，与业务相关的实体�c�R��这2个实体层之间的互传在DataAccessSql里实现的�? 下面是税率的源码�Q? &nb... 阅读全文

疯流成�?/a> 2009-04-11 12:33 发表评论

Thu, 18 Jan 2007 04:21:00 GMT

1. 通过 backing bean 寚w��面的��D��行绑�?/span>

JSF ��装�?/span> HTML 控�g都有一�?/span> binding 的属性，通过该属性可以在后台对该控�g取��D��倹{�?/span>

< body >

< f:view >

< h:form >

< h:inputText binding = "#{loginBean.txtUser}">h:inputText>

< h:commandButton actionListener = "#{loginBean.txtListener}"value="enter">h:commandButton>

h:form >

f:view >

body >

private UIInput txtUser ;

public UIInput getTxtUser() {

return txtUser ;

}

public void setTxtUser(UIInput txtUser) {

this . txtUser = txtUser;

}

public void txtListener(ActionEvent e){

txtUser .setValue( "11111" );

System. out .println( txtUser .getValue().toString());

}

2. 在一�?/span> bean 中调用其�?/span> bean

FacesContext context = FacesContext.getCurrentInstance();

ValueBinding binding = context.getApplication().createValueBinding(

"#{uptBean}" );

uptBean bean = (uptBean) binding.getValue(context);

�q�段代码��是用来调用 uptBean �?/span> CreateValueBinding �Q�）�Ҏ��中的参数�Q�可以是 bean �Q�也可以 bean 中对应得数据�?br />

疯流成�?/a> 2007-01-18 12:21 发表评论

ALV��单的应用

Mon, 18 Dec 2006 02:47:00 GMT

Tables: MARA.
*在这里定义一个用于显�C�的内部�?br />data: begin of itab occurs 10 ,
        MATNR like MARA-MATNR ,
        MTART LIKE MARA-MTART ,
        MEINS LIKE MARA-MEINS ,
      end of itab.

*
type-pools: slis.

*定义一个显�C�的内表的一�?br />DATA: L_ALV_FILED  TYPE SLIS_FIELDCAT_ALV.

*定义昄��的一列的框架
DATA: L_ALV_FILEDCAT  TYPE SLIS_T_FIELDCAT_ALV.
CLEAR L_ALV_FILED.

*定义�W�一列的属�?br />*定义昄��位置 , 昄��的字�D?在下面传递内表中的名字一��L��?br />*昄��标题名字
L_ALV_FILED-COL_POS = 1 .
L_ALV_FILED-FIELDNAME = 'MATNR'.
L_ALV_FILED-seltext_M = '�W�一�?.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.

L_ALV_FILED-COL_POS = 2 .
L_ALV_FILED-FIELDNAME = 'MTART'.
L_ALV_FILED-seltext_M = '�W�二�?.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.

L_ALV_FILED-COL_POS = 3 .
L_ALV_FILED-FIELDNAME = 'MEINS'.
L_ALV_FILED-seltext_M = '�W�三�?.
APPEND L_ALV_FILED TO L_ALV_FILEDCAT.

*输出画面
SELECT-OPTIONS: P_MATNR FOR MARA-MATNR.

*查询以下三个字段的数�?/span> , 然后攑օ��q�个内表
SELECT MATNR
       MTART
       MEINS
  INTO CORRESPONDING FIELDS OF TABLE ITAB
  FROM MARA
WHERE MATNR IN P_MATNR.

APPEND ITAB.

*然后调用以下的这个函�?然后
* 把定义的昄��框架和数据内表传递过�?
* REUSE_ALV_LIST_DISPLAY
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
       IT_FIELDCAT = L_ALV_FILEDCAT
    Tables
       t_outtab = ITAB.

疯流成�?/a> 2006-12-18 10:47 发表评论

Fri, 15 Dec 2006 09:17:00 GMT

��C��2个礼拜的ABAP�Q�感觉这个语�a�和开发工��L��直够烂，可能是我其它开发工��L��多的原因吧。唠叨的话也不说了，最�q�碰��C��个在Dialog中显�C�Z��个字�D�，�q�个字段是int型，但是有负数的情况下出异常�Q�我是百思不得其解阿。数据类型都一��P��Z��么报�?�c�d��转换错误"?
搞了半天最后在高�h的指点下才搞定了�?br />��是在控件的TEXT值的最�?个V . 我是�?阿~~~~~~~~~~今天�l�于长见识了�?/p>

疯流成�?/a> 2006-12-15 17:17 发表评论

sap 部分函数

Fri, 15 Dec 2006 07:22:00 GMT

WS_DOWNLOAD :下蝲表格到本地文�?可能没有�cȝ��Ҏ��高效
RP_LAST_DAY_OF_MONTHS�Q�取月的最后一�?br />UNIT_CONVERSION_SIMPLE�Q?span lang="ZH-TW" style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: PMingLiU">单位换算
WS_FILENAME_GET�Q�呼叫open dialog的方�?br />C14B_ADD_TIME�Q�加旉��到某�q�某�?br />BAPI_CURRENCY_CONV_TO_INTERNAL�Q�将货币转成内部存储�?br />BAPI_CURRENCY_CONV_TO_EXTERNAL�Q�将货币转成外部储存�?br />CONVERSION_EXIT_ALPHA_OUTPUT�Q�将数字前的0都去�?br />NUMERIC_CHECK�Q�判断是否�ؓ数字
SPELL_AMOUNT �Q?font color="#000000">��?/font>数字转化成文�?/font>

TMP_GUI_FILE_OPEN_DIALOG 调用选择文�g对话�?/span>
ALSM_EXCEL_TO_INTERNAL_TABLE Excel数据到内部表
CATS_NUMERIC_INPUT_CHECK�Q�数值检�?/span>

疯流成�?/a> 2006-12-15 15:22 发表评论

[转]Windows消息大全使用详解

Tue, 21 Nov 2006 07:18:00 GMT

�q�东西很有用...
先放�q�有需要的时侯来看.....

消息�Q�就是指Windows发出的一个通知�Q�告诉应用程序某个事情发生了。例如，单击鼠标、改
变窗口尺寸、按下键盘上的一个键都会使Windows发送一个消息给应用�E�序。消息本�w�是作�ؓ
一个记录传递给应用�E�序的，�q�个记录中包含了消息的类型以及其他信息。例如，对于单击�?br />标所产生的消息来��_��q�个记录中包含了单击鼠标时的坐标。这个记录类型叫做TMsg�Q?/font>

它在Windows单元中是�q�样声明的：
type
TMsg = packed record
hwnd: HWND; / /�H�口句柄
message: UINT; / /消息帔R��标识�W?br />wParam: WPARAM ; // 32位消息的特定附加信息
lParam: LPARAM ; // 32位消息的特定附加信息
time: DWORD; / /消息创徏时的旉��
pt: TPoint; / /消息创徏时的鼠标位置
end;

消息中有什么？
是否觉得一个消息记录中的信息像希腊语一��P��如果是这��P��那么看一看下面的解释�Q?br />hwnd 32位的�H�口句柄。窗口可以是��M��c�d��的屏�q�对象，因�ؓWin32能够�l�护大多数可视对�?br />的句�?�H�口、对话框、按钮、编辑框�{?�?br />message 用于区别其他消息的常量��|��q�些帔R��可以是Windows单元中预定义的常量，也可�?br />是自定义的常量�?br />wParam 通常是一个与消息有关的常量��|��也可能是�H�口或控件的句柄�?br />lParam 通常是一个指向内存中数据的指针。由于W P a r a m、l P a r a m和P o i n t e r
都是3 2位的�Q?br />因此�Q�它们之间可以相互�{换�?/font>

WM_NULL = $0000;
WM_CREATE = $0001;
应用�E�序创徏一个窗�?br />WM_DESTROY = $0002;
一个窗口被销�?br />WM_MOVE = $0003;
�U�d��一个窗�?br />WM_SIZE = $0005;
改变一个窗口的大小
WM_ACTIVATE = $0006;
一个窗口被�Ȁ�z�L��失去�Ȁ�zȝ��态；
WM_SETFOCUS = $0007;
获得焦点�?br />WM_KILLFOCUS = $0008;
失去焦点
WM_ENABLE = $000A;
改变enable状�?br />WM_SETREDRAW = $000B;
讄��H�口是否能重�?
WM_SETTEXT = $000C;
应用�E�序发送此消息来设�|�一个窗口的文本
WM_GETTEXT = $000D;
应用�E�序发送此消息来复制对应窗口的文本到缓冲区
WM_GETTEXTLENGTH = $000E;
得到与一个窗口有关的文本的长度（不包含空字符�Q?br />WM_PAINT = $000F;
要求一个窗口重画自�?br />WM_CLOSE = $0010;
当一个窗口或应用�E�序要关闭时发送一个信�?br />WM_QUERYENDSESSION = $0011;
当用户选择�l�束对话框或�E�序自己调用ExitWindows函数
WM_QUIT = $0012;
用来�l�束�E�序�q�行或当�E�序调用postquitmessage函数
WM_QUERYOPEN = $0013;
当用��L��口恢复以前的大小位置�Ӟ��把此消息发送给某个图标
WM_ERASEBKGND = $0014;
当窗口背景必��被擦除�Ӟ��例在�H�口改变大小�Ӟ��
WM_SYSCOLORCHANGE = $0015;
当系�l�颜色改变时�Q�发送此消息�l�所有顶�U�窗�?br />WM_ENDSESSION = $0016;
当系�l�进�E�发出WM_QUERYENDSESSION消息后，此消息发送给应用�E�序�Q?br />通知它对话是否结�?br />WM_SYSTEMERROR = $0017;
WM_SHOWWINDOW = $0018;
当隐藏或昄��H�口是发送此消息�l�这个窗�?br />WM_ACTIVATEAPP = $001C;
发此消息�l�应用程序哪个窗口是�Ȁ�zȝ��Q�哪个是非激�zȝ��Q?br />WM_FONTCHANGE = $001D;
当系�l�的字体资源库变化时发送此消息�l�所有顶�U�窗�?br />WM_TIMECHANGE = $001E;
当系�l�的旉��变化时发送此消息�l�所有顶�U�窗�?br />WM_CANCELMODE = $001F;
发送此消息来取消某�U�正在进行的摸态（操作�Q?br />WM_SETCURSOR = $0020;
如果鼠标引�v光标在某个窗口中�U�d��且鼠标输入没有被捕获�Ӟ��发消息�l�某个窗�?br />WM_MOUSEACTIVATE = $0021;
当光标在某个非激�zȝ��H�口中而用��h��按着鼠标的某个键发送此消息�l�当前窗�?br />WM_CHILDACTIVATE = $0022;
发送此消息�l�MDI子窗口当用户点击此窗口的标题栏，或当�H�口被激�z�，�U�d��Q�改变大��?br />WM_QUEUESYNC = $0023;
此消息由��Z��计算机的训练�E�序发送，通过WH_JOURNALPALYBACK的hook�E�序
分离出用戯��入消�?br />WM_GETMINMAXINFO = $0024;
此消息发送给�H�口当它��要改变大小或位�|�；
WM_PAINTICON = $0026;
发送给最��化�H�口当它图标��要被重�?br />WM_ICONERASEBKGND = $0027;
此消息发送给某个最��化�H�口�Q�仅当它在画图标前它的背景必��被重画
WM_NEXTDLGCTL = $0028;
发送此消息�l�一个对话框�E�序��L��改焦点位�|?br />WM_SPOOLERSTATUS = $002A;
每当打印��理列队增加或减��一条作业时发出此消�?
WM_DRAWITEM = $002B;
当button�Q�combobox�Q�listbox�Q�menu的可视外观改变时发�?br />此消息给�q�些�I�Z�g的所有�?br />WM_MEASUREITEM = $002C;
当button, combo box, list box, list view control, or menu item 被创建时
发送此消息�l�控件的所有�?br />WM_DELETEITEM = $002D;
当the list box �?combo box 被销�?�?�?某些��被删除通过LB_DELETESTRING,
LB_RESETCONTENT, CB_DELETESTRING, or CB_RESETCONTENT 消息
WM_VKEYTOITEM = $002E;
此消息有一个LBS_WANTKEYBOARDINPUT风格的发出给它的所有者来响应WM_KEYDOWN消息
WM_CHARTOITEM = $002F;
此消息由一个LBS_WANTKEYBOARDINPUT风格的列表框发送给他的所有者来响应WM_CHAR消息
WM_SETFONT = $0030;
当绘制文本时�E�序发送此消息得到控�g要用的颜�?
WM_GETFONT = $0031;
应用�E�序发送此消息得到当前控�g�l�制文本的字�?br />WM_SETHOTKEY = $0032;
应用�E�序发送此消息让一个窗口与一个热键相兌��
WM_GETHOTKEY = $0033;
应用�E�序发送此消息来判断热键与某个�H�口是否有关�?br />WM_QUERYDRAGICON = $0037;
此消息发送给最��化�H�口�Q�当此窗口将要被拖放而它的类中没有定义图标，应用�E�序能返回一
个图标或光标的句柄，当用��h��攑֛�标时�pȝ��昄��q�个图标或光�?br />WM_COMPAREITEM = $0039;
发送此消息来判定combobox或listbox新增加的��的相对位置
WM_GETOBJECT = $003D;
WM_COMPACTING = $0041;
昄��内存已经很少�?br />WM_WINDOWPOSCHANGING = $0046;
发送此消息�l�那个窗口的大小和位�|�将要被改变�Ӟ��来调用setwindowpos函数或其它窗口管�?br />函数
WM_WINDOWPOSCHANGED = $0047;
发送此消息�l�那个窗口的大小和位�|�已�l�被改变�Ӟ��来调用setwindowpos函数或其它窗口管�?br />函数
WM_POWER = $0048;�Q�适用�?6位的windows�Q?br />当系�l�将要进入暂停状态时发送此消息
WM_COPYDATA = $004A;
当一个应用程序传递数据给另一个应用程序时发送此消息
WM_CANCELJOURNAL = $004B;
当某个用户取消程序日志激�zȝ��态，提交此消息给�E�序
WM_NOTIFY = $004E;
当某个控件的某个事�g已经发生或这个控仉��要得��C��些信息时�Q�发送此消息�l�它的父�H�口
WM_INPUTLANGCHANGEREQUEST = $0050;
当用户选择某种输入语言�Q�或输入语言的热键改�?br />WM_INPUTLANGCHANGE = $0051;
当��^台现场已�l�被改变后发送此消息�l�受影响的最��H�口
WM_TCARD = $0052;
当程序已�l�初始化windows帮助例程时发送此消息�l�应用程�?br />WM_HELP = $0053;
此消息显�C�用��h��下了F1�Q�如果某个菜单是�Ȁ�zȝ��Q�就发送此消息个此�H�口兌��的菜单，否则
��?br />发送给有焦点的�H�口�Q�如果当前都没有焦点�Q�就把此消息发送给当前�Ȁ�zȝ��H�口
WM_USERCHANGED = $0054;
当用户已�l�登入或退出后发送此消息�l�所有的�H�口�Q�当用户��d��或退出时�pȝ��更新用户的具�?/font>

讄��信息�Q�在用户更新讄��时系�l�马上发送此消息�Q?br />WM_NOTIFYFORMAT = $0055;
公用控�g�Q�自定义控�g和他们的父窗口通过此消息来判断控�g是��用ANSI�q�是UNICODE�l�构
在WM_NOTIFY消息�Q��用此控�g能��某个控�g与它的父控�g之间�q�行�怺�通信
WM_CONTEXTMENU = $007B;
当用��h��个窗口中点击了一下右键就发送此消息�l�这个窗�?br />WM_STYLECHANGING = $007C;
当调用SETWINDOWLONG函数��要改变一个或多个 �H�口的风格时发送此消息�l�那个窗�?br />WM_STYLECHANGED = $007D;
当调用SETWINDOWLONG函数一个或多个 �H�口的风格后发送此消息�l�那个窗�?br />WM_DISPLAYCHANGE = $007E;
当显�C�器的分辨率改变后发送此消息�l�所有的�H�口
WM_GETICON = $007F;
此消息发送给某个�H�口来返回与某个�H�口有关�q�的大图标或��图标的句柄�Q?br />WM_SETICON = $0080;
�E�序发送此消息让一个新的大图标或小图标与某个窗口关联；
WM_NCCREATE = $0081;
当某个窗口第一�ơ被创徏�Ӟ��此消息在WM_CREATE消息发送前发送；
WM_NCDESTROY = $0082;
此消息通知某个�H�口�Q�非客户区正在销�?br />WM_NCCALCSIZE = $0083;
当某个窗口的客户区域必须被核��时发送此消息
WM_NCHITTEST = $0084;//�U�d��鼠标�Q�按住或释放鼠标时发�?br />WM_NCPAINT = $0085;
�E�序发送此消息�l�某个窗口当它（�H�口�Q�的框架必须被绘制时�Q?br />WM_NCACTIVATE = $0086;
此消息发送给某个�H�口仅当它的非客户区需要被改变来显�C�是�Ȁ�z�还是非�Ȁ�zȝ��态；
WM_GETDLGCODE = $0087;
发送此消息�l�某个与对话框程序关联的控�g�Q�widdows控制方位键和TAB键��输入�q�入此控�?br />通过响应WM_GETDLGCODE消息�Q�应用程序可以把他当成一个特�D�的输入控�g�q�能处理�?br />WM_NCMOUSEMOVE = $00A0;
当光标在一个窗口的非客户区内移动时发送此消息�l�这个窗�?//非客户区为：�H�体的标题栏
及窗
的边框体
WM_NCLBUTTONDOWN = $00A1;
当光标在一个窗口的非客户区同时按下鼠标左键时提交此消息
WM_NCLBUTTONUP = $00A2;
当用户释��N��标左键同时光标某个窗口在非客户区十发送此消息�Q?br />WM_NCLBUTTONDBLCLK = $00A3;
当用户双击鼠标左键同时光标某个窗口在非客户区十发送此消息
WM_NCRBUTTONDOWN = $00A4;
当用��h��下鼠标右键同时光标又在窗口的非客户区时发送此消息
WM_NCRBUTTONUP = $00A5;
当用户释��N��标右键同时光标又在窗口的非客户区时发送此消息
WM_NCRBUTTONDBLCLK = $00A6;
当用户双击鼠标右键同时光标某个窗口在非客户区十发送此消息
WM_NCMBUTTONDOWN = $00A7;
当用��h��下鼠标中键同时光标又在窗口的非客户区时发送此消息
WM_NCMBUTTONUP = $00A8;
当用户释��N��标中键同时光标又在窗口的非客户区时发送此消息
WM_NCMBUTTONDBLCLK = $00A9;
当用户双击鼠标中键同时光标又在窗口的非客户区时发送此消息
WM_KEYFIRST = $0100;
WM_KEYDOWN = $0100;
//按下一个键
WM_KEYUP = $0101;
//释放一个键
WM_CHAR = $0102;
//按下某键�Q��ƈ已发出WM_KEYDOWN�Q?WM_KEYUP消息
WM_DEADCHAR = $0103;
当用translatemessage函数��译WM_KEYUP消息时发送此消息�l�拥有焦点的�H�口
WM_SYSKEYDOWN = $0104;
当用��h��住ALT键同时按下其它键时提交此消息�l�拥有焦点的�H�口�Q?br />WM_SYSKEYUP = $0105;
当用户释放一个键同时ALT 键还按着时提交此消息�l�拥有焦点的�H�口
WM_SYSCHAR = $0106;
当WM_SYSKEYDOWN消息被TRANSLATEMESSAGE函数��译后提交此消息�l�拥有焦点的�H�口
WM_SYSDEADCHAR = $0107;
当WM_SYSKEYDOWN消息被TRANSLATEMESSAGE函数��译后发送此消息�l�拥有焦点的�H�口
WM_KEYLAST = $0108;
WM_INITDIALOG = $0110;
在一个对话框�E�序被显�C�前发送此消息�l�它�Q�通常用此消息初始化控件和执行其它��d��
WM_COMMAND = $0111;
当用户选择一条菜单命令项或当某个控�g发送一条消息给它的父窗口，一个快捷键被翻�?br />WM_SYSCOMMAND = $0112;
当用户选择�H�口菜单的一条命令或当用户选择最大化或最��化旉��个窗口会收到此消�?br />WM_TIMER = $0113; //发生了定时器事�g
WM_HSCROLL = $0114;
当一个窗口标准水�q�x��动条产生一个滚动事件时发送此消息�l�那个窗口，也发送给拥有它的�?br />�?br />WM_VSCROLL = $0115;
当一个窗口标准垂直滚动条产生一个滚动事件时发送此消息�l�那个窗口也�Q�发送给拥有它的�?br />�?WM_INITMENU = $0116;
当一个菜单将要被�Ȁ�z�L��发送此消息�Q�它发生在用戯��单条中的某项或按下某个菜单键�Q�它�?br />许程序在昄��前更改菜�?br />WM_INITMENUPOPUP = $0117;
当一个下拉菜单或子菜单将要被�Ȁ�z�L��发送此消息�Q�它允许�E�序在它昄��前更改菜单，而不�?br />改变全部
WM_MENUSELECT = $011F;
当用户选择一条菜单项时发送此消息�l�菜单的所有者（一般是�H�口�Q?br />WM_MENUCHAR = $0120;
当菜单已被激�zȝ��h��下了某个键（不同于加速键�Q�，发送此消息�l�菜单的所有者；
WM_ENTERIDLE = $0121;
当一个模态对话框或菜单进入空载状态时发送此消息�l�它的所有者，一个模态对话框或菜单进
入空载状态就是在处理完一条或几条先前的消息后没有消息它的列队中等�?br />WM_MENURBUTTONUP = $0122;
WM_MENUDRAG = $0123;
WM_MENUGETOBJECT = $0124;
WM_UNINITMENUPOPUP = $0125;
WM_MENUCOMMAND = $0126;
WM_CHANGEUISTATE = $0127;
WM_UPDATEUISTATE = $0128;
WM_QUERYUISTATE = $0129;
WM_CTLCOLORMSGBOX = $0132;
在windows�l�制消息框前发送此消息�l�消息框的所有者窗口，通过响应�q�条消息�Q�所有者窗�?br />可以通过使用�l�定的相��x��C��备的句柄来设�|�消息框的文本和背景颜色
WM_CTLCOLOREDIT = $0133;
当一个编辑型控�g��要被绘制时发送此消息�l�它的父�H�口�Q�通过响应�q�条消息�Q�所有者窗口可
以通过使用�l�定的相��x��C��备的句柄来设�|�编辑框的文本和背景颜色
WM_CTLCOLORLISTBOX = $0134;
当一个列表框控�g��要被绘制前发送此消息�l�它的父�H�口�Q�通过响应�q�条消息�Q�所有者窗口可
以通过使用�l�定的相��x��C��备的句柄来设�|�列表框的文本和背景颜色
WM_CTLCOLORBTN = $0135;
当一个按钮控件将要被�l�制时发送此消息�l�它的父�H�口�Q�通过响应�q�条消息�Q�所有者窗口可�?br />通过使用�l�定的相��x��C��备的句柄来设�|�按�U�的文本和背景颜�?br />WM_CTLCOLORDLG = $0136;
当一个对话框控�g��要被绘制前发送此消息�l�它的父�H�口�Q�通过响应�q�条消息�Q�所有者窗口可
以通过使用�l�定的相��x��C��备的句柄来设�|�对话框的文本背景颜�?br />WM_CTLCOLORSCROLLBAR= $0137;
当一个滚动条控�g��要被绘制时发送此消息�l�它的父�H�口�Q�通过响应�q�条消息�Q�所有者窗口可
以通过使用�l�定的相��x��C��备的句柄来设�|�滚动条的背景颜�?br />WM_CTLCOLORSTATIC = $0138;
当一个静态控件将要被�l�制时发送此消息�l�它的父�H�口�Q�通过响应�q�条消息�Q�所有者窗口可�?br />通过使用�l�定的相��x��C��备的句柄来设�|�静态控件的文本和背景颜�?br />WM_MOUSEFIRST = $0200;
WM_MOUSEMOVE = $0200;
// �U�d��鼠标
WM_LBUTTONDOWN = $0201;
//按下鼠标左键
WM_LBUTTONUP = $0202;
//释放鼠标左键
WM_LBUTTONDBLCLK = $0203;
//双击鼠标左键
WM_RBUTTONDOWN = $0204;
//按下鼠标右键
WM_RBUTTONUP = $0205;
//释放鼠标右键
WM_RBUTTONDBLCLK = $0206;
//双击鼠标右键
WM_MBUTTONDOWN = $0207;
//按下鼠标中键
WM_MBUTTONUP = $0208;
//释放鼠标中键
WM_MBUTTONDBLCLK = $0209;
//双击鼠标中键
WM_MOUSEWHEEL = $020A;
当鼠标轮子�{动时发送此消息个当前有焦点的控�?br />WM_MOUSELAST = $020A;
WM_PARENTNOTIFY = $0210;
当MDI子窗口被创徏或被销毁，或用��h��了一下鼠标键而光标在子窗口上时发送此消息�l�它�?br />父窗�?br />WM_ENTERMENULOOP = $0211;
发送此消息通知应用�E�序的主�H�口that已经�q�入了菜单��@环模�?br />WM_EXITMENULOOP = $0212;
发送此消息通知应用�E�序的主�H�口that已退��Z��菜单循环模式
WM_NEXTMENU = $0213;
WM_SIZING = 532;
当用��h��在调整窗口大��时发送此消息�l�窗口；通过此消息应用程序可以监视窗口大��和位置
也可以修改他�?br />WM_CAPTURECHANGED = 533;
发送此消息 �l�窗口当它失��L��L��鼠标�Ӟ��
WM_MOVING = 534;
当用户在�U�d��H�口时发送此消息�Q�通过此消息应用程序可以监视窗口大��和位置也可以修改他
们；
WM_POWERBROADCAST = 536;
此消息发送给应用�E�序来通知它有关电源管理事�Ӟ��
WM_DEVICECHANGE = 537;
当设备的��g配置改变时发送此消息�l�应用程序或讑֤�驱动�E�序
WM_IME_STARTCOMPOSITION = $010D;
WM_IME_ENDCOMPOSITION = $010E;
WM_IME_COMPOSITION = $010F;
WM_IME_KEYLAST = $010F;
WM_IME_SETCONTEXT = $0281;
WM_IME_NOTIFY = $0282;
WM_IME_CONTROL = $0283;
WM_IME_COMPOSITIONFULL = $0284;
WM_IME_SELECT = $0285;
WM_IME_CHAR = $0286;
WM_IME_REQUEST = $0288;
WM_IME_KEYDOWN = $0290;
WM_IME_KEYUP = $0291;
WM_MDICREATE = $0220;
应用�E�序发送此消息�l�多文档的客��L��口来创徏一个MDI 子窗�?br />WM_MDIDESTROY = $0221;
应用�E�序发送此消息�l�多文档的客��L��口来关闭一个MDI 子窗�?br />WM_MDIACTIVATE = $0222;
应用�E�序发送此消息�l�多文档的客��L��口通知客户�H�口�Ȁ�z�d��一个MDI子窗口，当客��L��口收
到此消息后，它发出WM_MDIACTIVE消息�l�MDI子窗口（未激�z�）�Ȁ�z�d��Q?br />WM_MDIRESTORE = $0223;
�E�序发送此消息�l�MDI客户�H�口让子�H�口从最大最��化恢复到原来大��?br />WM_MDINEXT = $0224;
�E�序发送此消息�l�MDI客户�H�口�Ȁ�z�M��一个或前一个窗�?br />WM_MDIMAXIMIZE = $0225;
�E�序发送此消息�l�MDI客户�H�口来最大化一个MDI子窗口；
WM_MDITILE = $0226;
�E�序发送此消息�l�MDI客户�H�口以��^铺方式重新排列所有MDI子窗�?br />WM_MDICASCADE = $0227;
�E�序发送此消息�l�MDI客户�H�口以层叠方式重新排列所有MDI子窗�?br />WM_MDIICONARRANGE = $0228;
�E�序发送此消息�l�MDI客户�H�口重新排列所有最��化的MDI子窗�?br />WM_MDIGETACTIVE = $0229;
�E�序发送此消息�l�MDI客户�H�口来找到激�zȝ��子窗口的句柄
WM_MDISETMENU = $0230;
�E�序发送此消息�l�MDI客户�H�口用MDI菜单代替子窗口的菜单
WM_ENTERSIZEMOVE = $0231;
WM_EXITSIZEMOVE = $0232;
WM_DROPFILES = $0233;
WM_MDIREFRESHMENU = $0234;
WM_MOUSEHOVER = $02A1;
WM_MOUSELEAVE = $02A3;
WM_CUT = $0300;
�E�序发送此消息�l�一个编辑框或combobox来删除当前选择的文�?br />WM_COPY = $0301;
�E�序发送此消息�l�一个编辑框或combobox来复制当前选择的文本到剪脓�?br />WM_PASTE = $0302;
�E�序发送此消息�l�editcontrol或combobox从剪贴板中得到数�?br />WM_CLEAR = $0303;
�E�序发送此消息�l�editcontrol或combobox清除当前选择的内容；
WM_UNDO = $0304;
�E�序发送此消息�l�editcontrol或combobox撤消最后一�ơ操�?br />WM_RENDERFORMAT = $0305�Q?/font>

WM_RENDERALLFORMATS = $0306;
WM_DESTROYCLIPBOARD = $0307;
当调用ENPTYCLIPBOARD函数�?发送此消息�l�剪贴板的所有�?br />WM_DRAWCLIPBOARD = $0308;
当剪贴板的内容变化时发送此消息�l�剪贴板观察铄��W�一个窗口；它允许用剪脓板观察窗口来

昄��剪脓板的新内容；
WM_PAINTCLIPBOARD = $0309;
当剪贴板包含CF_OWNERDIPLAY格式的数据�ƈ且剪贴板观察�H�口的客户区需要重画；
WM_VSCROLLCLIPBOARD = $030A;
WM_SIZECLIPBOARD = $030B;
当剪贴板包含CF_OWNERDIPLAY格式的数据�ƈ且剪贴板观察�H�口的客户区域的大小已经改变是此
消息通过剪脓板观察窗口发送给剪脓板的所有者；
WM_ASKCBFORMATNAME = $030C;
通过剪脓板观察窗口发送此消息�l�剪贴板的所有者来��h��一个CF_OWNERDISPLAY格式的剪贴板
的名�?br />WM_CHANGECBCHAIN = $030D;
当一个窗口从剪脓板观察链中移��L��发送此消息�l�剪贴板观察铄��W�一个窗口；
WM_HSCROLLCLIPBOARD = $030E;
此消息通过一个剪贴板观察�H�口发送给剪脓板的所有�?br />�Q�它发生在当剪脓板包含CFOWNERDISPALY格式的数据�ƈ且有个事件在剪脓板观察窗的水�q�x��?br />条上�Q�所有者应滚动剪脓板图象�ƈ更新滚动条的��|��
WM_QUERYNEWPALETTE = $030F;
此消息发送给��要收到焦点的窗口，此消息能使窗口在收到焦点时同时有��Z��实现他的逻辑�?br />色板
WM_PALETTEISCHANGING= $0310;
当一个应用程序正要实现它的逻辑调色板时发此消息通知所有的应用�E�序
WM_PALETTECHANGED = $0311;
此消息在一个拥有焦点的�H�口实现它的逻辑调色板后发送此消息�l�所有顶�U��ƈ重叠的窗口，�?br />此来改变�pȝ��调色�?
WM_HOTKEY = $0312;
当用��h��下由REGISTERHOTKEY函数注册的热键时提交此消�?br />WM_PRINT = 791;
应用�E�序发送此消息仅当WINDOWS或其它应用程序发��Z��个请求要求绘制一个应用程序的一�?br />分；
WM_PRINTCLIENT = 792;
WM_HANDHELDFIRST = 856;
WM_HANDHELDLAST = 863;
WM_PENWINFIRST = $0380;
WM_PENWINLAST = $038F;
WM_COALESCE_FIRST = $0390;
WM_COALESCE_LAST = $039F;
WM_DDE_FIRST = $03E0;
WM_DDE_INITIATE = WM_DDE_FIRST + 0;
一个DDE客户�E�序提交此消息开始一个与服务器程序的会话来响应那个指定的�E�序和主题名�Q?br />WM_DDE_TERMINATE = WM_DDE_FIRST + 1;
一个DDE应用�E�序�Q�无论是客户�q�是服务器）提交此消息来�l�止一个会话；
WM_DDE_ADVISE = WM_DDE_FIRST + 2;
一个DDE客户�E�序提交此消息给一个DDE服务�E�序来请求服务器每当数据��Ҏ��变时更新�?br />WM_DDE_UNADVISE = WM_DDE_FIRST + 3;
一个DDE客户�E�序通过此消息通知一个DDE服务�E�序不更新指定的��Ҏ��一个特�D�的剪脓板格式的
��?br />WM_DDE_ACK = WM_DDE_FIRST + 4;
此消息通知一个DDE�Q�动态数据交换）�E�序已收到�ƈ正在处理WM_DDE_POKE, WM_DDE_EXECUTE,
WM_DDE_DATA, WM_DDE_ADVISE, WM_DDE_UNADVISE, or WM_DDE_INITIAT消息
WM_DDE_DATA = WM_DDE_FIRST + 5;
一个DDE服务�E�序提交此消息给DDE客户�E�序来传递个一数据��给客户或通知客户的一条可用数
据项
WM_DDE_REQUEST = WM_DDE_FIRST + 6;
一个DDE客户�E�序提交此消息给一个DDE服务�E�序来请求一个数据项的��|��
WM_DDE_POKE = WM_DDE_FIRST + 7;
一个DDE客户�E�序提交此消息给一个DDE服务�E�序�Q�客户��用此消息来请求服务器接收一个未�l?br />同意的数据项�Q�服务器通过�{�复WM_DDE_ACK消息提示是否它接收这个数据项�Q?br />WM_DDE_EXECUTE = WM_DDE_FIRST + 8;
一个DDE客户�E�序提交此消息给一个DDE服务�E�序来发送一个字�W�串�l�服务器让它象串行命令一
栯��处理�Q�服务器通过提交WM_DDE_ACK消息来作回应�Q?br />WM_DDE_LAST = WM_DDE_FIRST + 8;
WM_APP = $8000;
WM_USER = $0400;
此消息能帮助应用�E�序自定义私有消息；
/////////////////////////////////////////////////////////////////////
通知消息(Notification message)是指�q�样一�U�消息，一个窗口内的子控�g发生了一些事情，
需要通知父窗口。通知消息只适用于标准的�H�口控�g如按钮、列表框、组合框、编辑框�Q�以�?br />Windows 95公共控�g如树状视图、列表视囄��。例如，单击或双��M��个控件、在控�g中选择�?br />分文本、操作控件的滚动条都会��生通知消息�?
按扭
B N _ C L I C K E D //用户单击了按�?br />B N _ D I S A B L E //按钮被禁�?br />B N _ D O U B L E C L I C K E D //用户双击了按�?br />B N _ H I L I T E //用户加亮了按�?br />B N _ PA I N T按钮应当重画
B N _ U N H I L I T E加亮应当��L��
�l�合�?br />C B N _ C L O S E U P�l�合框的列表框被关闭
C B N _ D B L C L K用户双击了一个字�W�串
C B N _ D R O P D O W N�l�合框的列表框被拉出
C B N _ E D I T C H A N G E用户修改了编辑框中的文本
C B N _ E D I T U P D AT E�~�辑框内的文本即��更�?br />C B N _ E R R S PA C E�l�合框内存不��?br />C B N _ K I L L F O C U S�l�合框失去输入焦�?br />C B N _ S E L C H A N G E在组合框中选择了一��?br />C B N _ S E L E N D C A N C E L用户的选择应当被取�?br />C B N _ S E L E N D O K用户的选择是合法的
C B N _ S E T F O C U S�l�合框获得输入焦�?br />�~�辑�?br />E N _ C H A N G E�~�辑框中的文本己更新
E N _ E R R S PA C E�~�辑框内存不��?br />E N _ H S C R O L L用户点击了水�q�x��动条
E N _ K I L L F O C U S�~�辑框正在失去输入焦�?br />E N _ M A X T E X T插入的内容被截断
E N _ S E T F O C U S�~�辑框获得输入焦�?br />E N _ U P D AT E�~�辑框中的文本将要更�?br />E N _ V S C R O L L用户点击了垂直滚动条消息含义
列表�?br />L B N _ D B L C L K用户双击了一��?br />L B N _ E R R S PA C E列表框内存不�?br />L B N _ K I L L F O C U S列表框正在失去输入焦�?br />L B N _ S E L C A N C E L选择被取�?br />L B N _ S E L C H A N G E选择了另一��?br />L B N _ S E T F O C U S列表框获得输入焦�?br />

疯流成�?/a> 2006-11-21 15:18 发表评论

Wed, 27 Sep 2006 02:03:00 GMT

异常捕获�Q�包括IO异常�Q�DB异常�Q�主要注意的��p��2个异常）
�c�d��转换�Q�在开发的时候如果不注意�Q�后期很隑֏�现。比如字�W�串和数字型的比较，如果字符串是数字OK�Q�但是也可能是字母，那么肯定会抱错）
对象的释放。有些语�a�已经不需要考虑的问题，不过在意识上要有�q�个概念�?/li>
在一个方法里面实��C��个功能，不要同时做N多事情。好处多多，�Ҏ��来说主要是方便测试，单功能扩展重用都比较方便�?/li>
注释。项目比较紧时候可能会忽略注释�Q�但是再怎么忙，每个�Ҏ��的功能，�q�回��|��参数必须准确无误�?/li>
字符转义。这问题我想��到�q?~2�ơ就�l��n隑ֿ�了吧�?/li>

写代码的时候应该时时考虑以上几点�Q�后期考虑的话很容易把代码攚w��Q�该乱，造成�q�度上的紧张�Q�所以强烈徏议写代码时候注意�?/p>

疯流成�?/a> 2006-09-27 10:03 发表评论

ActiveReport之事件篇

Thu, 03 Aug 2006 05:16:00 GMT

1. 只触发一�ơ的事�g�Q?/span>

ReportStart �Q?/span> 在报表启动时触发。该事�g�?/span> DataInitialize 之前�Q�在�q�里可以整个报表都要用到的对象或变量作初始化�Q�也可以讄��子报表�?/span>

DataInitialize �Q�这个事件在前面的几��随�W�中�l�常出现�Q�经常在�q�里取数据，�l�定数据源，讄��报表�?/span> Fileds 属性等�?/span>

ReportEnd �Q?/span> 在报表加载完成后触发�?/span>

2. 多次触发的事�Ӟ��

FetchData �Q? 在处理每一条数据时都会触发�Q�如果是采用�l�定数据源的方式�Q�就不需要再作对 Fields 中每�?/span> Field �?/span> Value 赋倹{��如果是从自定义的对象集合中提取数据�Q�就要在�q�里�l?/span> Fields 赋倹{��而且�Q��用自定义集合的时候要自己讄��事�g�?/span> eArgs 参数�?/span> EOF 属性，该属性用来判断是否显�C�到了最后一条记录，如果是，��p��|��ؓ true �Q��ƈ且直接返回。具体的代码可以参看以前的随�W��?/span>

PageStart �Q?/span> 在报表的每页生成的时候触发，在这里作针对每个��늚�处理�Q�最常见的就是显�C�页码�?/span>

PageEnd �Q?/span> 在报表的每也生成完成的时候触发�?/span>

3. 区域的事�Ӟ��

每个区域�Q?/span> PageHeader �Q?/span> Detail �Q?/span> PageFooter �Q�都�?/span> Format �Q?/span> BeforePrint �?/span> AfterPrint 事�g。最好不要在�q�几个事件中操作报表�?/span> Fields 集合�Q�而应该在 DataInitialize �?/span> FetchData 中进行�?/span>

Format �Q?/span> 在数据加载�ƈ�l�定后触发，只有在这里才可以讄��某个区域的高度�?/span>

BeforePrint �Q?/span> 在区域被生成前触发，在这里如果设�|�区域的高度是不会有效果的，而且不要在这里操作数据源�?/span>

AfterPrint �Q?/span> 在区域已�l�被生成�q�描��d��后发生，可以在该事�g里直接在��d��上进行描��L��作�?/span>

疯流成�?/a> 2006-08-03 13:16 发表评论

Wed, 19 Jul 2006 03:33:00 GMT

1.通过一个字�D�区别的��叫逻辑锁了,在我作的工程中没有用到过.所以没有什么经�?
2.物理�?

现象:多�h�Ҏ��据库�q�行物理操作的时�?如果不锁�?那么A和B��索出来的数据是一��L��,但是A先更��C��数据,�q�时候B��是脏数�?�Ҏ��C��把A的内�Ҏ��新掉.

解决�Ҏ��:
在检索数据的时候同时把你要操作的纪录或者表锁了.(锁纪录比较好�?
oracle提供了在��索的时候就锁表的功�?��是在SQL文后面加�?FOR UPDATE NOWAIT SKIP LOCKED.

SKIP LOCKED 加上�ȝ��话就是当��索到的这条纪录被锁的�?��׃��{�待直接跌��.
''如果锁了
if LockedRecord() = true then
msgbox "locked"
endif

疯流成�?/a> 2006-07-19 11:33 发表评论

在写�E�序的时候，��h��意特�D�字�W�的转义~~~

Wed, 19 Jul 2006 02:51:00 GMT

前天被测试组查出来的一个BUG�Q�就是在输入"'"的时候报错了。因为数据库是ORACLE�Q?是关键字�Q�所以抛了异常�?br />
解决�Ҏ��Q?br />1.可以先预�~�译�?
2.��是转义�?string.replace("'" ,"''")

我认��个BUG出的�?映像比较深刻.在今后的开发过�E�中,在�{义方面留了一个心�?

疯流成�?/a> 2006-07-19 10:51 发表评论

Wed, 19 Jul 2006 02:16:00 GMT

�l�合��试的时候偶��会出现�Q�ネットワー�?パスが見つかりません�?br />我们一开始都以�ؓ是网�l�的问题�Q�但是一直都解决不了�?br />今天某�h无聊��试LOG的时候，真相�l�于水落矛_��了�?br />��试环境�Q�win2000�Q?本只写LOG的程序�?br />�?本程序同时写LOG��C��个日志中的时候会出现上诉ERROR�?br />
让�h很意外，写LOG居然报网�l��\径找不到。经验值又上升�?br />

疯流成�?/a> 2006-07-19 10:16 发表评论

.net常用函数

Fri, 16 Jun 2006 01:21:00 GMT

Ucase(string) ��字�W�串转换为大写�?
Val(string) ��代表数字的字符串�{换�ؓ数值型态，若字�W�串中含有非数字的内容则会将其去除后�Q�合�q��ؓ一数字�?
Weekday(date) 取的参数中的日期是一个星期的�W�几天，星期天�ؓ1、星期一�?、星期二�? 依此�c�L��?
WeekDayName(number) 依接收的参数取得星期的名�U�ͼ�可接收的参数�? �?�Q�星期天�?、星期一�?、星期二�? 依此�c�L��?
Split(expression[, delimiter]) 以delimiter 参数讑֮�的条件字�W�串来将字符串分割�ؓ字符串数�l��?
Sqrt(number) 取得一数值得�q�x��栏V�?
Str(number) ��数字�{为字�W�串后传回�?
StrReverse(expression) 取得字符串内容反转后的结果�?
Tan(number) 取得某个角度的正切倹{�?
TimeOfDay() 取得目前不包含日期的旉��?
Timer() 取得�?:00 到目前时间的�U�数�Q�型态�ؓDouble�?
TimeSerial(hour, minute, second) ��接收的参数合�ƈ��Z��个只有时间Date 型态的数据�?
Timavalue(time) 取得�W�合国别讑֮�样式的时间倹{�?
Today() 取得今天不包含时间的日期�?
Trim(string) ��L��字符串开头和�l�尾的空白�?
TypeName(varname) 取得变量或对象的型态�?
Ubound(arrayname[, dimension]) 取得数组的最�l�烦引��|��dimension 参数是指定取得第几维度的最�l�烦引倹{�?
MonthName(month) 依接收的月䆾数值取得该月䆾的完整写法�?
Now() 取得目前的日期和旉��?
Oct(number) ��数值参数�{换�ؓ8 �q�制倹{�?
Replace(expression, find, replace) ��字�W�串中find 参数指定的字�W�串转换为replace 参数指定的字�W�串�?
Right(string,length) 由字�W�串双��开始取得length 参数讑֮�长度的字�W��?
RmDir(path) �U�除一个空的目录�?
Rnd() 取得介于0 �? 之间的小敎ͼ�如果每次都要取得不同的��|��使用前需加上Randomize 叙述�?
Rtrim(string) ��L��字符串的双��I�白部分�?
Second(time) 取得旉��内容的秒部分�Q�型态�ؓInteger�?
Sign(number) 取得数值内�Ҏ��正数或负敎ͼ�正数传回1�Q�负��C��?1�Q? 传回0�?
Sin(number) 取得一个角度的正��u倹{�?
Space(number) 取得number 参数讑֮�的空白字�W�串�?
IsDate(expression) 判断表达式内�Ҏ��否�ؓDateTime 型态，若是则传回True�Q�反之则为False�?
IsDbNull(expression) 判断表达式内�Ҏ��否�ؓNull�Q�若是则传回True�Q�反之则为False�?
IsNumeric(expression) 判断表达式内�Ҏ��否�ؓ数值型态，若是则传回True�Q�反之则为False�?
Join(sourcearray[, delimiter]) ��字�W�串数组合�ƈ唯一个字�W�串�Q�delimiter 参数是设定在各个元素间加入新的字�W�串�?
Lcase(string) ��字�W�串转换为小写字体�?
Left(string, length) 由字�W�串左边开始取得length 参数讑֮�长度的字�W��?
Len(string) 取得字符串的长度�?
Log(number) 取得数值的自然�Ҏ��?
Ltrim(string) ��L��字符串的左边�I�白部分�?
Mid(string, start[, length]) 取出字符串中strat 参数讑֮�的字�W�后length 长度的字�W�串�Q�若length 参数没有讑֮��Q�则取回start 以后全部的字�W��?
Minute(time) 取得旉��内容的分部分�Q�型态�ؓInteger�?
MkDir(path) 建立一个新的目录�?
Month(date) 取得日期的月部分�Q�型态�ؓInteger�?
FormatDateTime(date[,namedformat]) 传回格式化的日期或时间数据�?
FormatNumber(expression[,numdigitsafterdecimal [,includeleadingdigit]]) 传回格式�?
的数值数据。Numdigitsafterdecimal 参数为小数字敎ͼ�includeleadingdigit 参数为当整数�? 时是否补��x��数字数�?
FormatPercent(expression[,numdigitsafterdecimal [,includeleadingdigit]]) 传回转换为百分比格式的数值数据。numdigitsafterdecimal 参数为小数字敎ͼ�includeleadingdigit 参数为当整数�? 时是否补��x��数字数�?
GetAttr(filename) 传回档案或目录的属性倹{�?
Hex(number) ��数值参数�{换�ؓ16 �q�制倹{�?
Hour(time) 传回旉��的小时字�D�，型态是Integer�?
Iif(expression, truepart, falsepart) 当表辑ּ�的传回��gؓTrue 时执行truepart 字段的程序，反之则执行falsepart 字段�?
InStr([start, ]string1, string2) 搜寻string2 参数讑֮�的字�W�出现在字符串的�W�几个字�W�，start 为由�W�几个字�W�开始寻找，string1 为欲搜寻的字�W�串�Q�string2 为欲搜寻的字�W��?
Int(number) 传回��于或等于接收参数的最大整数倹{�?
IsArray(varname) 判断一个变量是否�ؓ数组型态，若�ؓ数组则传回True�Q�反之则为False�?
Day(datetime) 依接收的日期参数传回日�?
Eof(filenumber) 当抵达一个被开启的档案�l�尾时会传回True�?
Exp(number) 依接收的参数传回e 的次方倹{�?
FileDateTime(pathname) 传回档案建立时的日期、时间�?
FileLen(pathname) 传回档案的长度，单位是Byte�?
Filter(sourcearray, match[, include[, compare]]) 搜寻字符串数�l�中的指定字�W�串�Q�凡是数�l�元素中含有指定字符�Ԍ��会将它们�l�合成新的字�W�串数组�q�传回。若是要传回不含指定字符串的数组元素�Q�则include 参数设�ؓFalse�?compare 参数则是讑֮�搜寻时是否区分大��写�Q�此时只要给TextCompare 常数�? 卛_��?
Fix(number) ��L��参数的小数部分�ƈ传回�?
Format(expression[, style[, firstdayofweek[, firstweekofyear]]]) ��日期、时间和数��D��料�{为每个国安��可以接受的格式�?
FormatCurrency(expression[,numdigitsafterdecimal [,includeleadingdigit]]) ��数��D��Zؓ金额型态�?
numdigitsafterdecimal 参数为小数字敎ͼ�includeleadingdigit 参数为当整数�? 时是否补��x��数字数�?
CObj(expression) 转换表达式�ؓObject 型态�?
CShort(expression) 转换表达式�ؓShort 型态�?
CSng(expression) 转换表达式�ؓSingle 型态�?
CStr(expression) 转换表达式�ؓString 型态�?
Choose (index, choice-1[, choice-2, ... [, choice-n]]) 以烦引值来选择�q�传回所讑֮�的参数�?
Chr(charcode) 以ASCII 码来取得字符内容�?
Close(filenumberlist) �l�束使用Open 开启的档案�?
Cos(number) 取得一个角度的余��u倹{�?
Ctype(expression, typename) 转换表达式的型态�?
DateAdd(dateinterval, number, datetime) �Ҏ��期或旉��作加减�?
DateDiff(dateinterval, date1, date2) 计算两个日期或时间间的差倹{�?
DatePart (dateinterval, date) 依接收的日期或时间参��C��回年、月、日或时间�?
DateSerial(year, month, day) ��接收的参数合�ƈ��Z��个只有日期的Date 型态的数据�?
Datevalue(datetime) 取得�W�合国别讑֮�样式的日期��|��q�包含时间�?
Abs(number) 取得数值的�l�对倹{�?
Asc(String) 取得字符串表辑ּ�的第一个字�W�ASCII 码�?
Atn(number) 取得一个角度的反正切倹{�?
CallByName (object, procname, usecalltype,[args()]) 执行一个对象的�Ҏ��、设定或传回对象的属性�?
CBool(expression) 转换表达式�ؓBoolean 型态�?
CByte(expression) 转换表达式�ؓByte 型态�?
CChar(expression) 转换表达式�ؓ字符型态�?
CDate(expression) 转换表达式�ؓDate 型态�?
CDbl(expression) 转换表达式�ؓDouble 型态�?
CDec(expression) 转换表达式�ؓDecimal 型态�?
CInt(expression) 转换表达式�ؓInteger 型态�?
CLng(expression) 转换表达式�ؓLong 型�?

疯流成�?/a> 2006-06-16 09:21 发表评论

Fri, 09 Jun 2006 04:24:00 GMT

先看�?a target="_blank" ?="">INETA牛�hStephen Walther的比较测试结�?希望对大家有�?/p>

DataReadear比DataSet�?5%
SqlDataReader比OleDbDataReader�?0%
用DataReader的ASP风格的表格显�C�比DataGrid�l�定DataReader�?0%
用Ordinal的DataReader讉K��字段比用名字讉K��?5%
DataGrid中用AutoGenerateColumns=true比用昑ּ��l�定�?4%
��量用缓�?/li>

��试�׃��比较局限，所以不一定很准确�Q�但可以做个参考�?br />

Imports System.Data.OleDb

Public Class ComDataBase

     Private LsConn As String
     Private LoleConn As OleDbConnection
     Private LoleTrans As OleDbTransaction

     Public Sub New ()
         Dim bOracle As Boolean = False
         Dim oIni As New ComIniFile( " ..\INI\CCCC001.ini " )

         If (oIni.GetValue( " DB " , " DBTYPE " ) = " ORACLE " ) Then
            bOracle = True
         End If

         Dim sServer As String = oIni.GetValue( " DB " , " SERVERNAME " )

         Dim sDBName As String = oIni.GetValue( " DB " , " DBNAME " )
         Dim sUser As String = oIni.GetValue( " DB " , " USER " )
         Dim sPsw As String = oIni.GetValue( " DB " , " PASSWORD " )

         If (bOracle) Then
            LsConn = " Provider=OraOLEDB.Oracle;Data Source= " & sDBName _
                     & " ;User Id= " & sUser & " ;Password= " & sPsw & " ;OLEDB.NET=true "
         Else
             LsConn = " Provider=sqloledb;Data Source= " & sServer & " ;Initial Catalog= " _
                      & sDBName & " ;User Id= " & sUser & " ;Password= " & sPsw & " ; "
         End If

     End Sub

'db open
     Public Sub Open()
         Try

             If ( Not (LoleConn Is Nothing )) Then
                        If (LoleConn.State = ConnectionState.Open) Then
                     ' '接続文字列は定義しない文字列
                     If (LoleConn.ConnectionString <> LsConn) Then
                        LoleConn.Close()
                        LoleConn.ConnectionString = LsConn
                        LoleConn.Open()
                     End If
                 Else
                     ' '接続文字列は定義しない文字列
                     If (LoleConn.ConnectionString <> LsConn) Then
                        LoleConn.ConnectionString = LsConn
                     End If
                    LoleConn.Open()
                 End If
             Else
                LoleConn = New OleDbConnection(LsConn)
                LoleConn.Open()
             End If
         Catch ex As Exception
            ComLog.SetErrLog( " ComDataBase " , " Open " , " デー�ѝ��ヹ{��の接�E�に失敗しました�?/span> " & ex.Message)
            ComMsgBox.ErrMsg( " E-0002 " )
         End Try
     End Sub

     Public Sub Close()
         Try
             ' 'データソヹ{��への接続を閉じす�?/span>
             If ( Not (LoleConn Is Nothing )) Then
                LoleConn.Close()
             End If
         Catch ex As Exception
            ComLog.SetErrLog( " ComDataBase " , " Close " , ex.Message)
         Finally
             ' '対象を解放す�?/span>
             If ( Not (LoleConn Is Nothing )) Then
                LoleConn.Dispose()
                LoleConn = Nothing
             End If
         End Try
     End Sub

     Public Sub BeginTrans()
         ' 'トラミ낶クションを開始す�?/span>
        LoleTrans = LoleConn.BeginTransaction()
     End Sub

     Public Sub Commit()
        Execute( " Delete ゗��テム��理 where 1=2 " )
         ' 'トラミ낶クションの終炏V��マークす�?/span>
        LoleTrans.Commit()
     End Sub

     Public Sub RollBack()
        Execute( " Delete ゗��テム��理 where 1=2 " )
         ' 'データ変更を消去する
        LoleTrans.Rollback()
     End Sub

     Public Function GetDataSet( ByVal sSQL As String ) As DataSet
         Dim oleAdapter As OleDbDataAdapter
         Dim oDataSet As DataSet = New DataSet

         Try
             Dim oleCommand As New OleDbCommand(sSQL, LoleConn)
            oleCommand.Transaction = LoleTrans
            oleAdapter = New OleDbDataAdapter(oleCommand)
            oleAdapter.Fill(oDataSet)                ' 'SQL文を検烦する
         Finally
            oleAdapter.Dispose()                     ' '対象を解�?/span>
         End Try
         Return oDataSet
     End Function

     Public Function Query( ByVal sSQL As String ) As OleDbDataReader
         Dim oleCommand As New OleDbCommand(sSQL, LoleConn)
         Try
            oleCommand.Transaction = LoleTrans
             Return oleCommand.ExecuteReader()        ' 'SQL文を検烦する
         Finally
            oleCommand.Dispose()                     ' '対象を解�?/span>
         End Try
     End Function

     Public Function Query( ByVal sSQL As String , ByRef aryOleDbParameter As ArrayList) As OleDbDataReader
         Dim oleCommand As New OleDbCommand(sSQL, LoleConn)
         Dim oleParam As OleDbParameter

         Try
            oleCommand.Transaction = LoleTrans

             For Each oleParam In aryOleDbParameter
                oleCommand.Parameters.Add(oleParam)
             Next
             Return oleCommand.ExecuteReader()        ' 'SQL文を検烦する
         Finally
            oleCommand.Dispose()                     ' '対象を解�?/span>
         End Try
     End Function

     Public Function Execute( ByVal sSQL As String ) As Integer
         Dim oleCommand As New OleDbCommand(sSQL, LoleConn)    ' 'OleDbCommandの新インわV��ミ낹
         Try
            oleCommand.Transaction = LoleTrans
             Return oleCommand.ExecuteNonQuery()
         Finally
            oleCommand.Dispose()
       End Try
     End Function

     Public Function Execute( ByVal sSQL As String , ByRef aryOleDbParameter As ArrayList) As Integer
         Dim oleCommand As New OleDbCommand(sSQL, LoleConn)
         Dim oleParam As OleDbParameter
         Try
            oleCommand.Transaction = LoleTrans

             For Each oleParam In aryOleDbParameter
                oleCommand.Parameters.Add(oleParam)
             Next

             Return oleCommand.ExecuteNonQuery()
         Finally
            oleCommand.Dispose()

       End Try
     End Function

基本功能都有了，对于��项目而言�Q�这个类够用了�?br />

疯流成�?/a> 2006-06-09 12:24 发表评论

Fri, 09 Jun 2006 03:11:00 GMT

摘要: using System; using System.Collections; using System.Collections.Specialized; using System.Runtime.Remoting.Messaging; using System.Data; using ... 阅读全文

疯流成�?/a> 2006-06-09 11:11 发表评论