仓库管理系统 数据库应用技术课程设计 报告 2

天津理工大学中环信息学院数据应用技术课程设计说明书

3）出库管理

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If conn.State = ConnectionState.Closed Then conn.Open() End If

Dim a As String

a = \出库\ comm.Connection = conn

comm.CommandType = CommandType.Text comm.CommandText = a da.SelectCommand = comm ds.Tables.Clear()

DataGridView1.Invalidate() da.Fill(ds, \出库\

DataGridView1.DataSource = ds.Tables(\出库\ If conn.State = ConnectionState.Open Then conn.Close() End If End Sub 4）库存查询

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

If conn.State = ConnectionState.Closed Then conn.Open() End If

Dim a As String

a = \仓库号,库存量 from 库存 where 仓库号= \ comm.Connection = conn

comm.CommandType = CommandType.Text comm.CommandText = a da.SelectCommand = comm ds.Tables.Clear()

DataGridView1.Invalidate() da.Fill(ds, \库存\

DataGridView1.DataSource = ds.Tables(\库存\ If conn.State = ConnectionState.Open Then conn.Close() End If End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If conn.State = ConnectionState.Closed Then conn.Open()

9

天津理工大学中环信息学院数据应用技术课程设计说明书

End If

Dim a As String

a = \产品编号,库存量 from 库存 where 产品编号= \ comm.Connection = conn

comm.CommandType = CommandType.Text comm.CommandText = a da.SelectCommand = comm ds.Tables.Clear()

DataGridView1.Invalidate() da.Fill(ds, \库存\

DataGridView1.DataSource = ds.Tables(\库存\ If conn.State = ConnectionState.Open Then conn.Close() End If End Sub

5）新建入库信息

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str As String

str = \入库 values('\TextBox3.Text & \ If conn.State = ConnectionState.Closed Then conn.Open() End If

comm.Connection = conn

comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm da.Fill(ds, \入库\

str = \入库 where 入库编号='\ comm.CommandText = str da.SelectCommand = comm da.Fill(ds, \入库\

DataGridView1.DataSource = ds.Tables(\入库\ conn.Close() End Sub

6）新建出库信息

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str As String

str = \出库 values('\TextBox3.Text & \ If conn.State = ConnectionState.Closed Then conn.Open() End If

10

天津理工大学中环信息学院数据应用技术课程设计说明书

comm.Connection = conn

comm.CommandType = CommandType.Text comm.CommandText = str da.SelectCommand = comm da.Fill(ds, \出库\

str = \出库 where 出库编号='\ comm.CommandText = str da.SelectCommand = comm da.Fill(ds, \出库\

DataGridView1.DataSource = ds.Tables(\出库\ conn.Close() End Sub 4、运行结果

图10 新建入库信息执行结果

六、系统使用说明

用户名：管理员 登陆ID：123456 密 码：123456

路 径：数据库路径：...\\08070032\\08070032 xxx课设_Data.MDF ...\\08070032\\08070032 xxx课设_Log.LDF

程序路径：...\\08070032\\08070032 xxx课设\\080700xx xxx课设.sln

11

天津理工大学中环信息学院数据应用技术课程设计说明书

参考文献

[1]王珊，冯念真.计算机应用系统的设计和开发.北京:高等教育出版社,1989 [2]姚卿达.数据库设计.北京:高等教育出版社,1987

[3]Smith J, Smith D. Database Abstractions: Aggregation and Generalization.TODS,2:2,1977 [4]王珊.面向对象的数据库系统.计算机世界专题综述,1990 [5]李昭原主编.数据库技术新进展.北京:清华大学出版社,1977 [6]张龙祥.数据库原理与设计.北京:人民邮电出版社，2000 [7]李红.数据库原理与应用.北京:高等教育出版社，2002

[8]何旭洪.数据库系统开发实例导航.北京:人民邮电出版社，2003 [9]童爱红,刘凯.VB.NET应用教程.北京:清华大学出版社，2007

[10]刘志铭,高春艳,孙健鹏.数据库开发实例.北京:机械工业出版社,2004

12