2023年7月19日发(作者：)

wpf如何实现窗⼝浮动_如何实现⼯作表数据与UserForm窗⼝的交互，显⽰第⼀条记录...⼤家好，我们今天继续讲解VBA数据库解决⽅案，今⽇讲解的是第77讲:⼯作表数据与UserForm窗⼝的交互：第⼀条记录的显⽰。从这讲开始，我将利⽤7讲的时间，给⼤家详细讲解⼀个⼯作表数据库的准实例，虽然是⼩型的⼯程，但⿇雀虽⼩，五脏俱全。⼀些必要的操作都有，其中还会涉及到窗体的设计，按钮的设计等等内容，可以说，如果你需要管理的数据字段和我的例⼦相同的话，基本上可以不做修改就可以直接使⽤。由于此⼯程内容较多，代码也较多，还有窗体的设计，我只能⼀步⼀步的讲解，最后再展⽰给⼤家最后总的⼯程内容。好了，我们今⽇的内容是实现⼯作表内容如何体现在UserForm窗⼝，先实现第⼀条记录的体现。思路：①⾸先建⽴⼀个UserForm窗⼝，然后在上⾯设计⽂本框⽤于装载数据，按钮⽤于指令的下达。②在弹出UserForm窗⼝后，EXCEL⽂件要隐藏。③由于我的窗体中会陆续增加很多按钮，要根据实际的要求，每次起作⽤的按钮不⼀样。下⾯是⼯作表的数据：下⾯我们来实现我们的⽬的：⾸先建⽴⼀个窗⼝，由于我的设计时⼀次调试完成的，本讲只讲解本讲涉及到的内容，窗⼝如下：下⾯看我的代码：1 进⼊交互窗体界⾯：Sub mynzRecords_77() '将⼯作表数据变成记录集，并将第⼀条数据显⽰到UserForm窗⼝e = d Sub2 推出按钮的代码：Private Sub CommandButton2_Click() '退出Unload e = TrueEnd Sub3 开始按钮的代码：Private Sub CommandButton3_Click() '开始按钮Dim cnADO, rsADO As ObjectDim strPath, strSQL As StringSet cnADO = CreateObject("tion")Set rsADO = CreateObject("set")strPath = "provider=.12.0;extended properties='excel 12.0;hdr=yes;imex=1';" _& "data source=" & strPathstrSQL = "SELECT * FROM [数据7$]" strSQL, cnADO, 1, 3If Count > 0 = (0) = (1) = (2)End et rsADO = NothingSet cnADO = NothingIf Right(, 1) = 2 Then '下⼀条d = TrueEnd IfIf Right(, 1) = 3 Then '最后⼀条d = TrueEnd IfIf Right(, 1) = 5 Then '编辑记录d = d = d = TrueEnd IfIf Right(, 1) = 8 Then '删除d = d = d = True '删除记录End IfEnd SubPrivate Sub UserForm_Activate()usIf Right(, 1) = 1 Then '第⼀条记录显⽰d = False '下⼀条记录d = False '最后⼀条记录d = False '编辑记录d = False '查找记录d = False '删除记录d = False '保存记录d = False '录⼊记录End IfIf Right(, 1) = 2 Then '下⼀条记录d = False '下⼀条记录d = False '最后⼀条记录d = False '编辑记录d = False '查找记录d = False '删除记录d = False '保存记录d = False '录⼊记录End IfIf Right(, 1) = 3 Then '显⽰最后记录d = False '下⼀条记录d = False '最后⼀条记录d = False '编辑记录d = False '查找记录d = False '删除记录d = False '保存记录d = False '录⼊记录End IfIf Right(, 1) = 5 Then '显⽰编辑记录d = False '下⼀条记录d = False '最后⼀条记录d = False '编辑记录d = False '查找记录d = False '删除记录d = False '保存记录d = False '录⼊记录d = d = d = FalseEnd IfIf Right(, 1) = 6 Then '录⼊d = False '开始d = False '下⼀条记录d = False '最后⼀条记录d = False '编辑记录d = False '查找记录d = False '删除记录d = False '保存记录End IfIf Right(, 1) = 7 Then '查找d = False '开始d = False '下⼀条记录d = False '最后⼀条记录d = False '编辑记录'd = False '查找记录d = False '删除记录d = False '保存记录d = False '录⼊记录d = d = FalseEnd IfIf Right(, 1) = 8 Then '删除' d = False '开始d = False '下⼀条记录d = False '最后⼀条记录d = False '编辑记录d = False '查找记录d = False '删除记录d = False '保存记录d = False '录⼊记录d = d = d = FalseEnd IfEnd Sub代码截图：代码重点讲解：1 上述代码实现了窗体和⼯作表数据的交互，将⼯作表数据显⽰在窗体上。2 e = 点击进⼊窗体时，EXCEL⽂件隐藏不可⽤，窗体出现。3 Unload e = True当窗体退出时，EXCEL⽂件可⽤。4 strSQL, cnADO, 1, 3If Count > 0 = (0) = (1) = (2)End If当点击开始时，会建⽴⼯作表ADO的连接，同时记录集打开⼯作表，记录移动到第⼀条，TextBox1显⽰不同的字段。下⾯看代码的运⾏：今⽇内容回向：1 如何控制窗体的显⽰出不同的可⽤按钮？2 为了显⽰记录集，要把记录的各个字段赋值给窗⼝的哪个控件？