⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 fk.cpp

📁 利用DLL对IC卡进行发卡充值的PB VF BCB DELPHI VC等源代码程序,内有详细说明
💻 CPP
📖 第 1 页 / 共 2 页
字号:
🔍
12 

    st=Query_Pos_Card(icdev,&cardtype,&opt_num,&serno,cardno,&cardserno,&value,&count,&usertype,20);
    switch (st)
    {
        case 0:List1->Items->Add("消费使用卡查询成功,ID号:"+IntToStr(cardserno)+" 金额:"+IntToStr(value/100.0)+" 消费次数:"+IntToStr(count));
               break;
        case -1:List1->Items->Add("消费使用卡查询失败:串口错!");
               break;
        case -2:List1->Items->Add("消费使用卡查询失败:读写器通讯错!");
               break;
        case -3:List1->Items->Add("消费使用卡查询失败:没有消费系统授权信息!");
               break;
        case -5:List1->Items->Add("消费使用卡查询失败:参数错!");
               break;
        case -7:List1->Items->Add("消费使用卡查询失败:找不到卡!");
               break;
        case -10:List1->Items->Add("消费使用卡查询失败:系统卡错误!");
               break;
        case -11:List1->Items->Add("消费使用卡查询失败:用户卡错误!");
               break;
        case -12:List1->Items->Add("消费使用卡查询失败:读卡错!");
               break;
        case -13:List1->Items->Add("消费使用卡查询失败:写卡错!");
               break;
        case -15:List1->Items->Add("消费使用卡查询失败:不可识别的卡!");
               break;
        default:List1->Items->Add("消费使用卡查询失败!");
                break;
    }

    st=WRT_Pos_UserCard(icdev,10000,cardserno,20);
    switch (st)
    {
        case 0:List1->Items->Add("用户卡写值100成功!");
               break;
        case -1:List1->Items->Add("用户卡写值100失败:串口错!");
               break;
        case -2:List1->Items->Add("用户卡写值100失败:读写器通讯错!");
               break;
        case -3:List1->Items->Add("用户卡写值100失败:没有消费系统授权信息!");
               break;
        case -5:List1->Items->Add("用户卡写值100失败:参数错!");
               break;
        case -7:List1->Items->Add("用户卡写值100失败:找不到卡!");
               break;
        case -10:List1->Items->Add("用户卡写值100失败:系统卡错误!");
               break;
        case -11:List1->Items->Add("用户卡写值100失败:用户卡错误!");
               break;
        case -12:List1->Items->Add("用户卡写值100失败:读卡错!");
               break;
        case -13:List1->Items->Add("用户卡写值100失败:写卡错!");
               break;
        case -15:List1->Items->Add("用户卡写值100失败:不可识别的卡!");
               break;
        default:List1->Items->Add("用户卡写值100失败!");
                break;
    }

    st=Query_Pos_Card(icdev,&cardtype,&opt_num,&serno,cardno,&cardserno,&value,&count,&usertype,20);
    switch (st)
    {
        case 0:List1->Items->Add("消费使用卡查询成功,ID号:"+IntToStr(cardserno)+" 金额:"+IntToStr(value/100.0)+" 消费次数:"+IntToStr(count));
               break;
        case -1:List1->Items->Add("消费使用卡查询失败:串口错!");
               break;
        case -2:List1->Items->Add("消费使用卡查询失败:读写器通讯错!");
               break;
        case -3:List1->Items->Add("消费使用卡查询失败:没有消费系统授权信息!");
               break;
        case -5:List1->Items->Add("消费使用卡查询失败:参数错!");
               break;
        case -7:List1->Items->Add("消费使用卡查询失败:找不到卡!");
               break;
        case -10:List1->Items->Add("消费使用卡查询失败:系统卡错误!");
               break;
        case -11:List1->Items->Add("消费使用卡查询失败:用户卡错误!");
               break;
        case -12:List1->Items->Add("消费使用卡查询失败:读卡错!");
               break;
        case -13:List1->Items->Add("消费使用卡查询失败:写卡错!");
               break;
        case -15:List1->Items->Add("消费使用卡查询失败:不可识别的卡!");
               break;
        default:List1->Items->Add("消费使用卡查询失败!");
                break;
    }

    st=RST_Pos_UserCard(icdev,cardserno,10);
    switch (st)
    {
        case 0:List1->Items->Add("回收消费机用户卡成功!");
               break;
        case -1:List1->Items->Add("回收消费机用户卡失败:串口错!");
               break;
        case -2:List1->Items->Add("回收消费机用户卡失败:读写器通讯错!");
               break;
        case -3:List1->Items->Add("回收消费机用户卡失败:没有消费系统授权信息!");
               break;
        case -5:List1->Items->Add("回收消费机用户卡失败:参数错!");
               break;
        case -7:List1->Items->Add("回收消费机用户卡失败:找不到卡!");
               break;
        case -10:List1->Items->Add("回收消费机用户卡失败:系统卡错误!");
               break;
        case -11:List1->Items->Add("回收消费机用户卡失败:用户卡错误!");
               break;
        case -12:List1->Items->Add("回收消费机用户卡失败:读卡错!");
               break;
        case -13:List1->Items->Add("回收消费机用户卡失败:写卡错!");
               break;
        case -15:List1->Items->Add("回收消费机用户卡失败:不可识别的卡!");
               break;
        default:List1->Items->Add("回收消费机用户卡失败!");
                break;
    }
}
//---------------------------------------------------------------------------

