main_jbzl_kh.frm

商品进销存管理系统 采用VB和SQL2000开发 具有很强的实用性

            EndProperty
            BeginProperty Column08 
               ColumnWidth     =   675.213
            EndProperty
            BeginProperty Column09 
               ColumnWidth     =   975.118
            EndProperty
            BeginProperty Column10 
               ColumnWidth     =   2085.166
            EndProperty
            BeginProperty Column11 
               ColumnWidth     =   975.118
            EndProperty
            BeginProperty Column12 
               ColumnWidth     =   1065.26
            EndProperty
            BeginProperty Column13 
               ColumnWidth     =   1349.858
            EndProperty
         EndProperty
      End
   End
   Begin VB.Frame Frame2 
      Height          =   645
      Left            =   60
      TabIndex        =   27
      Top             =   5145
      Width           =   9105
      Begin VB.CommandButton CmdExit 
         Caption         =   "[X]退出"
         Height          =   360
         Left            =   8115
         Style           =   1  'Graphical
         TabIndex        =   33
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdEsc 
         Caption         =   "[E]取消"
         Height          =   360
         Left            =   7335
         Style           =   1  'Graphical
         TabIndex        =   34
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdSave 
         Caption         =   "[S]保存"
         Enabled         =   0   'False
         Height          =   360
         Left            =   6555
         Style           =   1  'Graphical
         TabIndex        =   37
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdDelete 
         Caption         =   "[D]删除"
         Height          =   360
         Left            =   5775
         Style           =   1  'Graphical
         TabIndex        =   35
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdModify 
         Caption         =   "[M]修改"
         Height          =   360
         Left            =   4995
         Style           =   1  'Graphical
         TabIndex        =   32
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdAdd 
         Caption         =   "[A]添加"
         Height          =   360
         Left            =   4215
         Style           =   1  'Graphical
         TabIndex        =   36
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdMD 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Index           =   0
         Left            =   270
         Picture         =   "main_jbzl_kh.frx":03C6
         Style           =   1  'Graphical
         TabIndex        =   31
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdMD 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Index           =   1
         Left            =   1065
         Picture         =   "main_jbzl_kh.frx":1A10
         Style           =   1  'Graphical
         TabIndex        =   30
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdMD 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Index           =   2
         Left            =   1860
         Picture         =   "main_jbzl_kh.frx":2F42
         Style           =   1  'Graphical
         TabIndex        =   29
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdMD 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Index           =   3
         Left            =   2670
         Picture         =   "main_jbzl_kh.frx":4446
         Style           =   1  'Graphical
         TabIndex        =   28
         Top             =   195
         Width           =   800
      End
   End
End
Attribute VB_Name = "main_jbzl_kh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************************
'**模 块 名：main_jbzl_kh
'**版权说明：吉林省明日科技有限公司享有本软件的所有版权，如果本软件用于商
'**          业用途，必须经过吉林省明日科技有限公司授权。如果提供网上免费
'**          下载，必须经过吉林省明日科技有限公司授权，并保证程序的完整，
'**          不得修改代码、注释和相关内容，否则，我公司将追究其法律责任
'**网    址：www.mingrisoft.com  价值无限，服务无限
'**电    话：[phone],84978982
'**创 建 人：明日科技
'**日    期：2007-10-31
'**修 改 人：MRLBB
'**日    期：2007-10-31
'**描    述：
'*************************************************************************


Dim i As Integer     '定义整型变量
Dim rs1 As New ADODB.Recordset     '定义数据集对象
Sub view_data()     '定义显示数据的过程
    For i = 0 To 13
        If Adodc1.Recordset.RecordCount > 0 Then
            If Adodc1.Recordset.Fields(i) <> "" Then
                kh(i).text = Adodc1.Recordset.Fields(i)
            Else
                kh(i).text = ""
            End If
        End If
    Next i
