mainform.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{4F29B06F-16D9-4A0C-9C8A-2F0C02F625FE}#1.0#0"; "FlexCell.ocx"
Begin VB.MDIForm Mainform 
   Appearance      =   0  'Flat
   BackColor       =   &H00E0E0E0&
   Caption         =   "jsgs"
   ClientHeight    =   6825
   ClientLeft      =   5070
   ClientTop       =   2520
   ClientWidth     =   10905
   HelpContextID   =   168
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  'CenterScreen
   WhatsThisHelp   =   -1  'True
   WindowState     =   2  'Maximized
   Begin FlexCell.Grid Grid1 
      Align           =   1  'Align Top
      Height          =   585
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   10905
      _ExtentX        =   19235
      _ExtentY        =   1032
      Cols            =   5
      Rows            =   30
   End
   Begin MSComctlLib.StatusBar StatusBar 
      Align           =   2  'Align Bottom
      Height          =   285
      Left            =   0
      TabIndex        =   0
      Top             =   6540
      Width           =   10905
      _ExtentX        =   19235
      _ExtentY        =   503
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            AutoSize        =   2
            TextSave        =   "2007-03-27"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            AutoSize        =   1
            Object.Width           =   11007
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            TextSave        =   "13:14"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnufile 
      Caption         =   "文件"
      Begin VB.Menu mnufileuser 
         Caption         =   "操作员"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnupass 
         Caption         =   "口令更改"
      End
      Begin VB.Menu mnuwork 
         Caption         =   "权限设定"
      End
      Begin VB.Menu mnuexit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnufir 
      Caption         =   "基本数据"
      Begin VB.Menu mnufircj 
         Caption         =   "车间信息"
      End
      Begin VB.Menu mnufirbz 
         Caption         =   "班组个人"
      End
      Begin VB.Menu mnuline1 
         Caption         =   "--------"
      End
      Begin VB.Menu mnufirgx 
         Caption         =   "工序"
      End
      Begin VB.Menu mnufirlj 
         Caption         =   "零件去向"
      End
      Begin VB.Menu mnuline2 
         Caption         =   "--------"
      End
      Begin VB.Menu mnufirdh 
         Caption         =   "订货单位"
      End
   End
   Begin VB.Menu mnucp 
      Caption         =   "产品"
      Begin VB.Menu mnucpdg 
         Caption         =   "产品部件"
      End
      Begin VB.Menu mnucplj 
         Caption         =   "产品零件"
      End
      Begin VB.Menu mnuine3 
         Caption         =   "--------"
      End
      Begin VB.Menu mnucpcopy 
         Caption         =   "产品复制"
      End
      Begin VB.Menu mnuline5 
         Caption         =   "--------"
      End
      Begin VB.Menu mnucpjd 
         Caption         =   "部件进度表"
      End
      Begin VB.Menu mnucpjdtz 
         Caption         =   "部件完成台帐"
      End
      Begin VB.Menu mnuline6 
         Caption         =   "--------"
      End
      Begin VB.Menu mnucpjdprn1 
         Caption         =   "进度表导出"
      End
      Begin VB.Menu mnucpjdprn2 
         Caption         =   "路线表打印"
      End
      Begin VB.Menu mnuline9 
         Caption         =   "--------"
      End
      Begin VB.Menu mnucpbjlx 
         Caption         =   "零星产品部件"
      End
   End
   Begin VB.Menu mnugp 
      Caption         =   "工票"
      Begin VB.Menu mnugpdn 
         Caption         =   "定额工票"
      End
      Begin VB.Menu mnugpzp 
         Caption         =   "增拨工票"
      End
      Begin VB.Menu mnugpwx 
         Caption         =   "外协工票"
      End
      Begin VB.Menu mnugplx 
         Caption         =   "零星工票"
      End
      Begin VB.Menu mnuline8 
         Caption         =   "--------"
      End
      Begin VB.Menu mnugpfc 
         Caption         =   "工票反冲"
      End
      Begin VB.Menu mnugplxfc 
         Caption         =   "零星工票反冲"
      End
      Begin VB.Menu mnuline4 
         Caption         =   "--------"
      End
      Begin VB.Menu mnugpfind 
         Caption         =   "工票流水帐"
      End
      Begin VB.Menu mnugpbjfind 
         Caption         =   "部件工时明细"
      End
      Begin VB.Menu mnuline10 
         Caption         =   "--------"
      End
      Begin VB.Menu mnulxfind 
         Caption         =   "零星工票流水帐"
      End
   End
   Begin VB.Menu mnutj 
      Caption         =   "统计计划"
      Begin VB.Menu mnutjbz 
         Caption         =   "班组/个人统计"
      End
      Begin VB.Menu mnutjcptot 
         Caption         =   "产品工时统计"
      End
      Begin VB.Menu mnutjcpgx 
         Caption         =   "部件工序工时统计"
      End
      Begin VB.Menu mnutjcphz 
         Caption         =   "部件车间工时统计"
      End
      Begin VB.Menu mnuplanljjd 
         Caption         =   "零件总进度表"
      End
      Begin VB.Menu mnuline7 
         Caption         =   "--------"
      End
      Begin VB.Menu mnuplancjsc 
         Caption         =   "生产计划表"
      End
      Begin VB.Menu mnuline11 
         Caption         =   "----------"
      End
      Begin VB.Menu mnutjlxgs 
         Caption         =   "零星工时统计表"
      End
   End
   Begin VB.Menu mnuhelp 
      Caption         =   "关于"
      Begin VB.Menu mnuhelpabout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "Mainform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'    'App_Name=编译后的应用程序名称,注意没有后缀 .EXE,本例为hlima
'Private Const App_Name = "hlima"
'    'ExePath=最新的应用程序存放的路径,本例为：服务器 192.168.0.3  共享目录 Refresh$
'Private Const ExePath = "\\192.168.0.5\Refresh$\"
'    'MidExeName=中介程序名称,注意没有后缀 .EXE,本例为 FastCopy
'Private Const MidExeName = "FastCopy"
Private Sub MDIForm_Load()
    On Error Resume Next
     
'    If UCase(Trim(App.EXEName)) <> UCase(Trim(App_Name)) Then
'            MsgBox "必须将系统的名称更改为: " + App_Name
'            End
'        End If
'        '判断是否有最新版本的应用程序,如有则自动更新
'        Call ExeRefresh
        
        '下面为订单管'理系统的正常操作
           
    szserver = "192.168.0.3"
    szpassword = "hlsql5186"
    'szserver = "center"
    'szpassword = ""
    szdatabase = "jsgsdata"
    szuser = "sa"
    
    szConnection = "Provider=SQLOLEDB.1;Persist Security Info=False" _
    & ";User ID=" & szuser _
    & ";Initial Catalog=" & szdatabase _
    & ";Data Source=" & szserver _
    & ";Password=" & szpassword
    If Not oDb.State = sckOpen Then
        oDb.ConnectionString = szConnection
        oDb.Open
        oDb.CursorLocation = adUseClient
    End If
  
  
    If Err Then
        MsgBox "Sorry, 不能联接 目标数据库，请检查网络是否畅通。" & vbCrLf & vbCrLf & Error