English
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：18k
源码类别：
企业管理
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
- Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
- Object = "{54850C51-14EA-4470-A5E4-8C5DB32DC853}#1.0#0"; "vsprint8.ocx"
- Begin VB.Form DY_Tybbyldy
- Caption = "报表预览"
- ClientHeight = 7755
- ClientLeft = 1425
- ClientTop = 1650
- ClientWidth = 11100
- Icon = "打印预览.frx":0000
- LinkTopic = "Form1"
- ScaleHeight = 7755
- ScaleWidth = 11100
- Begin VSFlex8Ctl.VSFlexGrid DyylGrid
- Height = 540
- Left = 3300
- TabIndex = 9
- Top = 1125
- Visible = 0 'False
- Width = 8040
- _cx = 14182
- _cy = 952
- 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 = 1
- 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
- AutoSearchDelay = 2
- 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
- ShowComboButton = 1
- WordWrap = 0 'False
- TextStyle = 0
- TextStyleFixed = 0
- OleDragMode = 0
- OleDropMode = 0
- DataMode = 0
- VirtualData = -1 'True
- DataMember = ""
- ComboSearch = 3
- AutoSizeMouse = -1 'True
- FrozenRows = 0
- FrozenCols = 0
- AllowUserFreezing= 0
- BackColorFrozen = 0
- ForeColorFrozen = 0
- WallPaperAlignment= 9
- AccessibleName = ""
- AccessibleDescription= ""
- AccessibleValue = ""
- AccessibleRole = 24
- End
- Begin VSPrinter8LibCtl.VSPrinter Tydy
- Height = 6615
- Left = 0
- TabIndex = 10
- Top = 675
- Width = 10815
- _cx = 19076
- _cy = 11668
- Appearance = 1
- BorderStyle = 1
- Enabled = -1 'True
- MousePointer = 0
- BackColor = -2147483643
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "Arial"
- Size = 11.25
- Charset = 0
- 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 = 30
- SmallChangeVert = 30
- Track = 0 'False
- ProportionalBars= -1 'True
- Zoom = 34.4919786096257
- ZoomMode = 3
- ZoomMax = 400
- ZoomMin = 10
- ZoomStep = 25
- 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
- NavBar = 3
- NavBarColor = -2147483633
- ExportFormat = 0
- URL = ""
- Navigation = 3
- NavBarMenuText = "Whole &Page|Page &Width|&Two Pages|Thumb&nail"
- AutoLinkNavigate= 0 'False
- AccessibleName = ""
- AccessibleDescription= ""
- AccessibleValue = ""
- AccessibleRole = 9
- Begin VB.Image Image1
- Height = 1140
- Left = 0
- Picture = "打印预览.frx":08CA
- Top = 0
- Visible = 0 'False
- Width = 1065
- End
- End
- Begin VB.PictureBox Picture1
- Appearance = 0 'Flat
- BorderStyle = 0 'None
- ForeColor = &H80000008&
- Height = 225
- Left = 7020
- ScaleHeight = 225
- ScaleWidth = 3795
- TabIndex = 4
- Top = 60
- Width = 3795
- Begin VB.Label label1
- BackStyle = 0 'Transparent
- Caption = "显示比例"
- ForeColor = &H00000000&
- Height = 300
- Left = 120
- TabIndex = 8
- Top = 30
- Width = 825
- End
- Begin VB.Label Label2
- BackStyle = 0 'Transparent
- Caption = "当前页号:"
- ForeColor = &H00000000&
- Height = 270
- Left = 1200
- TabIndex = 7
- Top = 30
- Width = 855
- End
- Begin VB.Label Gjyh
- ForeColor = &H00000000&
- Height = 300
- Left = 2640
- TabIndex = 6
- Top = 30
- Width = 975
- End
- Begin VB.Label Dqyh
- ForeColor = &H00FF0000&
- Height = 300
- Left = 2010
- TabIndex = 5
- 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":1388
- Key = "dy"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "打印预览.frx":1722
- Key = "sy"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "打印预览.frx":1ABC
- Key = "xy"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "打印预览.frx":1E56
- Key = "bz"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "打印预览.frx":21F0
- Key = "tc"
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.StatusBar DYStatus
- Align = 2 'Align Bottom
- Height = 405
- Left = 0
- TabIndex = 2
- Top = 7350
- Width = 11100
- _ExtentX = 19579
- _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 = 13917
- EndProperty
- EndProperty
- End
- Begin VB.HScrollBar PageHScroll
- Height = 300
- Left = 8025
- TabIndex = 1
- Top = 345
- Width = 2715
- End
- Begin VB.ComboBox Xsbl
- Height = 300
- Left = 7080
- Style = 2 'Dropdown List
- TabIndex = 0
- Top = 345
- Width = 885
- End
- Begin MSComctlLib.Toolbar YlToolbar
- Align = 1 'Align Top
- Height = 615
- Left = 0
- TabIndex = 3
- Top = 0
- Width = 11100
- _ExtentX = 19579
- _ExtentY = 1085
- ButtonWidth = 979
- ButtonHeight = 926
- 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
