📄 midesigner.cpp
字号:
}
MastData->MIBasePPE->Value=MastData->UserName;
MastData->MIBasePPEDate->Value =Date();
if(MastData->MIBaseSource->State==dsEdit||MastData->MIBaseSource->State == dsInsert)
{
MastData->MIBase->Post();
}
MastData->MIBase->Refresh();
MastData->MIDrill->Refresh();
MastData->MIRoute->Refresh();
MastData->RouteDetail->Refresh();
MIBaseStateChange(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::BitBtnCancelClick(TObject *Sender)
{
if(MastData->MIBaseSource->State==dsEdit||MastData->MIBaseSource->State == dsInsert)
{
MastData->MIBase->Cancel();
}
/* if(MastData->HaveInsertRoute)
{
MastData->RecordNo=MastData->RecordNo-1;
MastData->InsertRoute=true;
MastData->InsertRouteDetail();
MastData->InsertRoute=false;
MastData->HaveInsertRoute=false;
MastData->RouteDetail->ApplyUpdates();
MastData->Database->Commit();
MastData->Database->StartTransaction();
MastData-> RouteDetail->CommitUpdates();
}
*/
MIBaseStateChange(Sender);
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::FormShow(TObject *Sender)
{
//MainMenuForm->MasterDataSource->DataSet=MastData->MIBase;
//MainMenuForm->DetailDataSource->DataSet=MastData->MIFlow;
//DBGrid2.Columns[5]->Visible=false;
MastData->MIBaseSource->OnStateChange =MIBaseStateChange;
MastData->MIBaseSource->OnDataChange=MIBaseDataChange;
MastData->MIRouteSource->OnDataChange=MIRouteDataChange;
PageControl1->ActivePage=TabSheet1;
MastData->StandardRoute->Open();
MastData->MIBase->Open();
MastData->MIBase->Refresh();
MIBaseStateChange(Sender);
DBComboBox1->Items->Clear();
DBComboBox2->Items->Clear();
DBComboBox3->Items->Clear();
// DBComboBox4->Items->Clear();
MastData->Prepreg->Open();
while (!MastData->Prepreg->Eof)
{
DBComboBox1->Items->Add(MastData->Prepreg->FieldByName("Name")->AsString);
DBComboBox2->Items->Add(MastData->Prepreg->FieldByName("Name")->AsString);
DBComboBox3->Items->Add(MastData->Prepreg->FieldByName("Name")->AsString);
// DBComboBox4->Items->Add(MastData->Prepreg->FieldByName("Name")->AsString);
MastData->Prepreg->Next();
}
MastData->Prepreg->Close();
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::CopySampleRoute1Click(TObject *Sender)
{
if(FindSampleRouteForm->ShowModal()==mrOk)
{
try
{
MastData->InsertingMIRoute=true;
MastData->DeleteItems(MastData->MIRoute);
MastData->RouteDetail->ApplyUpdates();
MastData->MIRoute->ApplyUpdates();
MastData->Database->Commit();
MastData->Database->StartTransaction();
MastData->MIRoute->CommitUpdates();
MastData->RouteDetail->CommitUpdates();
MastData->RouteDetail->EnableControls();
MastData->SampleRoute->CachedUpdates=false;
MastData->SampleRoute->Open();
MastData->SampleRoute->GotoCurrent(MastData->SampleRouteLookup);
MastData->SampleRouteDetail->First();
while(!MastData->SampleRouteDetail->Eof)
{
MastData->MIRoute->Append();
MastData->MIRoute->Edit();
MastData->MIRouteRouteNo->Value=MastData->SampleRouteDetailItemNo->Value;
MastData->MIRouteRouteCode->Value=MastData->SampleRouteDetailRouteCode->Value;
MastData->MIRoute->Post();
MastData->SampleRouteDetail->Next();
}
}
catch(...)
{
MessageBox(NULL,"您没有增加修改或删除记录的权限..","提示",MB_OK);
MastData->Database->Rollback();
MastData->Database->StartTransaction();
MastData->RouteDetail->CancelUpdates();
MastData->MIRoute->CancelUpdates();
// MIBase->CancelUpdates();
}
MIBaseStateChange(Sender);
MastData->SampleRoute->CachedUpdates=true;
MastData->InsertingMIRoute=false;
}
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::FormClose(TObject *Sender,
TCloseAction &Action)
{
/* MastData->RouteDetail->Close();
MastData->MIRoute->Close();
MastData->MIBase->Close();
*/
MastData->MIBaseSource->OnStateChange = NULL;
MastData->MIBaseSource->OnDataChange=NULL;
MastData->MIRouteSource->OnDataChange=NULL;
Action=caFree;
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::FormCloseQuery(TObject *Sender,
bool &CanClose)
{
if(BitBtnPost->Enabled)
{
if(MessageBox(NULL,"基本资料没有存盘,是否保存?", "警告", MB_YESNO) == IDYES)
MastData->MIBaseAfterPost(MastData->MIBase);
else
MastData->MIBaseAfterCancel(MastData->MIBase);
}
CanClose=true;
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::CopySampleRouteParamter1Click(
TObject *Sender)
{
if(MastData->RouteDetail->RecordCount!=0)
{
if(Application->MessageBox("确认删除原先所有参数及内容？..","第一次警告",MB_OKCANCEL+MB_DEFBUTTON2)==IDOK)
{
if(Application->MessageBox("再次确认删除原先所有参数及内容？..","第二次警告",MB_OKCANCEL+MB_DEFBUTTON2)==IDOK)
{
MastData->DeleteRouteDetail(MastData->RouteDetail);
}
}
}
else
{
if(FindStandardRouteForm->ShowModal()==mrOk)
{
MastData->InsertingRouteDetail=true;
try
{
MastData->StandardRoute->Open();
MastData->StandardRoute->CachedUpdates=false;
MastData->StandardRoute->GotoCurrent(MastData->StandardRouteLookup);
MastData->StandardRoute->CachedUpdates=true;
MastData->StandardRouteParam->Open();
MastData->StandardRouteParam->First();
while(!MastData->StandardRouteParam->Eof)
{
MastData->RouteDetail->Append();
MastData->RouteDetail->Edit();
MastData->RouteDetailItemNo->Value=MastData->StandardRouteParamItemNo->Value;
MastData->RouteDetailName->Value=MastData->StandardRouteParamParameter->Value;
MastData->RouteDetail->Post();
MastData->StandardRouteParam->Next();
}
MastData->RouteDetail->ApplyUpdates();
MastData->Database->Commit();
MastData->Database->StartTransaction();
MastData->RouteDetail->CommitUpdates();
BitBtnPostClick(Sender);
}
catch(...)
{
MessageBox(NULL,"您没有增加修改或删除记录的权限..","提示",MB_OK);
MastData->Database->Rollback();
MastData->Database->StartTransaction();
MastData->RouteDetail->CancelUpdates();
}
MastData->InsertingRouteDetail=false;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::PreviewRouteReport1Click(TObject *Sender)
{
int ReportNo;
ReportNo=0; //基本类型
if(MastData->MIRouteRouteCode->Value=="BCUT"||MastData->MIRouteRouteCode->Value=="PSBD"||MastData->MIRouteRouteCode->Value=="LGVC"||MastData->MIRouteRouteCode->Value=="SMVC")
{
ReportNo=1; //BCUT
}
if(MastData->MIRouteRouteCode->Value=="FDRL")
{
ReportNo=2;
}
if(MastData->MIRouteRouteCode->Value=="SDRL")
{
ReportNo=3;
}
switch(ReportNo)
{
case 0: MIRepOtherForm->QuickRep1->Preview();break;
case 1: MIRepBCutForm->QuickRep1->Preview();break;
case 2: MIRepFDrlForm->QuickRep1->Preview();break;
case 3: MIRepSDrlForm->QuickRep1->Preview();break;
//......
}
}
//---------------------------------------------------------------------------
void __fastcall TMIDesignerForm::SpeedButton3Click(TObject *Sender)
{
/* MastData->MIBase->DisableControls();
MastData->MIDrill->DisableControls();
MastData->MIRoute->DisableControls();
MastData->RouteDetail->DisableControls();
*/
if(CopyMIForm->ShowModal()==mrOk)
{
MastData->MIDrillLookup->Open();
MastData->MIRouteLookup->Open();
MastData->RouteDetailLookup->Open();
MastData->MIBase->Edit();
MastData->MIBaseCustomerNo->Value=MastData->MIBaseLookupCustomerNo->Value;
MastData->MIBaseCustPartNo->Value=MastData->MIBaseLookupCustPartNo->Value;
MastData->MIBaseBoardNo->Value=MastData->MIBaseLookupBoardNo->Value;
MastData->MIBaseBoardType->Value=MastData->MIBaseLookupBoardType->Value;
MastData->MIBaseBoardX->Value=MastData->MIBaseLookupBoardX->Value;
MastData->MIBaseBoardY->Value=MastData->MIBaseLookupBoardY->Value;
MastData->MIBaseLayer->Value=MastData->MIBaseLookupLayer->Value;
MastData->MIBaseGrade->Value=MastData->MIBaseLookupGrade->Value;
MastData->MIBaseUnitPerSet->Value=MastData->MIBaseLookupUnitPerSet->Value;
MastData->MIBaseCopperFoil->Value=MastData->MIBaseLookupCopperFoil->Value;
MastData->MIBaseCopperFoilNum->Value=MastData->MIBaseLookupCopperFoilNum->Value;
MastData->MIBaseCutX1->Value=MastData->MIBaseLookupCutX1->Value;
MastData->MIBaseCutY1->Value=MastData->MIBaseLookupCutY1->Value;
MastData->MIBaseCutX2->Value=MastData->MIBaseLookupCutX2->Value;
MastData->MIBaseCutY2->Value=MastData->MIBaseLookupCutY2->Value;
MastData->MIBaseUnitPerPanel1->Value=MastData->MIBaseLookupUnitPerPanel1->Value;
MastData->MIBaseUnitPerPanel2->Value=MastData->MIBaseLookupUnitPerPanel2->Value;
MastData->MIBaseSizePerUnitX->Value=MastData->MIBaseLookupSizePerUnitX->Value;
MastData->MIBaseSizePerUnitY->Value=MastData->MIBaseLookupSizePerUnitY->Value;
MastData->MIBaseSizePerSetX->Value=MastData->MIBaseLookupSizePerSetX->Value;
MastData->MIBaseSizePerSetY->Value=MastData->MIBaseLookupSizePerSetY->Value;
MastData->MIBasePrepregA->Value=MastData->MIBaseLookupPrepregA->Value;
MastData->MIBasePrepregANum->Value=MastData->MIBaseLookupPrepregANum->Value;
MastData->MIBasePrepregB->Value=MastData->MIBaseLookupPrepregB->Value;
MastData->MIBasePrepregBNum->Value=MastData->MIBaseLookupPrepregBNum->Value;
MastData->MIBasePrepregC->Value=MastData->MIBaseLookupPrepregC->Value;
MastData->MIBasePrepregCNum->Value=MastData->MIBaseLookupPrepregCNum->Value;
MastData->MIBaseUtilization->Value=MastData->MIBaseLookupUtilization->Value;
MastData->MIBaseMemo->Value=MastData->MIBaseMemo->Value;
//.....
MastData->MIBase->Post();
MastData->MIBase->ApplyUpdates();
MastData->Database->Commit();
MastData->Database->StartTransaction();
MastData->MIBase->CommitUpdates();
//拷入流程数据
MastData->MIRouteLookup->First();
while(!MastData->MIRouteLookup->Eof)
{
MastData->InsertingMIRoute=true;
MastData->MIRoute->Insert();
MastData->MIRoute->Edit();
MastData->MIRouteRouteNo->Value=MastData->MIRouteLookupRouteNo->Value;
MastData->MIRouteRouteCode->Value=MastData->MIRouteLookupRouteCode->Value;
MastData->MIRoutePrice->Value=MastData->MIRouteLookupPrice->Value;
MastData->MIRouteUnit->Value=MastData->MIRouteLookupUnit->Value;
MastData->MIRoutePicture->Value=MastData->MIRouteLookupPicture->Value;
MastData->MIRouteMemo->Value=MastData->MIRouteMemo->Value;
MastData->MIRoute->Post();
MastData->InsertingMIRoute=false;
MastData->MIRoute->ApplyUpdates();
MastData->Database->Commit();
MastData->Database->StartTransaction();
MastData->MIRoute->CommitUpdates();
MastData->MIRoute->First();
while(MastData->MIRouteRouteNo->Value<MastData->MIRouteLookupRouteNo->Value)
{
MastData->MIRoute->Next();
}
//拷入流程参数
MastData->RouteDetailLookup->First();
if(MastData->MIRouteLookupRouteCode->Value=="FDRL"||MastData->MIRouteLookupRouteCode->Value=="SDRL")
{
if(MastData->MIRouteLookupRouteCode->Value=="FDRL")
{
//一次钻
MastData->MIDrillLookup->Filtered=true;
MastData->MIDrillLookup->Filter="DrillType='FDRL'";
}
else
{
if(MastData->MIRouteLookupRouteCode->Value=="SDRL")
{
//二次钻
MastData->MIDrillLookup->Filtered=true;
MastData->MIDrillLookup->Filter="DrillType='SDRL'";
}
}
MastData->MIDrillLookup->First();
while(!MastData->MIDrillLookup->Eof)
{
MastData->MIDrill->Insert();
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -