main.frm

本文介绍了药品进销存管理系统的开发过程。论文详尽论述了从需求分析、系统分析、概要设计、详细设计、以及测试与调试的整个开发过程

VERSION 5.00
Begin VB.Form main 
   BackColor       =   &H80000001&
   Caption         =   "药品进销存管理系统"
   ClientHeight    =   4965
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   8790
   LinkTopic       =   "Form1"
   ScaleHeight     =   4965
   ScaleWidth      =   8790
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "药品进销存管理系统"
      BeginProperty Font 
         Name            =   "华文彩云"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   3735
   End
   Begin VB.Menu a 
      Caption         =   "系统管理"
      Begin VB.Menu a2 
         Caption         =   "系统初始化"
      End
      Begin VB.Menu a3 
         Caption         =   "系统备份"
      End
      Begin VB.Menu a4 
         Caption         =   "系统还原"
      End
      Begin VB.Menu a1 
         Caption         =   "设定用户"
      End
   End
   Begin VB.Menu b 
      Caption         =   "药品进销管理"
      Begin VB.Menu b1 
         Caption         =   "药品进货登记"
      End
      Begin VB.Menu b2 
         Caption         =   "药品销售登记"
      End
   End
   Begin VB.Menu g6 
      Caption         =   "库存管理"
      Begin VB.Menu g1 
         Caption         =   "库存代号维护"
      End
      Begin VB.Menu h2 
         Caption         =   "入库库存量"
      End
      Begin VB.Menu h5 
         Caption         =   "出库库存量"
      End
      Begin VB.Menu b3 
         Caption         =   "库存总量"
      End
      Begin VB.Menu b4 
         Caption         =   "库存报警"
      End
   End
   Begin VB.Menu c 
      Caption         =   "管理信息"
      Begin VB.Menu c8 
         Caption         =   "供销商信息"
      End
      Begin VB.Menu c4 
         Caption         =   "客户信息"
      End
      Begin VB.Menu c5 
         Caption         =   "员工信息"
      End
   End
   Begin VB.Menu h 
      Caption         =   "查询"
      Begin VB.Menu h1 
         Caption         =   "查询库存"
      End
      Begin VB.Menu h9 
         Caption         =   "查询进货单"
      End
      Begin VB.Menu h10 
         Caption         =   "查询销售单"
      End
   End
   Begin VB.Menu e 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

'声明API函数用于数据备份和恢复
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Private Sub a1_Click()
Form1.Show
End Sub

Private Sub a3_Click()
ss = App.Path & "\wl.mdb"
ss2 = App.Path & "\wl_bk.mdb"

Response = MsgBox("原数据库:" & ss & "备份的数据库将保存在:" & ss2, vbYesNo)

If Response = vbYes Then

   DeleteFile ss2
              '定义备份文件的位置,使用了相对目录
   CopyFile ss, ss2, 1                   '备份文件
  
   MsgBox "成功"
  Else
   Exit Sub
End If
End Sub

Private Sub a4_Click()
ss = App.Path & "\wl_bk.mdb"
ss2 = App.Path & "\wl.mdb"

Response = MsgBox("原数据库:" & ss & "备份的数据库将保存在:" & ss2, vbYesNo)

If Response = vbYes Then

   DeleteFile ss2
              '定义备份文件的位置,使用了相对目录
   CopyFile ss, ss2, 1                   '备份文件
  
   MsgBox "成功"
  Else
   Exit Sub
End If
End Sub

Private Sub b1_Click()
frmInput.Show
End Sub

Private Sub b2_Click()
frmOutput.Show
End Sub

Private Sub b3_Click()
Form8.Show
End Sub

Private Sub c1_Click()
Form3.Show
End Sub

Private Sub c2_Click()
Form2.Show
End Sub

Private Sub b4_Click()
Form15.Show
End Sub

Private Sub c3_Click()
Form4.Show
End Sub

Private Sub c4_Click()
frmOrder.Show
End Sub

Private Sub d_Click()
End
End Sub

Private Sub c5_Click()
Form16.Show
End Sub

Private Sub c8_Click()
Form7.Show
End Sub

Private Sub e_Click()
End
End Sub

Private Sub f_Click()


End Sub

Private Sub g_Click()
Form6.Show
End Sub

Private Sub g1_Click()
Form5.Show
End Sub

Private Sub h1_Click()
Form9.Show
End Sub

Private Sub h10_Click()
Form13.Show
End Sub

Private Sub h2_Click()
Form2.Show
End Sub

Private Sub h5_Click()
Form3.Show
End Sub

Private Sub h9_Click()
Form12.Show
End Sub

Private Sub k1_Click()
Form6.Show
End Sub

Private Sub k3_Click()
Form14.Show
End Sub

Private Sub k4_Click()
Form6.Show
End Sub

Private Sub y1_Click()
Form10.Show
End Sub

Private Sub y2_Click()
Form11.Show
End Sub