void __fastcall Tmainform::btnaddClick(TObject *Sender)
{
    int serno=1,usertype=1,cardtype,opt_num,value,count;
    char cardno[]="0000000001";
    unsigned long cardserno;

    List1->Items->Clear();
    st=Init_Pos_UserCard_N(icdev,serno,cardno,usertype,10000,1,20,&cardserno);
    switch (st)
    {
        case 0:List1->Items->Add("补发消费用户卡成功,ID号:"+IntToStr(cardserno));
               break;
        case -1:List1->Items->Add("补发消费用户卡失败:串口错!");
               break;
        case -2:List1->Items->Add("补发消费用户卡失败:读写器通讯错!");
               break;
        case -3:List1->Items->Add("补发消费用户卡失败:没有消费系统授权信息!");
               break;
        case -5:List1->Items->Add("补发消费用户卡失败:参数错!");
               break;
        case -7:List1->Items->Add("补发消费用户卡失败:找不到卡!");
               break;
        case -10:List1->Items->Add("补发消费用户卡失败:系统卡错误!");
               break;
        case -11:List1->Items->Add("补发消费用户卡失败:用户卡错误!");
               break;
        case -12:List1->Items->Add("补发消费用户卡失败:读卡错!");
               break;
        case -13:List1->Items->Add("补发消费用户卡失败:写卡错!");
               break;
        case -15:List1->Items->Add("补发消费用户卡失败:不可识别的卡!");
               break;
        default:List1->Items->Add("补发消费用户卡失败!");
                break;
    }

    st=Query_Pos_Card(icdev,&cardtype,&opt_num,&serno,cardno,&cardserno,&value,&count,&usertype,20);
    switch (st)
    {
        case 0:List1->Items->Add("消费使用卡查询成功,ID号:"+IntToStr(cardserno)+" 金额:"+IntToStr(value/100.0)+" 消费次数:"+IntToStr(count));
               break;
        case -1:List1->Items->Add("消费使用卡查询失败:串口错!");
               break;
        case -2:List1->Items->Add("消费使用卡查询失败:读写器通讯错!");
               break;
        case -3:List1->Items->Add("消费使用卡查询失败:没有消费系统授权信息!");
               break;
        case -5:List1->Items->Add("消费使用卡查询失败:参数错!");
               break;
        case -7:List1->Items->Add("消费使用卡查询失败:找不到卡!");
               break;
        case -10:List1->Items->Add("消费使用卡查询失败:系统卡错误!");
               break;
        case -11:List1->Items->Add("消费使用卡查询失败:用户卡错误!");
               break;
        case -12:List1->Items->Add("消费使用卡查询失败:读卡错!");
               break;
        case -13:List1->Items->Add("消费使用卡查询失败:写卡错!");
               break;
        case -15:List1->Items->Add("消费使用卡查询失败:不可识别的卡!");
               break;
        default:List1->Items->Add("消费使用卡查询失败!");
                break;
    }

    st=RST_Pos_UserCard(icdev,cardserno,10);
    switch (st)
    {
        case 0:List1->Items->Add("回收消费机用户卡ID号:"+IntToStr(cardserno)+"成功!");
               break;
        case -1:List1->Items->Add("回收消费机用户卡失败:串口错!");
               break;
        case -2:List1->Items->Add("回收消费机用户卡失败:读写器通讯错!");
               break;
        case -3:List1->Items->Add("回收消费机用户卡失败:没有消费系统授权信息!");
               break;
        case -5:List1->Items->Add("回收消费机用户卡失败:参数错!");
               break;
        case -7:List1->Items->Add("回收消费机用户卡失败:找不到卡!");
               break;
        case -10:List1->Items->Add("回收消费机用户卡失败:系统卡错误!");
               break;
        case -11:List1->Items->Add("回收消费机用户卡失败:用户卡错误!");
               break;
        case -12:List1->Items->Add("回收消费机用户卡失败:读卡错!");
               break;
        case -13:List1->Items->Add("回收消费机用户卡失败:写卡错!");
               break;
        case -15:List1->Items->Add("回收消费机用户卡失败:不可识别的卡!");
               break;
        default:List1->Items->Add("回收消费机用户卡失败!");
                break;
    }
}
//---------------------------------------------------------------------------

