资源名称:ERPSYS.zip [点击查看]
上传用户:zhpu1995
上传日期:2013-09-06
资源大小:61151k
文件大小:50k
源码类别:
企业管理
开发平台:
Visual Basic
- VERSION 5.00
- Object = "{65A39231-6133-11D1-BAA2-444553540000}#1.0#0"; "vslight6.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 Qr_RsChgFrm
- Caption = "人事变动"
- ClientHeight = 8595
- ClientLeft = 315
- ClientTop = 390
- ClientWidth = 11820
- HelpContextID = 5001
- Icon = "查询_人事变动列表.frx":0000
- KeyPreview = -1 'True
- LinkTopic = "Form1"
- MDIChild = -1 'True
- ScaleHeight = 8595
- ScaleWidth = 11820
- WindowState = 2 'Maximized
- Begin MSComctlLib.Toolbar GsToolbar
- Height = 540
- Left = 9330
- TabIndex = 3
- Top = 30
- Width = 2475
- _ExtentX = 4366
- _ExtentY = 953
- ButtonWidth = 1455
- ButtonHeight = 953
- Appearance = 1
- Style = 1
- ImageList = "ImageList2"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 3
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "保存格式"
- Key = "bcgs"
- ImageKey = "bcgs"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "默认列宽"
- Key = "hfmrgs"
- ImageKey = "mrlk"
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "显示项目"
- Key = "szxsxm"
- ImageKey = "xsxm"
- EndProperty
- EndProperty
- End
- Begin VB.PictureBox Pic_Title
- BackColor = &H00FFFFFF&
- Height = 825
- Left = 0
- Picture = "查询_人事变动列表.frx":1042
- ScaleHeight = 765
- ScaleWidth = 11715
- TabIndex = 1
- Top = 570
- Width = 11775
- Begin VB.Label Lab_Title
- AutoSize = -1 'True
- BackColor = &H80000018&
- BackStyle = 0 'Transparent
- Caption = "人事变动"
- BeginProperty Font
- Name = "宋体"
- Size = 12
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00000000&
- Height = 240
- Index = 4
- Left = 510
- TabIndex = 2
- Top = 210
- Width = 1020
- End
- End
- Begin VB.Timer Timer1
- Enabled = 0 'False
- Interval = 1
- Left = 7620
- Top = 90
- End
- Begin VSFlex8Ctl.VSFlexGrid CxbbGrid
- Height = 7095
- Left = 0
- TabIndex = 0
- Top = 1440
- Width = 11775
- _ExtentX = 20770
- _ExtentY = 12515
- 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 = 16777215
- ForeColor = -2147483640
- BackColorFixed = -2147483633
- ForeColorFixed = -2147483630
- BackColorSel = -2147483635
- ForeColorSel = -2147483634
- BackColorBkg = -2147483636
- BackColorAlternate= 16777215
- 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
- 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
- Begin MSComctlLib.ImageList ImageList2
- Left = 0
- Top = 0
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 40
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":1DF82
- Key = "sz"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":1E31C
- Key = "dy"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":1E6B6
- Key = "yl"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":1EA50
- Key = "xg"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":1EDEA
- Key = "zh"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":1F184
- Key = "sh"
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":1F51E
- Key = "bc"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":1F8B8
- Key = "fq"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":1FC52
- Key = "bz"
- EndProperty
- BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":1FFEC
- Key = "tc"
- EndProperty
- BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":20386
- Key = "bcgs"
- EndProperty
- BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":20720
- Key = "mrlk"
- EndProperty
- BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":20ABA
- Key = "xsxm"
- EndProperty
- BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":20E54
- Key = "first"
- EndProperty
- BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":211EE
- Key = "prev"
- EndProperty
- BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":21588
- Key = "next"
- EndProperty
- BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":21922
- Key = "last"
- EndProperty
- BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":21CBC
- Key = "xx"
- EndProperty
- BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":22056
- Key = "define"
- EndProperty
- BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":223F0
- Key = "exec"
- EndProperty
- BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2278A
- Key = "xz"
- EndProperty
- BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":22B24
- Key = "sc"
- EndProperty
- BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":22EBE
- Key = "sx"
- EndProperty
- BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":23258
- Key = "cx"
- EndProperty
- BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":235F2
- Key = "zd"
- EndProperty
- BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2398C
- Key = "dz"
- EndProperty
- BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":23D26
- Key = "ph"
- EndProperty
- BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":240C0
- Key = "fz"
- EndProperty
- BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2445A
- Key = "dw"
- EndProperty
- BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":247F4
- Key = "hf"
- EndProperty
- BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":24B8E
- Key = "pz"
- EndProperty
- BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":24F28
- Key = "check"
- EndProperty
- BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":252C2
- Key = "qs"
- EndProperty
- BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2565C
- Key = "fullcheck"
- EndProperty
- BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":259F6
- Key = "qq"
- EndProperty
- BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":25D90
- Key = "bcw"
- EndProperty
- BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2612A
- Key = "ye"
- EndProperty
- BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":264C4
- Key = ""
- EndProperty
- BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2685E
- Key = "frist"
- EndProperty
- BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":26BF8
- Key = "dj"
- EndProperty
- EndProperty
- End
- End
- Begin MSComctlLib.Toolbar SzToolbar
- Align = 1 'Align Top
- Height = 570
- Left = 0
- TabIndex = 4
- Top = 0
- Width = 11820
- _ExtentX = 20849
- _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"
- ImageKey = "sz"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "打印"
- Key = "dy"
- ImageKey = "dy"
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "预览"
- Key = "yl"
- ImageKey = "yl"
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "查询"
- Key = "cx"
- ImageKey = "cx"
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "编辑"
- Key = "edit"
- ImageIndex = 4
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "新增"
- Key = "xz"
- ImageKey = "xz"
- EndProperty
- BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "删除"
- Key = "sc"
- ImageKey = "sc"
- EndProperty
- BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "帮助"
- Key = "bz"
- ImageKey = "bz"
- EndProperty
- BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "退出"
- Key = "fh"
- ImageKey = "tc"
- EndProperty
- EndProperty
- BorderStyle = 1
- Begin MSComctlLib.ImageList ImageList1
- Left = 6990
- Top = 30
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 32
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":26F92
- Key = "sz"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2732C
- Key = "dy"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":276C6
- Key = "yl"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":27A60
- Key = "edit"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":27DFA
- Key = "zh"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":28194
- Key = "sh"
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2852E
- Key = "bc"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":288C8
- Key = "fq"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":28C62
- Key = "bz"
- EndProperty
- BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":28FFC
- Key = "tc"
- EndProperty
- BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":29396
- Key = "bcgs"
- EndProperty
- BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":29730
- Key = "mrlk"
- EndProperty
- BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":29ACA
- Key = "xsxm"
- EndProperty
- BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":29E64
- Key = "first"
- EndProperty
- BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2A1FE
- Key = "prev"
- EndProperty
- BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2A598
- Key = "next"
- EndProperty
- BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2A932
- Key = "last"
- EndProperty
- BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2ACCC
- Key = "xx"
- EndProperty
- BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2B066
- Key = "define"
- EndProperty
- BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2B400
- Key = "exec"
- EndProperty
- BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2B79A
- Key = "xz"
- EndProperty
- BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2BB34
- Key = "sc"
- EndProperty
- BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2BECE
- Key = "sx"
- EndProperty
- BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2C268
- Key = "cx"
- EndProperty
- BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2C602
- Key = "zd"
- EndProperty
- BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2C99C
- Key = "dz"
- EndProperty
- BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2CD36
- Key = "ph"
- EndProperty
- BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2D0D0
- Key = "fz"
- EndProperty
- BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2D46A
- Key = "dw"
- EndProperty
- BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2D804
- Key = "hf"
- EndProperty
- BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2DB9E
- Key = "pz"
- EndProperty
- BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "查询_人事变动列表.frx":2DF38
- Key = "check"
- EndProperty
- EndProperty
- End
- End
- End
- Attribute VB_Name = "Qr_RsChgFrm"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '**************************************************************************
- '* 模 块 名 称 :人事变动列表
- '* 功 能 描 述 :人事变动
- '* 程序员姓名 :郑兴
- '* 最后修改人 :郑兴
- '* 最后修改时间:2002/01/04
- '* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
- '**************************************************************************
- Dim ReportTitle As String '报表主标题
- Dim Str_QueryCondi As String '用户录入查询条件
- Dim Rec_BillID As New ADODB.Recordset '用户查询单据ID动态集
- Dim str_Grid() As String
- '以下为固定使用变量
- Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
- Dim GridCode As String '显示网格网格代码
- Dim GridInf() As Variant '整个网格设置信息
- Dim Tsxx As String '系统提示信息
- Dim Qslz As Long '网格隐藏(非操作显示)列数
- Dim Sjhgd As Double '网格数据行高度
- Dim Sfxshjwg As Boolean '是否显示合计网格
- Dim GridBoolean() As Boolean '网格列信息(布尔型)
- Dim GridStr() As String '网格列信息(字符型)
- Dim GridInt() As Integer '网格列信息(整型)
- Dim Szzls As Integer '数组总列数(网格列数-1)
- Private Sub Form_Resize() '根据窗体大小来调整网格,标题栏大小(Fixed)
- On Error Resume Next
- With CxbbGrid
- .Width = Me.Width - 160
- .Height = Me.Height - .Top - 400
- End With
- With Pic_Title
- .Width = Me.Width - 160
- End With
- GsToolbar.Left = Me.Width - GsToolbar.Width - 140
- End Sub
- Private Sub Form_Load() '窗体装入
- '调入打印页面设置窗体
- ReportTitle = "人事变动"
- XtReportCode = "Rs_RsChgCndFrm"
- Load Dyymctbl
- '调整标题栏及网格、格式工具条位置(Fixed)
- Pic_Title.Left = 40
- Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
- CxbbGrid.Left = Pic_Title.Left
- CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
- '调 入 网 格(Fixed)
- GridCode = "Rs_RsChgCndFrm"
- Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
- Qslz = GridInf(1)
- Sjhgd = GridInf(2)
- Sfxshjwg = GridInf(7)
- Szzls = CxbbGrid.Cols - 1
- End Sub
- Private Sub Form_Unload(Cancel As Integer) '窗体卸载
- '卸载条件窗体
- Qr_RsChgCndFrm.UnloadCheck.Value = 1
- Unload Qr_RsChgCndFrm
- '卸载打印页面设置窗体
- Unload Dyymctbl
- Security_Log "Rs_Qr_RsChange", Xtczybm, 2, False '用户退出时写上机日志
- End Sub
- Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long) '网格列发生移动时自动交换网格索引信息
- Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
- End Sub
- Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button) '网格格式调整(Fixed)
- Select Case Button.Key
- Case "bcgs" '保存表格格式
- Call Bcwggs(CxbbGrid, GridCode, GridStr())
- Case "hfmrgs" '恢复默认格式
- Call Hfmrgs(CxbbGrid, GridCode, GridStr())
- Case "szxsxm" '设置显示项目
- Call Szxsxm(CxbbGrid, GridCode)
- 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 "cx" '查 询
- Qr_RsChgCndFrm.Show 1
- Case "edit" '编 辑
- Call CxbbGrid_DblClick
- Case "xz" '新 增
- Call Sub_AddBill
- Case "sc" '删 除
- Call Sub_DeleteBill
- Case "bz" '帮 助
- Call F1bz
- Case "fh" '退 出
- Unload Me
- End Select
- End Sub
- Private Sub Timer1_Timer() '在窗体激活后调入查询程序
- Timer1.Enabled = False
- Xt_Wait.Show
- Xt_Wait.Refresh
- '加快显示速度
- CxbbGrid.Redraw = False
- '生成查询结果
- Call Sub_Query(0)
- CxbbGrid.Redraw = True
- Xt_Wait.Hide
- End Sub
- Private Sub Sub_Query(Int_QueryType As Integer) '生成查询结果(Define)
- '过程参数:Int_QueryType 0-"点确定按钮"查询 1-"刷新"查询
- Dim Rec_Query As New ADODB.Recordset '查询结果动态集
- Dim Coljsq As Long '网格列计数器
- Dim jsqte As Integer '临时动态计数器
- Dim str_TempSql As String
- Dim rs_Temp As New ADODB.Recordset
- '以下为自定义部分[
- If Int_QueryType = 0 Then '0-"点确定按钮"查询
- With Qr_RsChgCndFrm
- If Trim(.LrText(3).Tag) = "1002" Then
- '调出生成查询条件
- Str_QueryCondi = " where Rs_BasicInfo.YNStop='1' "
- Else
- '其它生成查询条件
- Str_QueryCondi = " where Rs_BasicInfo.YNStop='0' "
- End If
- For jsqte = 1 To 4
- Select Case jsqte
- Case 1 '查询日期范围(起始)
- If Trim(.LrText(0).Text) <> "" Then
- Str_QueryCondi = Str_QueryCondi & " And a.ChangeTime>=' " & Trim(.LrText(0).Text) & "'"
- End If
- Case 2 '查询日期范围(终止)
- If Trim(.LrText(1).Text) <> "" Then
- Str_QueryCondi = Str_QueryCondi & " And a.ChangeTime<= ' " & Trim(.LrText(1).Text) & "'"
- End If
- Case 3 '职工号(Like)
- If Trim(.LrText(2).Text) <> "" Then
- Str_QueryCondi = Str_QueryCondi & " And Rs_BasicInfo.EmpNo like '" & Trim(.LrText(2).Text) & "%'"
- End If
- Case 4 '变动类型
- If Trim(.LrText(3).Text) <> "" Then
- Str_QueryCondi = Str_QueryCondi & " and a.ChangeType = '" & Trim(.LrText(3).Tag) & "'"
- End If
- End Select
- Next jsqte
- End With
- Else
- '1-"刷新"查询
- End If
- Sqlstr = "SELECT a.*,Rs_BasicInfo.EmpNo,Rs_BasicInfo.EmpName" & _
- " FROM Rs_BasicInfo INNER JOIN " & _
- " Rs_Change a ON Rs_BasicInfo.EmpID = a.EmpID " & _
- Str_QueryCondi & " Order By a.EmpID,a.SNo"
- Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- '用来记录变动表中原**等字段的编码,在删除记录时用来还原人事基本表中的信息。
- ReDim str_Grid(Rec_Query.RecordCount + 1, 19)
- With Rec_Query
- CxbbGrid.Rows = CxbbGrid.FixedRows
- jsqte = CxbbGrid.FixedRows
- Do While Not .EOF
- CxbbGrid.AddItem ""
- '[>>自定义填充内容
- CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("EmpID") & "") 'ID号
- CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("SNo")) '顺序号
- CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("EmpNo")) '职工号
- CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("EmpName") & "") '姓名
- '变动类型
- str_TempSql = "select * from Rs_CorSub where SortId='1'and ListId ='" & Trim(.Fields("ChangeType")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "") '变动类型
- End If
- CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Format(.Fields("ChangeTime"), "yyyy-mm-dd") & "" '日期
- CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Format(.Fields("InductionTime"), "yyyy-mm-dd") & ""
- '原部门
- str_TempSql = "select * from Gy_Department where DeptCode='" & Trim(.Fields("OldDeptCode")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(rs_Temp.Fields("DeptName") & "") '原部门名称
- str_Grid(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(rs_Temp.Fields("DeptCode") & "")
- End If
- '现部门
- str_TempSql = "select * from Gy_Department where DeptCode='" & Trim(.Fields("DeptCode")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(rs_Temp.Fields("DeptName") & "") '现部门名称
- End If
- '原职务
- str_TempSql = "select Rs_CorSub.* from Rs_Items INNER JOIN Rs_CorSub ON Rs_Items.Correlation = Rs_CorSub.SortId where Rs_Items.FieldName='Business' and Rs_CorSub.ListId='" & Trim(.Fields("OldBusiness")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "") '原职务
- str_Grid(jsqte, Sydz("010", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListId") & "")
- End If
- '现职务
- str_TempSql = "select Rs_CorSub.* from Rs_Items INNER JOIN Rs_CorSub ON Rs_Items.Correlation = Rs_CorSub.SortId where Rs_Items.FieldName='Business' and Rs_CorSub.ListId='" & Trim(.Fields("Business")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "") '现职务
- End If
- '原岗位
- str_TempSql = "select Rs_CorSub.* from Rs_Items INNER JOIN Rs_CorSub ON Rs_Items.Correlation = Rs_CorSub.SortId where Rs_Items.FieldName='Position' and Rs_CorSub.ListId='" & Trim(.Fields("OldPosition")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("012", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "") '原岗位
- str_Grid(jsqte, Sydz("012", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListId") & "")
- End If
- '现岗位
- str_TempSql = "select Rs_CorSub.* from Rs_Items INNER JOIN Rs_CorSub ON Rs_Items.Correlation = Rs_CorSub.SortId where Rs_Items.FieldName='Position' and Rs_CorSub.ListId='" & Trim(.Fields("Position")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "") '现岗位
- End If
- '原工种
- str_TempSql = "select Rs_CorSub.* from Rs_Items INNER JOIN Rs_CorSub ON Rs_Items.Correlation = Rs_CorSub.SortId where Rs_Items.FieldName='WorkType' and Rs_CorSub.ListId='" & Trim(.Fields("OldWorkType")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("014", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "")
- str_Grid(jsqte, Sydz("014", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListId") & "")
- End If
- '现工种
- str_TempSql = "select Rs_CorSub.* from Rs_Items INNER JOIN Rs_CorSub ON Rs_Items.Correlation = Rs_CorSub.SortId where Rs_Items.FieldName='WorkType' and Rs_CorSub.ListId='" & Trim(.Fields("WorkType")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("015", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "")
- End If
- '原职工类别
- str_TempSql = "select Rs_CorSub.* from Rs_Items INNER JOIN Rs_CorSub ON Rs_Items.Correlation = Rs_CorSub.SortId where Rs_Items.FieldName='EmpSort' and Rs_CorSub.ListId='" & Trim(.Fields("OldEmpSort")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("016", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "")
- str_Grid(jsqte, Sydz("016", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListId") & "")
- End If
- '现职工类别
- str_TempSql = "select Rs_CorSub.* from Rs_Items INNER JOIN Rs_CorSub ON Rs_Items.Correlation = Rs_CorSub.SortId where Rs_Items.FieldName='EmpSort' and Rs_CorSub.ListId='" & Trim(.Fields("EmpSort")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("017", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "")
- End If
- '原用工性质
- str_TempSql = "select Rs_CorSub.* from Rs_Items INNER JOIN Rs_CorSub ON Rs_Items.Correlation = Rs_CorSub.SortId where Rs_Items.FieldName='HireProp' and Rs_CorSub.ListId='" & Trim(.Fields("OldHireProp")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("018", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "")
- str_Grid(jsqte, Sydz("018", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListId") & "")
- End If
- '现用工性质
- str_TempSql = "select Rs_CorSub.* from Rs_Items INNER JOIN Rs_CorSub ON Rs_Items.Correlation = Rs_CorSub.SortId where Rs_Items.FieldName='HireProp' and Rs_CorSub.ListId='" & Trim(.Fields("HireProp")) & "'"
- Set rs_Temp = Cw_DataEnvi.DataConnect.Execute(str_TempSql)
- If Not rs_Temp.EOF() Then
- CxbbGrid.TextMatrix(jsqte, Sydz("019", GridStr(), Szzls)) = Trim(rs_Temp.Fields("ListName") & "")
- End If
- '<<]
- '设置数据行高度(Fixed)
- CxbbGrid.RowHeight(jsqte) = Sjhgd
- '动态集指针加1,同时将计数器加1(Fixed)
- .MoveNext
- jsqte = jsqte + 1
- Loop
- End With
- ']以上为用户自定义部分
- End Sub
- Private Sub CxbbGrid_DblClick() '用户双击网格调入相应单据
- Dim RecTemp As New ADODB.Recordset '临时使用动态集
- Dim str_id As String
- Dim int_zgh As Integer
- '非数据行退出
- If CxbbGrid.Row < CxbbGrid.FixedRows Or CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)) = "" Then
- Exit Sub
- End If
- '取最后一条
- str_id = CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls))
- For int_zgh = CxbbGrid.Row To CxbbGrid.Rows - 1
- If CxbbGrid.TextMatrix(int_zgh, Sydz("001", GridStr(), Szzls)) <> "" Then
- If CxbbGrid.TextMatrix(int_zgh, Sydz("001", GridStr(), Szzls)) <> str_id Then
- Exit For
- End If
- End If
- Next
- CxbbGrid.Row = int_zgh - 1
- '查询最后一条
- Sqlstr = "SELECT * From Rs_Change Where EmpID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)))
- Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- With RecTemp
- If .EOF Then
- Tsxx = "此记录已被其他用户删除!"
- Call Xtxxts(Tsxx, 0, 1)
- Exit Sub
- Else
- '判断所查询的是否是真正的最后一条
- .MoveLast
- If .Fields("SNo") <> CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("002", GridStr(), Szzls)) Then
- Tsxx = "此职工的变动记录不是最后一条,不能操作!"
- Call Xtxxts(Tsxx, 0, 1)
- Exit Sub
- End If
- '判断是否是停用的记录
- If .Fields("ChangeType") = "1002" Then
- Tsxx = "此职工已经停用,不能操作!"
- Call Xtxxts(Tsxx, 0, 1)
- Exit Sub
- End If
- '调入单据处理窗体
- With Ed_EmpChgFrm
- '填充查询单据标识
- XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("003", GridStr(), Szzls))
- str_mark = CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("002", GridStr(), Szzls))
- Xtcdcsfz = Str_QueryCondi
- '设置单据处理为列表查询(修改)状态
- Xtcdcs = "2"
- .Show 1
- End With
- If Xtfhcs = "1" Then
- Tsxx = "人员变动记录发生变化,是否刷新?"
- Yhanswer = Xtxxts(Tsxx, 2, 2)
- If Yhanswer = 1 Then
- Xt_Wait.Show
- Xt_Wait.Refresh
- '加快显示速度
- CxbbGrid.Redraw = False
- '生成查询结果
- Call Sub_Query(1)
- CxbbGrid.Redraw = True
- Xt_Wait.Hide
- End If
- End If
- End If
- End With
- End Sub
- Private Sub Sub_AddBill() '新增单据
- With Ed_EmpChgFrm
- '设置单据处理为填制单据状态
- Xtcdcs = "1"
- .Show 1
- End With
- If Xtfhcs = "1" Then
- Tsxx = "人事变动发生变化,是否刷新人事变动列表?"
- Yhanswer = Xtxxts(Tsxx, 2, 2)
- If Yhanswer = 1 Then
- Xt_Wait.Show
- Xt_Wait.Refresh
- '加快显示速度
- CxbbGrid.Redraw = False
- '生成查询结果
- Call Sub_Query(1)
- CxbbGrid.Redraw = True
- Xt_Wait.Hide
- End If
- End If
- End Sub
- Private Sub Sub_DeleteBill() '删除选中当前单据
- Dim YAnswer As Integer
- Dim Lng_BillID As Long '单据标识
- Dim str_id As String
- Dim int_zgh As Integer
- Dim RecTemp As New ADODB.Recordset '临时使用动态集
- Dim Rec_Grid As New ADODB.Recordset '临时使用动态集
- '非数据行退出
- If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
- Exit Sub
- End If
- '取最后一条
- str_id = CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls))
- For int_zgh = CxbbGrid.Row To CxbbGrid.Rows - 1
- If CxbbGrid.TextMatrix(int_zgh, Sydz("001", GridStr(), Szzls)) <> "" Then
- If CxbbGrid.TextMatrix(int_zgh, Sydz("001", GridStr(), Szzls)) <> str_id Then
- Exit For
- End If
- End If
- Next
- CxbbGrid.Row = int_zgh - 1
- '判断所查询的是否是真正最后一条
- Sqlstr = "SELECT * From Rs_Change Where EmpID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)))
- Set Rec_Grid = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- With Rec_Grid
- If .EOF Then
- Tsxx = "此记录已被其他用户删除!"
- Call Xtxxts(Tsxx, 0, 3)
- Exit Sub
- Else
- .MoveLast
- If .Fields("SNo") <> CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("002", GridStr(), Szzls)) Then
- Tsxx = "此职工的变动记录不是最后一条,不能删除!"
- Call Xtxxts(Tsxx, 0, 1)
- Exit Sub
- End If
- '判断是否是停用的记录
- If .Fields("ChangeType") = "1002" Then
- Tsxx = "此职工已经调出,不能操作!"
- Call Xtxxts(Tsxx, 0, 1)
- Exit Sub
- End If
- End If
- End With
- Tsxx = "请确认是否删除此职工的最后变动记录?"
- Yhanswer = Xtxxts(Tsxx, 2, 2)
- If Yhanswer = 1 Then
- '1.判断当前单据是否允许删除
- If Not Fun_AllowDelete Then
- Exit Sub
- End If
- '2.删除单据所有内容
- Lng_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls))
- '还原Rs_BasicInfo(人事基本信息的内容)
- If RecTemp.State = 1 Then RecTemp.Close
- RecTemp.Open "Select Rs_BasicInfo.* From Rs_BasicInfo WHERE Rs_BasicInfo.EmpID='" & Lng_BillID & "' and Rs_BasicInfo.YNStop='0'", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
- If RecTemp.RecordCount = 0 Then Exit Sub
- With RecTemp
- If str_Grid(CxbbGrid.Row, Sydz("008", GridStr(), Szzls)) <> "" Then
- .Fields("DeptCode") = str_Grid(CxbbGrid.Row, Sydz("008", GridStr(), Szzls)) '部门代码
- Else
- .Fields("DeptCode") = ""
- End If
- If str_Grid(CxbbGrid.Row, Sydz("010", GridStr(), Szzls)) <> "" Then
- .Fields("Business") = str_Grid(CxbbGrid.Row, Sydz("010", GridStr(), Szzls)) '职务
- Else
- .Fields("Business") = ""
- End If
- If str_Grid(CxbbGrid.Row, Sydz("012", GridStr(), Szzls)) <> "" Then
- .Fields("Position") = str_Grid(CxbbGrid.Row, Sydz("012", GridStr(), Szzls)) '岗位
- Else
- .Fields("Position") = ""
- End If
- If str_Grid(CxbbGrid.Row, Sydz("014", GridStr(), Szzls)) <> "" Then
- .Fields("WorkType") = str_Grid(CxbbGrid.Row, Sydz("014", GridStr(), Szzls)) '工种
- Else
- .Fields("WorkType") = ""
- End If
- If str_Grid(CxbbGrid.Row, Sydz("018", GridStr(), Szzls)) <> "" Then
- .Fields("HireProp") = str_Grid(CxbbGrid.Row, Sydz("018", GridStr(), Szzls)) '用工性质
- Else
- .Fields("HireProp") = ""
- End If
- If str_Grid(CxbbGrid.Row, Sydz("016", GridStr(), Szzls)) <> "" Then
- .Fields("EmpSort") = str_Grid(CxbbGrid.Row, Sydz("016", GridStr(), Szzls)) '类别
- Else
- .Fields("EmpSort") = ""
- End If
- .Update
- End With
- On Error GoTo Swcwcl
- Cw_DataEnvi.DataConnect.BeginTrans
- Cw_DataEnvi.DataConnect.Execute ("Delete Rs_Change Where EmpID='" & Lng_BillID & "' and SNo='" & CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("002", GridStr(), Szzls)) & "'")
- Cw_DataEnvi.DataConnect.CommitTrans
- '删除网格中单据数据
- CxbbGrid.RemoveItem (CxbbGrid.Row)
- Else
- Exit Sub
- End If
- Exit Sub
- Swcwcl:
- Cw_DataEnvi.DataConnect.RollbackTrans
- Tsxx = "删除过程中出现未知错误,程序自动恢复删除前状态!"
- Call Xtxxts(Tsxx, 0, 1)
- Exit Sub
- End Sub
- Private Function Fun_AllowDelete() As Boolean '判断当前单据是否允许删除
- Dim RecTemp As New ADODB.Recordset '临时使用动态集
- Dim Sqlstr As String '查询字符串
- Dim Lng_BillID As Long '单据ID
- Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)))
- Sqlstr = "Select * From Rs_Change Where EmpID=" & Lng_BillID
- Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- With RecTemp
- If Not .EOF Then
- End If
- End With
- Fun_AllowDelete = True
- End Function
- 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(CxbbGrid) '生成报表数据
- Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
- If Not bbylte Then
- Unload DY_Tybbyldy
- End If
- End Sub