企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Object = "{65A39231-6133-11D1-BAA2-444553540000}#1.0#0"; "vslight6.OCX"
Object = "{7E00A3A2-8F5C-11D2-BAA4-04F205C10000}#1.0#0"; "VSVIEW6.OCX"
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form DY_Tybbyldy 
   Caption         =   "报表预览"
   ClientHeight    =   7755
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10890
   HelpContextID   =   2111004
   Icon            =   "系统_打印预览.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   7755
   ScaleWidth      =   10890
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   225
      Left            =   7020
      ScaleHeight     =   225
      ScaleWidth      =   3795
      TabIndex        =   6
      Top             =   60
      Width           =   3795
      Begin VB.Label label1 
         BackStyle       =   0  'Transparent
         Caption         =   "显示比例"
         ForeColor       =   &H00000000&
         Height          =   300
         Left            =   120
         TabIndex        =   10
         Top             =   30
         Width           =   825
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "当前页号:"
         ForeColor       =   &H00000000&
         Height          =   270
         Left            =   1200
         TabIndex        =   9
         Top             =   30
         Width           =   855
      End
      Begin VB.Label Gjyh 
         ForeColor       =   &H00000000&
         Height          =   300
         Left            =   2640
         TabIndex        =   8
         Top             =   30
         Width           =   975
      End
      Begin VB.Label Dqyh 
         ForeColor       =   &H00FF0000&
         Height          =   300
         Left            =   2010
         TabIndex        =   7
         Top             =   30
         Width           =   615
      End
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   4740
      Top             =   60
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   5
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "系统_打印预览.frx":1042
            Key             =   "dy"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "系统_打印预览.frx":13DC
            Key             =   "sy"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "系统_打印预览.frx":1776
            Key             =   "xy"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "系统_打印预览.frx":1B10
            Key             =   "bz"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "系统_打印预览.frx":1EAA
            Key             =   "tc"
         EndProperty
      EndProperty
   End
   Begin VSFlex8Ctl.VSFlexGrid DyylGrid 
      Height          =   705
      Left            =   2850
      TabIndex        =   5
      Top             =   -30
      Visible         =   0   'False
      Width           =   2775
      _ExtentX        =   4895
      _ExtentY        =   1244
      Appearance      =   1
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   0
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      BackColorFixed  =   -2147483633
      ForeColorFixed  =   -2147483630
      BackColorSel    =   -2147483635
      ForeColorSel    =   -2147483634
      BackColorBkg    =   -2147483636
      BackColorAlternate=   -2147483643
      GridColor       =   -2147483633
      GridColorFixed  =   -2147483632
      TreeColor       =   -2147483632
      FloodColor      =   192
      SheetBorder     =   -2147483642
      FocusRect       =   1
      HighLight       =   1
      AllowSelection  =   -1  'True
      AllowBigSelection=   -1  'True
      AllowUserResizing=   0
      SelectionMode   =   0
      GridLines       =   1
      GridLinesFixed  =   2
      GridLineWidth   =   1
      Rows            =   50
      Cols            =   10
      FixedRows       =   1
      FixedCols       =   0
      RowHeightMin    =   0
      RowHeightMax    =   0
      ColWidthMin     =   0
      ColWidthMax     =   0
      ExtendLastCol   =   0   'False
      FormatString    =   ""
      ScrollTrack     =   0   'False
      ScrollBars      =   3
      ScrollTips      =   0   'False
      MergeCells      =   0
      MergeCompare    =   0
      AutoResize      =   -1  'True
      AutoSizeMode    =   0
      AutoSearch      =   0
      MultiTotals     =   -1  'True
      SubtotalPosition=   1
      OutlineBar      =   0
      OutlineCol      =   0
      Ellipsis        =   0
      ExplorerBar     =   0
      PicturesOver    =   0   'False
      FillStyle       =   0
      RightToLeft     =   0   'False
      PictureType     =   0
      TabBehavior     =   0
      OwnerDraw       =   0
      Editable        =   0   'False
      ShowComboButton =   -1  'True
      WordWrap        =   0   'False
      TextStyle       =   0
      TextStyleFixed  =   0
      OleDragMode     =   0
      OleDropMode     =   0
      DataMode        =   0
      VirtualData     =   -1  'True
   End
   Begin MSComctlLib.StatusBar DYStatus 
      Align           =   2  'Align Bottom
      Height          =   405
      Left            =   0
      TabIndex        =   3
      Top             =   7350
      Width           =   10890
      _ExtentX        =   19209
      _ExtentY        =   714
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   13573
         EndProperty
      EndProperty
   End
   Begin VB.HScrollBar PageHScroll 
      Height          =   300
      Left            =   8025
      TabIndex        =   2
      Top             =   345
      Width           =   2715
   End
   Begin VB.ComboBox Xsbl 
      Height          =   300
      Left            =   7080
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   345
      Width           =   885
   End
   Begin VSVIEW6Ctl.VSPrinter Tydy 
      Height          =   6615
      Left            =   60
      TabIndex        =   0
      Top             =   720
      Width           =   10680
      _cx             =   4213142
      _cy             =   4205972
      Appearance      =   1
      BorderStyle     =   1
      Enabled         =   -1  'True
      MousePointer    =   0
      BackColor       =   -2147483643
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty HdrFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Courier New"
         Size            =   14.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      AutoRTF         =   -1  'True
      Preview         =   -1  'True
      DefaultDevice   =   0   'False
      PhysicalPage    =   -1  'True
      AbortWindow     =   -1  'True
      AbortWindowPos  =   0
      AbortCaption    =   "Printing..."
      AbortTextButton =   "Cancel"
      AbortTextDevice =   "on the %s on %s"
      AbortTextPage   =   "Now printing Page %d of"
      FileName        =   ""
      MarginLeft      =   1440
      MarginTop       =   1440
      MarginRight     =   1440
      MarginBottom    =   1440
      MarginHeader    =   0
      MarginFooter    =   0
      IndentLeft      =   0
      IndentRight     =   0
      IndentFirst     =   0
      IndentTab       =   720
      SpaceBefore     =   0
      SpaceAfter      =   0
      LineSpacing     =   100
      Columns         =   1
      ColumnSpacing   =   180
      ShowGuides      =   2
      LargeChangeHorz =   300
      LargeChangeVert =   300
      SmallChangeHorz =   500
      SmallChangeVert =   500
      Track           =   0   'False
      ProportionalBars=   -1  'True
      Zoom            =   36.096256684492
      ZoomMode        =   3
      ZoomMax         =   400
      ZoomMin         =   10
      ZoomStep        =   40
      MouseZoom       =   1
      MouseScroll     =   -1  'True
      MousePage       =   -1  'True
      EmptyColor      =   -2147483636
      TextColor       =   0
      HdrColor        =   0
      BrushColor      =   0
      BrushStyle      =   0
      PenColor        =   0
      PenStyle        =   0
      PenWidth        =   0
      PageBorder      =   0
      Header          =   ""
      Footer          =   ""
      TableSep        =   "|;"
      TableBorder     =   7
      TablePen        =   0
      TablePenLR      =   0
      TablePenTB      =   0
      HTMLStyle       =   1
      Begin VB.Image Image1 
         Height          =   1140
         Left            =   855
         Picture         =   "系统_打印预览.frx":2244
         Top             =   2385
         Visible         =   0   'False
         Width           =   1065
      End
   End
   Begin MSComctlLib.Toolbar YlToolbar 
      Align           =   1  'Align Top
      Height          =   630
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   10890
      _ExtentX        =   19209
      _ExtentY        =   1111
      ButtonWidth     =   900
      ButtonHeight    =   953
      AllowCustomize  =   0   'False
      Appearance      =   1
      HelpContextID   =   2111004
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   7
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打 印"
            Key             =   "dy"
            ImageKey        =   "dy"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "上 页"
            Key             =   "sy"
            ImageKey        =   "sy"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "下 页"
            Key             =   "xy"
            ImageKey        =   "xy"
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮 助"
            Key             =   "bz"
            ImageKey        =   "bz"
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "返 回"
            Key             =   "fh"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "DY_Tybbyldy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'*    模 块 名 称 :报表打印预览
