frm_jcxxwh_khjb.frm

本系统为客户管理系统 (1)本系统的数据库为SQL Server 2000

      Height          =   705
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6120
      _ExtentX        =   10795
      _ExtentY        =   1244
      ButtonWidth     =   1138
      ButtonHeight    =   1191
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   9
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   " 增加 "
            Key             =   "add"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            Key             =   "modify"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            Key             =   "delete"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "保存"
            Key             =   "save"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "取消"
            Key             =   "cancel"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查找"
            Key             =   "find"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Enabled         =   0   'False
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "关闭"
            Key             =   "close"
            ImageIndex      =   7
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
End
Attribute VB_Name = "Frm_Jcxxwh_Khjb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Public blnAdd As Boolean
Dim mybookmark
Dim Mystr As String  '定义字符串变量

Sub view_data()  '显示数据信息
  Dim i As Integer
  If Adodc1.Recordset.RecordCount > 0 Then
    For i = 0 To Txt1.UBound
      Txt1(i).Text = Dgr_Khjb.Columns(i)
    Next i
  End If
End Sub

Private Sub Dgr_Khjb_Click()
 view_data
End Sub

Private Sub Form_Load()
  Adodc1.ConnectionString = PublicStr
  Call Dgr_Title  '调用过程
  tlbState Toolbar1, False
  Call view_data  '调用过程
  '设置控件状态
  For i = 0 To Txt1.UBound
    Txt1(i).Enabled = False
  Next i
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  sql = ""
End Sub

Sub Dgr_Title()   '设置DataGrid控件的标题信息
Dgr_Khjb.Columns(0).Caption = "客户级别编号"
Dgr_Khjb.Columns(1).Caption = "客户级别名称"
Dgr_Khjb.Columns(2).Caption = "该级别每月的最低业务量"
Dgr_Khjb.Columns(3).Caption = "备注信息"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Frm_Main.Enabled = True
End Sub

Private Sub Txt1_GotFocus(Index As Integer)
  'Txt1控件数组获得焦点
  Txt1(Index).BackColor = &HFFFF80
  Txt1(Index).SelStart = 0
  Txt1(Index).SelLength = Len(Txt1(Index))
End Sub

Private Sub Txt1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
 'Txt1控件数据按回车键
  If KeyCode = vbKeyReturn And Index < 3 Then
     If Index = 3 Then Exit Sub
     Txt1(Index + 1).SetFocus
  End If
End Sub

Private Sub Txt1_LostFocus(Index As Integer)
  'Txt1控件数据失去焦点
  Txt1(Index).BackColor = &HFFFFFF
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.key
     Case "add"   '添加
       blnAdd = True
       tlbState Toolbar1, True
       rs1.Open "select * from tb_Client_khjb order by khjb_id", cnn, adOpenStatic
       If rs1.RecordCount > 0 Then
          rs1.MoveLast
          Txt1(0) = "KJB" + Format(Val(Right(Trim(rs1.Fields("khjb_id")), 3)) + 1, "###000")   '编号自动加1
       Else
          Txt1(0) = "KJB001"
       End If
       rs1.Close
       For i = 1 To Txt1.UBound
           Txt1(i) = ""
           Txt1(i).Locked = False
       Next i

       For i = 1 To Txt1.UBound
         Txt1(i).Enabled = True
       Next i
       Txt1(1).SetFocus
     Case "modify"   '修改
       If Adodc1.Recordset.RecordCount > 0 Then
         blnAdd = False
         tlbState Toolbar1, True
         For i = 1 To Txt1.UBound
             Txt1(i).Locked = False
         Next i
         view_data
         mybookmark = Dgr_Khjb.Bookmark
         For i = 1 To Txt1.UBound
           Txt1(i).Enabled = True
         Next i
         Else
         MsgBox "系统没有要修改的数据！", , "提示窗口"
       End If
     Case "delete"    '删除
       If Adodc1.Recordset.RecordCount > 0 Then
         Dim rs2 As New ADODB.Recordset
         rs2.Open "select * from tb_khxx where khxx_khjb='" + Adodc1.Recordset.Fields("khjb_jbmc") + "'", cnn, adOpenKeyset
         If rs2.RecordCount > 0 Then
            MsgBox "该信息正被使用，不能删除！", , "信息提示"
            Exit Sub
         Else
         Adodc1.Recordset.Delete
         Adodc1.Refresh
         For i = 0 To Txt1.UBound
           Txt1(i).Text = ""
         Next i
         Call view_data
         Call Dgr_Title
         End If
       Else
         MsgBox "系统没有要删除的数据！", , "提示窗口"
       End If
     Case "save"   '保存
       On Error GoTo SaveErr
       If Txt1(0).Text = "" Then
          MsgBox "系统不允许" & Label1 & "为空！", , "提示窗口"
          Exit Sub
       End If
       If Not IsNumeric(Txt1(2).Text) Then
          MsgBox "请输入正确的业务量信息", , "提示窗口"
          Exit Sub
       End If
        If blnAdd = True Then    '添加新记录
          cnn.Execute ("insert into tb_Client_khjb(khjb_id,khjb_jbmc,khjb_zdywl,khjb_bz) values('" + Txt1(0) + _
          "','" + Txt1(1) + "','" + Txt1(2) + "','" + Txt1(3) + "')")
''          Adodc1.Refresh
'          Unload Me
'          Frm_Jcxxwh_Khjb.Show
          Adodc1.Refresh
          Set Dgr_Khjb.DataSource = Adodc1
          Call Dgr_Title
          tlbState Toolbar1, False
          For i = 1 To Txt1.UBound
            Txt1(i).Locked = True
          Next i
        Else    '修改原有记录
          cnn.Execute ("update tb_Client_khjb set khjb_jbmc ='" + Txt1(1) + "',khjb_zdywl ='" + Txt1(2) + "',khjb_bz='" + Txt1(3) + "'where khjb_id='" + Txt1(0).Text + "'")
''          Adodc1.Refresh
'          Unload Me
'          Frm_Jcxxwh_Khjb.Show
          Adodc1.Refresh
          Set Dgr_Khjb.DataSource = Adodc1
          Call Dgr_Title
          Dgr_Khjb.Bookmark = mybookmark
          tlbState Toolbar1, False
          For i = 1 To Txt1.UBound
            Txt1(i).Locked = True
          Next i
        End If
        Exit Sub
SaveErr:   '出错处理
        MsgBox Err.Description, , "信息提示"
     Case "cancel"  ' 取消
       tlbState Toolbar1, False
       For i = 1 To Txt1.UBound
           Txt1(i).Locked = True
       Next i
       Call view_data
     Case "find"    '　查询
       Mystr = InputBox("请输入要查询的客户级别编号", "客户级别查询", "KJB001")
       rs1.Open "select * from tb_Client_khjb where khjb_id ='" + Mystr + "'", cnn, adOpenKeyset
       If rs1.RecordCount > 0 Then
         For i = 0 To rs1.Fields.Count - 1
           If rs1.Fields(i) <> "" Then
               Txt1(i).Text = rs1.Fields(i)
           Else
               Txt1(i).Text = ""
           End If
         Next i
       End If
       rs1.Close
     Case "close"   '关闭
       Unload Me
  End Select
 End Sub