📄 wrg.cpp

📁 科思ERP部分源码及控件
💻 CPP
📖 第 1 页 / 共 2 页
字号:
12 下一页
//---------------------------------------------------------------------------
#include <vcl.h>
#include "Wrg.h"
#include "Wpe.h"
#include "WrgCopy.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"

TfrmWrg *frmWrg;
TfrmWrgCopy *WrgCopyfrm;
//---------------------------------------------------------------------------
__fastcall TfrmWrg::TfrmWrg(TComponent* Owner, HWND chWnd, AnsiString MidCode,
               AnsiString WhereStr)
    : TRecBaseForm(Owner,chWnd,MidCode,"")
{
   IsUserGernerate=true;
}
//---------------------------------------------------------------------------
__fastcall TfrmWrg::TfrmWrg(TComponent* Owner, HWND chWnd, AnsiString MidCode,
               AnsiString WhereStr,AnsiString ParamString)
    : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
    int iPos;
    iPos=ParamString.Pos("\t");
    FWrgWoCode=ParamString.SubString(1,iPos-1);
    ParamString=ParamString.SubString(iPos+1,ParamString.Length());

    iPos=ParamString.Pos("\t");
    FWrgWoRoute=ParamString.SubString(1,iPos-1);
    ParamString=ParamString.SubString(iPos+1,ParamString.Length());

    iPos=ParamString.Pos("\t");
    FWrgWoCheck=StrToInt(ParamString.SubString(1,iPos-1));
    ParamString=ParamString.SubString(iPos+1,ParamString.Length());

    iPos=ParamString.Pos("\t");
    FWrgWoCancel=StrToInt(ParamString.SubString(1,iPos-1));
    FWrgWoFrom=StrToInt(ParamString.SubString(iPos+1,ParamString.Length()));
    SetCheckToolbarStatus(FWrgWoCheck);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::InitEditControl()
{
    //From=1(按工艺路线表)
    //From=2(按工单路线表)
    if(FWrgWoFrom!=2 && FWrgWoFrom!=1)
       return;
    if(FWrgWoFrom==2)
    {
       ClientGroup->AddComponent(2,false,false,true,PageControl1,PageControl1->Name);
       ClientGroup->AddComponent(2,true,true,false,sbtWrgCopy,sbtWrgCopy->Name);
    }
    else
    {
       ClientGroup->AddComponent(2,true,true,true,PageControl1,PageControl1->Name);
       ClientGroup->AddComponent(2,true,true,true,sbtWrgCopy,sbtWrgCopy->Name);
    }
    ClientGroup->AddComponent(2,true,true,false,sgWrg,sgWrg->Name);
    ClientGroup->AddComponent(2,true,true,true,Panel1,Panel1->Name);
    ClientGroup->AddComponent(2,true,true,false,sbtWpe,sbtWpe->Name);
    ClientGroup->AddComponent(2,true,true,true,cheChkFlg,cheChkFlg->Name);
    ClientGroup->AddComponent(2,true,true,true,seWrgNo,seWrgNo->Name);
    FillComboBox(Handle,scWrgWc,"SELECT WcCode+space(1)+'('+WcName+')' memo,WcCode,WcName FROM sdWc order by WcCode","memo","WcCode","WcName");
    FillComboBox(Handle,scWrgLoc,"SELECT LocCode,LocCode+space(1)+'('+LocName+')' memo FROM sdLoc where LocType=2 order by LocCode","memo","LocCode");
    FillComboBox(Handle,scWrgProcess,"SELECT ProcessCode+ space(1)+'('+ProcessName+')' memo,ProcessCode,ProcessName FROM sdProcess order by ProcessCode","memo","ProcessCode","ProcessName");
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
    try{
       switch(MsgSrc){
         case euSdWc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scWrgWc,"Select WcCode+space(1)+'('+WcName+')' memo,WcCode,WcName FROM sdWc order by WcCode","memo","WcCode","WcName");
	           EndWaitForm();
	           break;
           }
         case euSdLoc:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scWrgLoc,"Select LocCode,LocCode+space(1)+'('+LocName+')' memo FROM sdLoc order by LocCode","memo","LocCode");
	           EndWaitForm();
	           break;
           }
         case euSdProcess:
           if(ShowUpdateMessage(MsgSrc,MsgType)){
	           StartWaitForm("正在刷新引用数据!");
	           FillComboBox(Handle,scWrgProcess,"Select ProcessCode+ space(1)+'('+ProcessName+')' memo,ProcessCode,ProcessName FROM sdProcess order by ProcessCode","memo","ProcessCode","ProcessName");
	           EndWaitForm();
	           break;
           }
         default:
           break;
       }
    }
    __finally
    {
       //AddCode
    }
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      if(FWrgWoFrom==2)
         seWrgNo->Text=comServer->RecordCount+1;
      scWrgProcess->Text="";
      seWrgName->Text="";
      //启动质量管理时
