📄 frmdw.frm
字号:
VERSION 5.00
Object = "{0BA686C6-F7D3-101A-993E-0000C0EF6F5E}#2.0#0"; "THREED20.OCX"
Begin VB.Form FRMDW
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Dialog
Caption = "定位条件"
ClientHeight = 2100
ClientLeft = 45
ClientTop = 330
ClientWidth = 3420
Icon = "FRMDW.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2100
ScaleWidth = 3420
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.TextBox TXTXH
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 600
TabIndex = 0
Top = 630
Width = 2205
End
Begin Threed.SSCommand Command2
Height = 435
Left = 1740
TabIndex = 3
Top = 1290
Width = 1065
_ExtentX = 1879
_ExtentY = 767
_Version = 131073
Font3D = 1
ForeColor = 0
PictureFrames = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "FRMDW.frx":0442
Caption = "取消"
Alignment = 4
PictureAlignment= 1
End
Begin Threed.SSCommand Command1
Height = 435
Left = 600
TabIndex = 2
Top = 1290
Width = 1065
_ExtentX = 1879
_ExtentY = 767
_Version = 131073
Font3D = 1
ForeColor = 0
PictureFrames = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "FRMDW.frx":075C
Caption = "确定"
Alignment = 4
PictureAlignment= 1
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "输入学号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 240
Left = 600
TabIndex = 1
Top = 330
Width = 960
End
End
Attribute VB_Name = "FRMDW"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim AA, BB, CC As String
Private Sub Command1_Click()
On Error Resume Next
AA = txtXH.Text
CC = "*" & txtXH.Text & "*"
If txtXH.Text = "" Then
MsgBox "请输入信息!", vbInformation, "提示框"
txtXH.SetFocus
Exit Sub
End If
Select Case Label1.Caption
'学号定位
Case "输入学号"
FrmGrad.DataMain.Recordset.FindFirst "XUEH='" & FRMDW.txtXH.Text & "'"
If FrmGrad.DataMain.Recordset.NoMatch Then
MsgBox "库中无此记录!", vbInformation, "提示框"
FrmGrad.DataMain.Refresh
FRMDW.txtXH.SetFocus
Exit Sub
End If
Unload Me
'单位名称定位
Case "输入单位名称任意词汇"
FrmGrad.DataMain.Recordset.MoveFirst
BB = "DANWMC Like '" & CC & "'"
'BB = "select * from danwxx where danwmc like '" & CC & "'"
'FrmGrad.DataMain.Recordset
FrmGrad.DataMain.Recordset.FindFirst BB
PUBDANWEI = BB
If FrmGrad.DataMain.Recordset.NoMatch Then
MsgBox "库中无此记录!", vbInformation, "提示框"
FrmGrad.DataMain.Refresh
FRMDW.txtXH.SetFocus
Exit Sub
End If '
Unload Me
'所在省市定位
Case "输入单位地址任意词汇"
FrmGrad.DataMain.Recordset.MoveFirst
BB = "DANWDZ LIKE '" & CC & "'"
FrmGrad.DataMain.Recordset.FindFirst BB 'LEFT(DANWDZ,2)='" & Trim(FRMDW.TXTXH.Text) & "'"
PUBCITY = BB
If FrmGrad.DataMain.Recordset.NoMatch Then
MsgBox "库中无此记录!", vbInformation, "提示框"
FrmGrad.DataMain.Refresh
'FRMDW.txtXH.Text = ""
FRMDW.txtXH.SetFocus
Exit Sub
End If
Unload Me
'奖惩助贷补学号定位
Case "请输入学号定位"
frmMain.DataMain.Recordset.FindFirst "XueH='" & FRMDW.txtXH.Text & "'"
If frmMain.DataMain.Recordset.NoMatch Then
MsgBox "库中无此记录!", vbInformation, "提示框"
frmMain.DataMain.Refresh
'FRMDW.txtXH.Text = ""
FRMDW.txtXH.SetFocus
Exit Sub
End If
Unload Me
'基本信息库修改
Case "请您输入定位学号："
If FRMDW.Caption = "学生基本信息库记录定位" Then
frmGridModify.Data1.Recordset.FindFirst "学号='" & FRMDW.txtXH.Text & "'"
frmGridModify.Data2.Recordset.FindFirst "学号='" & FRMDW.txtXH.Text & "'"
If frmGridModify.Data1.Recordset.NoMatch Then
MsgBox "库中无此记录!", vbInformation, "提示框"
FRMDW.txtXH.SetFocus
Exit Sub
End If
Unload Me
Else
If FRMDW.Caption = "家长信息库记录定位" Then
frmGridModify.Data2.Recordset.FindFirst "学号='" & FRMDW.txtXH.Text & "'"
frmGridModify.Data1.Recordset.FindFirst "学号='" & FRMDW.txtXH.Text & "'"
If frmGridModify.Data2.Recordset.NoMatch Then
MsgBox "库中无此记录!", vbInformation, "提示框"
FRMDW.txtXH.SetFocus
Exit Sub
End If
Unload Me
Else
Exit Sub
End If
End If
'基本信息添加库定位
Case "基本信息依学号定位"
rec.FindFirst "XH='" & FRMDW.txtXH.Text & "'"
If rec.NoMatch Then
MsgBox "库中无此记录!", vbInformation, "提示框"
FRMDW.txtXH.Text = ""
FRMDW.txtXH.SetFocus
Exit Sub
End If
Unload Me
'党员库学号定位
Case "党员库学号定位"
frmPartyInput.Data1.Recordset.FindFirst "XH='" & FRMDW.txtXH.Text & "'"
If frmPartyInput.Data1.Recordset.NoMatch Then
MsgBox "库中无此记录!", vbInformation, "提示框"
'FRMDW.txtXH.Text = ""
FRMDW.txtXH.SetFocus
Exit Sub
End If
Unload Me
'党员学号定位
Case "党员学号定位"
frmPartyModify.Data1.Recordset.FindFirst "学号='" & FRMDW.txtXH.Text & "'"
If frmPartyModify.Data1.Recordset.NoMatch Then
MsgBox "库中无此记录!", vbInformation, "提示框"
FRMDW.txtXH.SetFocus
Exit Sub
End If
Unload Me
End Select
End Sub
Private Sub Command2_Click()
On Error Resume Next
Unload Me
End Sub
Private Sub Form_Load()
On Error Resume Next
Label1.Left = txtXH.Left
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Unload Me
End Sub
Private Sub txtXH_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command1_Click
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -