📄 commfunction.cpp
字号:
__finally
{
delete m_Rst;
}
}
//---------------------------------------------------
//Name : CheckClassType
//Function :检查指定的TControl类型控件是否是sClassType的派生类
//input : Control 要检测的控件 sClassType要检测的类
//output : 无
//Return : true 是sClassType的派生类
//--------------------------------------------------------------
bool CheckClassType(TControl *Control,AnsiString sClassType)
{
TClass ClassRef;
ClassRef=Control->ClassType();
while (ClassRef!=NULL)
{
if (AnsiString(ClassRef->ClassName())==sClassType)
return true;
ClassRef=ClassRef->ClassParent();
}
return false;
}
//-----------------------------------------------------------------
//Name :EmptyAll
//Function :清空指定容器控件上所有输入控件中的内容
//input : ContainerControl 容器控件名 如 Form1 Panel1等
//output : 无
//Return : 无
//-----------------------------------------------------
void EmptyAll(TWinControl *ContainerControl)
{
int j;
for(int i=0;i<ContainerControl->ControlCount ;i++)
{
TempControl=ContainerControl->Controls[i];
for (j=0;j<CONTROLTYPECOUNT;j++)
{
if (CheckClassType(TempControl,arrControlGroup[j]))
switch (j)
{
case 0: //TCustomEdit
dynamic_cast<TEdit *>(TempControl)->Clear();
break;
case 1:
dynamic_cast<TCustomComboBox *>(TempControl)->Clear();
break;
case 2: //TCheckBox
dynamic_cast<TCheckBox *>(TempControl)->Checked=false;
break;
case 3:
dynamic_cast<TCustomMemo *>(TempControl)->Clear();
break;
case 4:
dynamic_cast<TDateEdit *>(TempControl)->Text="";
break;
} //swithch
}//for
}//for
}
void StartWaitForm(AnsiString Msg)
{
Screen->Cursor=crHourGlass;
FWaitMsg=new TWaitMsg(Application);
FWaitMsg->Title="欢迎使用SD-ERP";
FWaitMsg->AniFile="";
FWaitMsg->WaitMessage=Msg;
FWaitMsg->Show();
Application->ProcessMessages();
}
void EndWaitForm()
{
try{
if(FWaitMsg!=NULL)
delete FWaitMsg;
FWaitMsg=NULL;
}
__finally
{
Screen->Cursor=crDefault;
}
}
bool ShowUpdateMessage(int ClassName,int UpdateType)
{
AnsiString UpdateMsg;
switch(ClassName)
{
//System
case euSdCompany:
UpdateMsg="公司信息";
break;
case euSdTable:
UpdateMsg="系统表结构信息";
break;
case euSdModule:
UpdateMsg="系统模块信息";
break;
case euSdUserGroup:
UpdateMsg="用户组信息";
break;
case euSdUser:
UpdateMsg="操作员信息";
break;
case euSdForm:
UpdateMsg="系统窗体信息";
break;
case euSdParameter:
UpdateMsg="系统参数信息";
break;
case euSdClass:
UpdateMsg="系统类型信息";
break;
case euSdRight:
UpdateMsg="操作员权限信息";
break;
case euSdFormQuery:
UpdateMsg="窗体查询信息";
break;
//CommonData
case euSdFc:
UpdateMsg="财务月份信息";
break;
case euSdTax:
UpdateMsg="税码信息";
break;
case euSdCurrency:
UpdateMsg="货币信息";
break;
case euSdPayMode:
UpdateMsg="付款方式信息";
break;
case euSdSettleMode:
UpdateMsg="结算方式信息";
break;
case euSdUnit:
UpdateMsg="计量单位信息";
break;
case euSdNoteBook:
UpdateMsg="快速录入本信息";
break;
case euSdTransMode:
UpdateMsg="运输方式信息";
break;
case euSdDept:
UpdateMsg="部门信息";
break;
case euSdExpense:
UpdateMsg="费用类别信息";
break;
case euSdDeliver:
UpdateMsg="交货方式信息";
break;
case euSdArea:
UpdateMsg="地区信息";
break;
case euSdTrade:
UpdateMsg="行业类型信息";
break;
case euSdRate:
UpdateMsg="每月汇率信息";
break;
//Inventory
case euSdPmpc:
UpdateMsg="物料分类码信息";
break;
// case euSdGoods:
// UpdateMsg="物料信息";
// break;
case euSdSth:
UpdateMsg="仓库信息";
break;
case euSdLoc:
UpdateMsg="货位信息";
break;
case euSdImReason:
UpdateMsg="库存操作原因信息";
break;
case euSdBatch:
UpdateMsg="批次信息";
break;
case euSdAbc:
UpdateMsg="ABC管理信息";
break;
case euSdPosType:
UpdateMsg="收发存类型信息";
break;
case euSdLg:
UpdateMsg="货位物料信息";
break;
case euSdTrReason:
UpdateMsg="仓库领退料原因信息";
break;
case euSdDiscard:
UpdateMsg="仓库报废原因信息";
break;
case euSdKeeper:
UpdateMsg="仓管员信息";
break;
case euSdMacc:
UpdateMsg="库存台帐信息";
break;
case euSdAlfh:
UpdateMsg="调拨单信息";
break;
case euSdGosh:
UpdateMsg="出库单信息";
break;
case euSdPish:
UpdateMsg="入库单信息";
break;
case euSdSr:
UpdateMsg="报废原因信息";
break;
case euSdTsh:
UpdateMsg="盘点单信息";
break;
case euSdScraph:
UpdateMsg="报废单信息";
break;
//Purchase
case euSdBuyer:
UpdateMsg="采购员信息";
break;
case euSdCredit:
UpdateMsg="信誉度信息";
break;
case euSdPgd:
UpdateMsg="供应商物料信息";
break;
case euSdPmode:
UpdateMsg="采购方式信息";
break;
case euSdPquote:
UpdateMsg="采购报价单信息";
break;
case euSdPsd:
UpdateMsg="供应商结算方式信息";
break;
case euSdPsite:
UpdateMsg="供应商交货地点信息";
break;
case euSdPtype:
UpdateMsg="供应商类型信息";
break;
case euSdSupply:
UpdateMsg="供应商信息";
break;
case euSdPoh:
UpdateMsg="采购订单信息";
break;
case euSdPrech_P_I:
UpdateMsg="收货单(按订单)信息";
break;
case euSdPrech_G_I:
UpdateMsg="收货单(按物料)信息";
break;
case euSdPrech_N_I:
UpdateMsg="收货单(非计划)信息";
break;
case euSdPreth:
UpdateMsg="采购退货单信息";
break;
case euSdZth:
UpdateMsg="采购在途单信息";
break;
case euSdUlh:
UpdateMsg="采购催货函信息";
break;
case euSdRpoh:
UpdateMsg="请购单信息";
break;
case euSdRpoCr:
UpdateMsg="请购单取消原因信息";
break;
case euSdPretRr:
UpdateMsg="采购退货原因信息";
break;
case euSdPivoh:
UpdateMsg="采购发票信息";
break;
case euSdPeriod:
UpdateMsg="采购计划周期信息";
break;
case euSdBplan:
UpdateMsg="采购计划信息";
break;
//Sale
case euSdSsite:
UpdateMsg="客户交货地点信息";
break;
case euSdSexch:
UpdateMsg="销售换货单信息";
break;
case euSdSivoh:
UpdateMsg="销售发票信息";
break;
case euSdSrewh:
UpdateMsg="销售返修单信息";
break;
case euSdSzrh:
UpdateMsg="销售折让信息";
break;
case euSdSmode:
UpdateMsg="销售方式信息";
break;
case euSdSaler:
UpdateMsg="销售员信息";
break;
case euSdSsd:
UpdateMsg="客户结算方式信息";
break;
case euSdSgd:
UpdateMsg="客户物料信息";
break;
case euSdSquote:
UpdateMsg="销售报价单信息";
break;
case euSdSpt:
UpdateMsg="销售价格类型信息";
break;
case euSdClient:
UpdateMsg="客户信息";
break;
case euSdSoh:
UpdateMsg="销售订单信息";
break;
case euSdSogh:
UpdateMsg="销售发货单信息";
break;
case euSdStockuph:
UpdateMsg="销售备货单信息";
break;
case euSdStype:
UpdateMsg="客户类型信息";
break;
case euSdSretRr:
UpdateMsg="销售退货原因信息";
break;
case euSdSrewRr:
UpdateMsg="销售返修原因信息";
break;
case euSdSexcRr:
UpdateMsg="销售换货原因信息";
break;
case euSdSreth:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -