📄
字号:
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 36
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 = "Locate"
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 = "Sum"
EndProperty
BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "查询_人事信息列表.frx":2565C
Key = "Total"
EndProperty
BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "查询_人事信息列表.frx":259F6
Key = "Detail"
EndProperty
BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "查询_人事信息列表.frx":25D90
Key = "Order"
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "Qr_RsBasicFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'* 模 块 名 称 :人事信息查询列表
'* 功 能 描 述 :
'* 程序员姓名 :苗鹏
'* 最后修改人 :刘刚
'* 最后修改时间:2002/01/02
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'**************************************************************************
Option Explicit
Dim ReportTitle As String '报表主标题
Public sSqlWhere As String
Public sSqlFrom As String
Dim sFieldValue() As New CFieldValue
Dim sSqlOrder 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)
Public BeenModify As Boolean '反映当前记录集是否有过改动
Private Sub CxbbGrid_AfterMoveColumn(ByVal Col As Long, Position As Long)
On Error Resume Next
Dim i As Integer
With Me.CxbbGrid
ReDim sFieldValue(.Cols - 1)
For i = 0 To .Cols - 1
sFieldValue(i).FieldName = Trim(.TextMatrix(1, i))
Next i
End With
End Sub
Private Sub CxbbGrid_AfterSort(ByVal Col As Long, Order As Integer)
Dim i As Long
With Me.CxbbGrid
For i = .FixedRows To .Rows - 1
.TextMatrix(i, Qslz) = i - .FixedRows + 1
Next i
End With
End Sub
Private Sub CxbbGrid_DblClick()
'非数据行退出
If CxbbGrid.Row < CxbbGrid.FixedRows Then
Exit Sub
End If
With Ed_EmpArInfoFrm
.EmpId = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
.SysOwner = 0 '人事调用
.FormOwner = "Query"
.Show 1
End With
If Me.BeenModify Then
If Xtxxts("当前人事信息发生变化,是否刷新?", 2, 2) = 1 Then
ShowRecord sSqlWhere
Me.BeenModify = False
End If
End If
End Sub
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
With Me.PB_Proc
.Left = (Me.Width - .Width) / 2
.Top = Me.Height / 2
End With
End Sub
Private Sub Form_Load() '窗体装入
Dim iBeginCol As Integer
'调入打印页面设置窗体
ReportTitle = "人事信息"
XtReportCode = "Rs_BasicFrm"
Load Dyymctbl
Me.Caption = ReportTitle
Me.Lab_Title = ReportTitle
'调整标题栏及网格、格式工具条位置(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_BasicFrm"
Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
Qslz = GridInf(1)
Sjhgd = GridInf(2)
Sfxshjwg = GridInf(7)
Szzls = CxbbGrid.Cols - 1
iBeginCol = Val(GridInf(1))
sSqlOrder = " order by EmpNo "
Me.sSqlFrom = "From Rs_BasicInfo inner join Rs_ExtendInfo on Rs_BasicInfo.EmpID=Rs_ExtendInfo.EmpID"
End Sub
Private Sub Form_Unload(Cancel As Integer) '窗体卸载
'卸载打印页面设置窗体
Unload Dyymctbl
Security_Log "Rs_Qr_RsBasic", Xtczybm, 2, False '用户退出时写上机日志
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -