frmfind.frm

社区医疗系统实现了数字电压计参数的无线传送和温度参数的传送

VERSION 5.00
Begin VB.Form frmfind 
   Caption         =   "病例管理"
   ClientHeight    =   3885
   ClientLeft      =   165
   ClientTop       =   555
   ClientWidth     =   11880
   LinkTopic       =   "Form1"
   ScaleHeight     =   3885
   ScaleWidth      =   11880
   StartUpPosition =   3  '窗口缺省
   Begin VB.Data Data1 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   "C:\Documents and Settings\a\桌面\menglin\社区医疗\1\shujuku\病例信息.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   3240
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "病例信息"
      Top             =   0
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Height          =   855
      Left            =   120
      TabIndex        =   5
      Top             =   2640
      Width           =   7215
      Begin VB.TextBox txtfindID 
         Height          =   270
         Left            =   2640
         TabIndex        =   8
         Top             =   345
         Width           =   1215
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定"
         Height          =   375
         Left            =   4680
         TabIndex        =   7
         Top             =   240
         Width           =   975
      End
      Begin VB.CommandButton Command2 
         Caption         =   "取消"
         Height          =   375
         Left            =   5880
         TabIndex        =   6
         Top             =   240
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "请输入您要查询的病人姓名："
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   360
         Width           =   2535
      End
   End
   Begin VB.CommandButton cmddep 
      Caption         =   "查询"
      Height          =   495
      Index           =   0
      Left            =   10920
      TabIndex        =   4
      Top             =   120
      Width           =   855
   End
   Begin VB.CommandButton cmddep 
      Caption         =   "删除"
      Height          =   495
      Index           =   1
      Left            =   10920
      TabIndex        =   3
      Top             =   720
      Width           =   855
   End
   Begin VB.CommandButton cmddep 
      Caption         =   "刷新"
      Height          =   495
      Index           =   2
      Left            =   10920
      TabIndex        =   2
      Top             =   1320
      Width           =   855
   End
   Begin VB.CommandButton cmddep 
      Caption         =   "退出"
      Height          =   495
      Index           =   3
      Left            =   10920
      TabIndex        =   1
      Top             =   1920
      Width           =   855
   End
   Begin VB.PictureBox DBGrid1 
      DataSource      =   "Data1"
      Height          =   2415
      Left            =   120
      ScaleHeight     =   2355
      ScaleWidth      =   10275
      TabIndex        =   0
      Top             =   120
      Width           =   10335
   End
End
Attribute VB_Name = "frmfind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmddep_Click(Index As Integer)
  On Error Resume Next
  Select Case Index         'Index是按钮的索引号
  Case 0
    Frame1.Visible = True
    frmfind.Height = 4100
    'TEXTCOLOR_start
    'frmMain.txtMsg.SelText = frmMain.txtMsg.SelText & "请输入您要查询的考生学号." & vbCrLf
    'TEXTCOLOR3_end
    txtfindID.SetFocus
  Case 1
    Dim msg
    msg = MsgBox("确定删除该记录吗？", vbYesNo)
    If msg = vbYes Then
    Data1.Recordset.Delete
    Data1.Recordset.MoveNext
    'If Data1.Recordset.EOF Then Data1.Recordset.MoveLast
   ' TEXTCOLOR_start
    'frmMain.txtMsg.SelText = frmMain.txtMsg.SelText & "您删除了一条记录." & vbCrLf
   ' TEXTCOLOR3_end
    Data1.Refresh
    Else
     Exit Sub
    End If
  Case 2
    Data1.Refresh
  Case 3
    Me.Hide
    Unload Me
    'TEXTCOLOR_start
    'frmMain.txtMsg.SelText = frmMain.txtMsg.SelText & "退出成绩管理." & vbCrLf
    'TEXTCOLOR3_end
  End Select
End Sub

Private Sub Command1_Click()
  Dim sqlstring As String
    sqlstring = "select * from 病例信息 where 病例信息.病人姓名='" & txtfindID.Text & "'"
    Data1.RecordSource = sqlstring
    Data1.Refresh
    'TEXTCOLOR_start
    'frmMain.txtMsg.SelText = frmMain.txtMsg.SelText & "查询完毕." & vbCrLf
    'TEXTCOLOR3_end
End Sub

Private Sub Command2_Click()
    Frame1.Visible = False
    frmfind.Height = 3200
    'TEXTCOLOR_start
   ' frmMain.txtMsg.SelText = frmMain.txtMsg.SelText & "您取消了当前查询." & vbCrLf
    'TEXTCOLOR3_end
End Sub




Private Sub Form_Load()
  frmfind.Data1.DatabaseName = App.Path & "\shujuku\病例信息.MDB"
  frmfind.Data1.Connect = ";pwd=ch" '数据库密码
End Sub