se,andtheleadingvendorsareliningupproducts--includingIBM'sWebSphereandBEASystemsInc.'sWebLogic.
Now,thereallyinterestingquestionsinvolvethelonger-termimplicationsofWebservices.Whathappenswhennewapplicationscaninteractwithallothers--regardlessofmachine,language,operatingsystemormiddleware?Whatnew,unforeseenapplicationsmayemergefromthiscapability?Andwillwebeabletoadequatelysafeguardsuchincreasedtraffic?
附录3
部分原代码:
PublicSubentercell()
Dimx,yAsString
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.CellWidth<=0Ormyform.mf1.CellHeight<=0ThenExitSub
x=myform.mf1.TextMatrix(myform.mf1.FixedRows,myform.mf1.Col)
y=myform.mf1.TextMatrix(myform.mf1.Row,0)
Ify<>""Then
Ifmyform.mf1.Col-myform.mf1.LeftCol<=3Then
myform.mf1.LeftCol=myform.mf1.LeftCol+1
EndIf
Ifmyform.mf1.CellWidth>0Andmyform.mf1.CellHeight>0Then
myform.Text1.Width=myform.mf1.CellWidth
myform.Text1.Height=myform.mf1.CellHeight
myform.Text1.Left=myform.mf1.CellLeft+myform.mf1.Left
myform.Text1.Top=myform.mf1.CellTop+myform.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_
上一篇:
VB药品供销存贮系统vb+access(论文和程序)
下一篇:
低碳经济论文:中国企业在低碳经济下进行低碳转型的探析