VBÖеÄת»»º¯Êý
Asc º¯Êý
·µ»ØÒ»¸ö Integer£¬´ú±í×Ö·û´®ÖÐÊ××ÖĸµÄ×Ö·û´úÂë¡£
Óï·¨:
Asc(string)
±ØÒªµÄ string ²ÎÊý¿ÉÒÔÊÇÈκÎÓÐЧµÄ×Ö·û´®±í´ïʽ¡£Èç¹û string ÖÐûÓаüº¬ÈκÎ×Ö·û£¬Ôò»á²úÉúÔËÐÐʱ´íÎó¡£
˵Ã÷:ÔÚ·Ç DBCS ϵͳÏ£¬·µ»ØÖµ·¶Î§Îª 0 – 255 ¡£ÔÚ DBCS ϵͳÏ£¬ÔòΪ -32768 – 32767¡£
×¢Òâ:AscB º¯Êý×÷ÓÃÓÚ°üº¬ÔÚ×Ö·û´®ÖеÄ×Ö½ÚÊý¾Ý£¬AscB ·µ»ØµÚÒ»¸ö×Ö½ÚµÄ×Ö·û´úÂ룬¶ø·Ç×Ö·ûµÄ×Ö·û´úÂë¡£AscW º¯Êý·µ»Ø Unicode ×Ö·û´úÂ룬Èôƽ̨²»Ö§³Ö Unicode£¬ÔòÓë Asc º¯Êý¹¦ÄÜÏàͬ¡£
ÿ¸öº¯Êý¶¼¿ÉÒÔÇ¿ÖÆ½«Ò»¸ö±í´ïʽת»»³ÉijÖÖÌØ¶¨Êý¾ÝÀàÐÍ¡£
ÏÂÃæÕâЩÀàÐÍת»»º¯Êý,¿´ËûÃǵÄÓï·¨ÈçÏÂ:
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)
±ØÒªµÄ expression ²ÎÊý¿ÉÒÔÊÇÈκÎ×Ö·û´®±í´ïʽ»òÊýÖµ±í´ïʽ¡£
·µ»ØÀàÐÍ
º¯ÊýÃû³Æ¾ö¶¨·µ»ØÀàÐÍ£¬ÈçÏÂËùʾ£º
º¯Êý ·µ»ØÀàÐÍ expression ²ÎÊý·¶Î§
CBool | Boolean | ÈκÎÓÐЧµÄ×Ö·û´®»òÊýÖµ±í´ïʽ¡£
CByte | Byte | 0 ÖÁ 255¡£
CCur | Currency | -922,337,203,685,477.5808 ÖÁ922,337,203,685,477.5807¡£
CDate | Date | ÈκÎÓÐЧµÄÈÕÆÚ±í´ïʽ¡£
CDbl | Double | ¸ºÊý´Ó -1.79769313486232E308 ÖÁ -4.94065645841247E-324£»
ÕýÊý´Ó 4.94065645841247E-324 ÖÁ 1.79769313486232E308¡£
CDec&
Ïà¹ØÎĵµ£º
delphiÖеÄDLLÖеÄÉùÃ÷ÔÂëÈçÏ£º
ÕâÀïÉùÃ÷ÁËÊä³öÐÔ²ÎÊý·Ö±ðΪÊý×ÖÓë×Ö·ûÀàÐÍ
library dll1;
uses
SysUtils,
Classes;
{$R *.res}
Function mymax(x, y: Integer; out jj: Integer; out abc: PChar): Integer; stdcall;
begin
jj := x * y;
abc := PChar(StrPas(abc) + 'ÕâÊÇ´«³öµÄ' ......
DB2ConnectionString
b2str = "Provider=MSDASQL.1;Password=a$sk6G7;Persist Security Info=True;User ID=DBA;Data Source=ConDB2SFXXK"
AccessConnectonString
accessstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DMSJK.mdb;Jet OLEDB:database password=" ......
ÌÖÂÛVBÖеĽṹÌå[×ªÔØ]
2009Äê10ÔÂ20ÈÕ ÐÇÆÚ¶þ 11:30
VBÀïÃæµÄ½á¹¹ÌåÊÇÒ»ÖÖWORD/DWORD¶ÔÆëµÄ½á¹¹Ì壬ÕâÒ»µãÔÚ±à³ÌÖÐÓÈÆäҪעÒ⣬Èç¹ûÊÇ´¿VB±à³Ì£¬Ôò½á¹¹ÌåµÄ¸÷¸öÓòÈçºÎÅÅÁпÉÒÔ»ù±¾²»ÓùØÐÄ£¬
¶øÈç¹ûÊǵ÷ÓÃAPI»òÕßÊǵ÷ÓÃÆäËûµÄ¶¯Ì¬Á´½Ó¿â£¬ÔòºÜÈÝÒ׳öÎÊÌ⣬ÔÒò¾ÍÔÚÓÚ£ºÕâЩ¶¯Ì¬Á´½Ó¿âÊÇÓÃC/C++дµÄ£¬¶ø´ó²¿·ÖC/C++»·¾³ ......
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const a& = -1
Private Const b& = &H1
Private Const c& = &H2
Priva ......
½üÀ´ORM±äµÃÔ½À´Ô½ÆÕ±é£¬Õâ¶¼¹éÓÚÒ»Öֺܾß˵·þÁ¦µÄÔÒò£»Ëü¿ÉÒÔʹ¿ª·¢Êý¾Ý¿âÇý¶¯µÄÓ¦ÓóÌÐò±äµÃ¸ü¿ì¡¢¸üÊ¡Á¦¡£µ«ÊÇORM¿ò¼Ü¶¼Óе㓹ÌÖ´¼º¼û”£¬ËûÃÇÆÚÍû¿ª·¢Õß×ñ´ÓÌØ¶¨µÄ¹æÔò£¬µ±¹æÔò±»´òÆÆµÄʱºò¾Í·Ç³£ÄÑÒÔʹÓá£×îͨ³£µÄ¹æÔòÖ®Ò»¾ÍÊÇ£¬´æ´¢¹ý³Ì±ØÐë×ÜÊÇ·µ»Øµ¥¶ÀµÄ½á¹û¼¯£¬ÆäÖд ......