VB开发的ERP系统

               Left            =   6525
               Top             =   2655
               _ExtentX        =   847
               _ExtentY        =   847
               _Version        =   393216
               Filter          =   "Pictures (*.bmp)|*.bmp"
            End
            Begin VB.PictureBox Pic_Emp 
               BackColor       =   &H80000018&
               Height          =   1395
               Left            =   9840
               ScaleHeight     =   1335
               ScaleWidth      =   1110
               TabIndex        =   8
               TabStop         =   0   'False
               ToolTipText     =   "双击鼠标左键更改照片信息"
               Top             =   270
               Width           =   1170
            End
            Begin VB.CommandButton Cmd_CommHlp 
               Height          =   300
               Index           =   0
               Left            =   2310
               Picture         =   "处理_个人档案维护.frx":54E8
               Style           =   1  'Graphical
               TabIndex        =   7
               TabStop         =   0   'False
               Top             =   780
               Visible         =   0   'False
               Width           =   300
            End
            Begin VB.TextBox Txt_RsItm 
               BackColor       =   &H00FFFFFF&
               BeginProperty DataFormat 
                  Type            =   0
                  Format          =   "tt hh:mm:ss"
                  HaveTrueFalseNull=   0
                  FirstDayOfWeek  =   0
                  FirstWeekOfYear =   0
                  LCID            =   2052
                  SubFormatType   =   0
               EndProperty
               ForeColor       =   &H00000000&
               Height          =   300
               Index           =   0
               Left            =   858
               TabIndex        =   0
               Top             =   769
               Visible         =   0   'False
               Width           =   1474
            End
            Begin VB.Label Lbl_ItmName 
               AutoSize        =   -1  'True
               BackColor       =   &H00E9F2F3&
               BackStyle       =   0  'Transparent
               Caption         =   "编号"
               Height          =   180
               Index           =   0
               Left            =   405
               TabIndex        =   4
               Top             =   810
               Visible         =   0   'False
               Width           =   360
            End
         End
      End
      Begin VB.Label lpId 
         BackColor       =   &H000000FF&
         Caption         =   "PrevEmpId"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000E&
         Height          =   225
         Left            =   2520
         TabIndex        =   11
         Top             =   30
         Visible         =   0   'False
         Width           =   1425
      End
      Begin VB.Label lID 
         BackColor       =   &H00FF80FF&
         Caption         =   "CurrentEmpID"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   225
         Left            =   4470
         TabIndex        =   10
         Top             =   30
         Visible         =   0   'False
         Width           =   1425
      End
   End
End
Attribute VB_Name = "Ed_EmpArInfoFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim H_MoveInt As Integer                '当前鼠标所处的位置
Dim Com_ListIndexTF As Boolean
Dim ReportTitle As String               '报表主标题(Fixed)
Dim Saved As Boolean                    '已经保存
Dim PrintSetFrm As New DY_Dyymsz
Dim ScollBarIsEffect As Boolean         '滚动条是否有效
Dim VScLastP As Integer                 '上一次滚动的值
Dim Str_RightEdit As String             '编辑(新增、修改、删除)权限索引
Dim Str_RightCase As String             '档案权限索引


Dim tIsCode()                           '二维数组，一维存储是否编码（1是0否），2维存储编码
Dim tSysROnly() As Boolean              '工资只读
Dim tReserved() As Boolean              '是否是保留项,对应项目表里的YNRserve字段
Dim tFixed() As Boolean                 '固定字段，这里用来区分不同表
Dim tItmId() As Integer                 '人事项目表里的项目代号     对应原来的帮助按钮.tag
Dim tDataType() As Integer              '数据类型                   对应原来的文本框.tag
Dim tFieldName() As String              '字段名称                   对应原来的标签.tag


Dim FileName As String                  '存储图片文件的文件名
Dim Lrzt As Integer                     '录入状态标志(0-非录入状态 1-增加 2-修改)
Public EmpID As Integer
Dim QuerySet As New ADODB.Recordset     '保存查询结果的记录集

Public ReserveId As Integer
Public QuerySql As String
Public FormOwner As String              '标示本窗体的调用者       Self   //   Query
Public SysOwner As Integer              '标示本窗体是人事系统还是工资系统   0--rs,1--pm
Public ReserveIsOn As Boolean           '表示保留项目功能状态

Private Sub Chk_YNStop_GotFocus()
    
Dim i As Integer
    If Lrzt = 0 Then
        Exit Sub
    End If
    
'隐藏失去焦点的帮助按钮
    For i = 1 To Cmd_CommHlp.UBound
        Cmd_CommHlp(i).Visible = False
    Next i
End Sub


Private Sub Chk_YNStop_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        SendKeys "{Tab}"
    End If
