.EOF<>True
IfText1.Text=Adodc1.Recordset.Fields("部门编号").ValueThen
i=1
flag=1
ExitDo
EndIf
Adodc1.Recordset.MoveNext
Loop
ElseIfText1.Text=""AndText2.Text<>""Then
'部门名称查询
Adodc1.Recordset.MoveFirst
DoWhileAdodc1.Recordset.EOF<>True
IfText2.Text=Adodc1.Recordset.Fields("部门名称").ValueThen
i=1
flag=2
ExitDo
EndIf
Adodc1.Recordset.MoveNext
Loop
Else
'部门编号和部门名称查询
Adodc1.Recordset.MoveFirst
DoWhileAdodc1.Recordset.EOF<>True
IfText1.Text=Adodc1.Recordset.Fields("部门编号").Value_
AndText2.Text=Adodc1.Recordset.Fields("部门名称").ValueThen
i=1
flag=3
ExitDo
EndIf
Adodc1.Recordset.MoveNext
Loop
EndIf
chaxunerr:
Ifi=1Then
DataGrid1.BackColor=&HC0E0FF
chenggong=MsgBox("查询成功!",vbOKOnly+vbExclamation,"查询")
Ifchenggong=1Then
Callcxchenggong
EndIf
Else:
DataGrid1.Height=3255
DataGrid1.Top=480
MsgBox"查无此记录!",vbOKOnly+vbExclamation,"提示"
EndIf
EndSub
*"重置查询"按钮代码
PrivateSubCommand2_Click()
'DataGrid1.BackColor=&HFFFFFF
DataGrid2.Visible=False
DataGrid1.Height=3255
DataGrid1.Top=480
Adodc1.Recordset.MoveFirst
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndSub
*"退出"按钮代码
PrivateSubCommand3_Click()
Me.Hide
UnloadMe
ExitSub
EndSub
??
??
??
??
附录
1
上一篇:
vb酒店管理信息系统(论文和程序)
下一篇:
黑色的摄影网站展示功能强大网上少见js技术强悍