modulerx.bas

医院管理方面的例子

Attribute VB_Name = "ModuleRx"
'Option Explicit
'
''数据库连接
'Public PCnnHisDB    As ADODB.Connection         '数据库连接
'
'Sub Main()
'
'    Dim StrLink         As String
'    Dim StrServerName   As String, StrDbName As String
'    Dim StrUserName     As String, StrUserPwd As String
'
'    Set PCnnHisDB = New ADODB.Connection
'    PCnnHisDB.CursorLocation = adUseClient
'
'    StrServerName = GetSetting("SqwszYpsfglXt", "ServerName", "ServerName")
'    StrDbName = GetSetting("SqwszYpsfglXt", "DbName", "DbName")
'    StrUserName = GetSetting("SqwszYpsfglXt", "UserName", "UserName")
'    StrUserPwd = GetSetting("SqwszYpsfglXt", "UserPwd", "UserPwd")
'
'    StrLink = " Provider=SQLOLEDB.1;Persist Security Info =False; " _
'            & " User ID=" + StrUserName + ";                      " _
'            & " Pwd=" + StrUserPwd + ";                           " _
'            & " Initial Catalog=" + StrDbName + ";                " _
'            & " Data Source=" + StrServerName + "                 "
'
'    PCnnHisDB.Open StrLink
'
'End Sub
'
'Public Sub ProcAddCmbItem(CmbSend As ComboBox, AdoRsSend As ADODB.Recordset)
'    CmbSend.Clear
'    If Not (AdoRsSend.EOF Or AdoRsSend.BOF) Then
'
'        AdoRsSend.MoveLast: AdoRsSend.MoveFirst
'        Do While Not AdoRsSend.EOF
'            CmbSend.AddItem AdoRsSend.Fields(1)
'            CmbSend.ItemData(CmbSend.NewIndex) = AdoRsSend.Fields(0)
'            AdoRsSend.MoveNext
'        Loop
'    End If
'
'    If CmbSend.ListCount > 0 Then CmbSend.ListIndex = 0
'    AdoRsSend.Close
'End Sub
'
'Public Function FunGetItemName(CmbTemp As ComboBox, SStrTemp As String) As String
'    Dim IntTemp As Integer
'    For IntTemp = 0 To CmbTemp.ListCount - 1
'        If CStr(CmbTemp.ItemData(IntTemp)) = SStrTemp Then
'            FunGetItemName = CmbTemp.List(IntTemp)
'            Exit For
'        End If
'    Next IntTemp
'End Function
'
'Public Sub ProCopyMhflexToMsflex(MhFlexSend As MSHFlexGrid, MsflexSend As MSFlexGrid)
'    Dim IntRow  As Integer
'    Dim IntCol  As Integer
'
'    With MsflexSend
'        .Rows = MhFlexSend.Rows
'        .Cols = MhFlexSend.Cols
'        For IntRow = 0 To .Rows - 1
'            For IntCol = 0 To .Cols - 1
'                .TextMatrix(IntRow, IntCol) = MhFlexSend.TextMatrix(IntRow, IntCol)
'            Next IntCol
'        Next IntRow
'    End With
'End Sub