毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

仓库管理系统源代码数据库实训 第5页

更新时间:2009-7-23:  来源:毕业论文
仓库管理系统数据库实训
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

5.2.4入库界面设置
 
图5.4入库界面设置

与入库界面相关代码
Public rk As String  '入库的类型
Public reccount As Integer  '记录条数
Public row1 As Integer '单击list2时返回的行数

Private Sub Command1_Click()  '补充数据
     '判断输入的数据是否都为空
  '-----------------------------------------------补充出库信息 --------------------------
   If Trim(Text1(13)) <> "" Or Trim(Text1(14)) <> "" Or Trim(Text1(15)) <> "" Or Trim(Text1(16)) <> "" Then
       outstorehouse.RecordSource = "select * from outstorehouse where 编号=" + list2.TextMatrix(row1, 4)
       outstorehouse.Refresh
    With outstorehouse.Recordset
       .Fields(8) = Text1(13)
       .Fields(9) = Text1(14)
       .Fields(10) = Text1(15)
       .Fields(11) = Text1(16)
       .Update
    End With
    Call Command2_Click
    Command1.Enabled = False
        Else
       MsgBox ("请输入数据!")
   End If
   '---------------------------------------------
End Sub

Private Sub Command2_Click() '补充出库信息时的数据清零
  For i = 13 To 16
   Text1(i).Text = ""
  Next i
End Sub

Private Sub Command3_Click()   '按确定按钮
  '-------------------------------判断输入----------------------------
  If Option2.Value = False Then
     If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Then  '当不要补充出库的信息时
       MsgBox ("品名与规格不能为空!")
       Text1(0).SetFocus
       Exit Sub
     End If
     If Trim(Text1(8).Text) = "" Then
       MsgBox ("请输入领料人!")
       Text1(7).SetFocus
       Exit Sub
     End If
  Else
     If Trim(Text1(0).Text) = "" Or Trim(Text1(1).Text) = "" Then  '入库的关键信息
       MsgBox ("品名与规格不能为空!")
       Text1(0).SetFocus
       Exit Sub
     End If
     If Trim(Text1(11).Text) = "" Or Trim(Text1(12).Text) = "" Then  '当要补充出库的信息时
       MsgBox ("品名与规格不能为空!")
       Text1(11).SetFocus
       Exit Sub
     End If
     If Trim(Text1(8).Text) = "" Then
       MsgBox ("请输入领料人!")
       Text1(7).SetFocus
       Exit Sub
     End If
  End If
  If IsNumeric(Text1(4)) = False Then       '判断数量是否为数值
    MsgBox ("你输入的数量有误,请输入数值!")
    Text1(4).Text = ""

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

仓库管理系统源代码数据库实训 第5页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。