呵呵,一个连普通进销存的基本功能都没有完全实现的应用,我用MS的window DNA来写,无他的,就为了练手!^o^
软件架构看下图,经典的three-tiers。也是3-2-1模式开发完成。不这里的2是两个月,因为只有一个人。写个玩意比我开始想像时要麻烦,一来是第一次用VB写整个程序,对VB的控件绑定ADO数据使用没有把握,对使用对象进行开发也没有多少经验。也就是展示层和逻辑层花了不少时间。只有数据库层(库的设计和全用存储过程)把握得很好。
JDAS VB Project:
Module模块 | file文件 | purpos用途 |
会员管理 | frmCustomerEdit.frm | 会员录入与更改 |
frmCustomerEdit.frx | ||
frmCustomerList.frm | 会员列表(供下单时会员的选择) | |
frmCustomerList.frx | ||
frmCustomerMgr.frm | 会员管理主模块 | |
frmCustomerMgr.frx | ||
员工管理 | frmEmployeeEdit.frm | 员工录入与更改 |
frmEmployeeEdit.frx | ||
frmEmployeeMgr.frm | 员工管理主模块 | |
frmEmployeeMgr.frx | ||
商品管理 | frmMerchandiesMgr.frm | 商品管理主模块 |
frmMerchandiesMgr.frx | ||
frmMerchandiseEdit.frm | 商品数据录入与更改 | |
frmMerchandiseEdit.frx | ||
服务管理 | frmMSEdit.frm | 商品服务录入与更改 |
frmMSEdit.frx | ||
frmServiceMgr.frm | 服务管理主模块 | |
frmServiceMgr.frx | ||
frmIMSEdit.frm | 冲印服务录入与更改 | |
frmIMSEdit.frx | ||
frmDSEdit.frm | 一般服务录入与更改 | |
frmDSEdit.frx | ||
frmServicesList.frm | 服务项目列表,供下单时选择 | |
全局模块 | frmSplash.frm | 欢迎闪屏 |
frmSplash.frx | ||
Global.bas | 全局标准模块 | |
JDAS.RES | 资源文件 | |
JDAS.vbp | 项目文件 | |
JDAS.vbw | ||
SysConfig.frm | 系统配置 | |
frmOutGoEdit.frm | 简单支出模块 | |
frmOutGoEdit.frx | ||
clsReadWriteIni.cls | 展示层暂时唯一使用的类,读写INI文件 | |
frmAbout.frm | 关于 | |
frmAbout.frx | ||
frmCSDetailList.frm | 服务项目每天每种列表 | |
frmCSDetailList.frx | ||
frmDataStatistics.frm | 统计模块 | |
frmDataStatistics.frx | ||
frmEditMainService.frm | 服务项目详细录入 | |
frmEditMainService.frx | ||
frmLogin.frm | 系统登录模块 | |
frmLogin.frx | ||
frmMainForm.frm | 系统主模块 | |
frmMainForm.frx | ||
frmHelp.frm | 简单帮助 |
JDAS_Svr VB Project:
class类 | purpos用途 |
cCustomer.cls | 会员实体类 |
cCustomerServices.cls | 服务订单实体类 |
cCustServicesDetail.cls | 服务项目实体类 |
cCustServicesDetails.cls | 服务项目集合类 |
cDataHelper.cls | 数据帮助类,封装数据库访问 |
cEmployee.cls | 员工实体类 |
cMerchandise.cls | 商品实体类 |
cOutGo.cls | 支出条目实体类 |
cServices.cls | 服务实体类 |
JDAS_Svr.vbp | 项目文件 |
JDAS_Svr.vbw |
JDBin Database:
table相关表 | store procedure存储过程 | purpos用途 |
CustServicesDetail | CSDetail_AddNew | 添加新的客户服务项目(注:订单:服务项目=1:n) |
CSDetail_DeleteByCSID | 根据订单号删除所属的服务项目 | |
CSDetail_SelectByCSID | 按服务订单号订单详细 | |
CSDetail_SelectByServiceType | 按类型取得服务订单记录详细 | |
CSDetail_SelectOne | 取得一条客户服务订单记录详细 | |
CSDetail_Update | 更新客户服务项目 | |
CustomerServices | CS_AddNew | 加新单 |
CS_SelectAll | 取得全部可用服务订单记录 | |
CS_SelectByDate | 取得某一天所有的服务订单记录 | |
CS_SelectForSearching | 简单的综合查询 | |
CS_SelectOne | 取得某一服务订单记录 | |
CS_GenerateNewOrder | 开新单,填好流水单号,返回只有单号的的空单 | |
CS_Update | 更新客户服务订单 | |
Customer | Customer_AddNew | 添加会员 |
Customer_SelectAll | 取得所有会员数据 | |
Customer_SelectByMemberNo | 由会员ID取得会员数据 | |
Customer_SelectOne | 取得会员数据 | |
Customer_Update | 更新会员数据 | |
Employee | Employee_AddNew | 添加员工 |
Employee_SelectAll | 取得所有员工数据 | |
Employee_SelectOne | 取得一个员工的数据 | |
Employee_Update | 更新员工数据 | |
SerialNumber | GetNewSerial | 生成序列号,也就是订单的流水号 |
Merchandise | Merchandise_AddNew | 添加商品 |
Merchandise_SelectAll | 取得所有商品数据 | |
Merchandise_SelectNotSale | 取得待售商品数据 | |
Merchandise_SelectOne | 取得某一样商品数据 | |
Merchandise_Update | 更新商品数据 | |
OutGo | OutGo_AddNew | 添加支出条目 |
OutGo_SelectByDate | 按时是取得支出条目数据 | |
OutGo_SelectOne | 取得一条支出条目数据详细 | |
OutGo_Update | 更新支出条目 | |
Services | Services_AddNew | 添加服务 |
Services_SelectAll | 取得所有服务数据 | |
Services_SelectOne | 取得一条服务的详细 | |
Services_Update | 取得会员数据 | |
Services_SelectById | 由服务ID快速查得服务项目,用于查询 |
两个月的劳动成果。可喜却不贺,不贺在戚戚的写下总结。
学习过程内容
- vb ide
- vb controls
- ado/cursors
- com+
- debug
- error handling
- event
- business object design
- system security