mainform.frm

一个机械产品（产品、部件、零件）的工时、工资及进度软件

        End
    End If
    
    Set rsTempA = oDb.Execute("select * from awork where userid='" & userid & "'")
    For i = 3 To rsTempA.Fields.Count - 1
         If rsTempA.Fields(i).Value <> 1 Then
            griditem = rsTempA.Fields(i).Name
            Select Case griditem
                Case "ddwork"
                    mnuwork.Enabled = False
                Case "jpcj"
                    mnufircj.Enabled = False
                Case "jpbz"
                    mnufirbz.Enabled = False
                Case "jpgx"
                    mnufirgx.Enabled = False
                Case "jplj"
                    mnufirlj.Enabled = False
                Case "jpdd"
                    mnufirdh.Enabled = False
                Case "cpbj"
                    mnucpdg.Enabled = False
                Case "cplj"
                    mnucplj.Enabled = False
                Case "cpfz"
                    mnucpcopy.Enabled = False
                Case "cpjd"
                    mnucpjd.Enabled = False
                Case "cpwc"
                    mnucpjdtz.Enabled = False
                Case "cptc"
                    mnucpjdprn1.Enabled = False
                Case "cpxl"
                    mnucpjdprn2.Enabled = False
                Case "cplx"
                    mnucpbjlx.Enabled = False
                Case "gpdn"
                    mnugpdn.Enabled = False
                Case "gpzp"
                    mnugpzp.Enabled = False
                Case "gpwx"
                    mnugpwx.Enabled = False
                Case "gplx"
                    mnugplx.Enabled = False
                Case "gpfc"
                    mnugpfc.Enabled = False
                Case "gplxfc"
                    mnugplxfc.Enabled = False
                Case "gpls"
                    mnugpfind.Enabled = False
                Case "gpmc"
                    mnugpbjfind.Enabled = False
                Case "gplxls"
                    mnulxfind.Enabled = False
                Case "tjbz"
                    mnutjbz.Enabled = False
                Case "tjcj"
                    mnutjcpgx.Enabled = False
                Case "tjcp"
                    mnutjcphz.Enabled = False
                Case "tjgs"
                    mnutjcptot.Enabled = False
                Case "tjjh"
                    mnuplancjsc.Enabled = False
                Case "tjjd"
                    mnuplanljjd.Enabled = False
                Case "tjlx"
                     mnutjlxgs.Enabled = False
             End Select
        End If
     Next i
        
    Grid1.Rows = 2
    Grid1.Visible = False
    Grid1.SetRegisterInformation "CN00634", "OGXM0-85RVD-OMW8C-0V8Q5-8KIBP"
    
    Set rsTempB = oDb.Execute("SELECT GETDATE() as aa")
    NOWDate = Format(rsTempB!aa, "YYYY-MM-DD")
    NOWDateS = NOWDate
    
    If Len(NOWDateS) <> 10 Then
        MsgBox "请把日期格式调整为:yyyy-mm-dd", vbOKOnly, "日期格式"
        End
    End If
    
    NOWDateS = Left(NOWDate, 4) & Mid(NOWDate, 6, 2) & Mid(NOWDate, 9, 2)
    StatusBar.Panels(3) = "  --  Center of HaiLiang !  --  "
'    StatusBar.Panels(2) = rsTempA!F1002
'    username = rsTempA!F1002
    StatusBar.Font.Size = 11
'    Set rsTempA = oDb.Execute("select * from Y0009H where F1001='" & userid & "'")
'            End Select
'        End If
'    Next i
'ErrorHandle:
'    ShowErr
End Sub

'Private Sub ExeRefresh()
'        '定义四个临时字符串变量
'        Dim s1 As String
'        Dim s2 As String
'        Dim s3 As String
'        Dim s4 As String
'        On Error Resume Next
'        '将本地应用程序MyExe.exe的全路径名存入 s1
'        '将本地中介程序FastCopy.exe的全路径名存入 s3
'        s1 = "TNT"
'        If Len(App.Path) > 3 Then
'            s1 = App.Path + "\" + Trim(App_Name) + ".exe"
'            s3 = App.Path + "\" + MidExeName + ".EXE"
'        Else
'            s1 = App.Path + Trim(App_Name) + ".exe"
'            s3 = App.Path + MidExeName + ".EXE"
'        End If
'
'        s4 = "TNT"
'        '将本地应用程序MyExe.EXE文件的修改时间存入 s4
'        s4 = FileDateTime(s1)
'        s2 = "TNT"
'        '将网络上应用程序MyExe.EXE文件的修改时间存入 s2
'        s2 = FileDateTime(ExePath + App_Name + ".EXE")
'
''取消无更新文件时的对话框
''        If s2 = "TNT" Then
''                MsgBox "没有找到最新的可执行文件:" + ExePath + App_Name + ".EXE" _
''                + vbCrLf + vbCrLf + "原因1:存放最新EXE的服务器或者工作站没有打开;" _
''                + vbCrLf + "原因2:存放最新EXE的路径错误或者EXE文件不存在;" _
''                + vbCrLf + "请将此情况通知程序员." + vbCrLf + vbCrLf _
''                + vbCrLf + "按确定按钮后,将继续运行本地EXE文件.", vbCritical, "提示"

