f
SaveSettingApp.Title,"Settings","ViewMode",lvMerch.View
EndSub
PrivateSubForm_Resize()
ResumeNext
IfMe.Width<3000ThenMe.Width=3000
SizeControlsimgSplitter.Left
EndSub
PrivateSubimgSplitter_MouseDown(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
WithimgSplitter
picSplitter.Move.Left,.Top,.Width\2,.Height-20
EndWith
picSplitter.Visible=True
mbMoving=True
EndSub
PrivateSubimgSplitter_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
DimsglPosAsSingle
IfmbMovingThen
sglPos=x+imgSplitter.Left
IfsglPos
Me.Width-sglSplitLimitThen
picSplitter.Left=Me.Width-sglSplitLimit
Else
picSplitter.Left=sglPos
EndIf
EndIf
EndSub
PrivateSubimgSplitter_MouseUp(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
SizeControlspicSplitter.Left
picSplitter.Visible=False
mbMoving=False
EndSub
PrivateSubTreeView1_DragDrop(SourceAsControl,xAsSingle,yAsSingle)
IfSource=imgSplitterThen
SizeControlsx
EndIf
EndSub
SubSizeControls(xAsSingle)
ResumeNext
'设置Width属性
Ifx<1500Thenx=1500
Ifx>(Me.Width-1500)Thenx=Me.Width-1500
tvTreeView.Width=x
imgSplitter.Left=x
sstabView.Left=x+40
sstabView.Width=Me.Width-(tvTreeView.Width+140)
lblTitle(0).Width=tvTreeView.Width
'lblTitle(1).Left=lvMerch.Left+20
'lblTitle(1).Width=lvMerch.Width-40
'设置Top属性
IftbToolBar.VisibleThen
tvTreeView.Top=tbToolBar.Height+picTitles.Height
Else
tvTreeView.Top=picTitles.Height
EndIf
sstabView.Top=tvTreeView.Top-picTitles.Height
'设置height属性
IfsbStatusBar.VisibleThen
tvTreeView.Height=Me.ScaleHeight-(picTitles.Top+picTitles.Height+sbStatusBar.Height)
Else
tvTreeView.Height=Me.ScaleHeight-(picTitles.Top+picTitles.Height)
EndIf
sstabView.Height=tvTreeView.Height+picTitles.Height
imgSplitter.Top=picTitles.Top
imgSplitter.Height=tvTreeView.Height
'修改ListView控件尺寸
DimctlAsControl
ForEachctlInControls
IfTypeOfctlIsListViewThen
ctl.Left=0
ctl.Top=sstabView.TabHeight
ctl.Width=sstabView.Width-40
ctl.Height=sstabView.Height-sstabView.TabHeight
ctl.Visible=False
EndIf
Next
sstabView_Click0
EndSub
PrivateSublvBuy_DblClick()
mnuBuyModify_Click
EndSub
PrivateSublvDispose_DblClick()
mnuDisposeModify_Click
EndSub
PrivateSublvMerch_DblClick()
mnuMerchModify_Click
EndSub
PrivateSublvProvider_DblClick()
mnuProviderModify_Click
EndSub
PrivateSublvSell_DblClick()
mnuSellModify_Click
EndSub
PrivateSubmnuAnaBuy_Click()
frmAnalysis.ShowvbModal
EndSub
PrivateSubmnuAnalysis_Click()
frmAnalysis.ShowvbModal
EndSub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'属性页控件切换响应函数
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
PrivateSubsstabView_Click(PreviousTabAsInteger)
SelectCasePreviousTab
Case0
lvMerch.Visible=False
Case1
lvBuy.Visible=False
Case2
lvSell.Visible=False
Case3
lvDispose.Visible=False
Case4
lvProvider.Visible=False
EndSelect
SelectCasesstabView.Tab
Case0
lvMerch.Visible=True
lvMerch.SetFocus
Case1
lvBuy.Visible=True
lvBuy.SetFocus
Case2
lvSell.Visible=True
lvSell.SetFocus
Case3
lvDispose.Visible=True
lvDispose.SetFocus
Case4
lvProvider.Visible=True
lvProvider.SetFocus
EndSelect
EndSub
PrivateSubtbToolBar_Butt(ByValButtonAsMSComctlLib.Button)
ResumeNext
SelectCaseButton.Key
Case"返回"
'应做:添加'返回'按钮代码。
MsgBox"添加'返回'按钮代码。"
Case"向前"
'应做:添加'向前'按钮代码。
MsgBox"添加'向前'按钮代码。"
Case"剪切"
'应做:添加'剪切'按钮代码。
MsgBox"添加'剪切'按钮代码。"
Case"复制"
'应做:添加'复制'按钮代码。
MsgBox"添加'复制'按钮代码。"
Case"粘贴"
'应做:添加'粘贴'按钮代码。
MsgBox"添加'粘贴'按钮代码。"
Case"删除"
'应做:添加'删除'按钮代码。
MsgBox"添加'删除'按钮代码。"
Case"属性"
'应做:添加'属性'按钮代码。
MsgBox"添加'属性'按钮代码。"
Case"大图标"
lvMerch.View=lvwIcon
Case"小图标"
lvMerch.View=lvwSmallIcon
Case"列表"
lvMerch.View=lvwList
Case"详细资料"
lvMerch.View=lvwReport
EndSelect
EndSub
PrivateSubmnuHelpAbout_Click()
frmAbout.ShowvbModal,Me
EndSub
PrivateSubmnuViewRefresh_Click()
'应做:添加'mnuViewRefresh_Click'代码。
MsgBox"添加'mnuViewRefresh_Click'代码。"
EndSub
PrivateSubmnuVAIByDate_Click()
'ToDo:添加'mnuVAIByDate_Click'代码
'lvMerch.SortKey=DATE_COLUMN
EndSub
PrivateSubmnuVAIByName_Click()
'ToDo:添加'mnuVAIByName_Click'代码
'lvMerch.SortKey=NAME_COLUMN
EndSub
PrivateSubmnuVAIBySize_Click()
'ToDo:添加'mnuVAIBySize_Click'代码
'lvMerch.SortKey=SIZE_COLUMN
EndSub
PrivateSubmnuVAIByType_Click()
'ToDo:添加'mnuVAIByType_Click'代码
'lvMerch.SortKey=TYPE_COLUMN
EndSub
PrivateSubmnuViewStatusBar_Click()
mnuViewStatusBar.Checked=NotmnuViewStatusBar.Checked
sbStatusBar.Visible=mnuViewStatusBar.Checked
SizeControlsimgSplitter.Left
EndSub
PrivateSubmnuViewToolbar_Click()
mnuViewToolbar.Checked=NotmnuViewToolbar.Checked
tbToolBar.Visible=mnuViewToolbar.Checked
SizeControlsimgSplitter.Left
EndSub
'初始化所有数据函数
PrivateSubInitMain()
'InitMerchListviewlvMerch'初始化列表
'ListAllMerchslvMerch
TypeToTreeviewtvTreeView'将客户类型显示到树型图中
opProvider.FillListViewlvProvider
opMerch.FillListViewlvMerch
opBuy.FillListViewlvBuy
opSell.FillListViewlvSell
opDispose.FillListViewlvDispose
EndSub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'菜单响应函数
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'===============================================
'商品类型操作
'===============================================
PrivateSubmnuMType_Click()
'设置树型控件焦点
tvTreeView.SetFocus
EndSub
'添加
PrivateSubmnuMTypeAdd_Click()
opMType.AddtvTreeView
EndSub
'删除
PrivateSubmnuMTypeDel_Click()
opMType.DeletetvTreeView
EndSub
'修改
PrivateSubmnuMTypeModify_Click()
opMType.ModifytvTreeView
EndSub
'===============================================
'人员管理操作
'===============================================
PrivateSubmnuSystemUser_Click()
frmUserList.ShowvbModal
EndSub
'===============================================
'商品操作
'===============================================
PrivateSubmnuMerch_Click()
'切换选项卡
sstabView.Tab=0
EndSub
PrivateSubmnuMerchAdd_Click
上一篇:vb超市管理系统无论文(论文和程序)
下一篇:台湾海峡台风浪的数值模拟