pieceh.cpp

科思ERP部分源码及控件

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Pieceh.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"

TfrmPieceh *frmPieceh;
//---------------------------------------------------------------------------
__fastcall TfrmPieceh::TfrmPieceh(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
    : TBillBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   // AutoCtl=sePiecehCode;
    SetAutoCodeString(sePiecehCode,"ACM-029");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh::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,chePiecehCheck,chePiecehCheck->Name);
    ClientGroup->AddComponent(1,true,true,true,scPiecehState,scPiecehState->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);

    scPiecehState->ClearAll();
    scPiecehState->AddItems("1-预备","1");
    scPiecehState->AddItems("2-确认","2");
    scPiecehState->AddItems("3-完成","3");
    //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::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::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";
        memPiecedDesc->Text="";
      }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh::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(chePiecehCheck->Checked)
         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");
       memPiecedDesc->Text=GetDetailValue("PiecedDesc");
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh::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("PiecedDType",0);  /*个人计件＝0*/
       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("PiecedDesc",memPiecedDesc->Text);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPieceh::WaitUserInput(int Section)
{
    if(Section ==1){
      if(CurrentState==caAddHead)
         sePiecehCode->SetFocus();
      else
         dePiecehDate->SetFocus();
    }
    else
    {
      ChangeToBrowseState(false);
      if(CurrentState!=caNormal)
         sePiecedLine->SetFocus();
    }
}