''        End If
'        If s2 = "TNT" Or s4 = "TNT" Then Exit Sub
'            '如果网络上应用程序MyExe.EXE文件的修改时间,大于本地MyExe.EXE文件的修改时间,然后再运行本地MyExe.exe ,中介程序退出后,整个更新过程结束.
'        If CDate(s2) > CDate(s4) Then
'            '将网络上的中介程序FastCopy.exe复制到本地,这样可防止本地无中介程序时无法进行更新
'           FileCopy ExePath + MidExeName + ".EXE", s3
'            '则运行中介程序FastCopy.exe ,将最新的MyExe.exe 复制到本地
'           s1 = Shell(s3 + " " + ExePath + "," + App_Name + ".EXE", vbNormalFocus)
'                '本地应用程序MyExe.exe 终止运行,否则已经更新的MyExe.exe无法覆盖本地的MyExe.exe .
'            End
'       End If
'End Sub
Private Sub mnufirgx_Click()
    firgx.Show  '初始工序
End Sub

Private Sub mnufirlj_Click()
    firlj.Show '零件去向
End Sub
Private Sub mnufircj_Click()
    fircj.Show  '车间信息
End Sub
Private Sub mnufirbz_Click()
    fircjbz.Show  '班组个人信息
End Sub
Private Sub mnufirdh_Click()
    firdh.Show '订货单位
End Sub

Private Sub mnucpdg_Click()
    cpbjlj.Show   '产品部件零件表
End Sub

Private Sub mnucplj_Click()
    cpljbj.Show   '产品零件表
End Sub
Private Sub mnucpcopy_Click()
    cpcopy.Show    '产品复制
End Sub
Private Sub mnucpjd_Click()
    cpbjjd.Show   '产品部件进度表
End Sub

Private Sub mnucpjdtz_Click()
    cpjdtz.Show  '进度台帐
End Sub

Private Sub mnucpjdprn1_Click()
    prnscjd.Show  '生产进度表打印
End Sub
Private Sub mnucpjdprn2_Click()
    prncpbjlx.Show '线路单打印
End Sub

Private Sub mnugpdn_Click()
    'gpindn.Show  '定额工票录入
    gpindnlj.Show
End Sub
Private Sub mnugpfind_Click()
    gpindnfind.Show '工票检索
End Sub
Private Sub mnugpbjfind_Click()
    gpbjfind.Show   '工票检索
End Sub

Private Sub mnugplx_Click()
    gpinlx.Show
End Sub

Private Sub mnugplxfc_Click()
    gplxfc.Show      '零星工票反冲
End Sub

Private Sub mnugpwx_Click()
    gpinwxlj.Show   '外协工票
End Sub
Private Sub mnugpzp_Click()
    'gpinzp.Show
    gpinzplj.Show
End Sub

Private Sub mnugpfc_Click()
    gpinfc.Show   '订单反冲
End Sub

Private Sub mnulxfind_Click()
    gplxfind.Show  '零星工票流水帐
End Sub

Private Sub mnutjbz_Click()
    tjymcj.Show
End Sub
Private Sub mnutjcpgx_Click()
     tjymgs1.Show   '产品分车间工序统计
End Sub
Private Sub mnutjcphz_Click()
     tjymgs2.Show   '产品品按车间统计
End Sub
Private Sub mnutjcptot_Click()
    tjymgstot.Show '工时完成情况表
End Sub
Private Sub mnuplancjsc_Click()
    plancjsc.Show
End Sub
Private Sub mnuplanljjd_Click()
    planljjd.Show  ' 零件进度表
End Sub

Private Sub mnupass_Click()
    frmpass.Show   '口令更改
End Sub
 

Private Sub mnutjlxgs_Click()
    tjlxgs.Show '零星工时统计
End Sub

Private Sub mnuwork_Click()
    pgwork.Show   '权限设定
End Sub
Private Sub mnuexit_Click()
    End
End Sub
Private Sub mnucpbjlx_Click()
    cpbjlx.Show   '零星产品
End Sub