frmitemdetailset.frm

VB6.0编写的医院影像系统

VERSION 5.00
Begin VB.Form frmItemDetailSet 
   Caption         =   "内容设置"
   ClientHeight    =   2910
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5340
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2910
   ScaleWidth      =   5340
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出(&E)"
      Height          =   495
      Left            =   2880
      TabIndex        =   6
      Top             =   2280
      Width           =   1335
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定(&O)"
      Height          =   495
      Left            =   840
      TabIndex        =   3
      Top             =   2280
      Width           =   1335
   End
   Begin VB.Frame Frame1 
      Height          =   2055
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5295
      Begin VB.TextBox txtName 
         Height          =   375
         Left            =   1080
         TabIndex        =   2
         Top             =   1080
         Width           =   3735
      End
      Begin VB.TextBox txtCode 
         Height          =   375
         Left            =   1080
         TabIndex        =   1
         Top             =   480
         Width           =   3735
      End
      Begin VB.Label Label2 
         Caption         =   "内容："
         Height          =   255
         Left            =   360
         TabIndex        =   5
         Top             =   1200
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   "序号："
         Height          =   255
         Left            =   360
         TabIndex        =   4
         Top             =   600
         Width           =   615
      End
   End
End
Attribute VB_Name = "frmItemDetailSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public msStatus As String
Public mlClassID As Long
Public msItemData As String
Public mlItemIndex As Long
Public mlDetailID As Long

Private Sub cmdExit_Click()
    
    Unload Me
    
End Sub

Private Sub cmdOK_Click()
Dim sSQL As String
Dim lItemIndex As Long
Dim sItemData As String
Dim rsTemp As ADODB.Recordset
Dim lSerialID As Long
Dim iCount As Long
Dim lsvItem As MSComctlLib.ListItem

    If Trim(txtCode.Text) = "" And Trim(txtName.Text) = "" Then Exit Sub
    lItemIndex = txtCode.Text
    sItemData = txtName.Text
    
    If msStatus = "New" Then
        lSerialID = GetSerialID("us_report_item_detail")
        sSQL = "insert into us_report_item_detail(serial_id,itemdata,class_id,itemindex,frequency)" & _
             "values(" & lSerialID & ",'" & sItemData & "'," & mlClassID & ", " & lItemIndex & ",0)"
        GDB.Execute (sSQL)
    ElseIf msStatus = "Modify" Then
        sSQL = "update us_report_item_detail set itemdata='" & sItemData & "' where serial_id=" & mlDetailID
        GDB.Execute (sSQL)
    End If

   '将新加的记录添加到列表框
   If msStatus = "New" Then
     iCount = frmReportItem.lsvDetail.ListItems.Count + 1
     Set lsvItem = frmReportItem.lsvDetail.ListItems.Add(iCount, "U" & iCount)
     lsvItem.Text = lItemIndex
     lsvItem.SubItems(1) = sItemData
     lsvItem.SubItems(2) = 0
     lsvItem.Tag = lSerialID
     txtCode.Text = ""
     txtName.Text = ""
   ElseIf msStatus = "Modify" Then
     Unload Me
   End If

End Sub

Private Sub Form_Load()
    
    If mlItemIndex > 0 Then txtCode.Text = mlItemIndex
    If msItemData <> "" Then txtName.Text = msItemData
    
End Sub

Private Sub txtcode_KeyDown(KeyCode As Integer, Shift As Integer)
    
    EnterToTab KeyCode
        
End Sub

Private Sub txtname_KeyDown(KeyCode As Integer, Shift As Integer)
    
        EnterToTab KeyCode
        
End Sub