SQL = "ename like '%" & Trim(txtname) & "%'"
End If
RsE.Filter = SQL
If Not (RsE.BOF Or RsE.EOF) Then
Set dtgrd2.DataSource = RsE
Else
MsgBox "没有找到记录!", , ginfo
RsE.Filter = ""
End If
Else
If Trim(txtname) <> "" Then
SQL = "Pname='" & Trim(txtname) & "'"
End If
RsP.Filter = SQL
If Not (RsP.BOF Or RsP.EOF) Then
Set dtgrd1.DataSource = RsP
Else
MsgBox " 没有找到记录！", , ginfo
RsP.Filter = ""
End If
End If
Exit Sub
gl: MsgBox err.Description
End Sub
Private Sub Form_Load()
frmph.Top = 0
frmph.Left = 0
RsP.Open "select * FROM prostock", cn, adOpenKeyset, adLockBatchOptimistic
RsE.Open "select * from EleStock", cn, adOpenKeyset, adLockBatchOptimistic
End Sub
Private Sub Form_Unload(Cancel As Integer)
RsP.Close
RsE.Close
End Sub
输入输出设计
输入设计包括输入方式设计、用户界面设计。在实现系统开发过程中输入设计所占的比重较大。以某厂开发的系统为例,在涉及全厂生产、经营、财务、销售、物资供应等12个子系统中,与输入输出界面相关的程序占总程序量的65%左右(当时还没有菜单和屏幕格式生成器这类软件工具)。从这一比率足以看出在一个处理管理领域的信息系统中输入输出界面的重要,一个好的输入设计能为今后系统运行带来很多方便。
相对于输入方式来说,输出方式的设计要简单得多。从系统的角度来说输入和输出都是相对的,各级子系统的输出就是上级主系统输入。从这个意义上来说,前面所介绍的几种数据传输方式,如网络传递、软磁盘传递、通过电话线传递等,对于数据传出方来说也就是输出方式设计的内容。为了区别起见,在这里笔者将输出粗分为中间输出和最终输出两类。中间输出是指子系统对主系统或另一个子系统之间的数据传送,而最终输出则是指通过终端设备(如显示器屏幕、打印机等)向管理者输出的一类信息。下面着重来讨论一下最终输出方式的设计问题。 最终输出方式常用的只有两种:一种是报表输出,另一种是图形输出。究竟采用哪种输出形式为宜,应根据系统分析和管理业务的要求而定。一般来说对于基层或具体事物的管理者,应用报表方式给出详细的记录数据为宜,而对于高层领导或宏观、综合管理部门,则应该使用图形方式给出比例或综合发展趋势的信息。
系统的数据库设计
1.用户表设计
2.工具管理表
3.backup备份数据库表:
4.buydetail表:
4.buyinfo表
6.companydepart表:
系统使用说明与维护说明书
概述--运行环境
硬件平台
CPU Intel P4 2.2G
主板 Intel 850芯片组的GA-8TX-C