mdiform1.frm

上学时写的一个进销存管理软件

      End
      Begin VB.Menu mnufileseparator2 
         Caption         =   "-"
      End
      Begin VB.Menu mnufilebackup 
         Caption         =   "帐薄备份"
         Shortcut        =   ^B
      End
      Begin VB.Menu mnufilerestore 
         Caption         =   "帐薄还原"
         Shortcut        =   ^R
      End
      Begin VB.Menu mnufileseparator3 
         Caption         =   "-"
      End
      Begin VB.Menu mnufilequit 
         Caption         =   "退出"
         Shortcut        =   ^Q
      End
   End
   Begin VB.Menu mnuwork 
      Caption         =   "操作(&A)"
      WindowList      =   -1  'True
      Begin VB.Menu mnuworkin 
         Caption         =   "进货"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnuworkout 
         Caption         =   "出货"
         Shortcut        =   {F2}
      End
      Begin VB.Menu mnuworkseparator1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuworklookup 
         Caption         =   "查询"
         Shortcut        =   ^F
      End
      Begin VB.Menu mnuworkprint 
         Caption         =   "报表"
         Shortcut        =   ^P
      End
   End
   Begin VB.Menu mnutool 
      Caption         =   "管理工具(&T)"
      Begin VB.Menu mnutoolchangpwd 
         Caption         =   "更改密码"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnutoolusermanger 
         Caption         =   "用户管理"
         Shortcut        =   ^U
      End
      Begin VB.Menu mnutoolmanage 
         Caption         =   "货物管理"
         Shortcut        =   ^M
      End
   End
   Begin VB.Menu mnuhelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu mnuhelpabout 
         Caption         =   "关于进销存管理系统"
         Shortcut        =   ^A
      End
   End
End
Attribute VB_Name = "MainForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Module1.OpenAccountDatabase '打开用户帐号数据库
Module1.InitMainform '初始化主窗体
Module1.ProgramStart '检查注册表中是否有注册帐号来决定是否出现管理员注册对话框
'Picture1.Width = MainForm.Width - 120 '使图片框充满到整个窗口
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Msg   ' 声明变量。
' 设置信息文本。
Msg = "退出前是否对数据库进行备份？"
clk = MsgBox(Msg, vbQuestion + vbYesNoCancel, Me.Caption)
' 如果用户单击 No 按钮，则停止QueryUnload。
If clk = vbCancel Then
    Cancel = True
Else
    If clk = vbYes Then
    'MsgBox "在这里添加备份数据库的代码"
    Module2.DataBackup
    End If
End If
End Sub

Private Sub MDIForm_Resize()
'Picture1.Width = MainForm.Width - 120 '使图片框充满到整个窗口
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
'关闭所有数据库
Module1.CloseAllDatabase
'关闭所有窗体
Module1.CloseAllForm
End Sub

Private Sub mnufilebackup_Click()
Module2.DataBackup
End Sub

Private Sub mnufileclose_Click()
Module2.CloseDatabase
End Sub

Private Sub mnufilelogin_Click()
loginform.Show 1
End Sub

Private Sub mnufilenew_Click()
Module2.NewZhangBu
End Sub

Private Sub mnufileopen_Click()
Dim nm As String
nm = Module2.GetDbName
If nm <> "" Then
Module2.OpenZhangBu (nm)
End If
End Sub

Private Sub mnufilequit_Click()
Unload Me
End Sub

Private Sub mnufilerestore_Click()
Module2.DataRestore
End Sub

Private Sub mnuhelpabout_Click()
frmAbout.Show vbModal '显示关于对话框
End Sub

Private Sub mnutoolchangpwd_Click()
Module1.ChangePassWord
End Sub

Private Sub mnutoolmanage_Click()
'MsgBox "这是货物管理的过程"
FormHuowumanger.Show 1
End Sub

Private Sub mnutoolusermanger_Click()
usermangerform.Show 1
End Sub

Private Sub mnuworkin_Click()
Ioform.SSTab1.Tab = 0
Ioform.Cmdadd.Value = True
End Sub

Private Sub mnuworklookup_Click()
'MsgBox "这里是查询的过程"
Ioform.SSTab1.Tab = 2
Ioform.CmdSeach.Value = True
End Sub

Private Sub mnuworkout_Click()
Ioform.SSTab1.Tab = 1
Ioform.Command1.Value = True
End Sub

Private Sub mnuworkprint_Click()
ChoiceBaoBiao.Show 1
End Sub

Private Sub Timer1_Timer()
'mainform窗体标题的动态显示
Select Case MainForm.Caption
Case "进销存管理系统"
MainForm.Caption = "销存管理系统"
Case "销存管理系统"
MainForm.Caption = "存管理系统"
Case "存管理系统"
MainForm.Caption = "管理系统"
Case "管理系统"
MainForm.Caption = "理系统"
Case "理系统"
MainForm.Caption = "系统"
Case "系统"
MainForm.Caption = "统"
Case "统"
MainForm.Caption = "天堂鸟软体工作室"
Case "天堂鸟软体工作室"
MainForm.Caption = "堂鸟软体工作室"
Case "堂鸟软体工作室"
MainForm.Caption = "鸟软体工作室"
Case "鸟软体工作室"
MainForm.Caption = "软体工作室"
Case "软体工作室"
MainForm.Caption = "体工作室"
Case "体工作室"
MainForm.Caption = "工作室"
Case "工作室"
MainForm.Caption = "作室"
Case "作室"
MainForm.Caption = "室"
Case "室"
MainForm.Caption = "进销存管理系统"
End Select
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.ToolTipText
Case "用户登录"
mnufilelogin_Click
Case "打开帐薄"
mnufileopen_Click
Case "新建帐薄"
mnufilenew_Click
Case "关闭帐薄"
mnufileclose_Click
Case "帐薄备份"
mnufilebackup_Click
Case "帐薄还原"
mnufilerestore_Click
Case "查询"
mnuworklookup_Click
Case "打印报表"
mnuworkprint_Click
Case "更改密码"
mnutoolchangpwd_Click
Case "用户管理"
mnutoolusermanger_Click
Case "货物管理"
mnutoolmanage_Click
Case "关于"
mnuhelpabout_Click
Case "退出"
Unload Me
End Select
End Sub