PrivateSubCheck2_Click()
DimsqlAsString
IfCheck2.Value=1Then
sql="select*fromjinhuobiao"
rstemp.CursorLocation=adUseClient
rstemp.Opensql,conn,adOpenKeyset,adLockPessimistic
setgrid1
setgridhead1
displaygrid1
rstemp.Close
Else
MSHFlexGrid2.Clear
ExitSub
EndIf
EndSub
PrivateSubCheck3_Click()
DimsqlAsString
IfCheck3.Value=1Then
sql="select*fromxiaoshoubiao"
rstemp.CursorLocation=adUseClient
rstemp.Opensql,conn,adOpenKeyset,adLockPessimistic
setgrid2
setgridhead2
displaygrid2
rstemp.Close
Else
MSHFlexGrid3.Clear
ExitSub
EndIf
EndSub
PublicSubdisplaygrid()
DimiAsInteger
DimjAsInteger
GoTodisplayerror
MSHFlexGrid1.Row=0
IfNotrstemp.EOFThen
rstemp.MoveFirst
DoWhileNotrstemp.EOF
MSHFlexGrid1.Row=MSHFlexGrid1.Row+1
Forj=0To4
MSHFlexGrid1.Col=j
IfNotIsNull(rstemp.Fields(j))ThenMSHFlexGrid1.Text=_
rstemp.Fields(j)ElseMSHFlexGrid1.Text=""
Nextj
rstemp.MoveNext
Loop
EndIf
displayerror:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PublicSubsetgrid()
DimiAsInteger
GoToseterror
WithMSHFlexGrid1
.ScrollBars=flexScrollBarBoth
.FixedCols=1
.Rows=rstemp.RecordCount+1
.Cols=5
.SelectionMode=flexSelectionByRow
Fori=0To.Rows-1
.RowHeight(i)=315
Next
Fori=0To.Cols-1
.ColWidth(i)=1500
Nexti
EndWith
ExitSub
seterror:
MsgBoxErr.Description
EndSub
PublicSubsetgridhead()
GoTosetheaderror
MSHFlexGrid1.Row=0
MSHFlexGrid1.Col=0
MSHFlexGrid1.Text="商品编号"
MSHFlexGrid1.Col=1
MSHFlexGrid1.Text="商品名"
MSHFlexGrid1.Col=2
MSHFlexGrid1.Text="产地"
MSHFlexGrid1.Col=3
MSHFlexGrid1.Text="厂商"
MSHFlexGrid1.Col=4
MSHFlexGrid1.Text="单价"
ExitSub
setheaderror:
MsgBoxErr.Description
EndSub
PublicSubdisplaygrid1()
DimiAsInteger
DimjAsInteger
GoTodisplayerror
MSHFlexGrid2.Row=0
IfNotrstemp.EOFThen
rstemp.MoveFirst
DoWhileNotrstemp.EOF
MSHFlexGrid2.Row=MSHFlexGrid2.Row+1
Forj=0To6
MSHFlexGrid2.Col=j
IfNotIsNull(rstemp.Fields(j))ThenMSHFlexGrid2.Text=rstemp.Fields(j)ElseMSHFlexGrid2.Text=""
Nextj
rstemp.MoveNext
Loop
EndIf
displayerror:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PublicSubsetgrid1()
DimiAsInteger
GoToseterror
WithMSHFlexGrid2
.ScrollBars=flexScrollBarBoth
.FixedCols=1
.Rows=rstemp.RecordCount+1
.Cols=7
.SelectionMode=flexSelectionByRow
Fori=0To.Rows-1
.RowHeight(i)=315
Next
Fori=0To.Cols-1
.ColWidth(i)=1500
Nexti
EndWith
ExitSub
seterror:
MsgBoxErr.Description
EndSub
PublicSubsetgridhead1()
GoTosetheaderror
MSHFlexGrid2.Row=0
MSHFlexGrid2.Col=0
MSHFlexGrid2.Text="ID"
MSHFlexGrid2.Col=1
MSHFlexGrid2.Text="记录日期"
MSHFlexGrid2.Col=2
MSHFlexGrid2.Text="商品编号"
MSHFlexGrid2.Col=3
MSHFlexGrid2.Text="产地"
MSHFlexGrid2.Col=4
MSHFlexGrid2.Text="单价"
MSHFlexGrid2.Col=5
MSHFlexGrid2.Text="数量"
MSHFlexGrid2.Col=6
MSHFlexGrid2.Text="实付款"
ExitSub
setheaderror:
MsgBoxErr.Description
EndSub
PublicSubdisplaygrid2()
DimiAsInteger
DimjAsInteger
GoTodisplayerror
MSHFlexGrid3.Row=0
IfNotrstemp.EOFThen
rstemp.MoveFirst
DoWhileNotrstemp.EOF
MSHFlexGrid3.Row=MSHFlexGrid3.Row+1
Forj=0To6
MSHFlexGrid3.Col=j
IfNotIsNull(rstemp.Fields(j))ThenMSHFlexGrid3.Text=rstemp.Fields(j)ElseMSHFlexGrid3.Text=""
Nextj
rstemp.MoveNext
Loop
EndIf
displayerror:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PublicSubsetgrid2()
DimiAsInteger
GoToseterror
WithMSHFlexGrid3
.ScrollBars=flexScrollBarBoth
.FixedCols=1
.Rows=rstemp.RecordCount+1
.Cols=7
.SelectionMode=flexSelectionByRow
Fori=0To.Rows-1
.RowHeight(i)=315
Next
Fori=0To.Cols-1
.ColWidth(i)=1500
Nexti
EndWith
ExitSub
seterror:
MsgBoxErr.Description
EndSub
PublicSubsetgridhead2()
GoTosetheaderror
MSHFlexGrid3.Row=0
MSHFlexGrid3.Col=0
MSHFlexGrid3.Text="ID"
MSHFlexGrid3.Col=1
MSHFlexGrid3.Text="记录日期"
MSHFlexGrid3.Col=2
MSHFlexGrid3.Text="商品编号"
MSHFlexGrid3.Col=3
MSHFlexGrid3.Text="产地"
MSHFlexGrid3.Col=4
MSHFlexGrid3.Text="单价"
MSHFlexGrid3.Col=5
MSHFlexGrid3.Text="数量"
MSHFlexGrid3.Col=6
MSHFlexGrid3.Text="实付款"
ExitSub
setheaderror:
MsgBoxErr.Description
EndSub
PrivateSubsc()
DimxAsInteger
Module1.rstemp.Open
msg$="确定删除该信息?"
Title$="提示"
x=MsgBox(msg$,33,Title$)
Ifx=1Then
rstemp.Delete
rstemp.Update
displaygrid
MsgBox"删除成功!",vlokonly,"提示"
ElseIfx=2Then
Form9.Show
EndIf
ExitSub
Module1.rstemp.Update
EndSub
Form0窗体代码(chaxunform):
PrivateSubcmdfh_Click()
UnloadMe
Form3.Show
conn.Close
Setconn=Nothing
EndSub
PrivateSubcmdqd_Click()
DimsqlAsString
IfCheck1.Value=1Then
sql="select*fromjinxiaowhereshangpingbiao.商品编号='"&Combo1.Text&"'"
rstemp.CursorLocation=adUseClient
rstemp.Opensql,conn,adOpenKeyset,adLockPessimistic
setgrid
setgridhead
displaygrid
rstemp.Close
Else
MSHFlexGrid1.Clear
EndIf
IfCheck2.Value=1Then
sql="select*fromjinxiao1whereshangpingbiao.商品编号='"&Combo2.Text&"'"
rstemp.CursorLocation=adUseClient
rstemp.Opensql,conn,adOpenKeyset,adLockPessimistic
setgrid1
setgridhead1
displaygrid1
rstemp.Close
Else
MSHFlexGrid2.Clear
EndIf
EndSub
PrivateSubForm_Load()
GoToloaderror
DimconnectionstringAsString
DimsqlAsString
connectionstring="provider=Microsoft.Jet.oledb.4.0;"&_
"datasource="&App.Path&"\yhbzdate.mdb"
conn.Openconnectionstring
sql="select*fromshangpingbiao"
rstemp.CursorLocation=adUseClient
rstemp.Opensql,conn,adOpenKeyset,adLockPessimistic
DoWhileNotrstemp.EOF
Combo1.AddItemrstemp.Fields(0)
Combo2.AddItemrstemp.Fields(0)
rstemp.MoveNext
Loop
rstemp.Close
ExitSub
loaderror:
MsgBoxErr.Description
EndSub
PublicSubdisplaygrid()
MSHFlexGrid1.Row=0
IfNotrstemp.EOFThen
rstemp.MoveFirst
DoWhileNotrstemp.EOF
MSHFlexGrid1.Row=MSHFlexGrid1.Row+1
getrow=MSHFlexGrid1.Row
MSHFlexGrid1.TextMatrix(getrow,0)=rstemp.Fields(7)
MSH
上一篇:
VBAC房屋销售管理信息系统(论文和程序)
下一篇:
行走梵净山之(三)一世一遇,即是懂得