If Text2.DataChanged Then
Save = True
If Data1.Recordset.RecordCount > 1 Then
Command1.Enabled = True
Command2.Enabled = True
End If
Else
If Text2.Text = "" And xg = True Then
ss = MsgBox("必须要有‘型号’！", vbOKOnly + vbInformation, "提示")
Action = False
Command3.Visible = True
Command4.Visible = True
Command1.Visible = True
Command2.Visible = True
Command7.Visible = True
Command8.Visible = True
Command5.Visible = True
Command6.Visible = True
End If
End If
If Action = data_actionunload Or Action = data_actionclose Then
Save = True
End If
End Sub
出库界面
当单击“出库”按钮的时候，系统将进入出库信息输入界面，如（图2.3.1）所示，其基本情况与入库相类似，依次不做具体介绍。
图2.3.1
2.4查询界面
l 当用户单击“查询”按钮时，系统将出现密码登陆框，因为查询的是内部资料，因此，需身份验证，如图2.4.1
图2.4.1
l
随后将进入查询功能，如图2.4.2
图2.4.2
l 用户可根据不同需要进行“按型号”和“按单位”的查询。
Ø 单击“按型号”，系统将进入以型号为关键字段的查询，如图2.4.3。其中根据SQL语句的查询，选出出库型号与入库型号相同的记录，统计出入库与出库的总数量，然后可按“上一个”和“下一个”进行查询，也可按出库与入库分别查询记录。
<< 上一页 [11] [12] [13] [14] [15] [16] [17] 下一页