English
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：16k
源码类别：
企业管理
开发平台：
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 = 10755
- HelpContextID = 1601003
- Icon = "系统_打印预览.frx":0000
- LinkTopic = "Form1"
- ScaleHeight = 7755
- ScaleWidth = 10755
- 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
- Font = "系统_打印预览.frx":2244
- 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 = 10755
- _ExtentX = 18971
- _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 = 13335
- 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
- Font = "系统_打印预览.frx":2267
- HdrFont = "系统_打印预览.frx":228A
- 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 = 0
- Picture = "系统_打印预览.frx":22B4
- Top = 0
- Visible = 0 'False
- Width = 1065
- End
- End
- Begin MSComctlLib.Toolbar YlToolbar
- Align = 1 'Align Top
- Height = 630
- Left = 0
- TabIndex = 4
- Top = 0
- Width = 10755
- _ExtentX = 18971
- _ExtentY = 1111
- ButtonWidth = 900
- ButtonHeight = 953
- AllowCustomize = 0 'False
- Appearance = 1
- 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()
- 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
