frmmain.frm

(VB)事业单位工资管理系统 +源码+25000字论文+开题+文献+外文翻译+论文答辩稿

         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   915
      Index           =   0
      Left            =   3000
      TabIndex        =   6
      Top             =   3000
      Width           =   9285
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H00808000&
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   36
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   915
      Index           =   8
      Left            =   3090
      TabIndex        =   7
      Top             =   2370
      Width           =   9405
   End
   Begin VB.Menu YKCL 
      Caption         =   "工资月库管理(&Y)"
      Begin VB.Menu YKSC 
         Caption         =   "月库生成(&N)"
      End
      Begin VB.Menu DKYK 
         Caption         =   "月库打开(&O)"
      End
      Begin VB.Menu FGX2 
         Caption         =   "-"
      End
      Begin VB.Menu zzkcl 
         Caption         =   "在职工资库处理(&Z)"
         Begin VB.Menu ZZSJWH 
            Caption         =   "数据修改(&E)"
         End
         Begin VB.Menu ZZSJTJ 
            Caption         =   "数据统计(&T)"
         End
         Begin VB.Menu ZZHZXS 
            Caption         =   "汇总显示(&H)"
         End
         Begin VB.Menu ZZBBDY 
            Caption         =   "报表打印(&P)"
         End
         Begin VB.Menu ZZFGX1 
            Caption         =   "-"
         End
         Begin VB.Menu ZZXMXG 
            Caption         =   "项目修改(&O)"
         End
         Begin VB.Menu ZZGSXG 
            Caption         =   "公式修改(&G)"
         End
      End
      Begin VB.Menu TXKCL 
         Caption         =   "退休工资库处理(&T)"
         Begin VB.Menu TXSJXG 
            Caption         =   "数据修改(&E)"
         End
         Begin VB.Menu TXSJTJ 
            Caption         =   "数据统计(&T)"
         End
         Begin VB.Menu TXHZXS 
            Caption         =   "汇总显示(&H)"
         End
         Begin VB.Menu TXBBDY 
            Caption         =   "报表打印(&P)"
         End
         Begin VB.Menu TXFGX1 
            Caption         =   "-"
         End
         Begin VB.Menu TXXMXG 
            Caption         =   "项目修改(&O)"
         End
         Begin VB.Menu TXGSXG 
            Caption         =   "公式修改(&G)"
         End
      End
      Begin VB.Menu LXKCL 
         Caption         =   "离休工资库处理(&L)"
         Begin VB.Menu LXSJXG 
            Caption         =   "数据修改(&E)"
         End
         Begin VB.Menu LXSJTJ 
            Caption         =   "数据统计(&T)"
         End
         Begin VB.Menu LXHZXS 
            Caption         =   "汇总显示(&H)"
         End
         Begin VB.Menu LXBBDY 
            Caption         =   "报表打印(&P)"
         End
         Begin VB.Menu LXFGX1 
            Caption         =   "-"
         End
         Begin VB.Menu LXXMXG 
            Caption         =   "项目修改(&O)"
         End
         Begin VB.Menu LXGSXG 
            Caption         =   "公式修改(&G)"
         End
      End
      Begin VB.Menu FGX3 
         Caption         =   "-"
      End
      Begin VB.Menu SCSBWJ 
         Caption         =   "上报文件生成(&C)"
      End
      Begin VB.Menu SBCPSC 
         Caption         =   "上报磁盘生成(&D)"
      End
      Begin VB.Menu fgx1 
         Caption         =   "-"
      End
      Begin VB.Menu GBYK 
         Caption         =   "月库关闭(&L)"
      End
      Begin VB.Menu YKBF 
         Caption         =   "月库备份(&B)"
      End
      Begin VB.Menu YKER 
         Caption         =   "月库删除(&E)"
      End
      Begin VB.Menu fgx11 
         Caption         =   "-"
      End
      Begin VB.Menu QUIT 
         Caption         =   "退出系统(&E)"
      End
   End
   Begin VB.Menu BZKCL 
      Caption         =   "工资标准库维护(&B)"
      Begin VB.Menu ZZBZWH 
         Caption         =   "在职工资标准库维护(&Z)"
         Begin VB.Menu ZZBZXMXG 
            Caption         =   "项目修改(&O)"
         End
         Begin VB.Menu ZZBZGSXG 
            Caption         =   "公式修改(&G)"
         End
         Begin VB.Menu ZZBZRYZS 
            Caption         =   "人员增删(&R)"
         End
         Begin VB.Menu ZZBZHZXS 
            Caption         =   "汇总显示(&H)"
         End
      End
      Begin VB.Menu TXBZWH 
         Caption         =   "退休工资标准库维护(&T)"
         Begin VB.Menu TXBZXMWH 
            Caption         =   "项目修改(&O)"
         End
         Begin VB.Menu TXBZGSWH 
            Caption         =   "公式修改(&G)"
         End
         Begin VB.Menu TXBZRYZS 
            Caption         =   "人员增删(&R)"
         End
         Begin VB.Menu TXBZHZXS 
            Caption         =   "汇总显示(&H)"
         End
      End
      Begin VB.Menu LXBZWH 
         Caption         =   "离休工资标准库维护(&L)"
         Begin VB.Menu LXBZXMXG 
            Caption         =   "项目修改(&O)"
         End
         Begin VB.Menu LZBZGSXG 
            Caption         =   "公式修改(&G)"
         End
         Begin VB.Menu LXBZRYZS 
            Caption         =   "人员增删(&R)"
         End
         Begin VB.Menu LXBZHZXS 
            Caption         =   "汇总显示(&H)"
         End
      End
      Begin VB.Menu FGH 
         Caption         =   "-"
      End
      Begin VB.Menu BZKBF 
         Caption         =   "工资标准库备份(&B)"
      End
   End
   Begin VB.Menu LSFF 
      Caption         =   "工资临时发放管理(&L)"
      Begin VB.Menu LFKSC 
         Caption         =   "临时发放库生成(&N)"
      End
      Begin VB.Menu OPENLF 
         Caption         =   "临发文件打开(&O)"
      End
      Begin VB.Menu KSFG 
         Caption         =   "-"
      End
      Begin VB.Menu LFSJXG 
         Caption         =   "数据维护(&E)"
      End
      Begin VB.Menu lfsjtn 
         Caption         =   "数据统计(&T)"
      End
      Begin VB.Menu LFBBSC 
         Caption         =   "报表输出(&P)"
      End
      Begin VB.Menu LFBPSC 
         Caption         =   "上报文件生成(&A)"
      End
      Begin VB.Menu LFSBSC 
         Caption         =   "上报磁盘生成(&D)"
      End
      Begin VB.Menu LFFG2 
         Caption         =   "-"
      End
      Begin VB.Menu CLOSLFK 
         Caption         =   "关闭临时发放库(&C)"
      End
      Begin VB.Menu fgx8 
         Caption         =   "-"
      End
      Begin VB.Menu LFXMWH 
         Caption         =   "临发项目维护(&W)"
      End
   End
   Begin VB.Menu HELP 
      Caption         =   "系统帮助(&H)"
      Begin VB.Menu DWXXWH 
         Caption         =   "系统信息维护(&W)"
      End
      Begin VB.Menu SYSM 
         Caption         =   "系统使用说明(&H)"
      End
      Begin VB.Menu ABOUT 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "frmMAIN"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RetVal
