frmmain.frm

基于SQL2000的企业管理MRPII,包含进销存,财务,报关等组件,VB6开发,带文档说明.

VERSION 5.00
Object = "{4932CEF1-2CAA-11D2-A165-0060081C43D9}#2.0#0"; "ACTBAR2.OCX"
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "RESIZE32.OCX"
Begin VB.Form frmmain 
   Caption         =   "高科_仓库管理系统 VER2004+"
   ClientHeight    =   8595
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11880
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   Moveable        =   0   'False
   ScaleHeight     =   15.161
   ScaleMode       =   0  'User
   ScaleWidth      =   20.955
   StartUpPosition =   1  '所有者中心
   WindowState     =   2  'Maximized
   Begin ActiveBar2LibraryCtl.ActiveBar2 ActiveBar21 
      Height          =   8535
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   11835
      _LayoutVersion  =   1
      _ExtentX        =   20876
      _ExtentY        =   15055
      _DataPath       =   ""
      Bands           =   "frmMain.frx":030A
      Begin VB.PictureBox Picture1 
         BackColor       =   &H00808000&
         Height          =   7275
         Left            =   1560
         Picture         =   "frmMain.frx":1EC1E
         ScaleHeight     =   7215
         ScaleWidth      =   10185
         TabIndex        =   1
         Top             =   810
         Width           =   10245
      End
      Begin VB.Timer Timer1 
         Interval        =   500
         Left            =   3060
         Top             =   4020
      End
   End
   Begin ResizeLibCtl.ReSize ReSize1 
      Left            =   3210
      Top             =   1560
      _Version        =   196608
      _ExtentX        =   741
      _ExtentY        =   741
      _StockProps     =   64
      Enabled         =   -1  'True
      Enabled         =   -1  'True
      FormMinWidth    =   0
      FormMinHeight   =   0
      FormDesignHeight=   8595
      FormDesignWidth =   11880
   End
End
Attribute VB_Name = "frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub QYDJ_Click()
Load GK_KHzL
GK_KHzL.Show 0
End Sub