'*    功 能 描 述 :实现对报表按各种比例的模拟显示
'*    程序员姓名  :张建忠
'*    最后修改人  :张建忠
'*    最后修改时间:2001/06/23
'*    备        注:封版
'*******************************************************
Dim Ylzybl As Double, ylms As Integer                 '预 览 整 页 比 例
Dim Changelock As Boolean                             '程 序 改 变 值 控 制 锁
Private Sub PageHScroll_Change()                      '利用滚动条改变页号
    With Tydy
        If Not Changelock Then
            .PreviewPage = PageHScroll.Value
            If .PreviewPage = 1 Then
                YlToolbar.Buttons("sy").Enabled = False
            Else
                YlToolbar.Buttons("sy").Enabled = True
            End If
            If .PreviewPage < .Pagecount Then
                YlToolbar.Buttons("xy").Enabled = True
            Else
                YlToolbar.Buttons("xy").Enabled = False
            End If
        End If
        Dqyh = Trim(Str(.PreviewPage))
        Gjyh = "(共计:" + Trim(Str(.Pagecount)) + "页)"
    End With
End Sub
Private Sub Tydy_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    With Tydy
        If .Zoom <> 100 Then
            .Zoom = 100
            Xsbl.Text = "100%"
        Else
            Changelock = True
            .ZoomMode = ylms
            Select Case .ZoomMode
                Case zmPageWidth
                    Xsbl.Text = "页宽"
                Case zmWholePage
                    Xsbl.Text = "整页"
                Case zmThumbnail
                    Xsbl.Text = "双页"
            End Select
            Changelock = False
        End If
    End With
