pquote.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 572 行 · 第 1/2 页

CPP
572 行
字号
12
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma link "RecBaseForm"
#pragma hdrstop
#include "Pquote.h"
#include "KSPurFuc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SDGrid"
#pragma link "SDEdit"
#pragma link "DateEdit"
#pragma link "SDComboBox"
#pragma link "fpanel"
#pragma resource "*.dfm"
TfrmPquote *frmPquote;
AnsiString LastPquoteSupply;
AnsiString LastPquoteGoods;

//---------------------------------------------------------------------------
__fastcall TfrmPquote::TfrmPquote(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)

{

}

//---------------------------------------------------------------------------
void __fastcall TfrmPquote::ClearControl(bool BringToNext)
{
    if(BringToNext)
    {
       return;
    }
    lblPquoteGoodsName->Caption =   "";
    sePquoteGoods->Text          =   "";
    lblPquoteGoodsName->Caption  =   "";
    sePquoteUnit->Text           =   "";
    sePquoteUnit->ItemIndex      =   -1;
    dePquoteSdate->Text          =   g_sdCurDate;
    dePquoteEdate->Text          =   "";
    memPquoteDesc->Text          =   "";
    lblPquoteUser->Caption       =   g_sdUserCode;
    lblPquoteSysDate->Caption    =   "";
    sePquoteQty1->Text          =   "0.0";
    sePquotePrice1->Text        =   "0.0";
    sePquoteRebate1->Text       =   "0.0";
    sePquoteQty2->Text          =   "0.0";
    sePquotePrice2->Text        =   "0.0";
    sePquoteRebate2->Text       =   "0.0";
    sePquoteQty3->Text          =   "0.0";
    sePquotePrice3->Text        =   "0.0";
    sePquoteRebate3->Text       =   "0.0";
    sePquoteQty4->Text          =   "0.0";
    sePquotePrice4->Text        =   "0.0";
    sePquoteRebate4->Text       =   "0.0";
    sePquoteQty5->Text          =   "0.0";
    sePquotePrice5->Text        =   "0.0";
    sePquoteRebate5->Text       =   "0.0";
    sePquoteQty6->Text          =   "0.0";
    sePquotePrice6->Text        =   "0.0";
    sePquoteRebate6->Text       =   "0.0";
    sePquoteQty7->Text          =   "0.0";
    sePquotePrice7->Text        =   "0.0";
    sePquoteRebate7->Text       =   "0.0";
    sePquoteQty8->Text          =   "0.0";
    sePquotePrice8->Text        =   "0.0";
    sePquoteRebate8->Text       =   "0.0";
    sePquoteQty9->Text          =   "0.0";
    sePquotePrice9->Text        =   "0.0";
    sePquoteRebate9->Text       =   "0.0";
    sePquoteQty10->Text         =   "0.0";
    sePquotePrice10->Text       =   "0.0";
    sePquoteRebate10->Text      =   "0.0";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPquote::GetDataFromComObject()
{
    sePquoteGoods->Text         =   GetFieldValue("PquoteGoods");
    sgPquote->LocateGrid(1,GetFieldValue("PquoteGoods"));
    if(GetFieldValue("PquoteGoods") != "")
    {
       l_Query->LocateByKey((GetFieldValue("PquoteGoods")));
       lblPquoteGoodsName->Caption = l_Query->FieldByName("GoodsName");
    }
    sePquoteUnit->LocateKey(GetFieldValue("PquoteUnit"));
    dePquoteSdate->Text         =   GetFieldValue("PquoteSdate");
    dePquoteEdate->Text         =   GetFieldValue("PquoteEdate");
    memPquoteDesc->Text         =   GetFieldValue("PquoteDesc");
    lblPquoteUser->Caption      =   GetFieldValue("PquoteUser");
    lblPquoteSysDate->Caption   =   GetFieldValue("PquoteSysDate");
    sePquoteQty1->Text          =   GetFieldValue("PquoteQty1");
    sePquotePrice1->Text        =   GetFieldValue("PquotePrice1");
    sePquoteRebate1->Text       =   GetFieldValue("PquoteRebate1");
    sePquoteQty2->Text          =   GetFieldValue("PquoteQty2");
    sePquotePrice2->Text        =   GetFieldValue("PquotePrice2");
    sePquoteRebate2->Text       =   GetFieldValue("PquoteRebate2");
    sePquoteQty3->Text          =   GetFieldValue("PquoteQty3");
    sePquotePrice3->Text        =   GetFieldValue("PquotePrice3");
    sePquoteRebate3->Text       =   GetFieldValue("PquoteRebate3");
    sePquoteQty4->Text          =   GetFieldValue("PquoteQty4");
    sePquotePrice4->Text        =   GetFieldValue("PquotePrice4");
    sePquoteRebate4->Text       =   GetFieldValue("PquoteRebate4");
    sePquoteQty5->Text          =   GetFieldValue("PquoteQty5");
    sePquotePrice5->Text        =   GetFieldValue("PquotePrice5");
    sePquoteRebate5->Text       =   GetFieldValue("PquoteRebate5");
    sePquoteQty6->Text          =   GetFieldValue("PquoteQty6");
    sePquotePrice6->Text        =   GetFieldValue("PquotePrice6");
    sePquoteRebate6->Text       =   GetFieldValue("PquoteRebate6");
    sePquoteQty7->Text          =   GetFieldValue("PquoteQty7");
    sePquotePrice7->Text        =   GetFieldValue("PquotePrice7");
    sePquoteRebate7->Text       =   GetFieldValue("PquoteRebate7");
    sePquoteQty8->Text          =   GetFieldValue("PquoteQty8");
    sePquotePrice8->Text        =   GetFieldValue("PquotePrice8");
    sePquoteRebate8->Text       =   GetFieldValue("PquoteRebate8");
    sePquoteQty9->Text          =   GetFieldValue("PquoteQty9");
    sePquotePrice9->Text        =   GetFieldValue("PquotePrice9");
    sePquoteRebate9->Text       =   GetFieldValue("PquoteRebate9");
    sePquoteQty10->Text         =   GetFieldValue("PquoteQty10");
    sePquotePrice10->Text       =   GetFieldValue("PquotePrice10");
    sePquoteRebate10->Text      =   GetFieldValue("PquoteRebate10");

}
//---------------------------------------------------------------------------
void __fastcall TfrmPquote::SendDataToComObject()
{
     if(sePquoteGoods->Text=="")
     throw Exception("物品代码不能为空");
    if(sePquoteUnit->ItemData[1]=="")
     throw Exception("报价单位不能为空");
    SetFieldValue("PquoteSupply", scPquoteSupply->ItemData[1]);
    SetFieldValue("PquoteCurrency", sePquoteCurrency->ItemData[1]);
    SetFieldValue("PquoteGoods", sePquoteGoods->Text);
    SetFieldValue("PquoteUnit", sePquoteUnit->ItemData[1]);
    SetFieldValue("PquoteSdate", dePquoteSdate->Text);
    SetFieldValue("PquoteEdate", dePquoteEdate->Text);
    SetFieldValue("PquoteDesc", memPquoteDesc->Text);
    SetFieldValue("PquoteUser", lblPquoteUser->Caption);
    if(sePquoteQty1->Text == "")
     sePquoteQty1->Text = "0";
    SetFieldValue("PquoteQty1", sePquoteQty1->Text);
    if(sePquotePrice1->Text == "")
     sePquotePrice1->Text = "0";
    SetFieldValue("PquotePrice1", sePquotePrice1->Text);
    if(sePquoteRebate1->Text == "")
     sePquoteRebate1->Text = "0";
    SetFieldValue("PquoteRebate1", sePquoteRebate1->Text);

    if(sePquoteQty2->Text == "")
     sePquoteQty2->Text = "0";
    SetFieldValue("PquoteQty2", sePquoteQty2->Text);
    if(sePquotePrice2->Text == "")
     sePquotePrice2->Text = "0";
    SetFieldValue("PquotePrice2", sePquotePrice2->Text);
    if(sePquoteRebate2->Text == "")
     sePquoteRebate2->Text = "0";
    SetFieldValue("PquoteRebate2", sePquoteRebate2->Text);

    if(sePquoteQty3->Text == "")
     sePquoteQty3->Text = "0";
    SetFieldValue("PquoteQty3", sePquoteQty3->Text);
    if(sePquotePrice3->Text == "")
     sePquotePrice3->Text = "0";
    SetFieldValue("PquotePrice3", sePquotePrice3->Text);
    if(sePquoteRebate3->Text == "")
     sePquoteRebate3->Text = "0";
    SetFieldValue("PquoteRebate3", sePquoteRebate3->Text);

    if(sePquoteQty4->Text == "")
     sePquoteQty4->Text = "0";
    SetFieldValue("PquoteQty4", sePquoteQty4->Text);
    if(sePquotePrice4->Text == "")
     sePquotePrice4->Text = "0";
    SetFieldValue("PquotePrice4", sePquotePrice4->Text);
    if(sePquoteRebate4->Text == "")
     sePquoteRebate4->Text = "0";
    SetFieldValue("PquoteRebate4", sePquoteRebate4->Text);

    if(sePquoteQty5->Text == "")
     sePquoteQty5->Text = "0";
    SetFieldValue("PquoteQty5", sePquoteQty5->Text);
    if(sePquotePrice5->Text == "")
     sePquotePrice5->Text = "0";
    SetFieldValue("PquotePrice5", sePquotePrice5->Text);
    if(sePquoteRebate5->Text == "")
     sePquoteRebate5->Text = "0";
    SetFieldValue("PquoteRebate5", sePquoteRebate5->Text);

    if(sePquoteQty6->Text == "")
     sePquoteQty6->Text = "0";
    SetFieldValue("PquoteQty6", sePquoteQty6->Text);
    if(sePquotePrice6->Text == "")
     sePquotePrice6->Text = "0";
    SetFieldValue("PquotePrice6", sePquotePrice6->Text);
    if(sePquoteRebate6->Text == "")
     sePquoteRebate6->Text = "0";
    SetFieldValue("PquoteRebate6", sePquoteRebate6->Text);

    if(sePquoteQty7->Text == "")
     sePquoteQty7->Text = "0";
    SetFieldValue("PquoteQty7", sePquoteQty7->Text);
    if(sePquotePrice7->Text == "")
     sePquotePrice7->Text = "0";
    SetFieldValue("PquotePrice7", sePquotePrice7->Text);
    if(sePquoteRebate7->Text == "")
     sePquoteRebate7->Text = "0";
    SetFieldValue("PquoteRebate7", sePquoteRebate7->Text);

    if(sePquoteQty8->Text == "")
     sePquoteQty8->Text = "0";
    SetFieldValue("PquoteQty8", sePquoteQty8->Text);
    if(sePquotePrice8->Text == "")
     sePquotePrice8->Text = "0";
    SetFieldValue("PquotePrice8", sePquotePrice8->Text);
    if(sePquoteRebate8->Text == "")
     sePquoteRebate8->Text = "0";
    SetFieldValue("PquoteRebate8", sePquoteRebate8->Text);

    if(sePquoteQty9->Text == "")
     sePquoteQty9->Text = "0";
    SetFieldValue("PquoteQty9", sePquoteQty9->Text);
    if(sePquotePrice9->Text == "")
     sePquotePrice9->Text = "0";
    SetFieldValue("PquotePrice9", sePquotePrice9->Text);
    if(sePquoteRebate9->Text == "")
     sePquoteRebate9->Text = "0";
    SetFieldValue("PquoteRebate9", sePquoteRebate9->Text);

    if(sePquoteQty10->Text == "")
     sePquoteQty10->Text = "0";
    SetFieldValue("PquoteQty10", sePquoteQty10->Text);
    if(sePquotePrice10->Text == "")
     sePquotePrice10->Text = "0";
    SetFieldValue("PquotePrice10", sePquotePrice10->Text);
    if(sePquoteRebate10->Text == "")
     sePquoteRebate10->Text = "0";
    SetFieldValue("PquoteRebate10", sePquoteRebate10->Text);
    if(int(dePquoteSdate->Date) >int(dePquoteEdate->Date))
    throw Exception("停用日期不能早于启用日期");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPquote::WaitUserInput()
{
    FloatPanel2->Visible=true;
    sgPquote->Visible=false;
    sePquoteGoods->SetFocus();
}

//---------------------------------------------------------------------------
AnsiString __fastcall TfrmPquote::GetDataToGrid()
{
    AnsiString  s;
    if(GetFieldValue("PquoteGoods") == "")
       return "";
    l_Query->LocateByKey((GetFieldValue("PquoteGoods")));
    sePquoteUnit->LocateKey(GetFieldValue("PquoteUnit"));
    s = "\t" +GetFieldValue("PquoteGoods") +
        "\t" + l_Query->FieldByName("GoodsName")+
        "\t" +sePquoteUnit->Text+
        "\t" +GetFieldValue("PquoteQty1")+
        "\t" +GetFieldValue("PquotePrice1")+
        "\t" +GetFieldValue("PquoteRebate1")+
        "\t" +GetFieldValue("PquoteQty2")+
        "\t" +GetFieldValue("PquotePrice2")+
        "\t" +GetFieldValue("PquoteRebate2")+
        "\t" +GetFieldValue("PquoteQty3")+
        "\t" +GetFieldValue("PquotePrice3")+
        "\t" +GetFieldValue("PquoteRebate3");

    return(s);
}
//---------------------------------------------------------------------------
void __fastcall TfrmPquote::RefreshGridData(int mAction)
{
    AnsiString ItemStr;
    ItemStr =   GetDataToGrid();
    if (mAction ==  0)
    {
        sgPquote->AddItem(ItemStr);
    }
    else if(mAction == 1)
    {
        int i   =   sgPquote->Row;
        sgPquote->ChangeItem(ItemStr,i);
    }
    else if(mAction == 2)
    {
12

pquote.cpp - 源码说明

本页面展示了「一个以前收集的基于C/S架构的ERP客户端源代码」中的 pquote.cpp 源码文件，采用 C++ 编程语言编写，共 572 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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