录日期、商品编号、产地、单价、数量、实付款字段。结构如表4所示。
表4销售表结构(xiaoshoubiao)
编号
字段名称
数据类型
说明
1
ID
自动编号
主键
2
记录日期
日期、时间
3
商品编号
文本
4
产地
文本
5
单价
货币
6
数量
数字
7
实付款
货币
第三部分
设计工程框架
做好充分的系统设计准备工作以后,接着应该创建工程并设计工程的框架。
3-1:创建工程
先创建工程存放的目录。运行Visualbasic6.0主程序,并选择新建"标准EXE"工程。新建工程后,在Visualbasic窗体中有一个默认的窗体Form1,将在此基础上设计系统的主界面。并将此工程命名为jr,并与数据库文件存放在同一文件夹下。将form窗体保存为"jrform.frm"。
3-2:建立主界面
系统的主界面完成的功能:
*单击"进入"--进入系统登录,显示登录窗体。
*单击"退出"--退出系统,主窗体关闭。
用到的主要控件:timer控件
为了使界面优化,"进入"和"退出"均采用标签label,且label的mousepointer属性均设为99。Mouseicon属性都设为c:\windows\cursorsharrow.cur。各控件的属性值请参见表5
表5控件属性设置
控件
属性
属性值
Timer
interval
210
Label
Name
jrlabel
caption
进入
Label
Name
fqlabel
caption
放弃
image
stretch
true
说明:在我们刚刚建立工程时,工程的名称最好用英文,工程中窗体的名称最好也用英文,以防止系统不兼容时出现乱码。Stretch是设置图片大小来适应image大小的,这样界面有多大,图片就多大,会使整体效果变好。
窗体如图3所示
图3 主界面图
为使工程在运行时更加美观,把除form1以外的窗体的mdichild属性均设为true,再为工程添加一个MDI窗体,name属性设为form00。使这些窗体在form00中运行。其窗体如图4
窗体图4form00窗体图
3-3:建立公共模块
在visualbasic中,我们用公共模块来存放整个工程项目公用的函数,全局变量,这样有利于代码的效率和维护。选择"工程"菜单中的"添加模块",为项目添加一个mypaid,保存为"mypaid.bas"。这就可以为公共模块添加代码了。
OptionExplicit
PublicconnAsNewADODB.Connection
PublicrstempAsNewADODB.Recordset
PubliciflagAsInteger
PublicFunctiontransactsql(ByValsqlAsString)AsADODB.Recordset
DimcontAsADODB.Connection
DimrsAsADODB.Recordset
DimstrconnectionAsString
Dimstrarray()AsString
Setcont=NewADODB.Connection
Setrs=NewADODB.Recordset
strconnection="provider=microsoft.jet.oledb.4.0;
datasource="&App.Path&"\yhbzdate.mdb;"
strarray=Split(sql)
cont.Openstrconnection
IfStrComp(UCase$(strarray(0)),"select",vbTextCompare)=0Then
rs.OpenTrim$(sql),cont,adOpenKeyset,adLockOptimistic
Settransactsql=rs
iflag=1
Else
cont.Executesql
iflag=1
EndIf
transactsql_exit:
Setrs=Nothing
Setcont=Nothing
ExitFunction
transactsql_error:
MsgBox"查询错误:"&Err.Description
iflag=2
Resumetransactsql_exit
EndFunction
PublicSubOpenTable(pAdoAsAdodc,pRecordSourceAsString)
'打开一个表,得到一个数据集
WithpAdo
.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;
DataSource="&App.Path&"\yhbzdate.mdb;
PersistSecurityInfo=False"
.CommandType=adCmdUnknown
.RecordSource=pRecordSource
.Refresh
EndWith
EndSub
说明:在系统中,每个模块都要使用数据库。通过transactsql函数,我们就不需要在每次数据库操作中都重复输入数据库的连接,取结果和数据库的关闭等类似操作的代码,做到了程序的模块化。这样,后面所有要用到的添加,删除,查询和修改等操作都可以通过调用该函数来完成,得到相应的结果.
第四部分
建立窗体
4-1:登录窗体
用户要使用本系统,首先要通过系统的身分验证,这个过程叫做登录。登录窗体需要完成的任务是根据用户名和密码来判断是否能进入系统。
创建一个新窗体,设置窗体名为"yanzhengform"。在系统流程分析图中可以看到,用户有3次机会进行身份认证。如果3次输入的用户名和密码无法与数据库中的数据匹配,则强制退出系统。
4-1-1:添加控件
为"登录界面"窗体加入各控件,其中各textbox控件的属性text都清空,其余控件的属性如表6所示。
控件
属性
属性值
Label
Caption
用户名:
Label
Caption
密码:
Command
Name
cmdqueding
Caption
登录
Command
Name
cmdquxiao
Caption
退出
表6控件属性设置
4-1-2:窗体图
"登录界面"的窗体布局如图5示。
图5"登录界面"窗体
4-2:主窗体
主窗体是负责连接进销存功能的通道,通过此窗体可以选择进入您需要的服务。
主窗体完成的功能:
*单击"确定"--进入您需要的服务,显示相应窗体。
*单击"退出"--如果您选择提示框中的"确定",则退出系统。如
果选择"取消",则系统继续运行。
4-2-1:添加控件
在主窗体中主要用到了frame、combobox、image等控件。控件属性如表7
所示。
控件
属性
属性值
Frame
Caption
选择您需要的服务
ComboBox
Text
商品登记
Command
Name
Cmdqd
Caption
确定
Command
Name
cmdtc
Caption
退出
表7控件属性设置
4-2-2:主窗体布局图
主窗体布局图,如图6示
图6"主窗体"布局图
4-3:建立交易管理窗体
4-3-1:进货窗体
创建一个新窗体,设置窗体各为"jhdjform"。通过此窗体,您可以对进货商品的各项内容进行登记。
1.窗体功能描述
对销售商品进行记录和删除。
*点击"添加"--则对进货商品进行添加。
如果在添写各项内容时有不完整的,则出现提示框"请完整填写各项数据!"。若有格式不正确的,则出现提示框"请正确输入!"。若各项内容均正确,则显示"记录添加成功"提示框。
*点击"返回"时,系统自动返回到主窗体中。
2. 添加控件
在此窗体中用到的textbox控件的属性text都清空。其余控件的属性如表8所示。
控件
属性
属性值
Command
Name
cmdtianjia
Caption
添加
Command
Name
cmdsc
Caption
删除
Command
Name
cmdfanhui
Caption
返回
表8控件属性设置
3.窗体图
"进货登记"的窗体如图7示
图7"进货登记"窗体图
在此窗体中用到的Dtpicker控件,虽然集成在Visualbasic6.0中,但只是可选项。因此在创建项目后,需要为项目添加Dtpicker。
添加方法如下:
*在"工具箱"单击鼠标右键,出现一个弹出式菜单。
*在弹出工菜单中单击"部件..."选项,即出现可增加的控件列表。
*在"部件"对话框中列出了微软公司的一些控件类型,选择"Microsoftwindowscommoncontrols-26.0"控件,确定后可以发现控件已经加入到"工具箱"中,可以作为制作窗体的工具了。
4-3-2:销售登记
创建一个新窗体,设置窗体名为"xiaoshouform"。通过此窗体,您可以对销售商品的各项内容进行登记。这样可以更方便的了解各种商品的销售情况。帮助管理员在进货时进行参考。这样就不会因为对销售的不了解而造成不必要的人力和财力的浪费。
1.窗体功能
对销售商品进行记录和删除。
*点击"添加"--则销售商品进行添加。
如果在添写各项内容时有不完整的,则出现提示框"请完整填写各项数据!"。若有格式不正确的,则出现提示
上一篇:
VBAC房屋销售管理信息系统(论文和程序)
下一篇:
法律专业开题报告范文