VB+Access仓库管理系统 第8页
图5.3主界面设置
与主界面窗体相关的程序
Private Sub FirstInStore_Click()
FrmInstorehouse.Show
FrmInstorehouse.Option1.Value = True
End Sub
Private Sub M_ChangePassword_Click()
ChangePassword.Show
End Sub
Private Sub M_ClearData_Click()
FrmClearData.Show
End Sub
Private Sub M_DataBackup_Click()
FrmDataBackup.Show
End Sub
Private Sub M_DataMake_Click()
FrmDataMake.Show
End Sub
Private Sub M_Exchange_Click()
Login1 = 1
Login.Caption = "交接班"
Login.Show 1
Mainform.Show
End Sub
Private Sub M_Exit_Click()
aa = MsgBox("退出前请确定数据是否保存!!", 1 + 32)
If aa = 1 Then End
End Sub
Private Sub M_FindArticle_Click()
FrmFindArticle.Show
End Sub
Private Sub M_FindDate_Click()
FrmFinddate.Show
End Sub
Private Sub M_FindPerson_Click()
FrmFindperson.Show
End Sub
Private Sub laterInstore_Click()
FrmInstorehouse.Show
FrmInstorehouse.Option2.Value = True
End Sub
Private Sub M_LendThings_Click()
FrmLendThings.Show
End Sub
Private Sub M_ManSetup_Click()
frmPerson.Show
End Sub
Private Sub M_OperaterSetup_Click()
frmOperater.Show
End Sub
Private Sub M_OutStorehouse_Click()
FrmOutstorehouse.Show
End Sub
Private Sub M_PrintDay_Click()
DataReport1.Show
End Sub
Private Sub M_Printjgj_Click()
Frmprintgz.Show
End Sub
Private Sub M_PrintMonth_Click()
FrmPrintMonth.Show
End Sub
Private Sub M_Printmustbuy_Click()
DataReport3.Show
End Sub
Private Sub M_ProducePlan_Click()
FrmProduceplanManage1.Show
End Sub
Private Sub M_Sparelist_Click()
FrmSpareList.Show
End Sub
Private Sub M_StorehouseManage_Click()
FrmStorehousemanage.Show
End Sub
Private Sub M_StorehouseSetup_Click()
frmStorehouse.Show
End Sub
Private Sub M_PrintMust_Click()
FrmPrintMust.Show
End Sub
Private Sub M_TEMP_Click()
frmTEMP.Show 1
End Sub
Private Sub M_TotalDay_Click()
FrmTotalDay.Show
End Sub
Private Sub M_TotalMonth_Click()
FrmTotalmonth.Show
End Sub
Private Sub MDIForm_Load()
Mainform.BackColor = &H80000003
Mainform.WindowState = 2
str1 = "日一二三四五六"
StatusBar1.Panels.Item(4).Text = "星期" & Mid(str1, Weekday(Date), 1)
StatusBar1.Panels.Item(3).Text = Date
StatusBar1.Panels.Item(1).Text = "管理员: " & Operater1
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = MsgBox("退出前请确定数据是否保存!!", 1 + 32)
If Cancel = 1 Then End
End Sub
Private Sub MDIForm_Resize()
' Mainform.WindowState = 2
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "T_InStorehouse"
FirstInStore_Click
Case "T_Calc"
Shell (App.Path + "\calc.exe")
Case "T_Lend"
Call M_LendThings_Click
Case "T_Exchange"
Call M_Exchange_Click
Case "T_Temp"
Call M_TEMP_Click
Case "T_Exit"
Call M_Exit_Click
Case "T_OutStorehouse"
Call M_OutStorehouse_Click
Case "T_StorehouseManage"
Call M_StorehouseManage_Click
Case "T_FindPerson"
Call M_FindPerson_Click
Case "T_FindArticle"
Call M_FindArticle_Click
Case "T_ProducePlan"
Call M_ProducePlan_Click
End Select
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>