frmsetting.frm

企业人事管理系统

VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmSetting 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "启动设置"
   ClientHeight    =   2490
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5175
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmSetting.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2490
   ScaleWidth      =   5175
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdEdit 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   350
      Index           =   0
      Left            =   2820
      TabIndex        =   2
      Top             =   2100
      Width           =   1095
   End
   Begin VB.CommandButton cmdEdit 
      Caption         =   "关闭(&C)"
      Height          =   350
      Index           =   1
      Left            =   4020
      TabIndex        =   0
      Top             =   2100
      Width           =   1095
   End
   Begin TabDlg.SSTab stbSetting 
      Height          =   1935
      Left            =   60
      TabIndex        =   1
      Top             =   60
      Width           =   5055
      _ExtentX        =   8916
      _ExtentY        =   3413
      _Version        =   393216
      Style           =   1
      Tabs            =   1
      TabsPerRow      =   1
      TabHeight       =   520
      TabCaption(0)   =   " 启动设置"
      TabPicture(0)   =   "frmSetting.frx":000C
      Tab(0).ControlEnabled=   -1  'True
      Tab(0).Control(0)=   "lblInfo"
      Tab(0).Control(0).Enabled=   0   'False
      Tab(0).Control(1)=   "lblyear"
      Tab(0).Control(1).Enabled=   0   'False
      Tab(0).Control(2)=   "lblTime"
      Tab(0).Control(2).Enabled=   0   'False
      Tab(0).Control(3)=   "dtpYear"
      Tab(0).Control(3).Enabled=   0   'False
      Tab(0).Control(4)=   "chkBoot(2)"
      Tab(0).Control(4).Enabled=   0   'False
      Tab(0).Control(5)=   "txtTime"
      Tab(0).Control(5).Enabled=   0   'False
      Tab(0).Control(6)=   "chkBoot(0)"
      Tab(0).Control(6).Enabled=   0   'False
      Tab(0).Control(7)=   "chkBoot(1)"
      Tab(0).Control(7).Enabled=   0   'False
      Tab(0).ControlCount=   8
      Begin VB.CheckBox chkBoot 
         Caption         =   "试用期到期是否报告"
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   8
         Top             =   960
         Width           =   1935
      End
      Begin VB.CheckBox chkBoot 
         Caption         =   "合同到期是否报告"
         Height          =   255
         Index           =   0
         Left            =   240
         TabIndex        =   7
         Top             =   600
         Width           =   1815
      End
      Begin VB.TextBox txtTime 
         BackColor       =   &H00FFFFFF&
         Height          =   300
         Left            =   3480
         MaxLength       =   2
         TabIndex        =   6
         Top             =   960
         Width           =   615
      End
      Begin VB.CheckBox chkBoot 
         Caption         =   "是否记录窗体布局"
         Height          =   255
         Index           =   2
         Left            =   240
         TabIndex        =   5
         Top             =   1320
         Width           =   1815
      End
      Begin MSComCtl2.DTPicker dtpYear 
         Height          =   300
         Left            =   3480
         TabIndex        =   4
         Top             =   600
         Width           =   1455
         _ExtentX        =   2566
         _ExtentY        =   529
         _Version        =   393216
         CalendarBackColor=   16777215
         Format          =   23003137
         CurrentDate     =   38106
      End
      Begin VB.Label lblTime 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "试用时间(月):"
         Height          =   180
         Left            =   2280
         TabIndex        =   10
         Top             =   990
         Width           =   1170
      End
      Begin VB.Label lblyear 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "合同终止年份:"
         Height          =   180
         Left            =   2280
         TabIndex        =   9
         Top             =   630
         Width           =   1170
      End
      Begin VB.Label lblInfo 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "(打勾为是，不打勾为否)"
         Height          =   180
         Left            =   3000
         TabIndex        =   3
         Top             =   60
         Width           =   1980
      End
   End
End
Attribute VB_Name = "frmSetting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub cmdEdit_Click(Index As Integer)
        Select Case Index
        Case 0:
            If IsNumeric(txtTime.Text) = False Then
                MsgBox "试用期时间请输入数值型数据!", vbCritical, App.Title
                txtTime.Text = 3
                txtTime.SetFocus
                Exit Sub
            End If
                If txtTime.Text < 0 Or txtTime.Text > 12 Then
                MsgBox "试用期超出输入范围请输入[1-12]之间的整数", vbCritical, App.Title
                txtTime.Text = 3
                txtTime.SetFocus
                Exit Sub
            End If
            SaveSetting App.Title, "Settings", "Bargain", CBool(chkBoot(0).Value)
            SaveSetting App.Title, "Settings", "Tryout", CBool(chkBoot(1).Value)
            SaveSetting App.Title, "Settings", "HYear", dtpYear.Year
            SaveSetting App.Title, "Settings", "HMonth", dtpYear.Month
            SaveSetting App.Title, "Settings", "HDay", dtpYear.Day
            SaveSetting App.Title, "Settings", "Month", txtTime.Text
            SaveSetting App.Title, "Settings", "Form", CBool(chkBoot(2).Value)
            intMonth = CInt(GetSetting(App.Title, "Settings", "Month", 3))
            intHYear = CInt(GetSetting(App.Title, "Settings", "HYear", 2000))
            intHMonth = CInt(Abs(GetSetting(App.Title, "Settings", "HMonth", 1)))
            intHday = CInt(Abs(GetSetting(App.Title, "Settings", "HDay", 1)))
            MsgBox "已保存启动设置!", vbInformation + vbOKOnly, App.Title
        Case 1:
            Unload Me
        End Select
End Sub

Private Sub Form_Load()
    stbSetting.TabPicture(0) = MDIMain.iltPic.ListImages(12).Picture
    chkBoot(0).Value = IIf((GetSetting(App.Title, "Settings", "Bargain", False)) = False, 0, 1)
    chkBoot(1).Value = IIf((GetSetting(App.Title, "Settings", "Tryout", False)) = False, 0, 1)
    dtpYear.Year = CInt(Abs(GetSetting(App.Title, "Settings", "HYear", 2000)))
    dtpYear.Month = CInt(Abs(GetSetting(App.Title, "Settings", "HMonth", 1)))
    dtpYear.Day = CInt(Abs(GetSetting(App.Title, "Settings", "HDay", 1)))
    txtTime.Text = CInt(Abs(GetSetting(App.Title, "Settings", "Month", 3)))
    chkBoot(2).Value = IIf((GetSetting(App.Title, "Settings", "Form", False)) = False, 0, 1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MDIMain.Enabled = True
End Sub