frmmain.frm

VB+SQL原码

VERSION 5.00
Begin VB.Form FrmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "企业库存管理系统"
   ClientHeight    =   8220
   ClientLeft      =   60
   ClientTop       =   660
   ClientWidth     =   11805
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8220
   ScaleWidth      =   11805
   StartUpPosition =   2  '屏幕中心
   Begin VB.Image Image1 
      Height          =   8220
      Left            =   0
      Picture         =   "FrmMain.frx":0CCA
      Stretch         =   -1  'True
      Top             =   0
      Width           =   11820
   End
   Begin VB.Menu mn_sys 
      Caption         =   "系统设置(&F)"
      Begin VB.Menu mn_client 
         Caption         =   "客户管理(&C)"
      End
      Begin VB.Menu mn_stocks 
         Caption         =   "仓库管理(&S)"
      End
      Begin VB.Menu mn_users 
         Caption         =   "用户管理(&U)"
      End
      Begin VB.Menu mn_exit 
         Caption         =   "退出系统(&Q)"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu mn_Product 
      Caption         =   "产品管理(&M)"
      Begin VB.Menu mn_ProType 
         Caption         =   "产品类目(&C)"
      End
      Begin VB.Menu mn_ProInfo 
         Caption         =   "产品信息(&M)"
      End
   End
   Begin VB.Menu mn_Operate 
      Caption         =   "库存操作(&O)"
      Begin VB.Menu mn_In 
         Caption         =   "入库(&I)"
      End
      Begin VB.Menu mn_Out 
         Caption         =   "出库(&O)"
      End
      Begin VB.Menu mn_Check 
         Caption         =   "盘点(&S)"
      End
   End
   Begin VB.Menu mn_alarm 
      Caption         =   "库存警示(&I)"
      Begin VB.Menu mn_num 
         Caption         =   "数量报警(&S)"
      End
      Begin VB.Menu mn_Invalid 
         Caption         =   "失效报警(&F)"
      End
   End
   Begin VB.Menu mn_static 
      Caption         =   "统计查询(&T)"
      Begin VB.Menu mn_Report1 
         Caption         =   "产品出入库统计表(&O)"
      End
      Begin VB.Menu mn_Report2 
         Caption         =   "库存产品流水统计表(&R)"
      End
   End
   Begin VB.Menu help 
      Caption         =   "帮助(&H)"
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
  FrmLogin.Show 1
End Sub

Private Sub help_Click()
frmSplash.Show 1
End Sub

Private Sub mn_Check_Click()
  FrmCheckMan.Show 1
End Sub

Private Sub mn_client_Click()
  FrmCltMan.Show 1
End Sub

Private Sub mn_exit_Click()
  End
End Sub

Private Sub mn_In_Click()
  FrmStoreinMan.Show 1
End Sub

Private Sub mn_Invalid_Click()
  FrmValidAlarm.Show 1
End Sub

Private Sub mn_num_Click()
  FrmNumAlarm.Show 1
End Sub

Private Sub mn_Out_Click()
  FrmTakeoutMan.Show 1
End Sub

Private Sub mn_ProInfo_Click()
  FrmProMan.Show 1
End Sub

Private Sub mn_ProType_Click()
  FrmProTypeMan.Show 1
End Sub

Private Sub mn_Report1_Click()
  Frm_Report1.Show 1
End Sub

Private Sub mn_Report2_Click()
  Frm_Report2.Show 1
End Sub

Private Sub mn_stocks_Click()
  FrmStoreMan.Show 1
End Sub

Private Sub mn_users_Click()
  If Format(CurUser.UserName, "<") = "admin" Then
    FrmUserMan.Show 1
  Else
    With FrmUserEdit
    .OriUser = CurUser.UserName
    .txtUserName = CurUser.UserName
    .txtPass = CurUser.Pwd
    .txtPass2 = CurUser.Pwd
    .txtEname = CurUser.EmpName
    .txtEname.Enabled = False
    .Modify = True
    .Show 1
    End With
  End If
End Sub