frmhousecheck.frm

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

VERSION 5.00
Object = "{AA0D501B-0C16-11D4-8531-00E098160F52}#4.0#0"; "COMNBUTTONS.OCX"
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "SS32X25.OCX"
Object = "{D52F4AA5-2D61-11D3-8E3D-0080C879E48B}#54.0#0"; "USERSPREAD.OCX"
Begin VB.Form frmHouseCheck 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "盘点"
   ClientHeight    =   5340
   ClientLeft      =   1185
   ClientTop       =   1470
   ClientWidth     =   9150
   Icon            =   "frmHouseCheck.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   5340
   ScaleWidth      =   9150
   Begin FPSpread.vaSpread spd 
      Height          =   4800
      Left            =   60
      OleObjectBlob   =   "frmHouseCheck.frx":0442
      TabIndex        =   0
      Top             =   84
      Width           =   9072
   End
   Begin SpreadEnhanced.UserSpread usp 
      Left            =   7965
      Top             =   -45
      _ExtentX        =   847
      _ExtentY        =   847
      ID              =   "House_Check"
   End
   Begin ComnButtons.ButtonGroup btg 
      Height          =   450
      Left            =   -30
      TabIndex        =   1
      Top             =   4920
      Width           =   9165
      _ExtentX        =   16166
      _ExtentY        =   794
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   -2147483638
      ButtonCount     =   8
      ButtonCaption   =   "&A.选中盘赢	&C.取消盘赢	&B.选中盘亏	&Q.取消盘亏	&I.盘赢入库	&O.盘亏出库	&P.打    印	&E.关    闭"
      KeyEnabled      =   "1#1#1#1#1#1#1#1#"
   End
End
Attribute VB_Name = "frmHouseCheck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private WithEvents CmnHlp As frmInputHelp
Attribute CmnHlp.VB_VarHelpID = -1
Private WithEvents CheckObj As frmHouseCheckBus
Attribute CheckObj.VB_VarHelpID = -1
Private CurUnitObj As clsDrugUnit


Private Sub InitForm()
    Set CmnHlp = New frmInputHelp
    Set CmnHlp.CN = gDbObj.CN
    Set usp.DBInter = gDbObj
    Set usp.CurSpread = spd
    Init
End Sub
Private Sub Init()
    spd.MaxRows = 0
    spd.MaxRows = 1
End Sub


Private Sub btg_Click(ByVal WhichB As Integer)
    Dim Finish As Boolean, I As Long, AppearDevAmount As Long
    Dim TDrugsObj As clsDrugItems
    
    Select Case WhichB
        Case 0
            For I = 1 To spd.MaxRows - 1
                spd.Row = I
                spd.Col = 3
                Finish = IIf(spd.Value = 1, True, False)
                spd.Col = 11
                AppearDevAmount = Val(spd.Text)
                If Not Finish And AppearDevAmount > 0 Then
                    spd.Col = 2
                    spd.Value = 1
                End If
            Next I
        Case 1
            For I = 1 To spd.MaxRows - 1
                spd.Row = I
                spd.Col = 3
                Finish = IIf(spd.Value = 1, True, False)
                spd.Col = 11
                AppearDevAmount = Val(spd.Text)
                If Not Finish And AppearDevAmount > 0 Then
                    spd.Col = 2
                    spd.Value = 0
                End If
            Next I
        Case 2
            For I = 1 To spd.MaxRows - 1
                spd.Row = I
                spd.Col = 3
                Finish = IIf(spd.Value = 1, True, False)
                spd.Col = 11
                AppearDevAmount = Val(spd.Text)
                If Not Finish And AppearDevAmount < 0 Then
                    spd.Col = 2
                    spd.Value = 1
                End If
            Next I
        Case 3
            For I = 1 To spd.MaxRows - 1
                spd.Row = I
                spd.Col = 3
                Finish = IIf(spd.Value = 1, True, False)
                spd.Col = 11
                AppearDevAmount = Val(spd.Text)
                If Not Finish And AppearDevAmount < 0 Then
                    spd.Col = 2
                    spd.Value = 0
                End If
            Next I
        
        
        Case 4
            Set TDrugsObj = New clsDrugItems
            LoadData TDrugsObj, tsA_CHECK_IN
            If TDrugsObj.Count = 0 Then
                MsgBox "请选择需盘赢入库的药品!", vbInformation
                Exit Sub
            End If
            If Not (CheckObj Is Nothing) Then Exit Sub
            Set CheckObj = New frmHouseCheckBus
            CheckObj.MDtType = tsA_CHECK_IN
            Set CheckObj.ItemsObj = TDrugsObj
            CheckObj.Show
        Case 5
            Set TDrugsObj = New clsDrugItems
            LoadData TDrugsObj, tsA_CHECK_OUT
            If TDrugsObj.Count = 0 Then
                MsgBox "请选择需盘亏出库的药品!", vbInformation
                Exit Sub
            End If
            If Not (CheckObj Is Nothing) Then Exit Sub
            Set CheckObj = New frmHouseCheckBus
            CheckObj.MDtType = tsA_CHECK_OUT
            Set CheckObj.ItemsObj = TDrugsObj
            CheckObj.Show
        Case 6
            spd.PrintHeader = "                             /fz""14"" /fb1   盘点列表 " _
                    & "                                  /n/n" _
                    & "/fz""11"" /fb0 打印操作员：" & gtydSysConfig.HdName & "" _
                    & "打印时间:" & gfnGetTime(gstrCOMN_DATE_LONG) & "/r/n"
        
            spd.PrintRowHeaders = True
            spd.PrintShadows = False
            spd.PrintMarginLeft = 0
            spd.PrintUseDataMax = False
            spd.PrintOrientation = 1
            spd.Action = SS_ACTION_PRINT
        
        Case 7
            Unload Me
        
    End Select
    
