mdiform1.frm

音像制品管理系统共分为四个功能模块

      Begin VB.Menu return 
         Caption         =   "还原数据"
      End
      Begin VB.Menu clear 
         Caption         =   "清空"
      End
   End
   Begin VB.Menu set 
      Caption         =   "[设置]"
      Begin VB.Menu settime 
         Caption         =   "校正系统日期时间"
         Shortcut        =   {F9}
      End
      Begin VB.Menu setpassword 
         Caption         =   "设置用户密码"
      End
   End
   Begin VB.Menu other 
      Caption         =   "[其它]"
      Begin VB.Menu about_system 
         Caption         =   "系统说明"
      End
      Begin VB.Menu calculate 
         Caption         =   "计算器"
         Shortcut        =   {F1}
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim aa As String
Private Sub about_system_Click()
help1.Show
End Sub

Private Sub backup_Click()

Dim filename As String
Dim tbl As TableDef
Dim fld As Field
Dim idx As Index
Dim db As Database
CommonDialog1.Action = 2
CommonDialog1.InitDir = "d:\毕业设计\设计\数据库备份"
CommonDialog1.Filter = "*.mdb"
'Set myws = DBEngine.CreateWorkspace("sample", "admin", "")
'DBEngine.Workspaces.Append myws
filename = CStr(CommonDialog1.filename)
Set db = DBEngine.Workspaces(0).CreateDatabase(filename, dbLangGeneral)
Set tbl = db.CreateTableDef("销售情况表")
'db.TableDefs.Append tbl
Set fld = tbl.CreateField("盘号", dbLong)
tbl.Fields.Append fld
Set fld = tbl.CreateField("光碟名", dbText)
tbl.Fields.Append fld
Set fld = tbl.CreateField("价格", dbCurrency)
tbl.Fields.Append fld
Set fld = tbl.CreateField("销售总价", dbCurrency)
tbl.Fields.Append fld
Set fld = tbl.CreateField("出售数量", dbLong)
tbl.Fields.Append fld
Set fld = tbl.CreateField("售出时间", dbText)
tbl.Fields.Append fld
Set idx = tbl.CreateIndex("盘号")
idx.IgnoreNulls = True
tbl.Indexes.Append idx
Set idx = tbl.CreateIndex("光碟名")
idx.IgnoreNulls = True
tbl.Indexes.Append idx
Set idx = tbl.CreateIndex("售出时间")
idx.IgnoreNulls = True
tbl.Indexes.Append idx
Set tbl1 = db.CreateTableDef("影碟销售表")
db.TableDefs.Append tbl
db.Close

End Sub

Private Sub calculate_Click()
MDIForm1.StatusBar1.Panels(1) = "计算器"
Dim strl As String
str1 = Shell("d:\毕业设计\设计\功能集\calc.exe", 1)
End Sub

Private Sub Combo1_Click()
Select Case Combo1.Text
       Case "[销售情况信息]":
       formpayout.Show
       formpayout.SetFocus
       formpayout.Combo1.Text = "歌碟销售"
       
       Set form_payin = Nothing
       
       Set vcdsearch1 = Nothing
      
       Set falmpayin = Nothing
       
       Set falmsch = Nothing
       Case "[近期新歌速递]":
       salearray.Show
       salearray.SetFocus
       Case "[歌碟购入信息]":
       form_payin.Show
       form_payin.SetFocus
       Case "[歌碟库存查寻]":
       vcdsearch1.Show
       vcdsearch1.SetFocus
       Case "[歌碟库存盘点]":
       vcdpandian.Show
       vcdpandian.SetFocus
       Case "[歌碟销售统计]":
       todaysum.Show
       todaysum.SetFocus
       Case "[影碟购入信息]":
       falmpayin.Show
       falmpayin.SetFocus
       Case "[影碟库存查寻]":
       falmsch.Show
       falmsch.SetFocus
       Case "[影碟库存盘点]":
       falmpandian.Show
       falmpandian.SetFocus
       Case "[影碟销售统计]":
       falmsum1.Show
       falmsum1.SetFocus
       Case "[出租进货入库]":
       rentpayin.Show
       rentpayin.SetFocus
       Case "[出租管理信息]":
       rentsch.Show
       rentsch.SetFocus
       End Select
End Sub

Private Sub exit_Click()
Rem End
select1.Show
End Sub

Private Sub falm_payin_Click()
falmpayin.Show
falmpayin.SetFocus
End Sub

Private Sub falm_payout_Click()
formpayout.Show
formpayout.SetFocus
formpayout.Combo1.Text = "影碟销售"
End Sub

Private Sub falmprint_payin_Click()
falmpayinprint.Show
End Sub

Private Sub falmprint_payout_Click()
falmsumprint.Show
End Sub

Private Sub falmsearch_Click()
falmsch.Show
falmsch.SetFocus
End Sub

Private Sub falmsum_Click()
falmpandian.Show
falmpandian.SetFocus
End Sub

Private Sub MDIForm_Load()
formpayout.Show
formpayout.Combo1.Text = "歌碟销售"
Combo1.AddItem "[销售情况信息]"
Combo1.AddItem "[近期新歌速递]"
Combo1.AddItem "[歌碟购入信息]"
Combo1.AddItem "[歌碟库存查寻]"
Combo1.AddItem "[歌碟库存盘点]"
Combo1.AddItem "[歌碟销售统计]"
Combo1.AddItem "[影碟购入信息]"
Combo1.AddItem "[影碟库存查寻]"
Combo1.AddItem "[影碟库存盘点]"
Combo1.AddItem "[影碟销售统计]"
Combo1.AddItem "[出租进货入库]"
Combo1.AddItem "[出租管理信息]"
aa = "----音像制品管理系统----计算机信息管理专业----陈丹虹"
Text2.FontSize = 12
Text2.Text = aa
End Sub

Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MDIForm1.StatusBar1.Panels(1) = ""
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'Dim str1 As String
'str1 = Shell("d:\毕业设计\设计\功能集\pviewtree.exe", 1)
End Sub

