pdrh.cpp

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

#include <vcl.h>
#include "Pdrh.h"
#include "wmu.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "BillBaseForm"
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmPdrh *frmPdrh;
//---------------------------------------------------------------------------
__fastcall TfrmPdrh::TfrmPdrh(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TBillBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   // AutoCtl=sePdrhCode;
    SetAutoCodeString(sePdrhCode,"ACM-031");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::InitEditControl()
{
    ClientGroup->AddComponent(1,false,false,true,fpPdrHead,fpPdrHead->Name);
    ClientGroup->AddComponent(1,false,true,false,sePdrhCode,sePdrhCode->Name);
    ClientGroup->AddComponent(1,true,true,true,chkPdrhCheck,chkPdrhCheck->Name);
    ClientGroup->AddComponent(1,true,true,true,scPdrhFmonth,scPdrhFmonth->Name);

    ClientGroup->AddComponent(2,false,false,true,fpPdrDetail,fpPdrDetail->Name);
    ClientGroup->AddComponent(2,false,false,false,btnCancel,btnCancel->Name);
    ClientGroup->AddComponent(2,false,true,true,btnOK,btnOK->Name);
    ClientGroup->AddComponent(2,false,false,true,sePdrdLine,sePdrdLine->Name);
    ClientGroup->AddComponent(2,true,true,true,sePdrdGoods,sePdrdGoods->Name);
    ClientGroup->AddComponent(2,true,true,true,sePdrdGoodsName,sePdrdGoodsName->Name);
    ClientGroup->AddComponent(2,true,true,true,sePdrdEQty,sePdrdEQty->Name);
    //ClientGroup->AddComponent(2,true,true,true,sePdrdWQty,sePdrdWQty->Name);
    ClientGroup->AddComponent(2,true,true,true,sePdrdRQty,sePdrdRQty->Name);
    //ClientGroup->AddComponent(2,true,true,true,sePdrdSQty,sePdrdSQty->Name);
    ClientGroup->AddComponent(2,true,true,false,sbWmu,sbWmu->Name);
    ClientGroup->AddComponent(2,true,true,true,sePdrdRwt,sePdrdRwt->Name);

    //Weph
    FillComboBox(Handle,scPdrhFmonth,"select FcMonth FROM sdFc order by FcMonth","FcMonth");
    //Wepd
    FillEdit(Handle,sePdrdProcess,"select ProcessCode,ProcessName from sdProcess order by ProcessCode","ProcessName","ProcessCode");
    FillComboBox(Handle,scPdrdPsr,"select PsrCode+space(1)+'('+PsrDesc+')' memo,Psrcode from sdPsr order by PsrCode","memo","PsrCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
    try
    {
       switch (MsgSrc)
       {
         case euSdFc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scPdrhFmonth,"SELECT FcMonth FROM sdFc order by FcMonth","FcMonth");
	           EndWaitForm();
	           break;
           }
         case euSdProcess:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
               FillEdit(Handle,sePdrdProcess,"select ProcessCode,ProcessName from sdProcess order by ProcessCode","ProcessName","ProcessCode");
	           EndWaitForm();
	           break;
           }
         case euSdPsr:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scPdrdPsr,"select PsrCode+space(1)+'('+PsrDesc+')' memo,PsrCode from sdPsr order by PsrCode","memo","PsrCode");
	           EndWaitForm();
	           break;
           }
         default:
           break;
       }
    }
    __finally
    {
        //AddCode;
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::ClearControl(int Section,bool BringToNext)
{
    if(Section == 1)
    {
       if(!BringToNext)
       {
          sePdrhCode->Text = "";
          dePdrhDate->Text = g_sdCurDate;
          scPdrhFmonth->LocateKey(g_sdMMonth);
          chkPdrhCheck->Checked = false;
          labChecker->Caption = "";
          labCheckDate->Caption = "";
          labUser->Caption = g_sdUserCode;
          labSysDate->Caption = "";
          memDesc->Text = "";
       }
       sgPdrh->RowCount=1;
    }
    else if(Section==2)
    {
        if(!BringToNext)
        {
          sePdrdLine->Text =AnsiString(comServer->ItemCount+1);
          sePdrdWo->Text="";
          sePdrdGoods->Text="";
          sePdrdGoodsName->Text="";
          sePdrdProcess->ItemIndex =-1;
          sePdrdCQty->Text ="0";
          sePdrdEQty->Text ="0";
          sePdrdWQty->Text ="0";
          sePdrdRQty->Text ="0";
          sePdrdSQty->Text ="0";
          sePdrdFwt->Text ="0";
          sePdrdRwt->Text ="0";
          sePdrdDwt->Text ="0";
          sePdrdWwt->Text ="0";
          sePdrdSwt->Text ="0";
          sePdrdOwt->Text ="0";
          scPdrdPsr->ItemIndex =-1;
          scPdrdPsr->Text="";
          memPdrdDesc->Text ="";
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::GetDataFromComObject(int Section)
{
    if(Section==1)
    {
        sePdrhCode->Text = GetHeadValue("PdrhCode");
        dePdrhDate->Text = GetHeadValue("PdrhDate");
        scPdrhFmonth->LocateKey(GetHeadValue("PdrhFmonth"));
        chkPdrhCheck->Checked = GetHeadValue("PdrhCheck")=="1";
        labChecker->Caption = GetHeadValue("PdrhChecker");
        labCheckDate->Caption = GetHeadValue("PdrhCheckDate");
        labUser->Caption = GetHeadValue("PdrhUser");
        memDesc->Text = GetHeadValue("PdrhDesc");
        labSysDate->Caption = GetHeadValue("PdrhSysDate");
        if(chkPdrhCheck->Checked)
           SetCheckToolbarStatus(true);
        else
           SetCheckToolbarStatus(false);
    }
    else
    {
        sePdrdLine->Text = GetDetailValue("PdrdLine");
        sePdrdWo->Text=GetDetailValue("PdrdWo");

        sePdrdGoods->Text=GetDetailValue("PdrdGoods");
        InitRsGoods(WideString(sePdrdGoods->Text));
        sePdrdGoodsName->Text=GetGoodsValue(gtInitRs,"GoodsName");
        sePdrdProcess->LocateKey(GetDetailValue("PdrdProcess"));
        sePdrdCQty->Text = GetDetailValue("PdrdCQty");
        sePdrdEQty->Text = GetDetailValue("PdrdEQty");
        sePdrdWQty->Text = GetDetailValue("PdrdWQty");
        sePdrdRQty->Text = GetDetailValue("PdrdRQty");
        sePdrdSQty->Text = GetDetailValue("PdrdSQty");
        sePdrdFwt->Text  = GetDetailValue("PdrdFwt");
        sePdrdRwt->Text  = GetDetailValue("PdrdRwt");
        sePdrdDwt->Text  = GetDetailValue("PdrdDwt");
        sePdrdWwt->Text  = GetDetailValue("PdrdWwt");
        sePdrdSwt->Text  = GetDetailValue("PdrdSwt");
        sePdrdOwt->Text  = GetDetailValue("PdrdOwt");
        memPdrdDesc->Text = GetDetailValue("PdrdDesc");
        scPdrdPsr->LocateKey(GetDetailValue("PdrdPsr"));
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::SendDataToComObject(int Section)
{
    if(Section==1)
    {
       SetHeadValue("PdrhCode",sePdrhCode->Text);
       SetHeadValue("PdrhDate",dePdrhDate->Text);
       SetHeadValue("PdrhFmonth",scPdrhFmonth->Text);
       SetHeadValue("PdrhDesc",memDesc->Text);
       SetHeadValue("PdrhUser",labUser->Caption);
    }
    else
    {
       SetDetailValue("PdrdCode",sePdrhCode->Text);
       SetDetailValue("PdrdLine",sePdrdLine->Text);
       SetDetailValue("PdrdWo",sePdrdWo->Text);
       SetDetailValue("PdrdProcess",sePdrdProcess->ItemData[1]);
       SetDetailValue("PdrdGoods",sePdrdGoods->Text);
       SetDetailValue("PdrdCQty",sePdrdCQty->Text);
       SetDetailValue("PdrdEQty",sePdrdEQty->Text);
       SetDetailValue("PdrdWQty",sePdrdWQty->Text);
       SetDetailValue("PdrdRQty",sePdrdRQty->Text);
       SetDetailValue("PdrdSQty",sePdrdSQty->Text);
       SetDetailValue("PdrdFwt",sePdrdFwt->Text);
       SetDetailValue("PdrdRwt",sePdrdRwt->Text);
       SetDetailValue("PdrdDwt",sePdrdDwt->Text);
       SetDetailValue("PdrdWwt",sePdrdWwt->Text);
       SetDetailValue("PdrdSwt",sePdrdSwt->Text);
       SetDetailValue("PdrdOwt",sePdrdOwt->Text);
       SetDetailValue("PdrdDesc",memPdrdDesc->Text);
       SetDetailValue("PdrdPsr",scPdrdPsr->ItemData[1]);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::WaitUserInput(int Section)
{
    if(Section==1){
      if(sePdrhCode->Enabled)
          sePdrhCode->SetFocus();
      else
          dePdrhDate->SetFocus();
    }
    else
    {
      ChangeToBrowseState(false);
      if(sePdrdLine->Enabled)
         sePdrdLine->SetFocus();
    }
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmPdrh::GetDataToGrid()
{
    AnsiString ItemStr;
    ItemStr=GetDetailValue("PdrdLine")+
            "\t"+GetDetailValue("PdrdWo")+
            "\t"+GetDetailValue("PdrdGoods")+
            "\t"+GetDetailValue("PdrdProcess")+
            "\t"+GetDetailValue("PdrdCQty")+
            "\t"+GetDetailValue("PdrdFwt");
    return ItemStr;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPdrh::RefreshGridData(int mAction)
{
    int i;
    AnsiString ItemStr=GetDataToGrid();
    switch(mAction)
    {