frminfodetail.frm

自动售药系统

VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmInfodetail 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   10290
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   15360
   LinkTopic       =   "Form1"
   Picture         =   "frmInfodetail.frx":0000
   ScaleHeight     =   10290
   ScaleWidth      =   15360
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin RichTextLib.RichTextBox RichTextBox1 
      DataField       =   "Data"
      DataSource      =   "frmInfo.Adodc1"
      Height          =   7575
      Left            =   3240
      TabIndex        =   1
      Top             =   1320
      Width           =   11655
      _ExtentX        =   20558
      _ExtentY        =   13361
      _Version        =   393217
      BackColor       =   14737632
      BorderStyle     =   0
      ScrollBars      =   2
      Appearance      =   0
      TextRTF         =   $"frmInfodetail.frx":A1AC
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Height          =   855
      Left            =   360
      TabIndex        =   0
      Top             =   2040
      Width           =   1455
   End
End
Attribute VB_Name = "frmInfodetail"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public infoid As String
Private Sub Form_Load()
Dim rs As New ADODB.Recordset

 rs.Source = "select  * from infoDB where infoid='" & infoid & "'"
 rs.ActiveConnection = Constr
 rs.Open
 'If rs.EOF Then rs.Cose: Exit Sub
   If Not rs.EOF Then
 
     RichTextBox1.Text = rs!Data
      
        
    End If
   rs.Close
End Sub

Private Sub Label1_Click()
Unload Me
End Sub