End Sub
Private Sub Xsbl_Click()                  '调 整 预 览 比 例
    If Changelock Then
        Exit Sub
    End If
    With Tydy
        Select Case Xsbl.Text
            Case "页宽"
                .ZoomMode = zmPageWidth
                ylms = .ZoomMode
            Case "整页"
                .ZoomMode = zmWholePage
                ylms = .ZoomMode
            Case "双页"
                .ZoomMode = zmThumbnail
                ylms = .ZoomMode
            Case Else
                .Zoom = Val(Mid(Xsbl.Text, 1, Len(Xsbl.Text) - 1))
        End Select
    End With
End Sub
Private Sub Form_Load()
    Me.HelpContextID = 2111004
   
    With Tydy
        Ylzybl = .Zoom
        .ZoomMax = 400
        .ZoomMin = 25
    End With
    With Xsbl
        .AddItem "页宽"
        .AddItem "整页"
        .AddItem "双页"
        .AddItem "10%"
        .AddItem "25%"
        .AddItem "50%"
        .AddItem "75%"
        .AddItem "100%"
        .AddItem "150%"
        .AddItem "200%"
        .AddItem "400%"
        Changelock = True
        .Text = "整页"
        ylms = Tydy.ZoomMode
        Changelock = False
    End With
End Sub
Private Sub Qpage()                             '向 前 翻 页
    With Tydy
        If .PreviewPage > 1 Then
            .PreviewPage = .PreviewPage - 1
            If .PreviewPage = 1 Then
                YlToolbar.Buttons("sy").Enabled = False
            End If
            If .PreviewPage < .Pagecount Then
                YlToolbar.Buttons("xy").Enabled = True
            End If
            Changelock = True
            PageHScroll.Value = .PreviewPage
            Changelock = False
        End If
    End With
End Sub
Private Sub Hpage()                        '向 后 翻 页
    With Tydy
        If .PreviewPage < .Pagecount Then
            .PreviewPage = .PreviewPage + 1
            If .PreviewPage > 1 Then
                YlToolbar.Buttons("sy").Enabled = True
            End If
            If .PreviewPage >= .Pagecount Then
                YlToolbar.Buttons("xy").Enabled = False
            End If
            Changelock = True
            PageHScroll.Value = .PreviewPage
            Changelock = False
        End If
    End With
  
End Sub
Private Sub YlToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)      '点击工具条
    Select Case Button.Key
        Case "dy"
            Call dyscbb
        Case "sy"
            Call Qpage
        Case "xy"
            Call Hpage
        Case "fh"
            Unload Me
        Case "bz"
            Call F1bz
    End Select
End Sub

						