信息
MsgBox"还原成功!"
Else
failure:
MsgBox"还原失败!"
EndIf
EndWith
EndSub
"基本信息"菜单下的"仓库信息"子菜单的Click事件的程序代码如下。点击"仓库信息"会弹出仓库信息窗口。
PrivateSubM仓库信息_Click()
仓库.ShowvbModal
EndSub
"单据中心"菜单下的"出库单管理"子菜单的Click事件的程序代码如下。点击"出库单管理"会弹出出库单管理窗口。
PrivateSubM出库单_Click()
出库单.ShowvbModal
EndSub
"查询统计"菜单下的"单据查询"子菜单的Click事件的程序代码如下。点击"单据查询"会弹出单据查询窗口。
PrivateSubM单据查询_Click()
单据查询.ShowvbModal
EndSub
"单据中心"菜单下的"调拨单管理"子菜单的Click事件的程序代码如下。点击"调拨单管理"会弹出调拨单管理窗口。
PrivateSubM调拔单_Click()
调拔单.ShowvbModal
EndSub
"维护设置"菜单下的"公司信息"子菜单的Click事件的程序代码发如下。点击会弹出公司信息窗口。
PrivateSubM公司信息_Click()
公司信息.ShowvbModal
EndSub
"基本信息"菜单下的"供应商信息"子菜单的Click事件的程序代码如下。点击"供应商信息"会弹出供应商信息窗口。
PrivateSubM供应商_Click()
供应商.ShowvbModal
EndSub
"维护设置"菜单下的"换用户登录"子菜单的Click事件的程序代码如下。点击"换用户登录"会弹出换用户登录窗口。
PrivateSubM换用户登陆_Click()'启动登陆对话框
DimfLoginAsNewfrmLogin
fLogin.HelpContextID=2411
fLogin.ShowvbModal
IfNotfLogin.OKThen
ExitSub'登录失败,退出应用程序
EndIf
UnloadfLogin
UnloadMe'启动主窗口
SetfMainForm=NewfrmMain
fMainForm.Show
EndSub
"查询统计"菜单下的"货物出入统计"子菜单的Click事件的程序代码如下。点击"货物出入统计"会弹货物出入统计窗口
PrivateSubM货物出入统计_Click()
货物出入统计.ShowvbModal
EndSub
"基本信息"菜单下的"货物信息"子菜单的Click事件的程序代码如下。点击"货物信息"会弹出货物信息窗口
PrivateSubM货物信息_Click()
货物信息.ShowvbModal
EndSub
"单据中心"菜单下的"借出单管理"子菜单的Click事件的程序代码如下。点击"借出单管理"会弹出借出单管理窗口
PrivateSubM借出单_Click()
借出单.ShowvbModal
EndSub
"单据中心"菜单下的"借入单管理"子菜单的Click事件的程序代码如下。点击"借入单管理"会弹出借入单管理窗口。
PrivateSubM借入单_Click()
借入单.ShowvbModal
EndSub
"查询统计"菜单下的"库存查询"子菜单的Click事件的程序代码如下。点击"库存查询"会弹出库存查询窗口。
PrivateSubM库存查询_Click()
库存查询.ShowvbModal
EndSub
"基本信息"菜单下的"库存状况信息"子菜单的Click事件的程序代码如下。点击"库存状况信息"会弹出库存状况窗口。
PrivateSubM库存状况_Click()
库存状况.ShowvbModal
EndSub
"单据中心"菜单下的"入库单管理"子菜单的Click事件的程序代码如下。点击"入库单管理"会弹出入库单管理窗口。
PrivateSubM入库单_Click()
入库单.ShowvbModal
EndSub
"维护设置"菜单下的"数据清除"子菜单的Click事件的程序代码如下。点击"数据清除"会弹数据清除窗口。
PrivateSubM数据清除_Click()
数据清除.ShowvbModal
EndSub
"基本信息"菜单下的"往来客户信息"子菜单的Click事件的程序代码如下。点击"往来客户信息"会弹出往来客户窗口。
PrivateSubM往来客户_Click()
客户.ShowvbModal
EndSub
"维护设置"菜单下的"系统初始化"子菜单的Click事件的程序代码如下。点击"系统初始化"会弹出系统初始化对话框,如果用户想系统初始化,就点击"是"。
PrivateSubM系统初始化_Click()
IfMsgBox("这将删除您所有的数据信息,整个数据库将全部清空,您确信要系统初始化吗?",vbYesNoOrvbExclamation)=vbNoThenExitSub
ResumeNext
'删除入库单
fMainForm.m_checkado.RecordSource="select*from入库单"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除出库单
fMainForm.m_checkado.RecordSource="select*from出库单"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除借入单
fMainForm.m_checkado.RecordSource="select*from借入单"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除借出单
fMainForm.m_checkado.RecordSource="select*from借出单"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除调拔单
fMainForm.m_checkado.RecordSource="select*from调拔单"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除报损单
fMainForm.m_checkado.RecordSource="select*from报损单"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除库存状况
fMainForm.m_checkado.RecordSource="select*from库存状况"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除盘点单
fMainForm.m_checkado.RecordSource="select*from盘点单"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除客户
fMainForm.m_checkado.RecordSource="select*from客户"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除供应商
fMainForm.m_checkado.RecordSource="select*from供应商"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除货物信息
fMainForm.m_checkado.RecordSource="select*from货物信息"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除货物类别
fMainForm.m_checkado.RecordSource="select*from货物类别"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除仓库
fMainForm.m_checkado.RecordSource="select*from仓库"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除职员信息
fMainForm.m_checkado.RecordSource="select*from职员信息"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除公司信息
fMainForm.m_checkado.RecordSource="select*from公司信息"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除系统日志
fMainForm.m_checkado.RecordSource="select*from系统日志"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'删除用户管理
fMainForm.m_checkado.RecordSource="select*from用户管理"
fMainForm.m_checkado.Refresh
DeleteRecordDatafMainForm.m_checkado.Recordset
'增加一个管理员admin
fMainForm.m_checkado.RecordSource="select*from用户管理"
fMainForm.m_checkado.Recordset.AddNew
fMainForm.m_checkado.Recordset.Fields("用户名")="admin"
fMainForm.m_checkado.Recordset.Fields("用户密码")=""
fMainForm.m_checkado.Recordset.Fields("用户权限
上一篇:
VB人才管理系统(论文和程序)
下一篇:
致享和威驰哪个好点?冲着安全和空间 推荐致享