Private Sub ActiveBar21_ToolClick(ByVal Tool As ActiveBar2LibraryCtl.Tool)
Select Case Tool.Name
     Case "Tool7"
     Load frmSplash
     frmSplash.Show 0
     Case "Tool55"
     Load yy_cpbj
     yy_cpbj.Show 0
     Case "Tool51"
     Load Sys_YYsz
     Sys_YYsz.Show 0
     Case "Tool54"
     Load sys_bmsz
     sys_bmsz.Show 0
      Case "Tool57"
     Load sys_JLDW
     sys_JLDW.Show 0
     Case "Tool58"
     Load sys_gzry
     sys_gzry.Show 0
     Case "Tool23"
     If MsgBox("是否退出系统？", 64 + vbYesNo, "系统提示") = vbYes Then
     End
     Else
     Exit Sub
     End If
     Case "Tool59"
     Load sys_QXSZ
     sys_QXSZ.Show 0
     Case "Tool7"
     Load frmSplash
     frmSplash.Show 0
     Case "Tool44"
     Load CK_cprk_Djb
     CK_cprk_Djb.Show 0
      Case "Tool45"
     Load CK_CpCk_DjB
     CK_CpCk_DjB.Show 0
     Case "Tool46"
     Load Ck_BcPRk_DjB
     Ck_BcPRk_DjB.Show 0
     Case "Tool56"
     Load sYs_YlMC
     sYs_YlMC.Show 0
     Case "Tool47"
     Load CK_BCpCk_DjB
     CK_BCpCk_DjB.Show 0
     Case "Tool48"
     Load CK_YlRk_DjB
     CK_YlRk_DjB.Show 0
      Case "Tool42"
     Load sYS_ReS_BaK
     sYS_ReS_BaK.Show 0
     Case "Tool60"
     Load CK_YLcK_dJB
     CK_YLcK_dJB.Show 0
     Case "Tool61"
     Load Ck_CcPrK_DjB
     Ck_CcPrK_DjB.Show 0
     Case "Tool62"
     Load Ck_CcPcK_DjB
     Ck_CcPcK_DjB.Show 0
     Case "Tool49"
     Load Ck_CP_KcTjB
     Ck_CP_KcTjB.Show 0
      Case "Tool50"
     Load Ck_BcP_kcTjB
     Ck_BcP_kcTjB.Show 0
     Case "Tool63"
     Load Ck_YLKc_TjB
     Ck_YLKc_TjB.Show 0
     Case "Tool64"
     Load CK_CcP_KcTjB
     CK_CcP_KcTjB.Show 0
     Case "Tool4"
     Load Ck_CpRk_CxTjB
     Ck_CpRk_CxTjB.Show 0
     Case "Tool67"
     Load Ck_yLrK_CxTjB
     Ck_yLrK_CxTjB.Show 0
     Case "Tool41"
     Load Ck_BcPrK_CxTjB
     Ck_BcPrK_CxTjB.Show 0
     Case "Tool5"
     Load YY_CpCk_CxTjB
     YY_CpCk_CxTjB.Show 0
     Case "Tool66"
     Load YY_BcpcK_cxTjB
     YY_BcpcK_cxTjB.Show 0
       Case "Tool70"
     Load Ck_CcpRk_CxtJb
     Ck_CcpRk_CxtJb.Show 0
     Case "Tool68"
     Load YY_yLcK_CxTjB
     YY_yLcK_CxTjB.Show 0
     Case "Tool71"
     Load YY_CcPcK_CxTjB
     YY_CcPcK_CxTjB.Show 0
     Case "Tool6"
     Load frmODBCLogon
     frmODBCLogon.Show 0
      Case "Tool20"
     Load Sys_XTYh
     Sys_XTYh.Show 0
     Case "Tool21"
     Load frmSplash
     frmSplash.Show 0
     Case "Tool22"
     MsgBox "欢迎使用《高科仓库管理系统2004版》！", vbOKOnly + 64, "系统提示"
   
     Case "Tool8"
     If MsgBox("是否退出系统？", 64 + vbYesNo, "系统提示") = vbYes Then
     End
     Else
     Exit Sub
     End If
End Select
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("是否真的退出系统？", vbYesNo + 32, "系统提示") = vbYes Then
  Cancel = 0
  Else
  Cancel = 1
  Exit Sub
  End If
End Sub
Private Sub Form_Load()
Me.Width = Screen.Width
Me.Height = Screen.Height
Me.ActiveBar21.Top = 0.015
Me.ActiveBar21.Bands("Band4").Top = Me.ActiveBar21.Bands("Band4").Height
Me.Picture1.Top = Me.ActiveBar21.Bands("Band4").Height * 1.7 + 10
Picture1.Height = Me.Height - Me.ActiveBar21.Bands("Band4").Height * 3 - 400
Me.Picture1.Left = Me.ActiveBar21.Bands("Band6").Width + 4
Me.Picture1.Width = Me.Width - Me.ActiveBar21.Bands("Band6").Width - 200
End Sub

Private Sub Form_Resize()
On Error Resume Next
Me.ActiveBar21.Top = 0.015
Me.ActiveBar21.Bands("Band4").Top = Me.ActiveBar21.Bands("Band4").Height
Me.Picture1.Top = Me.ActiveBar21.Bands("Band4").Height * 1.7 + 10
Me.Picture1.Height = Me.Height - Me.ActiveBar21.Bands("Band4").Height * 3 - 400
Me.Picture1.Left = Me.ActiveBar21.Bands("Band6").Width + 4
Me.Picture1.Width = Me.Width - Me.ActiveBar21.Bands("Band6").Width - 200
End Sub

Private Sub Timer1_Timer()
Me.ActiveBar21.Bands("Band4").Tools("Tool39").Caption = VBA.Time$
Me.ActiveBar21.Refresh
End Sub