mlsphAsInteger'定义一个整型变量
PrivateSubForm_Load()
'自动识别数据库路径
DimstrAsString'定义
str=App.Path
IfRight(str,1)<>"\"Then
str=str+"\"
EndIf
Data1.DatabaseName=str&"\仓库.mdb"
Data2.DatabaseName=str&"\仓库.mdb"
Data3.DatabaseName=str&"\仓库.mdb"
Data1.RecordSource="kc"
Data2.RecordSource="gys"
Data3.RecordSource="rkd"
Data1.Refresh
Data2.Refresh
Data3.Refresh
mf1.Rows=102:mf1.Cols=12'定义mf1表的总行数、总列数
'定义mf1表的列宽和表头信息
s=Array("300","1500","900","1200","900","1200","600","600","600","900","1140","850")
y=Array("xh","商品名称","简称","批号","厂家","规格","包装","单位","数量","单价","金额","备注")
Fori=0To11
mf1.ColWidth(i)=s(i):mf1.TextMatrix(0,i)=y(i)
Nexti
mf1.FixedRows=1:mf1.FixedCols=1'定义mf1表的固定行数、固定列数
'定义mf1表的列序号
Fori=1To101
mf1.TextMatrix(i,0)=i
Nexti
rkrq.Text=Date'设置入库日期
EndSub
PrivateSubForm_Unload(CancelAsInteger)
frm_main.Enabled=True
EndSub
PrivateSubgys_Change()
DBList1.Visible=True
DBList1.ReFill
'查询供应商信息
Data2.RecordSource="select供应商全称fromgyswhere((gys.供应商全称like"+Chr(34)+gys.Text+"*"+Chr(34)+")or(gys.简称like"+Chr(34)+gys.Text+"*"+Chr(34)+"))groupby供应商全称"
Data2.Refresh
EndSub
PrivateSubdblist1_KeyPress(KeyAsciiAsInteger)
DBList1.Visible=True
gys.Text=DBList1.BoundText'赋值给gys.text
DBList1.Visible=False
jsr.SetFocus
EndSub
PrivateSubgrid1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThen'当按回车键时
WithData1.Recordset
IfData1.Recordset.RecordCount>0Then
IfData1.Recordset.Fields("商品名称")<>""Then
'赋值给mf1表格
If.Fields("商品名称")<>""Thenmf1.TextMatrix(mf1.Row,1)=.Fields("商品名称")
If.Fields("简称")<>""Thenmf1.TextMatrix(mf1.Row,2)=.Fields("简称")
If.Fields("批号")<>""Thenmf1.TextMatrix(mf1.Row,3)=.Fields("批号")
If.Fields("产地")<>""Thenmf1.TextMatrix(mf1.Row,4)=.Fields("产地")
If.Fields("规格")<>""Thenmf1.TextMatrix(mf1.Row,5)=.Fields("规格")
If.Fields("包装")<>""Thenmf1.TextMatrix(mf1.Row,6)=.Fields("包装")
If.Fields("单位")<>""Thenmf1.TextMatrix(mf1.Row,7)=.Fields("单位")
If.Fields("进价")<>""Thenmf1.TextMatrix(mf1.Row,9)=.Fields("进价")
Text1.Text=mf1.Text'赋值给text1
Text1.SetFocus
mf1.Col=8'到达第8列
grid1.Visible=False
Else
MsgBox("无数据选择!!!")
grid1.Visible=False'grid1不可见
Text1.SetFocus
EndIf
EndIf
EndWith
Text1.SetFocus'text1获得焦点
EndIf
IfKeyCode=vbKeyEscapeThen'按ESC键
grid1.Visible=False'grid1不可见
Text1.SetFocus'text1获得焦点
EndIf
EndSub
PrivateSubgys_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThen'按回车键
jsr.SetFocus'jsr获得焦点
DBList1.Visible=False'DBList1不可见
EndIf
IfKeyCode=vbKeyPageDownThen'按PageDown键
DBList1.Visible=True'DBList1可见
DBList1.ReFill
DBList1.SetFocus'DBList1获得焦点
EndIf
EndSub
PrivateSubjsr_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
IfKeyCode=vbKeyReturnThen'按回车键
Text1.Visible=True
mf1.Row=1:mf1.Col=1'到达第1行,第1列
Text1.SetFocus
EndIf
IfKeyCode=vbKeyUpThengys.SetFocus'按向上键gys获得焦点
EndSub
PrivateSubmf1_Click()
Ifmf1.Row>=1Andmf1.TextMatrix(mf1.Row-1,8)<>""Then'在mf1表格第1行或大于第1行时
Text1.Visible=True'text1可见
Text1.SetFocus
EndIf
EndSub
PrivateSubmf1_entercell()
frm_main.Text1.Text="1"
Callfrm_main.entercell'调用函数
EndSub
PrivateSubmf1_RowColChange()'格式化金额
Fori=1To100
Ifmf1.TextMatrix(i,1)<>""Then
mf1.TextMatrix(i,9)=Format(mf1.TextMatrix(i,9),"#0.000")
mf1.TextMatrix(mf1.Row,10)=Val(mf1.TextMatrix(mf1.Row,9))*Val(mf1.TextMatrix(mf1.Row,8))
mf1.TextMatrix(i,10)=Format(mf1.TextMatrix(i,10),"#0.00")
EndIf
Nexti
EndSub
PrivateSubText1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)
frm_main.Text1.Text="1"
IfKeyCode=vbKeyReturnThen
grid1.Visible=False
Ifmf1.Col=1Then
WithData1.Recordset
If.RecordCount>0Then'当记录大于零时
'赋值给mf1表格
If.Fields("商品名称")<>""Thenmf1.TextMatrix(mf1.Row,1)=.Fields("商品名称")
If.Fields("简称")<>""Thenmf1.TextMatrix(mf1.Row,2)=.Fields("简称")
If.Fields("批号")<>""Thenmf1.TextMatrix(mf1.Row,3)=.Fields("批号")
If.Fields("产地")<>""Thenmf1.TextMatrix(mf1.Row,4)=.Fields("产地")
If.Fields("规格")<>""Thenmf1.TextMatrix(mf1.Row,5)=.Fields("规格")
If.Fields("包装")<>""Thenmf1.TextMatrix(mf1.Row,6)=.Fields("包装")
If.Fields("单位")<>""Thenmf1.TextMatrix(mf1.Row,7)=.Fields("单位")
If.Fields("进价")<>""Thenmf1.TextMatrix(mf1.Row,9)=.Fields("进价")
mf1.Col=7
EndIf
EndWith
EndIf
Callfrm_main.movereturn'调用函数
EndIf
IfKeyCode=vbKeyUpThen
Ifmf1.Row>1Thenmf1.Row=mf1.Row-1
EndIf
IfKeyCode=vbKeyDownAnd(mf1.TextMatrix(mf1.Row,2))<>""Then
Ifmf1.Row<99Thenmf1.Row=mf1.Row+1
EndIf
IfKeyCode=vbKeyLeftThenCallfrm_main.moveleft'调用函数
IfKeyCode=vbKeyRightThenCallfrm_main.moveright'调用函数
IfKeyCode=vbKeyPageDownAndmf1.Col=1Then
Data1.RecordSource="select*fromkc"
Data1.Refresh
grid1.Visible=True:grid1.SetFocus
EndIf
EndSub
PrivateSubtext1_Change()
DBList1.Visible=False
mf1.Text=Text1.Text'赋值给mf1.text
Ifmf1.Col=1Then
'按简称或商品名称查询库存商品信息
Data1.RecordSource="select*fromkcwhere((kc.简称like"+Chr(34)+Text1.Text+"*"+Chr(34)+")or(kc.商品名称like"+Chr(34)+Text1.Text+"*"+Chr(34)+"))"
Data1.Refresh
IfText1.Text=""Then'当text1.text为空时
grid1.Visible=False'grid1不可见
Else
IfData1.Recordset.RecordCount>0Then'当记录大于零时
grid1.Visible=True'grid1可见
Text1.SetFocus
EndIf
EndIf
EndIf
Ifmf1.Col=8Thenmf1.TextMatrix(mf1.Row,10)=Val(mf1.TextMatrix(mf1.Row,8))*Val(mf1.TextMatrix(mf1.Row,9))
Ifmf1.Col=9Then
mf1.TextMatrix(mf1.Row,10)=Val(mf1.TextMatrix(mf1.Row,8))*Val(mf1.TextMatrix(mf1.Row,9))
Ifmf1.TextMatrix(mf1.Row,8)=""Then
MsgBox("数量无,请重新输入!!!")
mf1.Col=8
grid1.Visible=False
EndIf
EndIf
Ifmf1.Col=11Then
Ifmf1.TextMatrix(mf1.Row,9)=""Then
MsgBox("单价无,请重新输入!!!")
mf1.Col=9
grid1.Visible=False
EndIf
EndIf
DimA,BAsSingle
Fori=1To31
A=Val(mf1.TextMatrix(i,10))+A:B=Val(mf1.TextMatrix(i,8))+B
Ifmf1.TextMatrix(i,1)<>""Andmf1.TextMatrix(i,8)<>""Thenjs.Text=i
Nexti
hj.Text=A:hjsl.Text=B'计算合计金额,合计数量
EndSub
PrivateSubComdj_Click()
'查询所有入库数据,并按票号排序
Data3.RecordSource="select*fromrkdorderby票号"
Data3.Refresh
'创建入库票号
IfData3.Recordset.RecordCount>0Then
IfNotData3.Recordset.EOFThenData3.Recordset.MoveLast
IfData3.Recordset.Fields("票号")<>""Then
lsph=Right(Trim(Data3.Recordset.Fields("票号")),4)+1
PH.Text=Date&"rkd"&Format(lsph,"0000")
EndIf
Else
PH.Text=Date&"rkd"&"0001"
EndIf
'设置控件有效或无效
gys.Enabled=True:jsr.Enabled=True:js.Enabled=True:hjsl.Enabled=True:hj.Enabled=True
Text1.Enabled=True:mf1.Enabled=True:Combc.Enabled=True:Comqx.Enabled=True:Com
上一篇:
VB电脑租赁系统(论文和程序)
下一篇:
顶棚装饰工程施工