/*
      if(g_sdQuality)
         cheChkFlg->Checked=true;
      else
         cheChkFlg->Checked=false;
*/
      cheWxFlg->Checked=false;
      scWrgWc->Text="";
      scWrgLoc->Text="";
      deWrgEdate->Text=g_sdCurDate;
      deWrgIdate->Text="";
      scWrgState->ItemIndex=0;
      scWrgType->ItemIndex=0;
      seWrgWxAmt->Text="0";
      memWrgDesc->Text="";
      labUserCode->Caption=g_sdUserCode;
      seWrgQlt->Text="0";
      seWrgSlt->Text="0";
      seWrgRlt->Text="0";
      seWrgWlt->Text="0";
      seWrgMlt->Text="0";
      seWrgPQty->Text="0";
      seWrgCQty->Text="0";
      seWrgEQty->Text="0";
      seWrgWQty->Text="0";
      seWrgRQty->Text="0";
      seWrgSQty->Text="0";
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::GetDataFromComObject()
{
    seWrgNo->Text=GetFieldValue("WrgNo");
    scWrgProcess->LocateKey(GetFieldValue("WrgProcess"));
    //MoveFirst,MovePrority,MoveNext,MoveLast
    sgWrg->LocateGrid(1,GetFieldValue("WrgProcess"));
    seWrgName->Text=GetFieldValue("WrgName");
    cheChkFlg->Checked=GetFieldValue("WrgChkFlg")=="1";
    cheWxFlg->Checked=GetFieldValue("WrgWxFlg")=="1";

    scWrgWc->LocateKey(GetFieldValue("WrgWc"));
    scWrgLoc->LocateKey(GetFieldValue("WrgLoc"));

    deWrgEdate->Text=GetFieldValue("WrgEdate");
    deWrgIdate->Text=GetFieldValue("WrgIdate");
    scWrgState->ItemIndex=StrToInt(GetFieldValue("WrgState"))-1;
    scWrgType->ItemIndex=StrToInt(GetFieldValue("WrgType"))-1;
    seWrgWxAmt->Text=GetFieldValue("WrgWxAmt");
    labUserCode->Caption=GetFieldValue("WrgUser");
    memWrgDesc->Text=GetFieldValue("WrgDesc");
    seWrgQlt->Text=GetFieldValue("WrgQlt");
    seWrgSlt->Text=GetFieldValue("WrgSlt");
    seWrgRlt->Text=GetFieldValue("WrgRlt");
    seWrgWlt->Text=GetFieldValue("WrgWlt");
    seWrgMlt->Text=GetFieldValue("WrgMlt");
    seWrgPQty->Text=GetFieldValue("WrgPQty");
    seWrgCQty->Text=GetFieldValue("WrgCQty");
    seWrgEQty->Text=GetFieldValue("WrgEQty");
    seWrgWQty->Text=GetFieldValue("WrgWQty");
    seWrgRQty->Text=GetFieldValue("WrgRQty");
    seWrgSQty->Text=GetFieldValue("WrgSQty");
    //如果加工单已审核或已作废
    SetCheckToolBarEnable();
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::SetCheckToolBarEnable()
{
    if(FWrgWoCheck==1 || FWrgWoCancel==1)
    {
      tbAddHead->Enabled=false;
      tbEditHead->Enabled=false;
      tbGenrate->Enabled=false;
      tbDeleteHead->Enabled=false;
      muAddDetail->Enabled=false;
      muEditDetail->Enabled=false;
      muDeleteDetail->Enabled=false;
      muCancel->Enabled =false;
      muSave->Enabled =false;
      //sbtWrgCopy->Visible=false;
    }
    else{
      if(FWrgWoFrom==2){
         tbAddHead->Enabled=true;
         tbDeleteHead->Enabled=true;
         muAddDetail->Enabled=true;
         muDeleteDetail->Enabled=true;
      }
      tbEditHead->Enabled=true;
      tbGenrate->Enabled=true;
      muEditDetail->Enabled=true;
      muCancel->Enabled =true;
      muSave->Enabled =true;
      //sbtWrgCopy->Visible=true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::SendDataToComObject()
{
    SetFieldValue("WrgWo",labWrgWo->Caption);
    SetFieldValue("WrgName",seWrgName->Text);
    SetFieldValue("WrgProcess",scWrgProcess->ItemData[cbItem2]);
    SetFieldValue("WrgNo",seWrgNo->Text);
    SetFieldValue("WrgFrom",FWrgWoFrom);
    SetFieldValue("WrgChkFlg",cheChkFlg->Checked ? "1":"0");
    SetFieldValue("WrgWxFlg",cheWxFlg->Checked ? "1":"0");
    SetFieldValue("WrgWc",scWrgWc->ItemData[cbItem2]);
    SetFieldValue("WrgLoc",scWrgLoc->ItemData[cbItem2]);
    SetFieldValue("WrgEdate",deWrgEdate->Text);
    SetFieldValue("WrgIdate",deWrgIdate->Text);
    SetFieldValue("WrgState",IntToStr(scWrgState->ItemIndex+1));
    SetFieldValue("WrgType",IntToStr(scWrgType->ItemIndex+1));
    SetFieldValue("WrgWxAmt",seWrgWxAmt->Text);
    SetFieldValue("WrgUser",labUserCode->Caption);
    SetFieldValue("WrgDesc",memWrgDesc->Text);
    SetFieldValue("WrgQlt",seWrgQlt->Text);
    SetFieldValue("WrgSlt",seWrgSlt->Text);
    SetFieldValue("WrgRlt",seWrgRlt->Text);
    SetFieldValue("WrgWlt",seWrgWlt->Text);
    SetFieldValue("WrgMlt",seWrgMlt->Text);
    SetFieldValue("WrgPQty",seWrgPQty->Text);
    SetFieldValue("WrgCQty",0);
    SetFieldValue("WrgEQty",0);
    SetFieldValue("WrgWQty",0);
    SetFieldValue("WrgRQty",0);
    SetFieldValue("WrgSQty",0);
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::WaitUserInput()
{
    PageControl1->ActivePage=BaseInfo;
    if(FWrgWoFrom==2 && scWrgProcess->Enabled)
      scWrgProcess->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfrmWrg::RefreshGridData(int mAction)
{
    int i;
    AnsiString m_ItemStr;
    m_ItemStr=GetDataToGrid();
    switch(mAction)
    {
      case 0:   //Add
        sgWrg->AddItem(m_ItemStr);
        sgWrg->Row=sgWrg->RowCount-1;
12 下一页
⌨️ 快捷键说明

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