void __fastcall Tmainform::btnoptClick(TObject *Sender)
{
    unsigned long cardserno;

    List1->Items->Clear();
    st=Init_Pos_OPTCard(icdev,2,20,&cardserno);
    switch (st)
    {
        case 0:List1->Items->Add("初始化消费机操作员卡ID号:"+IntToStr(cardserno)+"成功!");
               break;
        case -1:List1->Items->Add("初始化消费机操作员卡失败:串口错!");
               break;
        case -2:List1->Items->Add("初始化消费机操作员卡失败:读写器通讯错!");
               break;
        case -3:List1->Items->Add("初始化消费机操作员卡失败:没有消费系统授权信息!");
               break;
        case -5:List1->Items->Add("初始化消费机操作员卡失败:参数错!");
               break;
        case -7:List1->Items->Add("初始化消费机操作员卡失败:找不到卡!");
               break;
        case -10:List1->Items->Add("初始化消费机操作员卡失败:系统卡错误!");
               break;
        case -11:List1->Items->Add("初始化消费机操作员卡失败:用户卡错误!");
               break;
        case -12:List1->Items->Add("初始化消费机操作员卡失败:读卡错!");
               break;
        case -13:List1->Items->Add("初始化消费机操作员卡失败:写卡错!");
               break;
        case -15:List1->Items->Add("初始化消费机操作员卡失败:不可识别的卡!");
               break;
        default:List1->Items->Add("初始化消费机操作员卡失败!");
                break;
    }

    st=RST_Pos_OPTCard(icdev,cardserno,10);
    switch (st)
    {
        case 0:List1->Items->Add("回收消费机操作员卡ID号:"+IntToStr(cardserno)+"成功!");
               break;
        case -1:List1->Items->Add("回收消费机操作员卡失败:串口错!");
               break;
        case -2:List1->Items->Add("回收消费机操作员卡失败:读写器通讯错!");
               break;
        case -3:List1->Items->Add("回收消费机操作员卡失败:没有消费系统授权信息!");
               break;
        case -5:List1->Items->Add("回收消费机操作员卡失败:参数错!");
               break;
        case -7:List1->Items->Add("回收消费机操作员卡失败:找不到卡!");
               break;
        case -10:List1->Items->Add("回收消费机操作员卡失败:系统卡错误!");
               break;
        case -11:List1->Items->Add("回收消费机操作员卡失败:用户卡错误!");
               break;
        case -12:List1->Items->Add("回收消费机操作员卡失败:读卡错!");
               break;
        case -13:List1->Items->Add("回收消费机操作员卡失败:写卡错!");
               break;
        case -15:List1->Items->Add("回收消费机操作员卡失败:不可识别的卡!");
               break;
        default:List1->Items->Add("回收消费机操作员卡失败!");
                break;
    }
}
//---------------------------------------------------------------------------
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -