仓库管理系统数据库课程设计 第4页

Private Sub Timer1_Timer()
  txtTime.Text = Time
End Sub

Private Sub pd()                      '判断是否存在操作员
  operater.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Storehouse.mdb;Persist Security Info=False"
  operater.CommandType = adCmdUnknown
  operater.RecordSource = "select * from Operater"
  operater.Refresh
  datacount = operater.Recordset.RecordCount
End Sub

Private Sub txtPassword_Change()      '判断是否输入密码
  If Len(Trim(txtPassword)) = 0 Then
    cmdOK.Enabled = False
  Else
    cmdOK.Enabled = True
  End If
End Sub

Private Sub txtPassword_GotFocus()
  txtPassword.BackColor = &HC0FFFF
  txtPassword.SelStart = 0
  txtPassword.SelLength = 12
End Sub

Private Sub txtPassword_LostFocus()
  txtPassword.BackColor = &HFFC0C0
End Sub
与主界面窗体相关的程序
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)

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页