VERSION 5.00
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  '屏幕中心
   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 VB.PictureBox Command2 
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   435
      Left            =   1740
      ScaleHeight     =   375
      ScaleWidth      =   1005
      TabIndex        =   3
      Top             =   1290
      Width           =   1065
   End
   Begin VB.PictureBox Command1 
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   435
      Left            =   600
      ScaleHeight     =   375
      ScaleWidth      =   1005
      TabIndex        =   2
      Top             =   1290
      Width           =   1065
   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