End Sub




Private Sub CheckObj_Ack(TDrugsObj As clsDrugItems)
    Dim I As Long
    
    For I = 1 To spd.MaxRows - 1
        spd.Row = I
        spd.Col = 1
        If TDrugsObj.FindDrug(spd.Text) Then
            spd.Col = 2
            spd.Value = 0
            spd.Col = 3
            spd.Value = 1
            spd.BlockMode = True
            spd.Col = 1
            spd.Row = I
            spd.Col2 = spd.MaxCols
            spd.Row2 = I
            spd.Lock = True
            spd.BlockMode = False
        End If
    Next I
    Set CheckObj = Nothing
    


End Sub

Private Sub CheckObj_Cancel()
    Set CheckObj = Nothing
End Sub

Private Sub CmnHlp_ResSelect(ByVal SelData As Variant, ByVal STag As String)
    Dim I As Integer
    
    Me.SetFocus
    If TypeName(SelData) <> "Nothing" Then
        If Not FindDrug(SelData(0)) Then
            spd.Redraw = False
            PutSpread spd.ActiveRow, SelData(0), SelData(2), SelData(3), SelData(9), SelData(4), _
                 SelData(5), SelData(6), SelData(7), SelData(8)
            spd.Redraw = False
            If spd.ActiveRow = spd.MaxRows Then
                spd.MaxRows = spd.MaxRows + 1
            End If
        Else
            If spd.ActiveRow <> spd.MaxRows Then
                spd.Row = spd.ActiveRow
                spd.Action = SS_ACTION_DELETE_ROW
                spd.MaxRows = spd.MaxRows - 1
            End If
        End If
    Else
        If spd.ActiveRow <> spd.MaxRows Then
            spd.Row = spd.ActiveRow
            spd.Action = SS_ACTION_DELETE_ROW
            spd.MaxRows = spd.MaxRows - 1
        End If
    End If

End Sub

'Private Sub Form_KeyPress(KeyAscii As Integer)
'    If KeyAscii = vbKeyReturn Then
'        If Me.ActiveControl.Name <> "spd" And Me.ActiveControl.Name <> "spdList" Then
'            hisToActiveCtl(Me).SetFocus
'            KeyAscii = 0
'        End If
'    End If
'End Sub

Private Sub Form_Load()
    hisFormToCenter Me, frmMain
    InitForm
End Sub

Private Sub Form_Unload(Cancel As Integer)
    If Not (CurUnitObj Is Nothing) Then
        Set CurUnitObj = Nothing