End Sub


Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If Shift = 2 Then
        With Me.SzToolbar
            Select Case KeyCode
                Case vbKeyA                                                                 '新增   Ctrl-A
                    If .Buttons("New").Visible And .Buttons("New").Enabled Then
                        Call SzToolbar_ButtonClick(.Buttons("New"))
                    End If
                Case vbKeyE                                                                 '修改   Ctrl-E
                    If .Buttons("Modi").Visible And .Buttons("Modi").Enabled Then
                        Call SzToolbar_ButtonClick(.Buttons("Modi"))
                    End If
                Case vbKeyS                                                                 '保存   Ctrl-S
                    If .Buttons("Save").Visible And .Buttons("Save").Enabled Then
                        Call SzToolbar_ButtonClick(.Buttons("Save"))
                    End If
                Case vbKeyHome                                                              '首个   Ctrl-Home
                    If .Buttons("First").Visible And .Buttons("First").Enabled Then
                        Call SzToolbar_ButtonClick(.Buttons("First"))
                    End If
                Case vbKeyPageUp                                                            '上个   Ctrl-PageUp
                    If .Buttons("Previous").Visible And .Buttons("Previous").Enabled Then
                        Call SzToolbar_ButtonClick(.Buttons("Previous"))
                    End If
                Case vbKeyPageDown                                                          '下个   Ctrl-PageDown
                    If .Buttons("Next").Visible And .Buttons("Next").Enabled Then
                        Call SzToolbar_ButtonClick(.Buttons("Next"))
                    End If
                Case vbKeyEnd                                                               '末尾   Ctrl-End
                    If .Buttons("Last").Visible And .Buttons("Last").Enabled Then
                        Call SzToolbar_ButtonClick(.Buttons("Last"))
                    End If
            End Select
        End With
    End If
    If KeyCode = vbKeyEscape Then                                                       '取消   Escape
        If SzToolbar.Buttons("Cancel").Visible And SzToolbar.Buttons("Cancel").Enabled Then
            Call SzToolbar_ButtonClick(SzToolbar.Buttons("Cancel"))
        End If
    End If
    If KeyCode = vbKeyDelete Then                                                       '删除   Delete
        If SzToolbar.Buttons("Del").Visible And SzToolbar.Buttons("Del").Enabled Then
            Call SzToolbar_ButtonClick(SzToolbar.Buttons("Del"))
        End If
    End If
End Sub

'=========================通用部分==================================
Public Sub Form_Load()
Dim i As Integer
Dim tmpRs As New ADODB.Recordset
'--------------------------两种调用共有----------------------------
    ReportTitle = "人事基本信息"
    XtReportCode = "Rs_EdArInfo"
    ReserveIsOn = False
    Call CreateCtrls(SysOwner)
    ReserveIsOn = False
    
'--------------------------直接调用处理----------------------------
    If FormOwner = "Self" Then
        Me.Tag = "Init"
        EmpID = 0
        lID.Caption = EmpID
        SwitchToolBar ("0")
        SzToolbar.Buttons("First").Visible = False                  '首张
        SzToolbar.Buttons("Previous").Visible = False               '上张
        SzToolbar.Buttons("Next").Visible = False                   '下张
        SzToolbar.Buttons("Last").Visible = False                   '末张
        SzToolbar.Buttons("sp").Visible = False                     '分隔

        Call SetTxtStatus(False, True, False, Lrzt)
    End If
'------------------------查询调用处理--------------------------------

    If FormOwner = "Query" Then
        lID.Caption = EmpID
        lpId.Caption = lID.Caption
        Xtfhcs = ""
        Set QuerySet = Cw_DataEnvi.DataConnect.Execute(QuerySql)
        QuerySet.Find "Rs_BasicInfo#EmpID  = " & EmpID
      
        Call SetTxtStatus(True, True, False, Lrzt)
        LoadData (EmpID)
        SwitchToolBar ("0")
    End If
    
'-----------------------------其他-----------------------------------
    If SysOwner = 1 Then
        SzToolbar.Buttons("New").Visible = False
        SzToolbar.Buttons("Del").Visible = False
    End If
    
    Set tmpRs = Cw_DataEnvi.DataConnect.Execute("SELECT ItemParameter FROM Rs_OtherSet WHERE ItemName = 'ReserveID' ")
    If Not tmpRs.EOF Then ReserveId = tmpRs.Fields("ItemParameter")

    '编辑(新增、修改、删除)权限索引
    Str_RightEdit = "Rs_Ed_EmpArInfo_Edit"
    '档案权限
    Str_RightCase = "Rs_Ed_EmpArInfo_archives"
End Sub



Private Sub Txt_RsItm_GotFocus(Index As Integer)
    
Dim i As Integer
    If Lrzt = 0 Then
        Exit Sub
    End If
'使文本框可见
    Pi_move Txt_RsItm(Index)
'首先隐藏失去焦点的帮助按钮
    For i = 1 To Cmd_CommHlp.UBound
        If Cmd_CommHlp(i).Visible = True Then
            Cmd_CommHlp(i).Visible = False
        End If
    Next i
'然后根据帮助按钮的有效与否，在得到焦点的文本框旁边显示帮助按钮
    If (Cmd_CommHlp(Index).Tag = 1) Or (Cmd_CommHlp(Index).Tag = 2 And Lrzt = 2) Then Cmd_CommHlp(Index).Visible = True
End Sub


Private Sub Pic_Emp_DblClick()
'调用通用打开文件对话框，选定文件
    CommDlg_pic.ShowOpen
    On Error GoTo errD
    If Trim(CommDlg_pic.FileName) <> "" Then
        Pic_Emp.Picture = LoadPicture(CommDlg_pic.FileName)
        Pic_Emp.Tag = Trim(CommDlg_pic.FileName)
    End If
errD:
End Sub

Public Sub Txt_RsItm_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 '焦点移动处理          KeyCode=113 是 F2
 Dim tmpRs As New ADODB.Recordset
 Dim EmpNo As String
    If KeyCode = 113 And Cmd_CommHlp(Index).Tag <> 0 Then
        Cmd_CommHlp_Click (Index)
    End If
    
    If KeyCode = 13 Then
        If UCase(tFieldName(Index)) = "EMPNO" And Cmd_CommHlp(Index).Visible = True Then
            EmpNo = Trim(Txt_RsItm(Index).Text)
            EmpID = GetIdByNo(EmpNo)
            If EmpID = 0 Then Call Xtxxts("该职工号无效!", 0, 1): Exit Sub
            Call LoadData(EmpID)
            Call SetTxtStatus(False, False, False, Lrzt)
            Exit Sub
        End If
        SendKeys "{Tab}", True
    End If
End Sub