VB公司仓库管理系统(3)

VB公司仓库管理系统

多个记录。约束数据列表控件类似于普通的列表框控件，可以显示记录集中的数据，网格中的每一行代表记录集中的一个记录。
第二章 管理系统的设计与分析
2.1进入界面
* 由于系统的的界面比较单一，因此在设计过程中运用了许多网上下载的图片来增添界面的可观性。
* 在考虑到操作员的技术水平有限，因此在控件方面只运用了COMMAND，这样不仅能是界面清楚，更能是操作者很快学会，简单易懂。
* 图2.1.1是进入本系统的状态图，单击"确定"可以进入界面，如按"系统信息"的话，将显示本系统的具体软硬件情况。
图2.1.1
　　
　　当图2.1.1中的"确定"按钮被激活时，将进入图2.1.3的屏幕，界面的图片是图片引入的，接着将进入正式的编辑或查询状态。
　　具体的系统情况如图2.1.2所示：


图2.1.2

图2.1.3



2. 2入库界面
* 当激活入库按钮时将出现以下的界面（图2.2.1）
图2.2.1
* 入库窗体（图2.2.1）及其各个控件的主要属性
　　　　　控件类型控件名主要属性FormFrmrsg1Caption="入库情况"DataData1Databasename="A\db2.mdb"
Recordsettype=1'Dynaset
Caption="入库情况"CommandDialogCommand1Caption="上一个"Command2Caption="下一个"Command3Caption="确定"Command4Caption="取消"Command5Caption="退出"Command6Caption="增加"Command7Caption="修改"Command8Caption="删除"
LableLable1Caption="序号"Lable2Caption="型号"Lable3Caption="产品名称"Lable4Caption="数量"Lable5Caption="单价"Lable6Caption="入库时间"Lable7Caption="发票名称"Lable8Caption="供应商名称"Lable9Caption="电话"Lable10Caption="结帐情况"TextText1Caption="序号"Datasource="data1"Text2Caption="型号"Datasource="data1"Text3Caption="产品名称"Datasource="data1"Text4Caption="数量"Datasource="data1"Text5Caption="单价"Datasource="data1"Text6Caption="入库时间"Datasource="data1"Text7Caption="发票名称"Datasource="data1"Text8Caption="供应商名称"Datasource="data1"Text9Caption="电话"Datasource="data1"Text10Caption="结帐情况"Datasource="data1"表2.2.1
* 控件说明
> 增加新记录
当单击"确定"按钮后，"确定"和"取消"两个按钮显示，同时使其他的按钮不可见，这样做是为了防止用户的误操作。
其主要程序如下：
Private Sub Command5_Click()
xg = True
'显示"确定"和"取消"两个按钮
Command3.Visible = True
Command4.Visible = True
'取消其他按钮功能
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Co
mmand1.Enabled = False
Command2.Enabled = False
Data1.Recordset.AddNew '添加一个新记录
Text1.SetFocus '光标在TEXT1处
end sub

> 修改记录
在调用EDIT方法之前