frmgetdrugcondition.frm

医院门诊医生工作站,vb6 SqlServer

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{AA0D501B-0C16-11D4-8531-00E098160F52}#4.0#0"; "ComnButtons.ocx"
Begin VB.Form frmGetDrugCondition 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "摆药"
   ClientHeight    =   3960
   ClientLeft      =   3360
   ClientTop       =   2670
   ClientWidth     =   5430
   Icon            =   "frmGetDrugCondition.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3960
   ScaleWidth      =   5430
   Begin VB.ListBox lst 
      Height          =   3660
      Left            =   60
      TabIndex        =   7
      Top             =   60
      Width           =   2835
   End
   Begin MSComCtl2.UpDown upd 
      Height          =   300
      Left            =   4110
      TabIndex        =   6
      Top             =   900
      Width           =   240
      _ExtentX        =   423
      _ExtentY        =   529
      _Version        =   393216
      Value           =   1
      BuddyControl    =   "txtDays"
      BuddyDispid     =   196610
      OrigLeft        =   4020
      OrigTop         =   900
      OrigRight       =   4260
      OrigBottom      =   1305
      Min             =   1
      SyncBuddy       =   -1  'True
      BuddyProperty   =   65547
      Enabled         =   -1  'True
   End
   Begin ComnButtons.ButtonGroup btg 
      Height          =   495
      Left            =   2970
      TabIndex        =   5
      Top             =   3240
      Width           =   2475
      _ExtentX        =   4366
      _ExtentY        =   873
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   -2147483638
      ButtonCount     =   3
      ButtonCaption   =   "&A.确定	&C.取消	&E.关闭"
      KeyEnabled      =   "1#1#1#"
   End
   Begin VB.TextBox txtDays 
      Height          =   300
      Left            =   3720
      Locked          =   -1  'True
      TabIndex        =   3
      Text            =   "1"
      Top             =   900
      Width           =   390
   End
   Begin VB.Frame Frame1 
      Caption         =   "选项"
      Height          =   1245
      Left            =   2970
      TabIndex        =   0
      Top             =   1860
      Width           =   2400
      Begin VB.OptionButton OptType 
         Caption         =   "全科摆药"
         Height          =   255
         Index           =   0
         Left            =   270
         TabIndex        =   2
         Top             =   330
         Width           =   1455
      End
      Begin VB.OptionButton OptType 
         Caption         =   "按病人摆药"
         Height          =   255
         Index           =   1
         Left            =   270
         TabIndex        =   1
         Top             =   780
         Width           =   1455
      End
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "摆药周期(天)"
      Height          =   180
      Left            =   3705
      TabIndex        =   4
      Top             =   615
      Width           =   1080
   End
End
Attribute VB_Name = "frmGetDrugCondition"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private AllGetDrugObj As clsAllGetDrug
Private WithEvents DebInfoObj As frmDebInfo
Attribute DebInfoObj.VB_VarHelpID = -1
Private mSex(2) As String
Private Sub InitForm()
    Dim SQL As String
    Dim PNode As Node
    Dim i As Integer
    Dim tmrs As Recordset
    hisFormClear Me
    If gdbobj.GetRs("select Code,value from f_GenlCode where kindID='Sex' order By Code") > 0 Then
        i = 0
        Do While Not gdbobj.Rs.EOF
            Select Case gdbobj.Rs(1)
            Case "男"
                mSex(i) = "男"
                i = i + 1
            Case "女"
                mSex(i) = "女"
                i = i + 1
            End Select
            gdbobj.Rs.MoveNext
        Loop
    End If
    lst.Clear
    If gtydSysConfig.IfSetHouse Then
        SQL = "select m_workstationfig.wsid from m_WorkStationFig " _
            & "inner join m_workstations on m_workstations.wsid=m_workstationfig.wsid " _
            & "where smid='b3' and wfid like 'vs%' and value='" & gtydSysConfig.DepCode & "' " _
            & "group By m_workstations.wsid"
    Else
        SQL = "select m_workstationfig.wsid from m_WorkStationFig " _
           & "inner join m_workstations on m_workstations.wsid=m_workstationfig.wsid " _
           & "where smid='b3' and wfid like 'DepCode' " _
            & "group By m_workstationfig.wsid"
    End If
    Set tmrs = gdbobj.GetNewRs(SQL)
    If Not tmrs Is Nothing Then
        Do While Not tmrs.EOF
            SQL = "select value from m_WorkStationFig where wsid='" & tmrs!WsID & "' and wfid='DepCode'"
            If gdbobj.GetRs(SQL) > 0 Then
                SQL = "SELECT DepCode,DepName,Flag FROM m_Depart " _
                    & "WHERE depcode='" & gdbobj.Rs(0) & "'"
                If gdbobj.GetRs(SQL) > 0 Then
                    lst.AddItem gdbobj.Rs!DepCode & " " & gdbobj.Rs!DepName
                End If
            End If
            tmrs.MoveNext
        Loop
        init
    End If
End Sub
Public Sub init()
    txtDays = gtydSysConfig.DefaultGetDrugDays
    OptType(0).value = True
End Sub

Private Sub btg_Click(ByVal WhichB As Integer)
    Select Case WhichB
        Case 0
            If lst.ListIndex = -1 Then Exit Sub
                Me.MousePointer = 11
                frmMain.Note = "正在计算,请稍侯......."
                GetData
                frmMain.Note = ""
                Me.MousePointer = 0
                If AllGetDrugObj Is Nothing Then
                    MsgBox "无满足条件的摆药项目", vbInformation
                    Exit Sub
                End If
                If AllGetDrugObj.HavingDebInfo Then
                    Set DebInfoObj = New frmDebInfo
                    Set DebInfoObj.AllGetItemObj = AllGetDrugObj
                    DebInfoObj.DepName = Right(lst.Text, Len(lst.Text) - InStr(lst.Text, " "))
                    DebInfoObj.Show
                Else

                    If OptType(1).value Then