一窗多用，减少窗体设计麻烦

jackysu78 · 发表于 2011-7-12 02:45:02

本帖最后由 jackysu78 于 2011-7-12 14:06 编辑

设计一个系统，难免会有一些基础资料需要维护，为了避免设计窗体麻烦，附件方式与大家共勉。
其中有些代码来自论坛，不署名感谢！
另外也有个不是问题的问题，呵呵。即绑定控件的保存和撤消，如附件在设计模式下好象没问题，可在系统运行模式下撤消不起作用，版主有空请指点修正一下啰，不胜感谢！

caoguangyao · 发表于 2011-7-12 09:28:35

楼主的大作，看了后，觉得白花去了我两个银子，不得不说上两句，其它不说，调整大小事件，一个简单的东西，却要画蛇添足，还要去写个函数FormAutoResize(Form As Form, ByRef CltInit As Collection, ByRef Initialized As Boolean)，也不知是你自己写的还是抄上去的？
送楼主一个调整大小事件的代码：
Private Sub Form_Resize()
Me.Child13.Width = Me.InsideWidth - Me.Child13.Left
Me.Child13.Height = Me.InsideHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height - Me.Child13.Top
Me.txtdatasr.Height = Me.InsideHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height - Me.txtdatasr.Top
End Sub

wgh3g · 发表于 2011-7-12 07:18:12

看看

huangqinyong · 发表于 2011-7-12 07:32:29

看看

xie62 · 发表于 2011-7-12 07:40:31

roych · 发表于 2011-7-12 11:52:41

本帖最后由 roych 于 2011-7-12 13:27 编辑

太复杂了，每次都得删除旧查询，建立新的临时查询，修改子窗体数据源。个人以为，还不如改为选项组，多加两个子窗体来做。
对于LZ提到的这个不是问题的问题，这里给个不是办法的办法，不妨把一下代码贴入保存记录的按钮上试试：

If MsgBox("是否保存资料？单击取消将撤销本次输入。", vbOKCancel + vbQuestion, "提示") = vbOK Then
DoCmd.RunCommand acCmdSaveRecord
Else
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdUndo
End If

复制代码

jackysu78 · 发表于 2011-7-12 13:56:41

回复 caoguangyao 的帖子

第一次试试赚钱的滋味，目的不是为了赚钱，呵呵。
调整大小的这个代码我也知道，只是不想每个窗体去修改代码，通用函数自有它的方便。
不管白猫黑猫，捉到老鼠就是好猫。
个人到论坛就是为了学习，学以致用而已。

jackysu78 · 发表于 2011-7-12 13:58:19

回复 roych 的帖子

谢谢！达到目的有很多方法，这个只是其中的一种，这种方法我想还是比较适用基础资料维护数量较少、频率较小的案例。

roych · 发表于 2011-7-12 17:12:59

我的做法是：对于不太复杂的窗体，采取选项组；过于复杂的窗体，则考虑树状目录（TreeView）。无论怎么说，代码调试并非一件愉快的事情。能不用代码时，我尽量不用。
当然，也只是个人看法而已，至于是否适合大家，我可没说过。

caoguangyao · 发表于 2011-7-12 20:57:28

"不管白猫黑猫，捉到老鼠就是好猫。"
“白猫黑猫”，也不知是哪只捉到的
本人还是觉得楼主有“虚伪”之态
君子生财，取之有道

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[窗体] 一窗多用，减少窗体设计麻烦

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)