计算机科学与技术本科专业论文 《新疆昆仑橡胶制品厂生产管理系统》
Case \关闭 Unload Me End Select End Sub
4.5 生产计划单管理
生产计划单管理窗体是生产管理系统中一个比较重要的部分。后面的物料计划管理模块、产品入库模块都与生产计划单有着密切的联系。在生产计划单中可以完成对生产计划单的增加、删除、修改、查找操作。
在生产计划单管理中，当用户单击【增加】按钮时，系统会自动生成生产计划单编号，并将企业所生产的产品添加到产品编号组合框中，当用户选择要生产的产品编号后，系统会自动将产品名称、产品规格、计量单位自动添加到相应的文本框中，用户只需添入计划数量、投产日期、计划日期等即可。无须用户查找相应的产品信息，使用户操作更加简便。生产计划单窗体的运行结果如图9所示。
图9 生产计划单管理运行结果
1．窗体设计
（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_Jhgl_Scjhd，Caption
属性设置为“生产计划单”，MaxButton属性设置为False，StartUpPosition属性设置为2–屏幕中心。
（2）向窗体上添加1个Toolbar控件，1个ImageList控件。向ImageList控件中添加图片，并将这两个控件连接起来。
（3）向窗体上添加1个ADO控件，1个DataGrid控件。设置DataGrid控件的“名称”
21
计算机科学与技术本科专业论文 《新疆昆仑橡胶制品厂生产管理系统》
为Dgr_Scjhd，DataSource属性设置为Adodc1。设置Adodc1控件的CommandType属性为1–adCmdText，RecordSource属性设置为select * from tb_SCGL_scjhd。其中DataGrid控件用于显示生产计划单信息，ADO控件用于数据连接。
（4）向窗体上添加2个DTPicker控件，“名称”设置为Dtp_Tcrq和Dtp_Wgrq，分别用于显示投产日期和完工日期。
（5）向窗体上添加2个ComboBox控件，分别设置其“名称”为Cbx_Cpbh和Cbx_wcf，Style属性为0–Dropdown Combo。分别用来显示产品编号和是否完工。
（6）向窗体上添加Label控件和TextBox控件。设置TextBox控件为“名称”是Text1的控件数组。
2．代码设计
在生产计划单管理窗体中的增加、删除、修改操作都是利用基本的SQL语句执行的，在这里就不做详细的介绍，请参见源程序。在这里只介绍一下如何利用〈Enter〉键使光标从一个文本框移动到下一个文本框当中。并且当该文本框获得焦点时，背景色设置为蓝色，失去焦点时，背景色恢复为白色。下面首先介绍一下有关光标移动的代码。
对于控件数组的处理方法，可利用KeyPress事件和Index属性来实现，其关键代码如下：
Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then '按下回车键
If Index = 4 Then '如果光标在Text1（4）上， Dtp_Tcrq.SetFocus '则将焦点设置在Dtp_Tcrq上 Exit Sub '结束本事件 End If
If Index = 5 Then Exit Sub '若光标在Text1（5）上，则结束 Text1(Index + 1).SetFocus '光标移至下一个文本框 End If End Sub
对于非数组控件的处理方法，可直接利用KeyDown事件，这里以Cbx_Cpbh控件（ComboBox控件）为例，其实现的关键代码如下：
Private Sub Cbx_Cpbh_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Text1(4).SetFocus End Sub
下面再介绍一下关于背景色的设置方法。对于控件数组的处理方法，可利用GotFocus事
22
计算机科学与技术本科专业论文 《新疆昆仑橡胶制品厂生产管理系统》
件和LostFocus事件以及Index属性来实现，其关键代码如下：
Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).BackColor = &HFFFF80 '设置背景色为蓝色 Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index)) End Sub
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &HFFFFFF '设置背景色为白色 End Sub
4.6 设备报废信息
设备报废信息窗体主要实现的功能是对于设备报废信息进行增加、删除、修改、查找的操作，并可以逐条浏览报废的设备信息。其运行的效果如图10所示。
图10 设备报废信息窗体运行效果
1．窗体设计
（1）在“工程”中新建一个窗体，将窗体的“名称”设置为Frm_Sbgl_Sbbf，Caption属性设置为“设备报废信息”，MaxButton属性设置为False，StartUpPosition属性设置为2–屏幕中心。
（2）向窗体上添加1个Toolbar控件，1个ImageList控件。向ImageList控件中添加图片，并将其与Toolbar控件相连接。
（4）向窗体上添加2个ADO控件和DataGrid控件。设置DataGrid控件的“名称”为Dgr_Sbbf，DataSource属性为Adodc1。设置Adodc1控件的CommandType属性设置为1–adCmdText，RecordSource属性设置为select * from tb_SCGL_sbbf order by sbbf_id，设置Adodc2控件的CommandType属性为1–adCmdText，RecordSource属性为select * from
23
计算机科学与技术本科专业论文 《新疆昆仑橡胶制品厂生产管理系统》
tb_SCGL_scsb order by scsb_sbbh。其中DataGrid控件用于显示设备报废信息，ADO控件用于数据连接。
（5）向窗体上添加2个DTPicker控件，“名称”设置为Dtp_Qyrq和Dtp_Bfrq，分别用于显示设备启用日期和设备报废日期。
（6）向窗体上添加1个ComboBox控件，设置其“名称”为Cbx_Sbbh，Style属性为0–Dropdown Combo。用来显示产品编号信息。
（7）向窗体上添加Label控件和TextBox控件。设置TextBox控件为“名称”属性是Text1的控件数组。
2．代码设计
设备报废信息窗体在对报废信息进行增加、删除、修改、查找操作时，所采用的方法和其他窗体大致相同（请参阅物料信息设置窗体）。值得一提的是在执行添加操作时，系统不但将数据信息添加到报废信息表（tb_SCGL_sbbf）中，还将设备表（tb_SCGL_scsb）中该设备的状态设置为“报废”。以保持信息的完整性。其实现的关键代码如下：
Set rs1 = New ADODB.Recordset
rs1.Open \cnn.Execute (\
(sbbf_id,sbbf_sbbh,sbbf_sbmc,sbbf_sybm,sbbf_sblx,sbbf_qyri,sbbf_bfrq,sbbf_bz) values ('\\Str(Dtp_Qyrq.Value) + \
Dim rs4 As New ADODB.Recordset
rs4.Open \If rs4.RecordCount > 0 Then
cnn.Execute (\ set scsb_sbzt='报废' where scsb_sbbh='\ End If rs4.Close Adodc1.Refresh rs1.Close
在进行“添加”操作时，用户可以在设备编号文本框中选择或输入设备编号，当该文本框失去焦点时，查询输入或选择的设备编号是否是本企业的设备，如果不是或者虽然是本企业的设备，但是已经报废，则提示相应的信息，让用户重新输入或选择，否则程序继续执行。其实现的关键代码如下：
24
相关推荐：
loading