English
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：15k
源码类别：
企业管理
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{C5DE3F80-3376-11D2-BAA4-04F205C10000}#1.0#0"; "VSFLEX6D.OCX"
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
- Begin VB.Form Qr_RsArFrm
- Caption = "档案信息列表"
- ClientHeight = 6375
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 11580
- BeginProperty Font
- Name = "宋体"
- Size = 14.25
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- HelpContextID = 1601
- Icon = "查询_相关档案查询结果.frx":0000
- LinkTopic = "Form1"
- MDIChild = -1 'True
- ScaleHeight = 6375
- ScaleWidth = 11580
- Begin VB.PictureBox Picture1
- Align = 1 'Align Top
- BeginProperty Font
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 820
- Left = 0
- Picture = "查询_相关档案查询结果.frx":1042
- ScaleHeight = 765
- ScaleWidth = 11520
- TabIndex = 1
- Top = 570
- Width = 11580
- Begin VB.Label Lbl_ArSort
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "相关档案列表"
- BeginProperty Font
- Name = "宋体"
- Size = 14.25
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 285
- Left = 495
- TabIndex = 2
- Top = 150
- Width = 1800
- End
- End
- Begin VSFlex6DAOCtl.vsFlexGrid vsFlexGrid1
- Height = 5625
- Left = 0
- TabIndex = 0
- Top = 1440
- Width = 11220
- _ExtentX = 19791
- _ExtentY = 9922
- _ConvInfo = 1
- 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 = -2147483648
- ForeColorFixed = -2147483630
- BackColorSel = -2147483635
- ForeColorSel = -2147483634
- BackColorBkg = -2147483636
- BackColorAlternate= -2147483643
- GridColor = -2147483633
- GridColorFixed = 4210752
- TreeColor = -2147483632
- FloodColor = 192
- SheetBorder = -2147483642
- FocusRect = 1
- HighLight = 1
- AllowSelection = -1 'True
- AllowBigSelection= -1 'True
- AllowUserResizing= 1
- SelectionMode = 3
- GridLines = 1
- GridLinesFixed = 1
- GridLineWidth = 1
- Rows = 2
- Cols = 1
- FixedRows = 1
- FixedCols = 0
- RowHeightMin = 300
- 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 = 1
- 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.Toolbar SzToolbar
- Align = 1 'Align Top
- Height = 570
- Left = 0
- TabIndex = 3
- Top = 0
- Width = 11580
- _ExtentX = 20426
- _ExtentY = 1005
- ButtonWidth = 820
- ButtonHeight = 953
- AllowCustomize = 0 'False
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 12
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "设置"
- Key = "ymsz"
- ImageIndex = 1
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "打印"
- Key = "dy"
- ImageIndex = 2
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "预览"
- Key = "yl"
- ImageIndex = 3
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "查询"
- Key = "Filt"
- ImageKey = "cx"
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "刷新"
- Key = "sx"
- ImageIndex = 10
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "编辑"
- Key = "Edit"
- ImageIndex = 11
- EndProperty
- BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 4
- EndProperty
- BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "帮助"
- Key = "bz"
- ImageIndex = 5
- EndProperty
- BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "退出"
- Key = "fh"
- ImageIndex = 6
- EndProperty
- EndProperty
- BorderStyle = 1
- Begin MSComctlLib.ImageList ImageList1
- Left = 5040
- Top = 120
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 12
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":35106
- Key = "sz"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":354A0
- Key = "dy"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":3583A
- Key = "yl"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":35BD4
- Key = "cx"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":35F6E
- Key = "bz"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":36308
- Key = "tc"
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":366A2
- Key = "bcgs"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":36A3C
- Key = "mrlk"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":36DD6
- Key = "xsxm"
- EndProperty
- BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":37170
- Key = "sx"
- EndProperty
- BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":3750A
- Key = "bj"
- EndProperty
- BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_相关档案查询结果.frx":378A4
- Key = "gl"
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.Toolbar GsToolbar
- Height = 540
- Left = 10680
- TabIndex = 4
- Top = 0
- Width = 840
- _ExtentX = 1482
- _ExtentY = 953
- ButtonWidth = 1455
- ButtonHeight = 953
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 3
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "保存格式"
- Key = "bcgs"
- ImageIndex = 7
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Object.Visible = 0 'False
- Caption = "默认列宽"
- Key = "hfmrgs"
- ImageIndex = 8
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Enabled = 0 'False
- Object.Visible = 0 'False
- Caption = "显示项目"
- Key = "szxsxm"
- ImageIndex = 9
- EndProperty
- EndProperty
- End
- End
- End
- Attribute VB_Name = "Qr_RsArFrm"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- Option Explicit
- Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
- Dim ReportTitle As String '报表主标题
- Private Sub Form_Load()
- XtReportCode = "DEV_mainxx"
- Load Dyymctbl
- ReportTitle = "档案信息列表"
- End Sub
- Private Sub Form_Resize()
- On Error Resume Next
- With vsFlexGrid1
- If Me.Width < 10455 Then Me.Width = 10455
- If Me.Height < 6375 Then Me.Height = 6375
- .Width = Me.Width - 120
- .Height = Me.Height - .Top - 400
- End With
- End Sub
- Private Sub Form_Unload(Cancel As Integer)
- '卸载条件窗体
- Qr_RsArCndFrm.Chk_Unload.Value = 1
- Unload Qr_RsArCndFrm
- '卸载打印页面设置窗体
- Unload Dyymctbl
- End Sub
- Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
- Select Case Button.Key
- Case "bcgs"
- Dim i As Integer
- With vsFlexGrid1
- For i = 1 To .Cols - 1
- Cw_DataEnvi.DataConnect.Execute "update dev_Item set width=" & .ColWidth(i) & " where ItemChineseName='" & .TextMatrix(0, i) & "'"
- Next i
- MsgBox "保存成功！ ", 48
- End With
- End Select
- End Sub
- Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
- Select Case Button.Key
- Case "ymsz" '页面设置
- Dyymctbl.Show 1
- Case "yl" '预 览
- Call bbyl(True)
- Case "dy" '打 印
- Call bbyl(False)
- Case "Filt"
- Qr_RsArCndFrm.Show 1
- Case "sx"
- Qr_RsArCndFrm.Enployeeinfo_Query P_Ssql
- Case "Edit"
- vsFlexGrid1_DblClick
- Case "bz" '帮 助
- Call F1bz
- Case "fh"
- Unload Me
- End Select
- End Sub
- Private Sub InitGrid()
- ArSort (Cbo_ArSort.ListIndex)
- End Sub
- Private Sub bbyl(bbylte As Boolean) '报表打印预览
- Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
- Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
- Bbxbtgs = 1 '报 表 小 标 题 行 数
- Bbbwhgs = 0 '报 表 表 尾 行 数
- ReDim Bbxbt(1 To Bbxbtgs)
- ReDim bbxbtzzxs(1 To Bbxbtgs)
- If Bbbwhgs <> 0 Then
- ReDim Bbbwh(1 To Bbbwhgs)
- ReDim Bbbwhzzxs(1 To Bbbwhgs)
- End If
- Bbzbt = ReportTitle
- Bbxbt(1) = " "
- bbxbtzzxs(1) = 0 '报表行组织形式(0-居左 1-居中 2-居右)
- Call Scyxsjb(vsFlexGrid1) '生成报表数据
- Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
- If Not bbylte Then
- Unload DY_Tybbyldy
- End If
- End Sub
- Private Sub vsFlexGrid1_DblClick()
- If vsFlexGrid1.Row > 0 Then
- AddExit_TF = False
- ' With MS_ItemInfo
- ' .Caption = "档案修改"
- ' .Text1.Text = MS_ItemQInfo.vsFlexGrid1.Tag
- ' .Command1.Tag = Me.Tag
- ' .Form_Load
- ' .Text_T(1).Text = vsFlexGrid1.TextMatrix(vsFlexGrid1.Row, 1)
- ' .Text_T_KeyDown 1, 13, 0
- ' .Show 1
- ' End With
- Else
- Exit Sub
- End If
- End Sub
