mdifrmmain.frm

库存管理系统

VERSION 5.00
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Object = "{D14FD2DC-9318-11D3-9CB7-000021ECAA5D}#5.0#0"; "MovingChar.ocx"
Begin VB.MDIForm MDIFrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "东方库管"
   ClientHeight    =   3900
   ClientLeft      =   3000
   ClientTop       =   4515
   ClientWidth     =   5550
   Icon            =   "MDIFrmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin ComCtl3.CoolBar CoolBar1 
      Align           =   1  'Align Top
      Height          =   435
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5550
      _ExtentX        =   9790
      _ExtentY        =   767
      BandCount       =   1
      _CBWidth        =   5550
      _CBHeight       =   435
      _Version        =   "6.0.8169"
      Child1          =   "MovingText1"
      MinHeight1      =   375
      Width1          =   990
      NewRow1         =   0   'False
      Begin MovingChar.MovingText MovingText1 
         Height          =   375
         Left            =   30
         TabIndex        =   1
         Top             =   30
         Width           =   5430
         _ExtentX        =   9578
         _ExtentY        =   661
         MsgChar         =   "由东方软件有限公司开发"
         CharColor       =   16711680
         BackColor       =   16761024
         FontSize        =   8.25
         MousePointer    =   0
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
   End
   Begin VB.Menu M项目 
      Caption         =   "项目"
      Begin VB.Menu M设置 
         Caption         =   "设置"
      End
      Begin VB.Menu M退出 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu M入库 
      Caption         =   "入库"
      Index           =   1
      Begin VB.Menu M入库操作 
         Caption         =   "入库操作"
      End
   End
   Begin VB.Menu M出库 
      Caption         =   "出库"
      Begin VB.Menu M出库操作 
         Caption         =   "出库操作"
      End
   End
   Begin VB.Menu M报表 
      Caption         =   "报表"
      Begin VB.Menu M报表输出 
         Caption         =   "报表输出"
      End
   End
End
Attribute VB_Name = "MDIFrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public sqname As String
Public sqpassword As String

Private Sub CoolBar1_Resize()
MovingText1.Width = CoolBar1.Width
End Sub

Private Sub MDIForm_Load()
Unload FrmSet
Unload frmRK
Unload frmPrint
Unload frmCK
Unload FrmHY
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Unload frmCK
Unload FrmHY
Unload frmRK
Unload FrmSet
Unload frmPrint
Unload MDIFrmMain
Unload enter

End Sub

Private Sub M报表输出_Click()
frmPrint.Show
End Sub

Private Sub M出库操作_Click()
Dim a
If enter.sqpassword.Text = enter.Dataenter.Recordset("密码") And enter.sqname.Text = "董芳芳" Then
    frmCK.Show
Else
    a = MsgBox("你只能查询，不能操作！请出去！", vbCritical, "东方库管")
End If

End Sub

Private Sub M入库操作_Click()
Dim a
If enter.sqpassword.Text = enter.Dataenter.Recordset("密码") And enter.sqname.Text = "董芳芳" Then
    frmRK.Show
Else
    a = MsgBox("你只能查询，不能操作！请出去！", vbCritical, "东方库管")
End If

End Sub

Private Sub M设置_Click()
Dim a
If enter.sqpassword.Text = enter.Dataenter.Recordset("密码") And enter.sqname.Text = "董芳芳" Then
    FrmSet.Show
Else
    a = MsgBox("你只能查询，不能操作！请出去！", vbCritical, "东方库管")
End If

End Sub

Private Sub M退出_Click()
Unload frmCK
Unload FrmHY
Unload frmRK
Unload FrmSet
Unload frmPrint
Unload MDIFrmMain
Unload enter
End Sub