stuff_form_statistics.frm

这是一个医院管理系统中的院长查询模块

      End
   End
   Begin MSRDC.MSRDC biao 
      Height          =   375
      Left            =   3345
      Top             =   1665
      Visible         =   0   'False
      Width           =   2910
      _ExtentX        =   5133
      _ExtentY        =   661
      _Version        =   393216
      Options         =   0
      CursorDriver    =   1
      BOFAction       =   0
      EOFAction       =   0
      RecordsetType   =   1
      LockType        =   3
      QueryType       =   0
      Prompt          =   3
      Appearance      =   1
      QueryTimeout    =   30
      RowsetSize      =   100
      LoginTimeout    =   15
      KeysetSize      =   0
      MaxRows         =   0
      ErrorThreshold  =   -1
      BatchSize       =   15
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Enabled         =   -1  'True
      ReadOnly        =   0   'False
      Appearance      =   -1  'True
      DataSourceName  =   ""
      RecordSource    =   ""
      UserName        =   ""
      Password        =   ""
      Connect         =   ""
      LogMessages     =   ""
      Caption         =   "MSRDC1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "stuff_form_statistics.frx":030A
      Height          =   5715
      Left            =   60
      OleObjectBlob   =   "stuff_form_statistics.frx":0319
      TabIndex        =   13
      Top             =   975
      Width           =   9360
   End
   Begin ResizeLibCtl.ReSize ReSize1 
      Left            =   780
      Top             =   2085
      _Version        =   196608
      _ExtentX        =   741
      _ExtentY        =   741
      _StockProps     =   64
      Enabled         =   -1  'True
      Enabled         =   -1  'True
      FormMinWidth    =   0
      FormMinHeight   =   0
      AutoCenterFormOnLoad=   -1  'True
      FormDesignHeight=   6825
      FormDesignWidth =   9510
   End
End
Attribute VB_Name = "stuff_form_statistics"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Dim mkind_code As String

Private Sub browse_com_Click()
    If (Not IsDate(begin_date.Text)) Or begin_date.Text < "2000-01-01" Or begin_date > Date Then
        MsgBox "起始日期错误", 32, "提示"
        begin_date.SetFocus
        Exit Sub
    End If
    If (Not IsDate(end_date.Text)) Or end_date.Text < "2000-01-01" Or end_date > Date Then
        MsgBox "终止日期错误", 32, "提示"
        end_date.SetFocus
        Exit Sub
    End If

   biao.SQL = "stuff_form_statistics '" + CStr(CDate(begin_date)) + "','" + CStr(CDate(CDate(end_date) + 1)) + "','" + mkind_code + "'"
    biao.Refresh
End Sub

Private Sub Form_Load()
    biao.DataSourceName = dbfname
    biao.Connect = dbfstr
    end_date.Text = Date
    begin_date.Text = DateAdd("m", -1, Date)
    begin_date.Text = DateAdd("d", 1, begin_date.Text)
 
     '''''隐藏主菜单''''''''''''''
    Form3.Visible = False
    Form3.Enabled = False
    '''''''''''''''''''''''
    stuff_kind.AddItem "卫生材料"
    stuff_kind.AddItem "卫杂材料"
    stuff_kind.AddItem "其他材料"
    stuff_kind.Text = "卫生材料"

End Sub
Private Sub Form_Unload(Cancel As Integer)
    Form3.Enabled = True
    Form3.Visible = True

End Sub

Private Sub print_com_Click()
    Dim s As Integer
    Dim j As Integer
   
    If biao.SQL = "" Then
        MsgBox "没有数据", , "错误"
        Exit Sub
    End If
   
    
    If biao.Resultset.EOF And biao.Resultset.BOF Then
        MsgBox "没有数据", , "错误"
        Exit Sub
    End If
    If biao.Resultset.RowCount = 1 Then
        MsgBox "没有数据", , "错误"
        print_COM.Enabled = False
        Exit Sub
    End If
   biao.Resultset.MoveFirst
    Screen.MousePointer = 11
    '打印
    Printer.PaperSize = 39
         Printer.FontSize = 20
        Printer.FontName = "隶书"
        Printer.Print Space(20) + yuanming + " 材 料 盘 点 统 计 表"
        Printer.FontSize = 12
        Printer.Print ""
        
        Printer.Print " [ " + stuff_kind.Text + " ]" + Space(38) + CStr(begin_date.Text) + "--" + CStr(end_date.Text)
        Printer.FontName = "宋体"
        
        Printer.Print "┌───────────────┬───────┬───────┬───────┬───────┬───────┬───────┬───────┐"
        Printer.Print "│   材     料      名     称   │   前期结存   │   本期入库   │   本期出库   │   本期退库   │   本期返库   │   本期清查   │   本期结存   │"
            Do While Not biao.Resultset.EOF
        Printer.Print "├───────────────┼───────┼───────┼───────┼───────┼───────┼───────┼───────┤"
                    
         Printer.Print "│" + printstr(biao.Resultset!材料名称, 30) + iszero(biao.Resultset!前期结存) _
                                ; "│" + iszero(biao.Resultset!本期入库) _
                                ; "│" + iszero(biao.Resultset!本期出库) _
                                ; "│" + iszero(biao.Resultset!本期退库) _
                                ; "│" + iszero(biao.Resultset!本期返库) _
                                ; "│" + iszero(biao.Resultset!本期清查) _
                                ; "│" + iszero(biao.Resultset!本期结存) _
                                ; "│"
    
                 biao.Resultset.MoveNext
           Loop
            Printer.Print "└───────────────┴───────┴───────┴───────┴───────┴───────┴───────┴───────┘"
            Printer.Print " 科(处)长:           报表人:" + mop_name + "     审核:            库保:            打印日期:" + CStr(Date) + "     打印时间:" + CStr(Time)
    

    Printer.EndDoc
    Screen.MousePointer = 0
    MsgBox "打印结束", , "确定"
End Sub

Private Sub quit_com_Click()
    Unload Me
End Sub




Private Sub stuff_kind_Click()
    If stuff_kind.Text = "卫生材料" Then mkind_code = "H"
    If stuff_kind.Text = "卫杂材料" Then mkind_code = "I"
    If stuff_kind.Text = "其他材料" Then mkind_code = "J"
End Sub

Private Sub UpDown_begin_DownClick()
    If IsDate(begin_date) Then
        begin_date.Text = CStr(CDate(begin_date.Text) - 1)
        If begin_date.Text < "2000-01-01" Then begin_date = "2000-01-01"
        If begin_date.Text > Date Then begin_date = Date
    End If
End Sub
Private Sub UpDown_begin_UpClick()
    If IsDate(begin_date) Then
        begin_date.Text = CStr(CDate(begin_date.Text) + 1)
        If begin_date.Text < "2000-01-01" Then begin_date = "2000-01-01"
        If begin_date.Text > Date Then begin_date = Date
    End If
End Sub
Private Sub UpDown_end_DownClick()
    If IsDate(end_date) Then
        end_date.Text = CStr(CDate(end_date.Text) - 1)
        If end_date.Text < "2000-01-01" Then end_date = "2000-01-01"
        If end_date.Text > Date Then end_date = Date
    End If
End Sub
Private Sub UpDown_end_UpClick()
    If IsDate(end_date) Then
        end_date.Text = CStr(CDate(end_date.Text) + 1)
        If end_date.Text < "2000-01-01" Then end_date = "2000-01-01"
        If end_date.Text > Date Then end_date = Date
    End If
End Sub