Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi ת»»³Évb

Delphi(Pascal) code:
Procedure UploadData(
isess:longint; //ÉÏ´«Ïß³ÌÖ¸Õ룬
isbuy:boolean; //Êý¾ÝÀàÐÍ
medicament:PChar;//Ãû³Æ
producer:PChar; //É̼Ò
typex:PChar; //ÀàÐÍ
spec:PChar; //¹æ¸ñ
unitx:PChar; //µ¥Î»
quantity:integer; //ÊýÁ¿
batchno:PChar; //ÐòÁкÅ
validitydate:PChar; //ÓÐЧÆÚ
approve:PChar;
date:PChar; //ÈÕÆÚ£¬ÈÕÆÚ¸ñʽΪyyyy-mm-dd£¬±ÈÈç2009-10-03
buyerorseller:PChar//¹©»õÉÌ£»
);stdcall;external 'daupl.dll';




Çë¸÷뽫Õâ¶Î´úÂëת»»³Évb



ѧϰ

×Ô¼ºUPÒ»ÏÂ.

Public Declare Sub UploadData Lib "'daupl.dll" (ByVal isess As Long, ByVal isbuy As Boolean, ByVal medicament As String, ... ByVal quantity As Long, ...)

ÒýÓÃ
Public Declare Sub UploadData Lib "'daupl.dll" (ByVal isess As Long, ByVal isbuy As Boolean, ByVal medicament As String, ... ByVal quantity As Long, ...)

¡Ì


Ïà¹ØÎÊ´ð£º

СµÜ²»»áDELPHI£¬Çë´óÏÀÃǰï¸öæ

Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
  begin
    case wParam of
      WM_KEYDOWN:
      fEatKeystroke := (p.vkCode = VK_RETURN);
  & ......

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi¶¯Ì¬Êý×éÈçºÎÈ¥µôÒ»¸öÔªËØ

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë
begin
P:=PLongint(A);// È¡µÄ A µÄ ......

Çë½Ì¹ØÓÚDelphiµÄÊ÷Ðοؼþ

ÇëÎÊDelphiÓÐÊ÷ÐοؼþÂð£¿
ÔõÑùʹÓã¿
Ttreeview 
 treeview.items.addchild(nil(Éϼ¶½Úµã),'°¸·¢Ê±·¢'(text));

raize ¿Ø¼þ°üÀïÃæÓУ¬csdnÓÐÏÂÔØµÄ

²é°ïÖúTTreeViewºÍTNodeÁ½¸öÀà

TTreeView ......

¹ØÓÚDelphiʹÓÃADOÁ¬½ÓSQL server 2000Êý¾Ý¿âµÄÎÊÌâ

СµÜÎÒÓÃADOÁ¬½ÓSQL server 2000Êý¾Ý¿â£¬È»ºóÔÚDBGridÖÐÏÔʾ£¬ÏÖÔÚÏë°ÑÔÚDBGridÖвéѯµ½µÄÊý¾ÝiPlot×÷ͼ£¬ÇëÎÊÈçºÎʵÏÖÔÚDBGridÖеÄÊý¾Ý¶ÁÈ¡£¬¶Á³öµÄÊý¾ÝÊÇSTRINGÀàÐ͵ģ¬ÈçºÎÓÐЧµÄת±ä³ÉÊý¾Ý¿âÖÐËù´æ´¢µÄDOUBLEÀàÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