大型建筑材料管理系统源码(共4篇).docVIP

大型建筑材料管理系统源码(共4篇) 管理系统 建筑材料 源码 建筑材料管理系统案例 工程物资管理系统软件 c语言学生管理系统源码 篇一：物品采购管理系统源代码 数据库原理与应用 课程设计 源代码 设计题目： 物品采购管理院 系：信息工程学院班 级： 组 别： 组 长:组 员: 起止日期: 指导教师: 源代码： 物品添加模块程序代码 修改用户密码程序 Private Sub Command1_Click() Adodc1.RecordSource = frmLogin.Adodc1.RecordSource Adodc1.Refresh Set Text4.DataSource = Adodc1 Text4.DataField = 密码 If Text1 = Then MsgBox 请输入原密码！, , 修改密码 Exit Sub ElseIf Text1.Text Adodc1.Recordset.Fields(密码) Then MsgBox 原密码错误！, , 修改密码 Exit Sub ElseIf Text2 = Or Text3 = Then MsgBox 请输入新密码！！, , 修改密码 Exit Sub ElseIf Text2 Text3 Then MsgBox 密码不一致！！, , 修改密码 Exit Sub Else Text4.Text = Text2.Text Adodc1.Recordset.MoveFirst MsgBox 密码修改成功！！, , 修改密码 Unload Me End If End Sub 5..2.3入库模块的实现 Private Sub Command1_Click( ) 设备入库程序 Dim I, J As Integer Dim STR As String If Text1.Text = Or Text2 = Or Combo1.Text = Or Text4 = Or Text5 = Or Text6 = Or Text7 = Then MsgBox 请输入完整信息！ Exit Sub Else 将记录存入入库记录表 设备入库表.datPrimaryRS.Recordset.Fields(设备号) = Text1.Text 设备入库表.datPrimaryRS.Recordset.Fields(入库数量) = Text2.Text 设备入库表.datPrimaryRS.Recordset.Fields(入库时间) = Combo1.Text 设备入库表.datPrimaryRS.Recordset.Fields(供应商) = Text4.Text 设备入库表.datPrimaryRS.Recordset.Fields(供应商电话) = Text5.Text 设备入库表.datPrimaryRS.Recordset.Fields(价格) = Text6.Text 设备入库表.datPrimaryRS.Recordset.Fields(采购员) = Text7.Text MsgBox 已经成功入库！ End If 设备入库表.Adodc1.RecordSource = select * from 现有库存表 where 设备号=#39; amp; Text1.Text amp; #39; 设备入库表.Adodc1.Refresh 设备入库表.DataGrid1.Refresh If 设备入库表.Adodc1.Recordset.RecordCount 0 Then 将记录加入现有库存表中 设备入库表.Text9.Text = CInt(设备入库表.Text9.Text) + CInt(Text2.Text)设备入库表.Text9.Refresh J = 设备入库表.Text9 设备入库表.Adodc1.Recordset.MoveFirst 设备入库表.Adodc1.Recordset.Fields.Refresh 设备入库表.DataGrid1.Refresh MsgBox 现有库存量为： amp; J Else STR = 现有库存表中无此设备！ amp; vbCrLf amp; 请在设备代码表和现有库存表中手动添加记录！！ MsgBox STR Load frm现有库存表 frm现有库存表.Show Call frm现有库存表.Command1_Click FrmAddNewEqu.Text1.Text = frmInput.Text1.Text FrmAddNewEqu.Text2.Te