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, ...)

¡Ì