pieceh_t.cpp

科思ERP部分源码及控件

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

TfrmPieceh_T *frmPieceh_T;
TfrmPieced_T *Pieced_Tfrm;
//---------------------------------------------------------------------------
__fastcall TfrmPieceh_T::TfrmPieceh_T(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TGenBaseForm(Owner,chWnd,MidCode,WhereStr)
{
    AutoCtl=sePiecehCode;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::InitEditControl()
{
    ClientGroup->AddComponent(1,true,true,false,sgPieceh,sgPieceh->Name);
    ClientGroup->AddComponent(1,false,false,true,FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(1,false,true,false,sePiecehCode,sePiecehCode->Name);
    ClientGroup->AddComponent(1,true,true,true,scPiecehState,scPiecehState->Name);
    ClientGroup->AddComponent(1,true,true,true,chePiecehCheck,chePiecehCheck->Name);
    ClientGroup->AddComponent(1,false,true,true,scPiecehShop,scPiecehShop->Name);
    ClientGroup->AddComponent(1,false,true,true,sePiecehTeam,sePiecehTeam->Name);
    ClientGroup->AddComponent(1,true,true,true,scPiecehFmon,scPiecehFmon->Name);

    ClientGroup->AddComponent(2,false,false,true,FloatPanel2,FloatPanel2->Name);
    ClientGroup->AddComponent(2,false,true,true,btnOK,btnOK->Name);
    ClientGroup->AddComponent(2,false,false,false,btnCancel,btnCancel->Name);
    ClientGroup->AddComponent(2,true,true,true,Panel1,Panel1->Name);
    ClientGroup->AddComponent(2,true,true,true,scPiecedDType,scPiecedDType->Name);

    scPiecehState->ClearAll();
    scPiecehState->AddItems("1-预备","1");
    scPiecehState->AddItems("2-确认","2");
    scPiecehState->AddItems("3-完成","3");

    scPiecedDType->ClearAll();
    scPiecedDType->AddItems("0-手工录入","0");
    scPiecedDType->AddItems("1-平均分配","1");
    //Pieceh
    FillComboBox(Handle,scPiecehFmon,"SELECT FcMonth from sdFc Order by FcMonth","FcMonth");
    FillComboBox(Handle,scPiecehShop,"SELECT ShopCode,ShopName from sdShop order by ShopCode","ShopName","ShopCode");
    FillEdit(Handle,sePiecehTeam,"SELECT TeamCode,TeamName from sdTeam order by TeamCode","TeamName","TeamCode");
    //Pieced
    FillEdit(Handle,sePiecedEmployee,"SELECT EmployeeCode,EmployeeName,EmployeeSex,EmployeeTow FROM sdEmployee order by EmployeeCode",
            "EmployeeCode","EmployeeName","EmployeeSex","EmployeeTow");
    FillEdit(Handle,sePiecedProcess,"SELECT ProcessCode,ProcessName FROM sdProcess order by ProcessCode","ProcessName","ProcessCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
    try
    {
       switch (MsgSrc)
       {
         case euSdFc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scPiecehFmon,"Select FcMonth from sdFc Order by FcMonth","FcMonth");
	           EndWaitForm();
	           break;
           }
         case euSdTeam:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
               FillEdit(Handle,sePiecehTeam,"SELECT TeamCode,TeamName from sdTeam order by TeamCode","TeamName","TeamCode");
	           EndWaitForm();
	           break;
           }
         case euSdShop:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scPiecehShop,"select ShopCode,ShopName=ShopCode+'('+ShopName+')' from sdShop order by ShopCode","ShopName","ShopCode");
	           EndWaitForm();
	           break;
           }
         case euSdEmployee:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
               FillEdit(Handle,sePiecedEmployee,"SELECT EmployeeCode,EmployeeName,EmployeeSex,EmployeeTow FROM sdEmployee order by EmployeeCode",
                        "EmployeeCode","EmployeeName","EmployeeSex","EmployeeTow");
	           EndWaitForm();
	           break;
           }
         case euSdProcess:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
               FillEdit(Handle,sePiecedProcess,"SELECT ProcessCode,ProcessName FROM sdProcess order by ProcessCode","ProcessName","ProcessCode");
	           EndWaitForm();
	           break;
           }
         default:
           break;
       }
    }
    __finally
    {
        //AddCode;
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::ClearControl(int Section,bool BringToNext)
{
    if(Section == 1)
    {
       if(!BringToNext)
       {
          sePiecehCode->Text ="";
          dePiecehDate->Text =g_sdCurDate;
          scPiecehFmon->LocateKey(g_sdMMonth);
          scPiecehShop->ItemIndex = -1;
          sePiecehTeam->ItemIndex = -1;
          scPiecehState->ItemIndex= 0;
          labUserCode->Caption=g_sdUserCode;
          chePiecehCheck->Checked=false;
          labChecker->Caption = "";
          labCheckDate->Caption = "";
          memPiecehDesc->Text="";
       }
       sgPieceh->RowCount=1;
    }
    else if(Section==2)
    {
       if(!BringToNext)
       {
          sePiecedLine->Text =AnsiString(comServer->ItemCount+1);
          sePiecedEmployee->ItemIndex=-1;
          seEmployeeName->Text ="";
          seEmployeeSex->Text ="";
          seEmployeeTow->Text ="";
          sePiecedWo->Text="";
          sePiecedProcess->ItemIndex=-1;
          sePiecedQty->Text ="0.00";
          sePiecedPrice->Text="0.00";
          sePiecedQty1->Text ="0.00";
          sePiecedPrice1->Text="0.00";
          sePiecedQty2->Text ="0.00";
          sePiecedPrice2->Text="0.00";
          sePiecedQty3->Text ="0.00";
          sePiecedPrice3->Text="0.00";
          sePiecedQty4->Text ="0.00";
          sePiecedPrice4->Text="0.00";
          sePiecedQty5->Text ="0.00";
          sePiecedPrice5->Text="0.00";
          sePiecedQty6->Text ="0.00";
          sePiecedPrice6->Text="0.00";
          sePiecedQty7->Text ="0.00";
          sePiecedPrice7->Text="0.00";
          sePiecedQty8->Text ="0.00";
          sePiecedPrice8->Text="0.00";
          sePiecedQty9->Text ="0.00";
          sePiecedPrice9->Text="0.00";
          sePiecedQty10->Text ="0.00";
          sePiecedPrice10->Text="0.00";
          scPiecedDType->ItemIndex=1;
          memPiecedDesc->Text="";
       }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::GetDataFromComObject(int Section)
{
    if(Section==1)
    {
       sePiecehCode->Text=GetHeadValue("PiecehCode");
       dePiecehDate->Text=GetHeadValue("PiecehDate");
       scPiecehFmon->LocateKey(GetHeadValue("PiecehFmonth"));
       scPiecehShop->LocateKey(GetHeadValue("PiecehShop"));
       sePiecehTeam->LocateKey(GetHeadValue("PiecehTeam"));
       scPiecehState->LocateKey(GetHeadValue("PiecehState"));
       labUserCode->Caption=GetHeadValue("PiecehUser");
       chePiecehCheck->Checked=GetHeadValue("PiecehCheck")=="1";
       labChecker->Caption=GetHeadValue("PiecehChecker");
       labCheckDate->Caption=GetHeadValue("PiecehCheckDate");
       memPiecehDesc->Text=GetHeadValue("PiecehDesc");
       if(GetHeadValue("PiecehCheck")=="1")
          SetCheckToolbarStatus(true);
       else
          SetCheckToolbarStatus(false);
    }
    else
    {
       sePiecedLine->Text=GetDetailValue("PiecedLine");
       sePiecedEmployee->LocateKey(GetDetailValue("PiecedEmployee"));
       seEmployeeName->Text=sePiecedEmployee->ItemData[1];
       if(!sePiecedEmployee->ItemData[2].IsEmpty())
          seEmployeeSex->Text=sePiecedEmployee->ItemData[2]=="0"? "男":"女";
       else
          seEmployeeSex->Text="";
       seEmployeeTow->Text=sePiecedEmployee->ItemData[3];
       sePiecedWo->Text=GetDetailValue("PiecedWo");
       sePiecedProcess->LocateKey(GetDetailValue("PiecedProcess"));
       sePiecedQty->Text =GetDetailValue("PiecedQty");
       sePiecedPrice->Text=GetDetailValue("PiecedPrice");
       sePiecedQty1->Text =GetDetailValue("PiecedQty1");
       sePiecedPrice1->Text=GetDetailValue("PiecedPrice1");
       sePiecedQty2->Text =GetDetailValue("PiecedQty2");
       sePiecedPrice2->Text=GetDetailValue("PiecedPrice2");
       sePiecedQty3->Text =GetDetailValue("PiecedQty3");
       sePiecedPrice3->Text=GetDetailValue("PiecedPrice3");
       sePiecedQty4->Text =GetDetailValue("PiecedQty4");
       sePiecedPrice4->Text=GetDetailValue("PiecedPrice4");
       sePiecedQty5->Text =GetDetailValue("PiecedQty5");
       sePiecedPrice5->Text=GetDetailValue("PiecedPrice5");
       sePiecedQty6->Text =GetDetailValue("PiecedQty6");
       sePiecedPrice6->Text=GetDetailValue("PiecedPrice6");
       sePiecedQty7->Text =GetDetailValue("PiecedQty7");
       sePiecedPrice7->Text=GetDetailValue("PiecedPrice7");
       sePiecedQty8->Text =GetDetailValue("PiecedQty8");
       sePiecedPrice8->Text=GetDetailValue("PiecedPrice8");
       sePiecedQty9->Text =GetDetailValue("PiecedQty9");
       sePiecedPrice9->Text=GetDetailValue("PiecedPrice9");
       sePiecedQty10->Text =GetDetailValue("PiecedQty10");
       sePiecedPrice10->Text=GetDetailValue("PiecedPrice10");
       scPiecedDType->LocateKey(GetDetailValue("PiecedDType"));
       memPiecedDesc->Text=GetDetailValue("PiecedDesc");
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::SendDataToComObject(int Section)
{
    if(Section==1)
    {
        SetHeadValue("PiecehCode",sePiecehCode->Text);
        SetHeadValue("PiecehDate",dePiecehDate->Text);
        SetHeadValue("PiecehFmonth",scPiecehFmon->Text);
        SetHeadValue("PiecehShop",scPiecehShop->ItemData[1]);
        SetHeadValue("PiecehTeam",sePiecehTeam->ItemData[1]);
        SetHeadValue("PiecehState",scPiecehState->ItemData[1]);
        SetHeadValue("PiecehUser",labUserCode->Caption);
        SetHeadValue("PiecehCheck",chePiecehCheck->Checked ? "1":"0");
        if(chePiecehCheck->Checked)
        {
           SetHeadValue("PiecehChecker",labChecker->Caption);
           SetHeadValue("PiecehCheckDate",labCheckDate->Caption);
        }
        SetHeadValue("PiecehDesc",memPiecehDesc->Text);
    }
    else
    {
        //团体计件单号(PiecedCode)赋值
        SetDetailValue("PiecedCode",sePiecehCode->Text);
        SetDetailValue("PiecedLine",sePiecedLine->Text);
        SetDetailValue("PiecedEmployee",sePiecedEmployee->Text);
        SetDetailValue("PiecedWo",sePiecedWo->Text);
        SetDetailValue("PiecedProcess",sePiecedProcess->ItemData[1]);
        SetDetailValue("PiecedQty",sePiecedQty->Text);
        SetDetailValue("PiecedPrice",sePiecedPrice->Text);
        SetDetailValue("PiecedQty1",sePiecedQty1->Text);
        SetDetailValue("PiecedPrice1",sePiecedPrice1->Text);
        SetDetailValue("PiecedQty2",sePiecedQty2->Text);
        SetDetailValue("PiecedPrice2",sePiecedPrice2->Text);
        SetDetailValue("PiecedQty3",sePiecedQty3->Text);
        SetDetailValue("PiecedPrice3",sePiecedPrice3->Text);
        SetDetailValue("PiecedQty4",sePiecedQty4->Text);
        SetDetailValue("PiecedPrice4",sePiecedPrice4->Text);
        SetDetailValue("PiecedQty5",sePiecedQty5->Text);
        SetDetailValue("PiecedPrice5",sePiecedPrice5->Text);
        SetDetailValue("PiecedQty6",sePiecedQty6->Text);
        SetDetailValue("PiecedPrice6",sePiecedPrice6->Text);
        SetDetailValue("PiecedQty7",sePiecedQty7->Text);
        SetDetailValue("PiecedPrice7",sePiecedPrice7->Text);
        SetDetailValue("PiecedQty8",sePiecedQty8->Text);
        SetDetailValue("PiecedPrice8",sePiecedPrice8->Text);
        SetDetailValue("PiecedQty9",sePiecedQty9->Text);
        SetDetailValue("PiecedPrice9",sePiecedPrice9->Text);
        SetDetailValue("PiecedQty10",sePiecedQty10->Text);
        SetDetailValue("PiecedPrice10",sePiecedPrice10->Text);
        SetDetailValue("PiecedDType",scPiecedDType->ItemData[1]);
        SetDetailValue("PiecedDesc",memPiecedDesc->Text);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::WaitUserInput(int Section)
{
    if(Section==1){
      if(sePiecehCode->Enabled)
        sePiecehCode->SetFocus();
      else
        dePiecehDate->SetFocus();
    }
    else
    {
      ChangeToBrowseState(false);
      if(sePiecedLine->Enabled)
        sePiecedLine->SetFocus();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh_T::RefreshGridData(int mAction)
{
    int i;
    AnsiString ItemStr=GetItemStringToGrid();
    switch(mAction)
    {