frmdwxx.frm

计量器具管理系统

         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         Caption         =   "单位地址"
         ForeColor       =   &H80000008&
         Height          =   180
         Left            =   240
         TabIndex        =   7
         Top             =   705
         Width           =   720
      End
      Begin VB.Label Label1 
         Appearance      =   0  'Flat
         AutoSize        =   -1  'True
         BackColor       =   &H80000005&
         Caption         =   "单位名称"
         ForeColor       =   &H80000008&
         Height          =   180
         Left            =   240
         TabIndex        =   6
         Top             =   285
         Width           =   720
      End
      Begin VB.Shape Shape2 
         BorderColor     =   &H00FF8080&
         Height          =   2685
         Left            =   60
         Top             =   60
         Width           =   6600
      End
      Begin VB.Shape Shape1 
         BorderColor     =   &H00FF8080&
         Height          =   2745
         Left            =   30
         Top             =   30
         Width           =   6690
      End
   End
End
Attribute VB_Name = "Frm_单位信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Dim rsjddw As New ADODB.Recordset

Private Sub Form_Load()
On Error GoTo ERR:
    If rsjddw.State = 1 Then rsjddw.Close
    rsjddw.CursorLocation = adUseClient
    rsjddw.Open "select * from jddw", Conn, adOpenDynamic, adLockBatchOptimistic
    Set TDBGrid1.DataSource = rsjddw
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) * (1 - 0.618)
    If rs.State = 1 Then rs.Close
    rs.CursorLocation = adUseClient
    rs.Open "select * from Dwxx", Conn, adOpenKeyset, adLockOptimistic
    If rs.EOF = False Then
        TxtDWMC.Text = Trim(IIf(IsNull(rs!Dwmc), "", rs!Dwmc))
        TxtDWDZ.Text = Trim(IIf(IsNull(rs!dz), "", rs!dz))
        TxtLXR.Text = Trim(IIf(IsNull(rs!lxr), "", rs!lxr))
        TxtDH.Text = Trim(IIf(IsNull(rs!dh), "", rs!dh))
'        TxtJYMC.Text = Trim(IIf(IsNull(rs!jydw), "", rs!jydw))
'        TxtJYLXR.Text = Trim(IIf(IsNull(rs!jylxr), "", rs!jylxr))
'        TxtJYDH.Text = Trim(IIf(IsNull(rs!jydh), "", rs!jydh))
        
        Exit Sub
    End If
    Exit Sub
ERR:
   MsgBox ERR.Description
   Exit Sub
End Sub


Private Sub SNXpButtonEXIT_Click()
    Unload Me
End Sub


Private Sub SNXpButtonSAVE_Click()
 If TxtDWMC.Text = "" Then
        MsgBox "请输入单位名称", , "远望提示"
        TxtDWMC.SetFocus
        Exit Sub
    End If
    If TxtDWDZ.Text = "" Then
        MsgBox "请输入单位地址", , "远望提示"
        TxtDWDZ.SetFocus
        Exit Sub
    End If
    If TxtLXR.Text = "" Then
        MsgBox "请输入本单位联系人", , "远望提示"
        TxtLXR.SetFocus
        Exit Sub
    End If
    If TxtDH.Text = "" Then
        MsgBox "请输入本单位电话", , "远望提示"
        TxtDH.SetFocus
        Exit Sub
    End If
'    If TxtJYMC.Text = "" Then
'        MsgBox "请输入检验单位名称", , "远望提示"
'        TxtJYMC.SetFocus
'        Exit Sub
'    End If
'    If TxtJYLXR.Text = "" Then
'        MsgBox "请输入检验单位联系人", , "远望提示"
'        TxtJYLXR.SetFocus
'        Exit Sub
'    End If
'    If TxtJYDH.Text = "" Then
'        MsgBox "请输入检验单位电话", , "远望提示"
'        TxtJYDH.SetFocus
'        Exit Sub
'    End If
    If rs.State = 1 Then rs.Close
    rs.CursorLocation = adUseClient
    rs.Open "select * from dwxx", Conn, adOpenDynamic, adLockBatchOptimistic
    If rs.EOF = True Then rs.AddNew

    rs!Dwmc = Trim(TxtDWMC.Text)
    rs!dz = Trim(TxtDWDZ.Text)
    rs!lxr = Trim(TxtLXR.Text)
    rs!dh = Trim(TxtDH.Text)
'    rs!jydw = Trim(TxtJYMC.Text)
'    rs!jylxr = Trim(TxtJYLXR.Text)
'    rs!jydh = Trim(TxtJYDH.Text)
    rs!jlsj = Date
    rs.UpdateBatch adAffectAllChapters
    Conn.Execute "update bmxx set dwmc='" & Trim(TxtDWMC.Text) & "'"
    Conn.Execute "update jlqjxx set dwmc='" & Trim(TxtDWMC.Text) & "'"
    Conn.Execute "update jlqjjd set dwmc='" & Trim(TxtDWMC.Text) & "'"
    Conn.Execute "update jlqjbf set dwmc='" & Trim(TxtDWMC.Text) & "'"
    Conn.Execute "update jlqjwx set dwmc='" & Trim(TxtDWMC.Text) & "'"
    rsjddw.UpdateBatch adAffectAllChapters
    MsgBox "保存成功!!!", vbInformation, "提示"
      
End Sub


Private Sub TxtDH_GotFocus()
    TxtDWMC.BackColor = &H80000018
End Sub

Private Sub TxtDH_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub


Private Sub TxtDH_LostFocus()
    TxtDWMC.BackColor = &H80000005
End Sub

Private Sub TxtDWDZ_GotFocus()
    TxtDWMC.BackColor = &H80000018
End Sub

Private Sub TxtDWDZ_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub

Private Sub TxtDWDZ_LostFocus()
    TxtDWMC.BackColor = &H80000005
End Sub

Private Sub TxtDWMC_GotFocus()
    TxtDWMC.BackColor = &H80000018
End Sub

Private Sub TxtDWMC_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub



Private Sub TxtDWMC_LostFocus()
    TxtDWMC.BackColor = &H80000005
End Sub

Private Sub TxtJLSJ_GotFocus()
    TxtDWMC.BackColor = &H80000018
End Sub

Private Sub TxtJLSJ_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub


Private Sub TxtJLSJ_LostFocus()
    TxtDWMC.BackColor = &H80000005
End Sub

Private Sub TxtJYDH_GotFocus()
    TxtDWMC.BackColor = &H80000018
End Sub

Private Sub TxtJYDH_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub



Private Sub TxtJYDH_LostFocus()
    TxtDWMC.BackColor = &H80000005
End Sub

Private Sub TxtJYLXR_GotFocus()
    TxtDWMC.BackColor = &H80000018
End Sub

Private Sub TxtJYLXR_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub



Private Sub TxtJYLXR_LostFocus()
    TxtDWMC.BackColor = &H80000005
End Sub

Private Sub TxtJYMC_GotFocus()
    TxtDWMC.BackColor = &H80000018
End Sub

Private Sub TxtJYMC_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub



Private Sub TxtJYMC_LostFocus()
    TxtDWMC.BackColor = &H80000005
End Sub

Private Sub TxtLXR_GotFocus()
    TxtDWMC.BackColor = &H80000018
End Sub

Private Sub TxtLXR_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{tab}"
    End If
End Sub

Private Sub TxtLXR_LostFocus()
    TxtDWMC.BackColor = &H80000005
End Sub