炼铁工程一对多窗体解决方案：快速构建与代码精简实践.pdfVIP

一对多窗体—新增、修改、保存、查找、解决方案

经过笔者不懈努力，可以实现无需编码5分钟建立包含新增、修改、保存、查找及数

据有效性检测的一对多窗体解决方案。

优点：1.不管是新增还是修改，只要不点保存统统表示不保存，符合国人思维。

2.通用的查找模块3.通用

的新增修改保存模块

1.二步完成：

1.1.用4分钟按建表向导建立大致符合自己所需主表和，所建表只有一个要求：必须

有ID这个字段，且必须是自动编号（其实这个要求也是微软所推荐的）并按向导提示建

立录入窗体，修改窗体将ID控件隐藏。

1.2.用1分钟在主窗体中“歌逸ACCESS开发平台(普及版Build1.8).dev并拷贝

toolbar和ImageList两个控件及下面代码：只需修改6处即可

ConststrmastertblAsStringtblSPO‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑修改1Conststrmasterfld

AsString=ConststrmasterautofldAsStringPONO‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑

修改2ConststrmastercheckfldsAsString=CustomerID‑‑‑‑‑‑‑修改3Const

strchildtblAsString=tblSPODetail‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑修改4ConststrLinkchildfld

AsString

SPOID‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑修改5

‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑以下全部为系统代码，修改‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑

PrivateSub窗体打开(CancelAsInteger)

gy_MFInitialFormMe,True

gy_MFFormAddRDtblname=strmastertbl

Me(strmasterautofld)=自动编号

Me.frmChild.Form.AllowAdditions=False

EndSub

PrivateSub窗体调整大小()OnErrorGoTo错误处理程序Err_Form_Resize

Me.linHeader.Width=Me.WindowWidth:Me.linBottom.Width

Me.WindowWidthMe.ToolbarFrm.LeftMe.WindowWidth‑5100

gy_ResizeSubfrmMe.frmChild

Exit_Form_Resize:ExitSubErr_Form_Resize:

ResumeExit_Form_ResizeEndSub私有子过程

ToolbarFrm_ButtonClick(ByValButtonAsObject)

DimstrfilterAsStringSelectCaseButton

一对多窗体—新增、修改、保存、查找、解决方案

经过笔者不懈努力,可以实现不会代码5分钟建立集新增、修改、保存、查找，数据有

效性检测一对多窗体解决方案。

优点:1.不管是新增还是修改,只要不点保存统统表示不保存，符合国人思维.

2.通用的查找模块

3.通用的新增修改保存模块

1.二步完成：

1.1.用4分钟按建表向导建立大致符合自己所需主表和，所建表只有一个要求：必须

有ID这个字段，且必须是自动编号（其实这个要求也是微软所推荐的）并按向导提示建

立录入窗体，修改窗体将ID控件隐藏。

1.2.用1分钟在主窗体中“歌逸ACCESS