frm_setpercent.frm

考勤系统,智能判断刷卡异常,是一大型ERP系统的一个分支

VERSION 5.00
Begin VB.Form frm_SetPercent 
   Caption         =   "设置加班比例（0-100整数）"
   ClientHeight    =   1500
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1500
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   500
      Index           =   1
      Left            =   3720
      Picture         =   "frm_SetPercent.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   960
      Width           =   735
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   500
      Index           =   0
      Left            =   2640
      Picture         =   "frm_SetPercent.frx":0094
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   960
      Width           =   735
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   2400
      TabIndex        =   0
      Top             =   360
      Width           =   1455
   End
   Begin VB.Label Label1 
      Caption         =   "设置加班比例（0-100）"
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   1935
   End
End
Attribute VB_Name = "frm_SetPercent"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
    Select Case Index
        Case 0
            If Text1.Text <> "" And IsNumeric(Text1.Text) Then
                iniFunc.writeINI App.Path & "\percent.ini", "Percent", "iPer", Text1.Text
            End If
            Unload Me
        Case 1
            Unload Me
    End Select

End Sub

Private Sub Form_Load()
    Text1.Text = iniFunc.sGetINI(App.Path & "\percent.ini", "Percent", "iPer", 60)
End Sub