End Sub
Private Sub Form_Activate()
    '向combo1中添加查询项目列表
    Combo1.AddItem ("客户编号")
    Combo1.AddItem ("客户全称")
    Combo1.ListIndex = 1
    '打开tb_kh
    rs1.Open "select * from tb_kh order by 客户编号", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        For i = 0 To 13
            If rs1.Fields(i) <> "" Then kh(i).text = rs1.Fields(i)
        Next i
    End If
    rs1.Close     '关闭数据集对象
End Sub
Private Sub Form_Load()
    Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_JXC;Data Source=."
    Set DataGrid1.DataSource = Adodc1
    Ado_update.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db_JXC;Data Source=."
    RegInfo Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
    frm_main.Enabled = True
End Sub
Private Sub kh_GotFocus(Index As Integer)
    kh(Index).BackColor = &HFFFF80
    kh(Index).SelStart = 0
    kh(Index).SelLength = Len(kh(Index))
End Sub
Private Sub kh_LostFocus(Index As Integer)
    kh(Index).BackColor = &HFFFFFF
End Sub
Private Sub kh_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn And Index < 13 Then kh(Index + 1).SetFocus '回车获得焦点
    If KeyCode = vbKeyReturn And Index = 13 Then cmdSave.SetFocus
    If KeyCode = vbKeyUp And Index > 1 Then kh(Index - 1).SetFocus
End Sub
Private Sub text1_GotFocus()
    Text1.BackColor = &HFFFF80
End Sub
Private Sub text1_LostFocus()
  Text1.BackColor = &HFFFFFF
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
    Adodc1.RecordSource = "tb_kh order by 客户编号"
    Adodc1.Refresh
    If Adodc1.Recordset.RecordCount > 0 Then
        If SSTab1.Tab = 1 And cmdAdd.Enabled = False Then
            MsgBox "您正在处理数据,请取消数据处理,再执行本操作！", , "提示窗口"
            SSTab1.Tab = 0
        End If
    End If
End Sub
Private Sub cmdFind_Click()     '查询客户信息
    Adodc1.RecordSource = "tb_kh where (tb_kh." & Combo1.text & " like + '" + Text1.text + "'+'%')"
    Adodc1.Refresh
    Call view_data     '调用过程
    SSTab1.Tab = 1
End Sub

Private Sub CmdMD_Click(Index As Integer)
    Select Case Index
    Case Is = 0     '移到第一条记录
        If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst
    Case Is = 1     '移到上一条记录
        If Adodc1.Recordset.RecordCount > 0 Then
            If Adodc1.Recordset.BOF = False Then Adodc1.Recordset.MovePrevious
            If Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveFirst
        End If
    Case Is = 2     '移到下一条记录
        If Adodc1.Recordset.RecordCount > 0 Then
            If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext
            If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MoveLast
        End If
    Case Is = 3     '移到最后一条记录
        If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveLast
    End Select
    Call view_data     '调用过程
End Sub
Private Sub cmdAdd_Click()
    '自动创建客户编号
    Dim bh As Integer
    rs1.Open "select * from tb_kh order by 客户编号", Cnn, adOpenStatic
    If rs1.RecordCount > 0 Then
        If Not rs1.EOF Then rs1.MoveLast
        If rs1.Fields("客户编号") <> "" Then
            bh = Right(Trim(rs1.Fields("客户编号")), 4) + 1
            kh(0).text = "kh" & Format(bh, "0000")
        End If
    Else
        kh(0).text = "kh0001"
    End If
    rs1.Close     '关闭数据集对象
    For i = 1 To 13
        kh(i).Enabled = True
        kh(i).text = ""
    Next i
    '设置控件状态
    cmdSave.Enabled = True: cmdEsc.Enabled = True: cmdAdd.Enabled = False
    cmdModify.Enabled = False: cmdDelete.Enabled = False
    For i = 0 To 3
        CmdMD(i).Enabled = False
    Next i
    SSTab1.Tab = 0
    kh(1).SetFocus
