强分题目!!很急!!有了答案立刻结帖

wangjiayan 2003-12-13 08:35:45
按下一个窗体中的“查询按钮”打开“查询”窗体的代码如何编写
按下查讯窗体中的返回按钮,返回原来的窗体的代码如和编写
...全文
11 点赞 收藏 25
写回复
25 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
kmzs 2003-12-17
很全了
回复
mjznet 2003-12-17

在查询窗体中可以定义公有变量,用于返回用户在窗体中的操作情况
比如定义的变量是 public m_value as boolean


主窗体 --- 打开查询窗体的代码
____________________________________________________________
___ frmSearch.show 1 '有模式打开 :p
___ if frmSearch.m_value then 'Do something 查看返回值
___ unload frmSearch '关查询窗体 :)
____________________________________________________________

查询窗体 --- 用于返回的代码
____________________________________________________________
___ me.m_value = true '设置返回值
___ me.hide '返回主窗体 :o
____________________________________________________________
回复
muchtrouble2003 2003-12-16
在第一个窗体的查询按钮写
private sub cmdchaxue_click()
查询.show
unload 查询窗体
end sub
在第二个窗体及查询窗体的返回写入
private sub cmdfanghui_click()
查询窗体.show
unload 查询
end sub
回复
coolds 2003-12-16
不懂。。。。。
.show
还是msgbox啊?
估计是.show
回复
feilong215 2003-12-16
...
回复
lxcc 2003-12-16
frmQuery.show
...
unload me
回复
aalei 2003-12-16
类似

Dim str As String

str = InputBox("请输入条件!格式<字段=条件>", "查询什么")
If Not str = "" Then



djkData.Recordset.FindFirst str '查找序号的记录进行修改

Else
MsgBox "请保证输入正确!", 48, "出错啦!"
End If
'************
If djkData.Recordset.NoMatch Then
MsgBox "暂时不能找到记录的原始材料,请保证输入正确!", 48, "出错啦!"
djkData.Recordset.MoveLast
Else
'找不到记录的提示
回复
evbsky 2003-12-16
楼主写的太简单了,连要查询什么东西都不知道。
回复
zibin43 2003-12-15
在第一个窗体的查询按钮写
private sub cmdchaxue_click()
查询.show
unload 查询窗体
end sub
在第二个窗体及查询窗体的返回写入
private sub cmdfanghui_click()
查询窗体.show
unload 查询
end sub
回复
笑对最好 2003-12-15
up
回复
maculasoft 2003-12-15
窗体.show 1

返回的时候
unload me
回复
xzp1030 2003-12-15
Private Sub Command1_Click()
查询窗体.Show 1
End Sub


Private Sub FanHui_Click()
查询窗体.Hide
End Sub
回复
lndlwwh830 2003-12-15
说明白点呀
回复
lk_cool 2003-12-15
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Dim str As String

str = InputBox("请输入条件!格式<字段=条件>", "查询什么")
If Not str = "" Then



djkData.Recordset.FindFirst str '查找序号的记录进行修改

Else
MsgBox "请保证输入正确!", 48, "出错啦!"
End If
'************
If djkData.Recordset.NoMatch Then
MsgBox "暂时不能找到记录的原始材料,请保证输入正确!", 48, "出错啦!"
djkData.Recordset.MoveLast
Else
'找不到记录的提示
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
在第一个窗体的查询按钮写
private sub cmdchaxue_click()
查询.show
unload 查询窗体
end sub
在第二个窗体及查询窗体的返回写入
private sub cmdfanghui_click()
查询窗体.show
unload 查询
end sub

""""""""""""""""""""""""""""""""""""""""""""""""""""""
在调用查询窗体的代码中:
Private Sub Command1_Click()'查询按钮
Dim frmQuarry As New Form2

frmQuarry.Show vbModal, Me
End Sub

在查询窗体中:
Private Sub Command1_Click()'返回按钮
Unload Me
End Sub
""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'查询按钮
Private Sub Command1_Click()
Form2.Show 'Form2是查询窗体

End Sub

'“查询”窗体的返回按钮
Private Sub Command1_Click()
Form1.Show 'Form1是返回原来的窗体
Form1.SetFocus
Unload Me
End Sub

'***************************************
^_^ 看完帖子请结帐哦.
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
没怎么懂你的意思,看看是不是这样的

'打开查询窗体
Private Sub CmdChaXun_Click()
Frm_ChaXun.Show
End Sub
'查询窗体里有个返回按钮
Private Sub CmdBack_Click()
Frm_Main.Show
End Sub
"""""""""""""""""""""""""""""""""""""""""""""""""""""""
我觉得都行!
回复
fulaoxiao3000 2003-12-15
........,高深
回复
zhangzhijian 2003-12-14
可以在模块中定义一个公共变量,每次分别调用这个变量,(把值附进去,要的时候可以直接取)
回复
海牛 2003-12-14
在调用查询窗体的代码中:
Private Sub Command1_Click()'查询按钮
Dim frmQuarry As New Form2

frmQuarry.Show vbModal, Me
End Sub

在查询窗体中:
Private Sub Command1_Click()'返回按钮
Unload Me
End Sub
回复
eastbug 2003-12-14
'查询按钮
Private Sub Command1_Click()
Form2.Show 'Form2是查询窗体

End Sub

'“查询”窗体的返回按钮
Private Sub Command1_Click()
Form1.Show 'Form1是返回原来的窗体
Form1.SetFocus
Unload Me
End Sub

'***************************************
^_^ 看完帖子请结帐哦.
回复
zxlkxy 2003-12-13
大家都没有看明白!
回复
go_my_sky 2003-12-13
frmC.show 1
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告