Click()
frm_main.Enabled=True
UnloadMe
EndSub
'初始化日期
DTP2.Value=Date
DTP1.Value=Date-30
EndSub
PrivateSubForm_Unload(CancelAsInteger)
frm_main.Enabled=True
EndSub
PrivateSubOKButton_Click()
SelectCaseText1.Text
CaseIs=0
'载入入库查询
Loadmain_cxtj_rkcx
main_cxtj_rkcx.Show
main_cxtj_rkcx.rq1.Text=DTP1.Value
main_cxtj_rkcx.rq2.Text=DTP2.Value
CaseIs=1
'载入入库退单查询
Loadmain_cxtj_rktdcx
main_cxtj_rktdcx.Show
main_cxtj_rktdcx.rq1.Text=DTP1.Value
main_cxtj_rktdcx.rq2.Text=DTP2.Value
UnloadMe
CaseIs=2
'载入销售单查询
Loadmain_cxtj_xscx
main_cxtj_xscx.Show
main_cxtj_xscx.rq1.Text=DTP1.Value
main_cxtj_xscx.rq2.Text=DTP2.Value
CaseIs=3
'载入销售退单查询
Loadmain_cxtj_xstdcx
main_cxtj_xstdcx.Show
main_cxtj_xstdcx.rq1.Text=DTP1.Value
main_cxtj_xstdcx.rq2.Text=DTP2.Value
EndSelect
UnloadMe
EndSub
PrivateSubCancelButton_Click()
frm_main.Enabled=True
UnloadMe
EndSub
??
??
??
??
哈尔滨工业大学本科毕业论文
计算机毕业设计:进销存管理系统
II
--
I
--
计算机毕业设计:进销存管理系统
哈尔滨工业大学成人高等教育毕业设计(论文)
上一篇:
VB药品供销存贮系统vb+access(论文和程序)
下一篇:
陕西师范大学远程教育学院毕业论文