Private Sub op_Click()
MDIForm1.StatusBar1.Panels(1) = "报表浏览"
reportformshow.Show
End Sub



Private Sub open_database_Click()
Dim destination As String
Dim conn As New ADODB.Connection
Rem TreeView1.Nodes.clear
Dim fld As Field
Dim nodx As Node
CommonDialog1.Filter = "*.mdb|*.mdb"
CommonDialog1.DialogTitle = "open database"
CommonDialog1.filename = vbNullString
CommonDialog1.ShowOpen
If Len(CommonDialog1.filename) = 0 Then Exit Sub
lbldatabase = CommonDialog1.filename
CommonDialog1.Filter = "*.mdb|*.mdb"
CommonDialog1.DialogTitle = "save database"
CommonDialog1.ShowSave
destination = CommonDialog1.filename
Rem FileCopy lbldatabase, destination
FileCopy lbldatabase, destination
Set nodx = TreeView1.Nodes.Add(, , "p", "tables")
Set db = DBEngine.Workspaces(0).OpenDatabase(CommonDialog1.filename)
Dim constr As String
constr = "Provider=Microsoft.Jet.OLEDB.3.51;" & "data source='" & CommonDialog1.filename & "'"
conn.Open constr
For Each tbl In db.TableDefs
Set nodx = TreeView1.Nodes.Add("p", tvwChild, tbl.Name, tbl.Name)
For Each fld In tbl.Fields
Set nodx = TreeView1.Nodes.Add(tbl.Name, tvwChild, , fld.Name)
Next fld
Next
nodx.EnsureVisible
TreeView1.Style = 7
TreeView1.BorderStyle = ccFixedSingle

End Sub

Private Sub payin_Click()
MDIForm1.StatusBar1.Panels(1) = "歌碟购入"
form_payin.Show
form_payin.SetFocus
End Sub

Private Sub payoff_Click()
formpayout.Show
formpayout.SetFocus
formpayout.Combo1.Text = "歌碟销售"
End Sub

Private Sub print_payin_Click()
vcdpayinprint.Show
End Sub

Private Sub print_payoff_Click()
DataReport1.Show
End Sub



Private Sub rendmannage_Click()
rentsch.Show
rentsch.SetFocus
End Sub

Private Sub rendpayin_Click()
rentpayin.Show
rentpayin.SetFocus
End Sub

Private Sub setname_Click()

End Sub

Private Sub rentprint_Click()
rentpayinprint.Show
End Sub

Private Sub repair_Click()
Dim str1 As String
str1 = Shell("d:\毕业设计\设计\功能集\datarepair.exe", 1)
End Sub

Private Sub setpassword_Click()
MDIForm1.StatusBar1.Panels(1) = "设置用户密码"
dialogs.Show
dialogs.SetFocus
End Sub

Private Sub settime_Click()
settime1.Show
End Sub

Private Sub tixe_Click()
Form1.Show
Form1.SetFocus
End Sub

Private Sub singsearch_Click()
vcdsearch1.Show
vcdsearch1.SetFocus
End Sub

Private Sub Timer1_Timer()
aa = Mid(aa, 2, 59) + Mid(aa, 1)
Text2.Text = aa
End Sub

Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Dim str1 As String
Select Case Button.Index
       Case 1:
       formpayout.Show
       formpayout.Combo1.Text = "歌碟销售"
       Case 2:
       vcdsearch1.Show
       Case 3:
       falmsch.Show
       Case 4:
       rentsch.Show
       Case 5:
       str1 = Shell("d:\毕业设计\设计\功能集\datarepair.exe", 1)
       Case 6:
       DataReport1.Show
       Case 7:
       settime1.Show
       Case 8:
       dialogs.Show
       Case 9:
       Dim str2 As String
       str2 = Shell("d:\毕业设计\设计\功能集\calc.exe", 1)
       Case 10:
       Rem End
       select1.Show
       Rem str1 = Shell("d:\毕业设计\设计\功能集\pviewtree.exe", 1)
       End Select
End Sub

Private Sub Toolbar2_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Index
       Case 1:
       DataReport1.Show
       Case 2:
       falmsumprint.Show
       Case 3:
       vcdpandianprint.Show
       Case 4:
       falmpandianprint.Show
       End Select
End Sub

Private Sub Toolbar2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Shift
       Case 1:
       MDIForm1.StatusBar1.Panels(1) = "销售信息"
       Case 2:
       MDIForm1.StatusBar1.Panels(1) = "歌碟库存数据查寻"
       Case 3:
       MDIForm1.StatusBar1.Panels(1) = "影碟库存数据查寻"
       Case 4:
       MDIForm1.StatusBar1.Panels(1) = "出租库存数据查寻"
       Case 5:
       MDIForm1.StatusBar1.Panels(1) = "数据维护"
       Case 6:
       MDIForm1.StatusBar1.Panels(1) = "报表打印"
       Case 7:
       MDIForm1.StatusBar1.Panels(1) = "修改系统时间"
       Case 8:
       MDIForm1.StatusBar1.Panels(1) = "设置用户密码"
       Case 10:
       MDIForm1.StatusBar1.Panels(1) = "退出"
       End Select
       End Sub

Private Sub vcdsum_Click()
vcdpandian.Show
vcdpandian.SetFocus
End Sub