With Data6.Recordset
.Edit
If Val(Text2.Text) < 10 Then
If Val(Text3.Text) < 10 Then
.Fields(7) = Text1.Text + "0" + Text2.Text + "0" + Text3.Text
Else
.Fields(7) = Text1.Text + "0" + Text2.Text + Text3.Text
End If
Else
If Val(Text3.Text) < 10 Then
.Fields(7) = Text1.Text + Text2.Text + "0" + Text3.Text
Else
.Fields(7) = Text1.Text + Text2.Text + Text3.Text
End If
End If
.Fields(0) = Combo2.Text
.Fields(1) = Combo1.Text
.Fields(2) = Combo3.Text
.Fields(3) = Text5.Text
.Fields(4) = Text6.Text
.Fields(5) = Text7.Text
.Fields(6) = Val(Text6.Text) * Val(Text7.Text)
.Fields(8) = Text9.Text
.Update
End With
With Data6.Recordset
If bz1 = 1 Then
.AddNew
.Update
End If
.Bookmark = .LastModified
.Edit
If Val(Text2.Text) < 10 Then
If Val(Text3.Text) < 10 Then
.Fields(7) = Text1.Text + "0" + Text2.Text + "0" + Text3.Text
Else
.Fields(7) = Text1.Text + "0" + Text2.Text + Text3.Text
End If
Else
If Val(Text3.Text) < 10 Then
.Fields(7) = Text1.Text + Text2.Text + "0" + Text3.Text
Else
.Fields(7) = Text1.Text + Text2.Text + Text3.Text
End If
End If
.Fields(0) = Combo2.Text
.Fields(1) = Combo1.Text
.Fields(2) = Combo3.Text
.Fields(3) = Text5.Text
.Fields(4) = Text6.Text
.Fields(5) = Text7.Text
.Fields(6) = Val(Text6.Text) * Val(Text7.Text)
.Fields(8) = Text9.Text
.Update
End With
Data1.Refresh
'While Data1.Recordset.EOF = False
st = ""
y = 0
dy = 0
st = Data1.Recordset.Fields(0) + Data1.Recordset.Fields(2) + Data1.Recordset.Fields(1)
Data2.Recordset.FindFirst "品名+供应商+规格=" + "'" + st + "'"
If Data2.Recordset.EOF = False Then
y = Val(Mid(Data2.Recordset.Fields(7), 5, 2)) '库存中的购入日期的月
dy = Month(Now)
If dy = y + 1 Then
sl = sl + Data2.Recordset.Fields(4)
End If
End If
'Wend
Dim fd As String
Private Sub Command1_Click()
Data1.Refresh
Data4.Refresh
'While Data1.Recordset.EOF = False
st = ""
sy = 0
dy = 0
byxs1 = 0
st = Data1.Recordset.Fields(0) + Data1.Recordset.Fields(2) + Data1.Recordset.Fields(1)
byxs1 = Data1.Recordset.Fields(3)
Data2.Recordset.FindFirst "品名+供应商+规格=" + "'" + st + "'"
If Data2.Recordset.EOF = False Then
sy = Data2.Recordset.Fields(8 + Month(Now) - 1)
Data4.Recordset.AddNew
Data4.Recordset.Fields(0) = Data1.Recordset.Fields(2)
Data4.Recordset.Fields(1) = Data1.Recordset.Fields(0)
Data4.Recordset.Fields(2) = Data1.Recordset.Fields(1)
Data4.Recordset.Fields(4) = sy
Data4.Recordset.Fields(6) = Data2.Recordset.Fields(21)
Data4.Recordset.Fields(8) = byxs1
Data4.Recordset.Fields(10) = Data2.Recordset.Fields(8 + Month(Now))
Data4.Recordset.Update
End If
'Wend
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Activate()
Data1.DatabaseName = App.Path + "\telepho.mdb"
Data1.RecordSource = "guige"
Data1.Refresh
Data2.DatabaseName = App.Path + "\telepho.mdb"
Data2.RecordSource = "kcb"
Data2.Refresh
Data3.DatabaseName = App.Path + "\telepho.mdb"
Data3.RecordSource = "xiaoshou"
Data3.Refresh
Data4.DatabaseName = App.Path + "\telepho.mdb"
Data4.RecordSource = "jxczhbb"
Data4.Refresh
Text1.Text = Year(Now)
Text2.Text = Month(Now)
Text3.Text = Day(Now)
If Val(Text2.Text) < 10 Then
If Val(Text3.Text) < 10 Then
fd = Text1.Text + "0" + Text2.Text + "0" + Text3.Text
Else
fd = Text1.Text + "0" + Text2.Text + Text3.Text
End If
Else
If Val(Text3.Text) < 10 Then
fd = Text1.Text + Text2.Text + "0" + Text3.Text
Else
fd = Text1.Text + Text2.Text + Text3.Text
End If
End If
fd = Mid(fd, 5, 4)
End Sub
没有合适的资源?快使用搜索试试~ 我知道了~
温馨提示
(1)商品管理 商品类别为庞大的商品信息分类 商品资料维护(多个字段描述,为详尽的商品分析做良好铺垫)、提供快速商品录入功能 成本价管理、折扣价、级别价格管理、最高进价与最低销价管理 期初商品录入,方便您的期初建帐 折扣与非折扣商品、库存与非库存商品处理 商品资料图片管理 (2)供应商管理 供应商类别为分析不同类供应商铺垫 供应商资料维护(信用度、多种联系方式) 供应商采购汇总、明细、应付以及欠款情况分析 (3)客户管理 客户类别为分析不同类客户铺垫 客户资料维护(信用额度、信用天数、多种联系方式) 客户销售汇总、明细、应收以及催款情况分析 (4)企业信息 部门资料维护 员工资料维护(性别、工资、职位等多种字段) 业务员提成与工资录入 (5)采购管理 严格的权限控制(采购流程与业务单据权限控制,审核、反审核、冲红等权限控制)
资源推荐
资源详情
资源评论
收起资源包目录
.rar (88个子文件)
Documents and Settings
Administrator
Local Settings
Temporary Internet Files
Content.IE5
Z0JKCDN6
www.bs123[1] 40KB
200591821448323
200591821448323
商品进销存管理系统
XINGHAO.FRX 32B
XSCQKSCX.FRM 8KB
zhhzb.frm 9KB
DataReport4.dsx 18B
maincd.frm 19KB
MMLR 4KB
xiaoshoucx.frx 798B
LSKCCX.FRM 2KB
xiaoshoucxjg.frm 12KB
XSKSCXJG.FRM 4KB
KCBCX.FRX 12B
XSCQKSCX.FRX 12B
DataReport5.dsx 18B
进销存管理系统.vbp 3KB
使用说明.txt 2KB
KCBCXJG.FRM 8KB
XSCX.FRX 20B
TUIHUO.FRX 12B
ZZJTCX.FRM 9KB
kccx.frm 13KB
DataReport2.dsx 18B
进销存管理系统.vbw 1KB
库存信息管理系统.exe 3.26MB
historyfind.frm 9KB
Scen391.jpg 142KB
CZYDL.FRX 778B
KHDAN.FRM 9KB
DataReport3.DCA 49KB
TUIHUO.FRM 20KB
Form7.frm 4KB
DataReport1.Dsr 19KB
DE1.DCA 8KB
DataReport1.dsx 18B
de1.Dsr 16KB
DataReport3.Dsr 27KB
xiaoshou.log 680B
tp2.bmp 1.37MB
VB3132.TMP 44KB
Module1.bas 164B
xscx.frm 16KB
SJHF.FRM 3KB
xiaoshoucxjg.frx 29B
tp1.bmp 1.37MB
Scen3971.jpg 147KB
GYSMX.FRM 9KB
xiaoshoucx.frm 5KB
XHRK.FRX 12B
『源码天空』.url 164B
LSKCCX.FRX 32B
DataReport5.Dsr 20KB
GYSMX.FRX 32B
DataReport1.DCA 49KB
XHRK.FRM 7KB
新建 文本文档.txt 4KB
SJBF.FRM 3KB
源码天空 - 免费提供Delphi,VB,VC,Java,PB,ASP,JSP,PHP源码.url 198B
TELEPHO.MDB 1.59MB
ruku.frm 26KB
MMLR.FRM 5KB
DataReport3.dsx 18B
PINMING.FRM 7KB
xinghao.frm 10KB
czydl.frm 7KB
MAINCD.FRX 2.79MB
VB32E2.TMP 44KB
xiaoshoudy.DCA 49KB
DataReport5.DCA 48KB
XSKSCXJG.FRX 21B
KHDAN.FRX 20B
MMSZ.FRM 4KB
DataReport4.DCA 49KB
KHDAN.LOG 565B
VB32E3.TMP 3KB
DataReport2.Dsr 18KB
KCBCXJG.FRX 29B
PINMING.FRX 32B
XIAOSHOU.FRX 32B
DataReport4.Dsr 22KB
RUKU.FRX 32B
DataReport2.DCA 48KB
VB2242.TMP 44KB
xiaoshou.frm 30KB
historyfind.frx 12B
MMSZ 4KB
KCCX.FRX 20B
KCBCX.FRM 8KB
scen397.jpg 147KB
共 88 条
- 1
资源评论
- Apple54312013-07-30还可以,可作毕业设计的参考
qudi1022
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功