fk.cpp

来自「利用DLL对IC卡进行发卡充值的PB VF BCB DELPHI VC等源代码程」· C++ 代码 · 共 564 行 · 第 1/2 页

CPP
564 行
字号
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

fk.cpp - 源码说明

本页面展示了「利用DLL对IC卡进行发卡充值的PB VF BCB DELPHI VC等源代码程序,内有详细说明」中的 fk.cpp 源码文件，采用 C++ 编程语言编写，共 564 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与IC卡相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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