End Sub
Private Sub cmdModify_Click()     '允许用户修改
    If Adodc1.Recordset.RecordCount > 0 Then
        For i = 0 To 13
            kh(i).Enabled = True
        Next i
        cmdSave.Enabled = True: cmdEsc.Enabled = True: cmdAdd.Enabled = False
        cmdModify.Enabled = False: cmdDelete.Enabled = False
        For i = 0 To 3
            CmdMD(i).Enabled = False
        Next i
    Else
        MsgBox ("没有要修改的数据!")
    End If
End Sub
Private Sub cmdDelete_Click()     '删除客户信息
    If Adodc1.Recordset.RecordCount > 0 Then
        a = MsgBox("您确实要删除这条数据吗?", vbYesNo)
        If a = vbYes Then
            Adodc1.Recordset.Delete
            Adodc1.Recordset.Update
            If Adodc1.Recordset.EOF = False Then Adodc1.Recordset.MoveNext
            If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MovePrevious
            view_data
            cmdSave.Enabled = False: cmdEsc.Enabled = False: cmdAdd.Enabled = True
            cmdModify.Enabled = True: cmdDelete.Enabled = True
            For i = 0 To 3
                CmdMD(i).Enabled = True
            Next i
        End If
    Else
        MsgBox "系统没有要删除的数据！", , "提示窗口"
    End If
End Sub

Private Sub cmdSave_Click()     '保存客户信息
'    rs1.Open "select * from tb_kh where 客户编号='" & Trim(kh(0).text) & "'order by 客户编号", Cnn, adOpenStatic
    Ado_update.RecordSource = "select * from tb_kh where 客户编号='" & Trim(kh(0).text) & "'order by 客户编号"
    Ado_update.Refresh
    If Ado_update.Recordset.RecordCount > 0 Then
        Dim a As String
        a = MsgBox("您确实要修改这条数据吗?", vbYesNo)
        If a = vbYes Then
            For i = 1 To 13
                If kh(1).text <> "" Then Ado_update.Recordset.Fields(i) = Trim(kh(i).text)
                kh(i).Enabled = False
            Next i
            Ado_update.Recordset.Update
            Adodc1.Refresh
            '设置控件状态
            cmdSave.Enabled = False: cmdEsc.Enabled = False: cmdAdd.Enabled = True
            cmdModify.Enabled = True: cmdDelete.Enabled = True
            For i = 0 To 3
                CmdMD(i).Enabled = True
            Next i
        End If
    Else
        If kh(1).text <> "" And kh(2).text <> "" Then
            '添加客户信息
            Ado_update.Recordset.AddNew
            For i = 0 To 13
                Ado_update.Recordset.Fields(i) = Trim(kh(i).text)
                kh(i).Enabled = False
            Next i
            Ado_update.Recordset.Update     '更新数据库
            Adodc1.Refresh
            '设置控件状态
            cmdSave.Enabled = False: cmdEsc.Enabled = False: cmdAdd.Enabled = True
            cmdModify.Enabled = True: cmdDelete.Enabled = True
            For i = 0 To 3
                CmdMD(i).Enabled = True
            Next i

        Else
            MsgBox "请填写完整的信息！"
        End If
    End If
'    rs1.Close     '关闭数据集对象
End Sub
Private Sub cmdEsc_Click()     '取消操作
    rs1.Open "select * from tb_kh where 客户编号='" + kh(0).text + "'order by 客户编号 ", Cnn, adOpenStatic
    For i = 0 To 13
        If rs1.RecordCount > 0 Then
            rs1.CancelUpdate
            If rs1.Fields(i) <> "" Then kh(i).text = rs1.Fields(i)     '赋值给kh(i)
            kh(i).Enabled = False
        Else
            kh(i).text = ""
        End If
    Next i
    rs1.Close
    Adodc1.Refresh
    '设置控件有效或无效
    cmdSave.Enabled = False: cmdEsc.Enabled = False: cmdAdd.Enabled = True
    cmdModify.Enabled = True: cmdDelete.Enabled = True
    For i = 0 To 3
        CmdMD(i).Enabled = True
    Next i
End Sub
Private Sub cmdExit_Click()
    Unload Me
End Sub