frmchangecxm.frm

本系统可用于医院和专业体检中心的健康体检管理

VERSION 5.00
Begin VB.Form FrmChangeCXM 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   705
      Left            =   1470
      TabIndex        =   0
      Top             =   1920
      Width           =   1215
   End
End
Attribute VB_Name = "FrmChangeCXM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command1_Click()
    Dim conCXM As ADODB.Connection
    Dim strSQL As String
    Dim rsTemp As ADODB.Recordset
    Dim cmdTemp As ADODB.Command
    Dim TmpCXM As String
    Dim TmpclsDisk As New CDiskInfo

    Set conCXM = New ADODB.Connection
    conCXM.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=lisdb;Data Source=192.168.1.200"
    
    Set cmdTemp = New ADODB.Command
    Set cmdTemp.ActiveConnection = conCXM
    
    Set rsTemp = New ADODB.Recordset
    strSQL = "select * from SET_GRXX"
    rsTemp.Open strSQL, conCXM, adOpenStatic, adLockOptimistic
    If rsTemp.RecordCount > 0 Then
        rsTemp.MoveFirst
        Do While Not rsTemp.EOF
            If IsNull(rsTemp("CXM")) Or Len(rsTemp("CXM")) = 8 Then
                TmpCXM = LongToString(rsTemp("GUID"), 6) & TmpclsDisk.GetFixedSerialNumber(rsTemp("GUID") & rsTemp("HealthID"), 8)
                strSQL = "update set_grxx set CXM='" & TmpCXM & "' where GUID=" & rsTemp("GUID")
                cmdTemp.CommandText = strSQL
                cmdTemp.Execute
            End If
            rsTemp.MoveNext
        Loop
    End If
    
End Sub