frmmain.frm

通用工资管理 财务软件,可以试用一下

         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 qt 
      Caption         =   "其它(&Q)"
      Begin VB.Menu DWXXWH 
         Caption         =   "系统信息维护(&W)"
      End
      Begin VB.Menu JSQ 
         Caption         =   "计算器(&J)"
      End
      Begin VB.Menu ZP 
         Caption         =   "纸牌(&Z)"
      End
      Begin VB.Menu SL 
         Caption         =   "扫雷(&S)"
      End
   End
   Begin VB.Menu HELP 
      Caption         =   "帮助(&H)"
      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

Private Sub CLOSLFK_Click()
    LSDBDK = False
    hxfdbdk = False
    Call CDKZ
End Sub

Private Sub DKYK_Click()
    If hxfdbdk = True Then
       hxfyn = MsgBox(hxfyear & "年" & hxfmath & "月" & "的工资库已打开，是否关闭？", 36)
       If hxfyn = vbYes Then
          frmMAIN.StatusBar1.Panels(1).Text = "  注意:原打开的工资库已经被关闭！"
          Frm月库打开.Show 1
       End If
    Else
       Frm月库打开.Show 1
    End If
    LSDBDK = False
    Call CDKZ
End Sub

Private Sub DWXXWH_Click()
    Load frm系统信息维护
    frm系统信息维护.datPrimaryRS.DatabaseName = xtlj & "dwxx.mdb"
    frm系统信息维护.datPrimaryRS.RecordSource = "select * from [dwxx]"
    frm系统信息维护.Show 1
End Sub

Private Sub Form_Load()
    'LyfTools1.SetCapColor (RGB(0, 0, 255))
    'LyfTools1.MakeFlatToolabar Toolbar1
    Me.Caption = "机关事业单位工资管理系统   用户:" & yhdw
    'Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    'Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    'Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)