module1.bas

南海舰队进销存管理系统 vb

Attribute VB_Name = "Module1"
Option Explicit
Private rs As New ADODB.Recordset
Private strconn As String
Private strsql As String
Private rs1 As New ADODB.Recordset
Private strsql1 As String
Private rs11 As New ADODB.Recordset
Private strsql11 As String
Private s As String
Public xu1 As Integer   'combo3是否有additem
Public ck As String     '确保仓库单一性
Public re As Integer    'kaiform1刷新时combo1的additem变化正确
Public ok1 As Integer   '判断kai表和kai1表同时更新

Sub xulang1()
On Error Resume Next
strconn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\jxc.mdb"
strsql = "select * from kai"
With rs
    If .State = adStateOpen Then
       .Close
    End If
    .ActiveConnection = strconn
    .Source = strsql
    .LockType = adLockOptimistic
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open
End With
rs.AddNew
rs(0) = addkaiform1.Text1.Text
rs(1) = addkaiform1.Combo1.Text
rs(2) = addkaiform1.Text4.Text
rs(3) = addkaiform1.Text3.Text
rs(4) = addkaiform1.Text5.Text
rs(5) = addkaiform1.Combo2.Text
rs(6) = addkaiform1.Text6.Text
rs(7) = addkaiform1.Text7.Text
rs(8) = addkaiform1.Text8.Text
rs.Update
Set rs = Nothing
kaiform1.Text1.Text = addkaiform1.Text2.Text
kaiform1.Combo1.Text = addkaiform1.Text1.Text
kaiform1.Combo1.Enabled = False
addkaiform1.Text1.Enabled = False
addkaiform1.Text2.Enabled = False
kaiform1.Text2.Text = Format(Now, "yyyy-mm-dd")
If kaiform1.Text5.Text = "" Then s = 0
If kaiform1.Text5.Text <> "" Then s = kaiform1.Text5.Text
kaiform1.Text5.Text = s + addkaiform1.Text6.Text * addkaiform1.Text7.Text
addkaiform1.Combo1.Text = ""
addkaiform1.Text3.Text = ""
addkaiform1.Text5.Text = ""
addkaiform1.Text6.Text = ""
addkaiform1.Text7.Text = ""
addkaiform1.Text8.Text = ""
addkaiform1.Combo2.Text = ""
kaiform1.Command1.Caption = "增  加"
kaiform1.Command2.Enabled = True
kaiform1.Command3.Enabled = True
strconn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\jxc.mdb"
strsql1 = "select 代号 from base where 仓库='" & addkaiform1.Text4.Text & "'"
With rs1
    If .State = adStateOpen Then
       .Close
    End If
    .ActiveConnection = strconn
    .Source = strsql1
    .LockType = adLockReadOnly
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open
End With
addkaiform1.Combo1.Visible = False
addkaiform1.Combo3.Visible = True
If xu1 <> 1 Then
rs1.MoveFirst
Do While Not rs1.EOF
   addkaiform1.Combo3.AddItem rs1(0)
   rs1.MoveNext
Loop
End If
strconn = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\jxc.mdb"
strsql11 = "select 代号,仓库,类别,品名,单位,单价（元）,数量,备注 from kai where 凭证号='" & kaiform1.Combo1.Text & "'"
With rs11
    If .State = adStateOpen Then
       .Close
    End If
    .ActiveConnection = strconn
    .Source = strsql11
    .LockType = adLockOptimistic
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .Open
End With
Set kaiform1.DataGrid1.DataSource = rs11
Set kaiform1.Adodc1.Recordset = rs11
kaiform1.Adodc1.Caption = "当前记录为：" & kaiform1.Adodc1.Recordset.AbsolutePosition & "/" & kaiform1.Adodc1.Recordset.RecordCount
End Sub