m.mf1.Top
EndIf
x=myform.mf1.TextMatrix(myform.mf1.FixedRows,myform.mf1.Col)
y=myform.mf1.TextMatrix(myform.mf1.Row,0)
p=myform.mf1.TextMatrix(myform.mf1.Row,myform.mf1.Col)
myform.Text1.Text=myform.mf1.Text
myform.Text1.SelStart=0
myform.Text1.SelLength=Len(myform.Text1.Text)
EndIf
EndSub
PublicSubmoveright()
IfText1.Text="1"ThenSetmyform=main_rcyw_rk
IfText1.Text="2"ThenSetmyform=main_rcyw_rktd
IfText1.Text="3"ThenSetmyform=main_rcyw_xs
IfText1.Text="4"ThenSetmyform=main_rcyw_xstd
Ifmyform.Text1.Text<>""Then
myform.Text1.SelStart=0
myform.Text1.SelLength=Len(myform.Text1.Text)
EndIf
Ifmyform.mf1.Col+1<=myform.mf1.Cols-1Then
myform.mf1.Col=myform.mf1.Col+1
Else
Ifmyform.mf1.Row+1<=myform.mf1.Rows-1Then
myform.mf1.Row=myform.mf1.Row+1
myform.mf1.Col=1
EndIf
EndIf
EndSub
PublicSubmoveleft()
IfText1.Text="1"ThenSetmyform=main_rcyw_rk
IfText1.Text="2"ThenSetmyform=main_rcyw_rktd
IfText1.Text="3"ThenSetmyform=main_rcyw_xs
IfText1.Text="4"ThenSetmyform=main_rcyw_xstd
Ifmyform.Text1.Text<>""Then
myform.Text1.SelStart=0
myform.Text1.SelLength=Len(myform.Text1.Text)
EndIf
Ifmyform.mf1.Col-11<=myform.mf1.Cols+1Then
myform.mf1.Col=myform.mf1.Col-1
Ifmyform.mf1.Col=0Thenmyform.mf1.Col=1
Else
Ifmyform.mf1.Row+1<=myform.mf1.Row-1Then
myform.mf1.Row=myform.mf1.Row+1
myform.mf1.Col=1
EndIf
EndIf
EndSub
PublicSubmovereturn()
IfText1.Text="1"ThenSetmyform=main_rcyw_rk
IfText1.Text="2"ThenSetmyform=main_rcyw_rktd
IfText1.Text="3"ThenSetmyform=main_rcyw_xs
IfText1.Text="4"ThenSetmyform=main_rcyw_xstd
Ifmyform.mf1.Col=10Then
myform.mf1.Row=myform.mf1.Row+1
myform.mf1.Col=1
Else
Ifmyform.mf1.Col+1<=myform.mf1.Cols-1Then
myform.mf1.Col=myform.mf1.Col+1
Else
Ifmyform.mf1.Row+1<=myform.mf1.Rows-1Then
myform.mf1.Row=myform.mf1.Row+1
myform.mf1.Col=1
EndIf
EndIf
EndIf
EndSub
PrivateSubForm_Load()
'在标题栏上显示软件名称及版本
Me.Caption=App.Title&"版本:V"&App.Major&"."&App.Minor&"."&App.Revision
DimiAsInteger'定义一个整型变量
Fori=0To1
Label1(i).Caption=App.Title
Nexti
Label2.Caption="版本:V"&App.Major&"."&App.Minor&"."&App.Revision
EndSub
PrivateSubrkd_Click()'调入入库单
Loadmain_rcyw_rk
main_rcyw_rk.Show
frm_main.Enabled=False
EndSub
PrivateSubxsd_Click()'调入销售单
Loadmain_rcyw_xs
main_rcyw_xs.Show
frm_main.Enabled=False
EndSub
PrivateSubxsth_Click()'调入销售退货
Loadmain_rcyw_xstd
main_rcyw_xstd.Show
frm_main.Enabled=False
EndSub
PrivateSubrkth_Click()'调入退货返厂
Loadmain_rcyw_rktd
main_rcyw_rktd.Show
frm_main.Enabled=False
EndSub
PrivateSubkccx_Click()'调入库存查询
Loadmain_kcgl_kccx
main_kcgl_kccx.Show
frm_main.Enabled=False
EndSub
PrivateSubkcpd_Click()'调入库存盘点
Loadmain_kcgl_kcpd
main_kcgl_kcpd.Show
frm_main.Enabled=False
EndSub
PrivateSubjggl_Click()'调入价格管理
Loadmain_kcgl_jggl
main_kcgl_jggl.Show
frm_main.Enabled=False
EndSub
PrivateSubrkcx_Click()'调入入库查询
Loadmain_rqDialog
main_rqDialog.Show
main_rqDialog.Text1.Text="0"
frm_main.Enabled=False
EndSub
PrivateSubthfccx_Click()'调入退货返厂
Loadmain_rqDialog
main_rqDialog.Show
main_rqDialog.Text1.Text="1"
frm_main.Enabled=False
EndSub
PrivateSubxscx_Click()'调入销售查询
Loadmain_rqDialog
main_rqDialog.Show
main_rqDialog.Text1.Text="2"
frm_main.Enabled=False
EndSub
PrivateSubxsthcx_Click()'调入销售退货查询
Loadmain_rqDialog
main_rqDialog.Show
main_rqDialog.Text1.Text="3"
frm_main.Enabled=False
EndSub
PrivateSubgysgl_Click()'调入供应商管理
Loadmain_jbxx_gys
main_jbxx_gys.Show
frm_main.Enabled=False
EndSub
PrivateSubkhgl_Click()'调入客户管理
Loadmain_jbxx_kh
main_jbxx_kh.Show
frm_main.Enabled=False
EndSub
PrivateSubcqjz_Click()'调入初期建帐
Loadmain_xt_cqjz
main_xt_cqjz.Show
frm_main.Enabled=False
EndSub
PrivateSubmmsz_Click()'调入密码设置
Loadmain_xt_mmsz
main_xt_mmsz.Show
frm_main.Enabled=False
EndSub
PrivateSubsjbf_Click()'调入数据备份
Loadmain_xt_sjbf
main_xt_sjbf.Show
frm_main.Enabled=False
EndSub
PrivateSubsjhf_Click()'调入数据恢复
Loadmain_xt_sjhf
main_xt_sjhf.Show
frm_main.Enabled=False
EndSub
PrivateSubToolbar1_Butt(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Key
CaseIs="rkd"'调入入库单
rkd_Click
CaseIs="xsd"'调入销售单
xsd_Click
CaseIs="xscx"'调入销售查询
xscx_Click
CaseIs="kccx"'调入库存查询
kccx_Click
CaseIs="gys"'调入供应商管理
gysgl_Click
CaseIs="kh"'调入客户管理
khgl_Click
CaseIs="cqjz"'调入初期建帐
cqjz_Click
EndSelect
EndSub
PrivateSubexit_Click()
End
EndSub
Dimx,i'定义变量
PublicSubviewdata()'定义显示数据的函数
Fori=0To16
IfData1.Recordset.Fields(i)<>""Thenkh(i).Text=Data1.Recordset.Fields(i)Elsekh(i).Text=""
Nexti
EndSub
PrivateSubForm_Activate()
'向combo1添加查询项目列表
x=Array("客户编号","客户全称","简称","地址","所属地区","邮政编码","电话","传真")
Fori=0To7
Combo1.AddItem(x(i))
Nexti
Combo1.Text="客户全称"
'初始化给kh(i)赋值
IfData1.Recordset.RecordCount>0Then
Callviewdata'调用函数
EndIf
EndSub
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\yyjxc.mdb"'自动识别数据库路径
EndSub
PrivateSubForm_Unload(CancelAsInteger)
frm_main.Enabled=True
UnloadMe
EndSub
PrivateSubComFind_Click()
'查询客户信息
Data1.RecordSource="select*fromkhwhere(kh."&Combo1.Text&""&"like"+Chr(34)+Text1.Text+"*"+Chr(34)+")"
Data1.Refresh
Callviewdata'调用函数
EndSub
PrivateSubkh_KeyDown(IndexAsInteger,KeyCodeAsInteger,Shift
AsInteger)
'回车获得焦点
IfKeyCode=vbKeyReturnAndIndex<16Thenkh(Index+1).SetFocus
IfKeyCode=vbKeyReturnAndIndex=9ThenSSTab1.Tab=1
IfKeyCode=vbKeyReturnAndIndex=16ThenComSaveM.SetFocus
EndSub
PrivateSubSSTab1_Click(PreviousTabAsInteger)
IfData1.Recordset.RecordCount>0Then
IfSSTab1.Tab=2AndComAdd.Enabled=FalseThen
MsgBox("您正在处理数据,请取消数据处理,在执行本操作!")
SSTab1.Tab=0
Else
EndIf
EndIf
EndSub
PrivateSubCmdMD_Click(IndexAsInteger)
SelectCaseIndex
CaseIs=0'移到第一条记录
IfNotData1.Recordset.BOFThenData1.Recordset.MoveFirst
CaseIs=1'移到上一条记录
IfData1.Recordset.RecordCount<>0Then
IfData1.Recordset.BOF=FalseThenData1.Recordset.MovePrevious
IfData1.Recordset.BOF=TrueThenData1.Recordset.MoveFirst
EndIf
CaseIs=2'移到下一条记录
IfData1.Recordset.RecordCount<>0Then
IfData1.Recordset.EOF=FalseThenData1.Recordset.MoveNext
IfData1.Recordset.EOF=TrueThenData1.Recordset.MoveLast
EndIf
CaseIs=3'移到最后一条记录
IfData1.Recordset.RecordCount<>0Then
IfData1.Recordset.EOF=FalseThenData1.Recordset.MoveNext
IfData1.Recordset.EOF=TrueThenData1.Recordset.MoveLast
EndIf
EndSelect
Callviewdata'调用函数
EndSub
PrivateSubComAdd_Click()'允许用户添加新记录
Fori=0To16
kh(i).Text=""
kh(i).Enabled=True
Nexti
ComSaveM.Visible=True:ComSaveA.Visible=False:ComSaveM.Enabled=True:ComEsc.Enabled=True
Fori=0To3
CmdMD(i).Enabled=False
Nexti
ComAdd.Enabled=False:ComModify.Enabled=False:ComDelete.Enabled=False
SSTab1.Tab=0:kh(0).SetFocus
EndSub
PrivateSubComModify_Click()'允许用户修改记录
IfData1.Recordset.RecordCount>0Then
Data1.Recordset.Edit
Fori=0To16
kh(i).Enabled=True
Nexti
ComSaveA.Visible=True:ComSaveA.Enabled=True:ComSaveM.Visible=False:ComEsc.Enabled=True
Fori=0To3
CmdMD(i).Enabled=False
Nexti
ComAdd.Enabled=False:ComModify.Enabled=False:ComDelete.Enabled=False
Else
MsgBox("没有要修改的数据!")
EndIf
EndSub
PrivateSubComSaveA_Click()'保存修改记录
DimAAsString
A=MsgBox("您确实要修改这条数据吗?",vbYesNo)
IfA=vbYesThen
Data1.Recordset.Edit
Fori=0To16
Ifkh(i).Text<>""ThenData1.Recordset.Fields(i)=kh(i).Text
kh(i).Enabled=False
Nexti
ComSaveA.Enabled=False:ComEsc.Enabled=False:ComAdd.Enabled=True
Fori=0To3
CmdMD(i).Enabled=True
Nexti
ComModify.Enabled=True:ComDelete.Enabled=True:Data1.Recordset.Update
EndIf
EndSub
PrivateSubComSaveM_Click()'保存新增记录
DimmydbAsDatabase
Dimmyrs1AsRecordset
Ifkh(0).Text<>""Andkh(1).Text<>""Then
Setmydb1=Workspaces(0).OpenDatabase(App.Path&"\yyjxc.mdb")
Setmyrs1=mydb1.OpenRecordset("kh",dbOpenTable)
myrs1.AddNew
Fori=0To16
Ifkh(i).Text<>""Thenmyrs1.Fields(i)=kh(i).Text
Nexti
myrs1.Update:myrs1.Close:mydb1.Close:Data1.Refresh
Fori=0To3
CmdMD(i).Enabled=True
Nexti
ComModify.Enabled=True:ComDelete.Enabled=True
ComSaveA.Enabled=False:ComEsc.Enabled=False:ComAdd.Enabled=True
Else
EndIf
EndSub
PrivateSubComDelete_Click()'删除客户信息
IfData1.Recordset.RecordCount>0Then
A=MsgBox("您确实要删除这条数据吗?",vbYesNo)
IfA=vbYesThen
Data1.Recordset.Delete
Data1.Refresh
Fori=0To3
CmdMD(i).Enabled=True
Nexti
ComModify.Enabled=True:ComDelete.Enabled=True
ComSaveA.Enabled=False:ComEsc.Enabled=False:ComAdd.Enabled=True
Fori=0To16
kh(i).Text=""
Nexti
EndIf
Else
MsgBox("没有要删除的数据!")
EndIf
EndSub
PrivateSubComEsc_Click()'取消操作
IfData1.Recordset.RecordCount>0Then
Fori=0To16
kh(i).Enabled=False
IfData1.Recordset.Fields(i)<>""Thenkh(i).Text=Data1.Recordset.Fields(i)
Nexti
Fori=0To3
CmdMD(i).Enabled=True
Nexti
ComModify.Enabled=True:ComDelete.Enabled=True:ComSaveA.Enabled=False
ComSaveM.Enabled=False:ComEsc.Enabled=False:ComAdd.Enabled=
True
EndIf
EndSub
PrivateSubComend_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(论文和程序)
下一篇:
年产30000吨味精厂发酵罐的设计与选型