kw.frm

关于图书销售管理

VERSION 5.00
Begin VB.Form kw 
   Caption         =   "请输入库位"
   ClientHeight    =   1665
   ClientLeft      =   3840
   ClientTop       =   1920
   ClientWidth     =   3510
   Icon            =   "kw.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   1665
   ScaleWidth      =   3510
   Begin VB.Frame Frame1 
      Height          =   1575
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   3255
      Begin VB.TextBox Text10 
         BackColor       =   &H00FFFFFF&
         ForeColor       =   &H00FF0000&
         Height          =   375
         Left            =   1320
         TabIndex        =   3
         Top             =   360
         Width           =   1215
      End
      Begin VB.CommandButton Command2 
         Caption         =   "取消(&C)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   1920
         TabIndex        =   2
         Top             =   960
         Width           =   1095
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定(&O)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   360
         TabIndex        =   1
         Top             =   960
         Width           =   1095
      End
      Begin VB.Label Label8 
         Caption         =   "库位:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   375
         Left            =   600
         TabIndex        =   4
         Top             =   360
         Width           =   615
      End
   End
End
Attribute VB_Name = "kw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
dhdcl1.Data2.Recordset.FindFirst "ddbh = " & "'" & dhdcl1.Text1.Text & "'"
dhdcl1.Data2.Recordset.Edit
dhdcl1.Data2.Recordset("sfrk") = 1
dhdcl1.Data2.Recordset.Update
dhdcl1.Data2.Refresh

incount = dhdcl1.Adodc1.Recordset.RecordCount
    dhdcl1.Adodc1.Recordset.MoveFirst
 For i = 1 To incount
           
            dhdcl1.Data3.RecordSource = "select * from kczk where spbh = '" & dhdcl1.Adodc1.Recordset("spbh") & "'  and   gg = '" & dhdcl1.Adodc1.Recordset("gg") & "'"
            dhdcl1.Data3.Refresh
            If dhdcl1.Data3.Recordset.EOF = True Then
                     dhdcl1.Data3.Recordset.AddNew
                     dhdcl1.Data3.Recordset("spbh") = dhdcl1.Adodc1.Recordset("spbh")
                     dhdcl1.Data3.Recordset("kcsl") = dhdcl1.Adodc1.Recordset("sl")
                     dhdcl1.Data3.Recordset("kw") = Trim(Text10.Text)
                     dhdcl1.Data3.Recordset("bz") = dhdcl1.Adodc1.Recordset("bz")
                     'dhdcl1.Data3
                     dhdcl1.Data3.Recordset("gg") = dhdcl1.Adodc1.Recordset("gg")
                     dhdcl1.Data3.Recordset.Update
                     dhdcl1.Data3.Refresh
                Else
                    dhdcl1.Data3.Recordset.Edit
                    dhdcl1.Data3.Recordset("kcsl") = dhdcl1.Data3.Recordset("kcsl") + dhdcl1.Adodc1.Recordset("sl")
                    dhdcl1.Data3.Recordset.Update
                    dhdcl1.Data3.Refresh
                End If
                   dhdcl1.Adodc1.Recordset.MoveNext
Next
'Call dhdcl1.Form_Activate
jdt.Show
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Activate()
Text10.SetFocus

End Sub