pic_big.frm

小型医院管理

VERSION 5.00
Begin VB.Form pic_big 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "齐英天肛肠医院综合信息管理系统"
   ClientHeight    =   8640
   ClientLeft      =   45
   ClientTop       =   375
   ClientWidth     =   10530
   Icon            =   "pic_big.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8640
   ScaleWidth      =   10530
   StartUpPosition =   2  '屏幕中心
   Begin VB.Image Image1 
      Height          =   7935
      Left            =   360
      Stretch         =   -1  'True
      Top             =   240
      Width           =   9855
   End
End
Attribute VB_Name = "pic_big"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()

     Dim sql1 As String
    
    If Trim(jiancha.t_pic) = "1" Then
    sql1 = "select 图片 as 图片 from 检查结果 where id=" & Trim(jiancha.t_id)
    End If
    
    
        
    If Trim(jiancha.t_pic) = "2" Then
    sql1 = "select 图片1 as 图片 from 检查结果  where id=" & Trim(jiancha.t_id)
    End If
    
    
        
    If Trim(jiancha.t_pic) = "3" Then
    sql1 = "select 图片2 as 图片 from 检查结果  where id=" & Trim(jiancha.t_id)
    End If
    
    
        
    If Trim(jiancha.t_pic) = "4" Then
    sql1 = "select 图片3 as 图片 from 检查结果  where id=" & Trim(jiancha.t_id)
    End If
    

    Dim rs1 As New ADODB.Recordset
    rs1.Open sql1, db

    If Not rs1.EOF Then
 
    
   
    Image1.Picture = LoadPicture(Trim(rs1("图片")))

    
    




    
    
    
    
  
   End If
End Sub