Object. See the code below call SyCDChangCard function inside a sICUserInfo data type how the data types in the yi language for object
Method call format: type>
Parameter & lt; 2> As the "CardPhyNo", the name of the type of "text",
Parameter & lt; 3> For "SecNo", the name of the type of "byte type,"
Parameter & lt; 4> For "sKey", the name of the type of "text",
The following is a VB can directly call the data types in the data API!
VB source code:
Dim the UserInfo As ECardAPI ICUserInfo_Struct, Var As String, CardPhyNo As String
The UserInfo. CardLevel=cmbCardType. ListIndex
The UserInfo. CardNo=txtCardNo. Text
The UserInfo. CardPersonPWD=txtCardPass. Text
The UserInfo. CustomerCode=txtCustomersCode. Text
The UserInfo. DistributorCode=txtDealersCode. Text
The UserInfo. EmpName=txtEmpName. Text
The UserInfo. EmpNo=txtEmpNo. Text
The UserInfo. LastUseDateTime=Now
The UserInfo. PersonalBag=0
The UserInfo. SubsidyBag=0
The UserInfo. SubsidyFlag=0
The UserInfo. VaildEndDate=dtpCardEndDate. Value
The UserInfo. VaildStarDate=dtpCardStartDate. Value
If. ObjComm. SyCDAccessCard (the UserInfo CardPhyNo, txtBegBlockNo. The Text, the Trim (txtCardKey. Text))=False Then
. StrMsg="IC card failure, error message:" & amp; GetSFErrorString (. ObjComm. ErrCode)
The Else
. StrMsg="IC card success"
End the If
I use a custom data types in yi language luck done. You will be prompted error parameter data types!
Version 2
. The data type ICUserInfo_Struct, public
. Members CardLevel, the text type,,, card class level
CardNo. Members, integer,,, card number
. Members CardPersonPWD BSTR,,, personal password
Members CustomerCode, integer,,, the client code
Members DistributorCode, integer,,,
supplier codeMembers EmpName, BSTR,,, name
EmpNo. Members, BSTR,,, work number
Members LastUseDateTime, date/time,,, the last card operation time
Members PersonalBag, integer,,, personal purse
Members SubsidyBag, integer,,, subsidies purse
Members SubsidyFlag, integer,,, subsidies sign
. Members VaildEndDate BSTR,,, the card is valid for
. Members VaildStarDate BSTR,,, the card is valid start
Members CardUseTimes, integer,,, credit card number
Members GiveBag, integer
Some big! Please have a look the prawns are
This is the ICU serinfo_Struct data type structure
Typedef [uuid (fc - 419 - c 8 fe95b39-89-9 d5b - D08ABC35C246), version (1.0)]
Struct tagICUserInfo_Struct {
[helpstring (" Status ")
]
Unsigned char Status;
[helpstring (" EmpNo ")
]
BSTR EmpNo.
[helpstring (" EmpName ")
]
BSTR EmpName;
[helpstring (" CardNo ")
]
Long CardNo.
[helpstring (" CardLevel ")
]
Unsigned char CardLevel;
[helpstring (" CardPersonPWD ")
]
BSTR CardPersonPWD;
[helpstring (" DistributorCode ")
]
Long DistributorCode;
[helpstring (" CustomerCode ")
]
Long CustomerCode;
[helpstring (" VaildStarDate ")
]
BSTR VaildStarDate;
[helpstring (" VaildEndDate ")
]
BSTR VaildEndDate;
[helpstring (" TimeingIsVaildDate ")
]
Unsigned char TimeingIsVaildDate;
[helpstring (" PersonalBag ")
]
Long PersonalBag;
[helpstring (" GiveBag ")
]
Long GiveBag;
[helpstring (" SubsidyBag ")
]
Long SubsidyBag;
[helpstring (" IntegralBag ")
]
Long IntegralBag;
[helpstring (" CardUseTimes ")
]
Long CardUseTimes;
[helpstring (" LimitTimeMoney ")
]
Long LimitTimeMoney;
[helpstring (" LimitTimeTimes ")
]
Long LimitTimeTimes;
[helpstring (" LimitDayMoney ")
]
Long LimitDayMoney;
[helpstring (" LimitDayTimes ")
]
Long LimitDayTimes;
[helpstring (" LimitMonthMoney ")
]
Long LimitMonthMoney;
[helpstring (" LimitMonthTimes ")
]
Long LimitMonthTimes;
[helpstring (" LastUseDateTime ")
]
BSTR LastUseDateTime;
[helpstring (" OrderDate ")
]
Long OrderDate;
[helpstring (" OrderData ")
]
Unsigned char OrderData;
[helpstring (" OrderCheckData ")
]
Unsigned char OrderCheckData;
[helpstring (" OrderNum ")
]
Long OrderNum;
[helpstring (" FirstPushDateTime ")
]
BSTR FirstPushDateTime;
[helpstring (" SubsidyFlag ")
]
Long SubsidyFlag;
[helpstring (" DeviceSN ")
]
Long DeviceSN;
} ICUserInfo_Struct;
The above is the data type of the ICUserInfo_Struct. My custom data types in the yi language. After running. Prompt data * "parameter data types error"
Being debugged easily finished program is running
CodePudding user response:
I don't know yi language C language of the great god in the BBS?