Dim hxfscz As String * 53
Dim hxfsf As Currency
Dim hxfdfze As Currency
Dim hxfrq As String * 8
Dim hxfbm As String
Dim hxfxz As String
Public Sub CDKZ()
   If hxfdbdk = True Then
       zzkcl.Enabled = True
       TXKCL.Enabled = True
       LXKCL.Enabled = True
       SCSBWJ.Enabled = True
       SBCPSC.Enabled = True
       GBYK.Enabled = True
    Else
       zzkcl.Enabled = False
       TXKCL.Enabled = False
       LXKCL.Enabled = False
       SCSBWJ.Enabled = False
       SBCPSC.Enabled = False
       GBYK.Enabled = False
    End If
    If LSDBDK = True Then
       LFSJXG.Enabled = True
       LFBBSC.Enabled = True
       LFBPSC.Enabled = True
       LFSBSC.Enabled = True
       CLOSLFK.Enabled = True
       lfsjtn.Enabled = True
    Else
       LFSJXG.Enabled = False
       LFBBSC.Enabled = False
       LFBPSC.Enabled = False
       LFSBSC.Enabled = False
       CLOSLFK.Enabled = False
       lfsjtn.Enabled = False
    End If
       If hxfdbdk = True Then
          frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是" & hxfyear & "年" & hxfmath & "月的工资库!"
    Else
       If LSDBDK = True Then
          frmMAIN.StatusBar1.Panels(1).Text = "  注意:现在打开和处理的是" & hxfyear & "年" & hxfmath & "月" & hxfday & "日" & hxfxmmc & "临时发放库!"
       Else
          frmMAIN.StatusBar1.Panels(1).Text = "  ***未打开工资库***"
       End If
    End If
End Sub
Private Sub ABOUT_Click()
  frmAbout.Show 1
End Sub
Private Sub BZKBF_Click()
    Frm标准库备份.Show 1
End Sub