sizebill.cpp
来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 984 行 · 第 1/3 页
CPP
984 行
//---------------------------------------------------------------------------
#include <vcl.h>
#include "SizeBill.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"
TfrmSizeBill *frmSizeBill;
//---------------------------------------------------------------------------
__fastcall TfrmSizeBill::TfrmSizeBill(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
: TBillBaseForm(Owner,chWnd,MidCode,WhereStr)
{
SetAutoCodeString(seSizeBillCode,"Acm-010");
}
//---------------------------------------------------------------------------
void __fastcall TfrmSizeBill::InitEditControl()
{
ClientGroup->AddComponent(1,true,true,false, sgSizeBill,sgSizeBill->Name);
ClientGroup->AddComponent(1,false,false,true, FloatPanel1,FloatPanel1->Name);
ClientGroup->AddComponent(1,false,true,true, seSizeBillCode,seSizeBillCode->Name);
ClientGroup->AddComponent(1,false,false,true, FloatPanel3,FloatPanel3->Name);
ClientGroup->AddComponent(1,false,false,true, FloatPanel2,FloatPanel2->Name);
ClientGroup->AddComponent(2,false,false,true, PageControl1,PageControl1->Name);
ClientGroup->AddComponent(2,false,false,false,btnCancel,btnCancel->Name);
ClientGroup->AddComponent(2,false,true,true,btnOK,btnOK->Name);
ClientGroup->AddComponent(1,false,true,false, seSizeBillDLine,seSizeBillDLine->Name);
FillComboBox(Handle,scSizeBillmUser,"Select UserCode,UserName from sduser order by username","UserName","UserCode");
FillComboBox(Handle,scSizeBillUser,"Select UserCode,UserName from sduser order by username","UserName","UserCode");
FillEdit(Query,seSizeBillDesign,"SELECT StyleCode,StyleName FROM ksStyle order by StyleCode","StyleName","StyleCode");
FillEdit(Query,seSizeBillCloth,"SELECT ClothCode,ClothName FROM ksCloth order by ClothCode","ClothName","ClothCode");
FillEdit(Query,seSizeBillStd,"SELECT SizeBaseCode,SizeBaseName FROM ksSizeBase order by SizeBaseCode","SizeBaseName","SizeBaseCode");
FillEdit(Query,seSizeBillDWSCdesign,"SELECT StyleCode,StyleName FROM ksStyle order by StyleCode","StyleName","StyleCode");
FillEdit(Query,seSizeBillDWSCcloth,"SELECT ClothCode,ClothName FROM ksCloth order by ClothCode","ClothName","ClothCode");
FillEdit(Query,seSizeBillDWSCstdSize,"SELECT SizeBaseCode,SizeBaseName FROM ksSizeBase order by SizeBaseCode","SizeBaseName","SizeBaseCode");
FillEdit(Query,seSizeBillDWKdesign,"SELECT StyleCode,StyleName FROM ksStyle order by StyleCode","StyleName","StyleCode");
FillEdit(Query,seSizeBillDWKcloth,"SELECT ClothCode,ClothName FROM ksCloth order by ClothCode","ClothName","ClothCode");
FillEdit(Query,seSizeBillDWKstdSize,"SELECT SizeBaseCode,SizeBaseName FROM ksSizeBase order by SizeBaseCode","SizeBaseName","SizeBaseCode");
FillEdit(Query,seSizeBillDWSTdesign,"SELECT StyleCode,StyleName FROM ksStyle order by StyleCode","StyleName","StyleCode");
FillEdit(Query,seSizeBillDWSTcloth,"SELECT ClothCode,ClothName FROM ksCloth order by ClothCode","ClothName","ClothCode");
FillEdit(Query,seSizeBillDWSTstdSize,"SELECT SizeBaseCode,SizeBaseName FROM ksSizeBase order by SizeBaseCode","SizeBaseName","SizeBaseCode");
FillEdit(Query,seSizeBillDWSSdesign,"SELECT StyleCode,StyleName FROM ksStyle order by StyleCode","StyleName","StyleCode");
FillEdit(Query,seSizeBillDWSScloth,"SELECT ClothCode,ClothName FROM ksCloth order by ClothCode","ClothName","ClothCode");
FillEdit(Query,seSizeBillDWSSstdSize,"SELECT SizeBaseCode,SizeBaseName FROM ksSizeBase order by SizeBaseCode","SizeBaseName","SizeBaseCode");
}
//---------------------------------------------------------------------------
void __fastcall TfrmSizeBill::ClearControl(int Section,bool BringToNext)
{
if (Section == 1)
{
if (! BringToNext)
{
seSizeBillCode->Text = "";
seSizeBillCo->Text = "";
seSizeBillBuyer->Text = "";
seSizeBillBuyerName->Text = "";
seSizeBillTel->Text = "";
seSizeBillCloth->Text = "";
seSizeBillDesign->Text = "";
seSizeBillStd->Text = "";
deSizeBillSSoDate->Text = g_sdCurDate;
deSizeBillGetDate->Text = "";
scSizeBillmUser->ItemIndex = 0;
scSizeBillUser->ItemIndex = 0;
seSizeBillAmt->Text = 0;
seSizeBilladAmt->Text = 0;
lbSizeBillSysDate->Caption = "";
memSizeBillDesignNeed->Text = "";
memSizeBillMemo->Text = "";
}
}
else if (Section==2)
{
if (!BringToNext)
{
seSizeBillDLine->Text = AnsiString(comServer->ItemCount+1);
memSizeBillDMemo->Text = "";
PageControl1->ActivePage=TabSheet1;
//西装
seSizeBillDWSCcloth ->Text = "";
seSizeBillDWSCdesign ->Text = "";
seSizeBillDWSCqty ->Text = 0;
seSizeBillDWSCstdSize ->Text = "";
seSizeBillDWSCspec ->Text = "";
seSizeBillDWSClength ->Text = "";
seSizeBillDWSCBlength ->Text = "";
seSizeBillDWSCcir ->Text = "";
seSizeBillDWSCsquar ->Text = "";
seSizeBillDWSCcuff ->Text = "";
seSizeBillDWSCbelly ->Text = "";
seSizeBillDWSCcirw ->Text = "";
seSizeBillDWSCinstep->Text = "";
seSizeBillDWSCskirt->Text = "";
seSizeBillDWSCneck->Text = "";
seSizeBillDWSCcud->Text = "" ;
seSizeBillDWSCwaist->Text = "" ;
//马甲
seSizeBillDWKcloth ->Text = "" ;
seSizeBillDWKdesign ->Text = "" ;
seSizeBillDWKqty ->Text = 0;
seSizeBillDWKstdSize ->Text = "" ;
seSizeBillDWKspec ->Text = "" ;
seSizeBillDWKFLength ->Text = "" ;
seSizeBillDWKBLength ->Text = "" ;
seSizeBillDWKcir ->Text = "" ;
seSizeBillDWKbelly ->Text = "" ;
seSizeBillDWKskirt->Text = "" ;
seSizeBillDWKwaist->Text = "" ;
//西裤
seSizeBillDWSTcloth ->Text = "" ;
seSizeBillDWSTdesign ->Text = "" ;
seSizeBillDWSTqty ->Text = 0;
seSizeBillDWSTstdSize ->Text = "" ;
seSizeBillDWSTspec ->Text = "" ;
seSizeBillDWSTLength ->Text = "" ;
seSizeBillDWSTbelly ->Text = "" ;
seSizeBillDWSTsterm->Text = "" ;
seSizeBillDWSTSH->Text = "" ;
seSizeBillDWSTSV ->Text = "" ;
seSizeBillDWSTfore->Text = "" ;
seSizeBillDBack ->Text = "" ;
seSizeBillDWSTcor->Text = "" ;
//裙子
seSizeBillDWSScloth ->Text = "" ;
seSizeBillDWSSdesign ->Text = "" ;
seSizeBillDWSSqty ->Text = 0;
seSizeBillDWSSstdSize ->Text = "" ;
seSizeBillDWSSspec ->Text = "" ;
seSizeBillDWSSLength ->Text = "" ;
seSizeBillDWSSbelly ->Text = "" ;
seSizeBillDWSSsterm->Text = "" ;
seSizeBillDWSSskirt ->Text = "" ;
seSizeBillDWSSqi->Text = "" ;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmSizeBill::GetDataFromComObject(int Section)
{
if (Section==1)
{
seSizeBillCode->Text = GetHeadValue("SizeBillCode");
seSizeBillCo->Text = GetHeadValue("SizeBillCo");
seSizeBillBuyer->Text = GetHeadValue("SizeBillBuyer");
seSizeBillBuyerName->Text = GetHeadValue("SizeBillBuyerName");
seSizeBillTel->Text = GetHeadValue("SizeBillTel");
deSizeBillSSoDate->Text = GetHeadValue("SizeBillSSoDate");
deSizeBillGetDate->Text = GetHeadValue("SizeBillGetDate");
seSizeBillDesign->LocateKey(GetHeadValue("SizeBillDesign"));
seSizeBillCloth->LocateKey(GetHeadValue("SizeBillCloth"));
seSizeBillStd->LocateKey(GetHeadValue("SizeBillStd"));
memSizeBillDesignNeed->Text = GetHeadValue("SizeBillDesignNeed");
scSizeBillUser->LocateKey( GetHeadValue("SizeBillUser"));
scSizeBillmUser->LocateKey (GetHeadValue("SizeBillmUser"));
seSizeBillAmt->Text = GetHeadValue("SizeBillAmt");
seSizeBilladAmt->Text = GetHeadValue("SizeBilladAmt");
lbSizeBillSysDate->Caption= GetHeadValue("SizeBillSysDate");
memSizeBillMemo->Text = GetHeadValue("SizeBillMemo");
}
else
{ seSizeBillDLine->Text = GetDetailValue("SizeBillDLine");
memSizeBillDMemo->Text = GetDetailValue("SizeBillDMemo");
//西装
seSizeBillDWSCcloth ->LocateKey(GetDetailValue("SizeBillDWSCcloth"));
seSizeBillDWSCdesign ->LocateKey( GetDetailValue("SizeBillDWSCdesign"));
seSizeBillDWSCqty ->Text = GetDetailValue("SizeBillDWSCqty");
seSizeBillDWSCstdSize-> LocateKey(GetDetailValue("SizeBillDWSCstdSize"));
seSizeBillDWSCspec ->Text = GetDetailValue("SizeBillDWSCspec");
seSizeBillDWSClength ->Text = GetDetailValue("SizeBillDWSClength");
seSizeBillDWSCBlength ->Text = GetDetailValue("SizeBillDWSCBlength");
seSizeBillDWSCcir ->Text = GetDetailValue("SizeBillDWSCcir");
seSizeBillDWSCsquar ->Text = GetDetailValue("SizeBillDWSCsquar");
seSizeBillDWSCcuff ->Text = GetDetailValue("SizeBillDWSCcuff");
seSizeBillDWSCbelly ->Text = GetDetailValue("SizeBillDWSCbelly");
seSizeBillDWSCcirw ->Text = GetDetailValue("SizeBillDWSCcirw");
seSizeBillDWSCinstep->Text = GetDetailValue("SizeBillDWSCinstep");
seSizeBillDWSCskirt->Text = GetDetailValue("SizeBillDWSCskirt");
seSizeBillDWSCneck->Text = GetDetailValue("SizeBillDWSCneck");
seSizeBillDWSCcud->Text = GetDetailValue("SizeBillDWSCcud");
seSizeBillDWSCwaist->Text = GetDetailValue("SizeBillDWSCwaist");
//马甲
seSizeBillDWKcloth ->LocateKey( GetDetailValue("SizeBillDWKcloth"));
seSizeBillDWKdesign ->LocateKey( GetDetailValue("SizeBillDWKdesign"));
seSizeBillDWKqty ->Text = GetDetailValue("SizeBillDWKqty");
seSizeBillDWKstdSize ->LocateKey( GetDetailValue("SizeBillDWKstdSize"));
seSizeBillDWKspec ->Text = GetDetailValue("SizeBillDWKspec");
seSizeBillDWKFLength ->Text = GetDetailValue("SizeBillDWKFlength");
seSizeBillDWKBLength ->Text = GetDetailValue("SizeBillDWKBlength");
seSizeBillDWKcir ->Text = GetDetailValue("SizeBillDWKcir");
seSizeBillDWKbelly ->Text = GetDetailValue("SizeBillDWKbelly");
seSizeBillDWKskirt->Text = GetDetailValue("SizeBillDWKskirt");
seSizeBillDWKwaist->Text = GetDetailValue("SizeBillDWKwaist");
//西裤
seSizeBillDWSTcloth ->LocateKey(GetDetailValue("SizeBillDWSTcloth"));
seSizeBillDWSTdesign ->LocateKey( GetDetailValue("SizeBillDWSTdesign"));
seSizeBillDWSTqty ->Text = GetDetailValue("SizeBillDWSTqty");
seSizeBillDWSTstdSize ->LocateKey( GetDetailValue("SizeBillDWSTstdSize"));
seSizeBillDWSTspec ->Text = GetDetailValue("SizeBillDWSTspce");
seSizeBillDWSTLength ->Text = GetDetailValue("SizeBillDWSTLength");
seSizeBillDWSTbelly ->Text = GetDetailValue("SizeBillDWSTbelly");
seSizeBillDWSTsterm->Text = GetDetailValue("SizeBillDWSTsterm");
seSizeBillDWSTSH->Text = GetDetailValue("SizeBillDWSTSH");
seSizeBillDWSTSV ->Text = GetDetailValue("SizeBillDWSTSV");
seSizeBillDWSTfore->Text = GetDetailValue("SizeBillDWSTfore");
seSizeBillDBack ->Text = GetDetailValue("SizeBillDback");
seSizeBillDWSTcor->Text = GetDetailValue("SizeBillDWSTcor");
//裙子
seSizeBillDWSScloth ->LocateKey( GetDetailValue("SizeBillDWSScloth"));
seSizeBillDWSSdesign ->LocateKey(GetDetailValue("SizeBillDWSSdesign"));
seSizeBillDWSSqty ->Text = GetDetailValue("SizeBillDWSSqty");
seSizeBillDWSSstdSize ->LocateKey( GetDetailValue("SizeBillDWSSstdSize"));
seSizeBillDWSSspec ->Text = GetDetailValue("SizeBillDWSSspec");
seSizeBillDWSSLength ->Text = GetDetailValue("SizeBillDWSSLength");
seSizeBillDWSSbelly ->Text = GetDetailValue("SizeBillDWSSbelly");
seSizeBillDWSSsterm->Text = GetDetailValue("SizeBillDWSSsterm");
seSizeBillDWSSskirt ->Text = GetDetailValue("SizeBillDWSSskirt");
seSizeBillDWSSqi->Text = GetDetailValue("SizeBillDWSSqi");
}
}
//---------------------------------------------------------------------------
void __fastcall TfrmSizeBill::SendDataToComObject(int Section)
{
AnsiString s;
if (Section==1)
{
if ( Trim(seSizeBillCode->Text)=="" )
throw Exception("尺码单号不能为空!");
if (deSizeBillSSoDate->Text=="" )
throw Exception("订货日期不能为空!");
if (deSizeBillGetDate->Text=="" )
throw Exception("取货日期不能为空!");
if(deSizeBillSSoDate->Text>deSizeBillGetDate->Text)
throw Exception("取货日期不能早于订货日期!");
SetHeadValue("SizeBillCode", seSizeBillCode->Text);
SetHeadValue("SizeBillCo",seSizeBillCo->Text);
SetHeadValue("SizeBillBuyer",seSizeBillBuyer->Text);
SetHeadValue("SizeBillBuyerName", seSizeBillBuyerName->Text);
SetHeadValue("SizeBillTel",seSizeBillTel->Text);
SetHeadValue("SizeBillSSoDate",deSizeBillSSoDate->Text);
SetHeadValue("SizeBillGetDate", deSizeBillGetDate->Text );
SetHeadValue("SizeBillDesign",seSizeBillDesign->ItemData[cbItem2]);
SetHeadValue("SizeBillCloth",seSizeBillCloth->ItemData[cbItem2]);
SetHeadValue("SizeBillStd",seSizeBillStd->ItemData[cbItem2]);
SetHeadValue("SizeBillDesignNeed",memSizeBillDesignNeed->Text);
SetHeadValue("SizeBillUser",scSizeBillUser->ItemData[cbItem2] );
SetHeadValue("SizeBillmUser", scSizeBillmUser->ItemData[cbItem2]);
if(seSizeBillAmt->Text.Trim() == "")
seSizeBillAmt->Text = "0";
SetHeadValue("SizeBillAmt",seSizeBillAmt->Text);
if(seSizeBilladAmt->Text.Trim() == "")
seSizeBilladAmt->Text = "0";
SetHeadValue("SizeBilladAmt",seSizeBilladAmt->Text);
SetHeadValue("SizeBillSysDate",lbSizeBillSysDate->Caption);
SetHeadValue("SizeBillMemo",memSizeBillMemo->Text);
}
else
{
SetDetailValue("SizeBillDLine", seSizeBillDLine->Text);
SetDetailValue("SizeBillDMemo", memSizeBillDMemo->Text);
//西装
SetDetailValue("SizeBillDWSCcloth", seSizeBillDWSCcloth->ItemData[cbItem2]);
SetDetailValue("SizeBillDWSCdesign", seSizeBillDWSCdesign->ItemData[cbItem2]);
if(seSizeBillDWSCqty->Text.Trim() == "")
seSizeBillDWSCqty->Text = "0";
SetDetailValue("SizeBillDWSCqty", seSizeBillDWSCqty ->Text);
SetDetailValue("SizeBillDWSCstdSize", seSizeBillDWSCstdSize->ItemData[cbItem2]);
SetDetailValue("SizeBillDWSCspec", seSizeBillDWSCspec->Text);
SetDetailValue("SizeBillDWSClength",seSizeBillDWSClength->Text);
SetDetailValue("SizeBillDWSCBlength",seSizeBillDWSCBlength->Text);
SetDetailValue("SizeBillDWSCcir",seSizeBillDWSCcir->Text);
SetDetailValue("SizeBillDWSCsquar",seSizeBillDWSCsquar->Text);
SetDetailValue("SizeBillDWSCcuff",seSizeBillDWSCcuff->Text);
SetDetailValue("SizeBillDWSCbelly",seSizeBillDWSCbelly->Text);
SetDetailValue("SizeBillDWSCcirw",seSizeBillDWSCcirw->Text);
SetDetailValue("SizeBillDWSCinstep",seSizeBillDWSCinstep->Text);
SetDetailValue("SizeBillDWSCskirt",seSizeBillDWSCskirt->Text);
SetDetailValue("SizeBillDWSCneck",seSizeBillDWSCneck->Text);
SetDetailValue("SizeBillDWSCcud",seSizeBillDWSCcud->Text);
SetDetailValue("SizeBillDWSCwaist",seSizeBillDWSCwaist->Text);
//马甲
SetDetailValue("SizeBillDWKcloth", seSizeBillDWKcloth->ItemData[cbItem2]);
SetDetailValue("SizeBillDWKdesign", seSizeBillDWKdesign->ItemData[cbItem2]);
if(seSizeBillDWKqty->Text.Trim() == "")
seSizeBillDWKqty->Text = "0";
SetDetailValue("SizeBillDWKqty", seSizeBillDWKqty ->Text);
SetDetailValue("SizeBillDWKstdSize", seSizeBillDWKstdSize->ItemData[cbItem2]);
SetDetailValue("SizeBillDWKspec", seSizeBillDWKspec->Text);
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?