frmconfig.frm

为一个公司

      itmX.SubItems(2) = !dh & ""
      itmX.SubItems(3) = !dz & ""
      itmX.SubItems(4) = !yb & ""
      .MoveNext
    Wend
    .Close
  End With
End Sub

'load商品库信息(table:spzd,gyszd)
Public Sub lvwSpk_Fill()
  Dim itmX 'As ListItem
  
  lvwSpk.ListItems.Clear
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select spzd.spzd_key,spzd.spdm,spzd.spmc,spzd.scdd,gyszd.gys from spzd,gyszd where spzd.gyszd_key=gyszd.gyszd_key"
    If Not .BOF Then .MoveFirst
    While Not .EOF
      Set itmX = lvwSpk.ListItems.Add(, "spzd" & CStr(!spzd_key), !spdm & "")
      itmX.SubItems(1) = !spmc & ""
      itmX.SubItems(2) = !scdd & ""
      itmX.SubItems(3) = !gys & ""
      .MoveNext
    Wend
    .Close
  End With
End Sub

'load用户信息(table:userinfo)
Public Sub lvwUser_Fill()
  Dim itmX 'As ListItem
  
  lvwUser.ListItems.Clear
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select * from userinfo"
    If Not .BOF Then .MoveFirst
    While Not .EOF
      Set itmX = lvwUser.ListItems.Add(, "user" & CStr(!user_key), !user_id & "")
      If !user_level = "0" Then
        itmX.SubItems(1) = "管理员"
      Else
        itmX.SubItems(1) = "操作员"
      End If
      .MoveNext
    Wend
    .Close
  End With
End Sub

Private Sub cmbGys_Click()
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select * from gyszd where gys='" & cmbGys.Text & "'"
    If .BOF And .EOF Then
      intGysKey = 0
    Else
      intGysKey = !gyszd_key
    End If
    .Close
  End With
End Sub

'供应商 添加
Private Sub cmdAdd_g_Click()
  Dim intKey As Integer
  Dim itmX 'As ListItem
  
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select * from gyszd"
    .AddNew
    !gys = Trim(txtGys.Text)    '供应商
    !lxr = Trim(txtLxr_g.Text)  '联系人
    !dh = Trim(txtDh_g.Text)    '电话
    !dz = Trim(txtDz_g.Text)    '地址
    !yb = Trim(txtYb_g.Text)    '邮编
    .Update
    intKey = !gyszd_key
    .Close
  End With
  Set itmX = lvwGys.ListItems.Add(, "gyszd" & CStr(intKey), Trim(txtGys.Text))
  itmX.SubItems(1) = Trim(txtLxr_g.Text)
  itmX.SubItems(2) = Trim(txtDh_g.Text)
  itmX.SubItems(3) = Trim(txtDz_g.Text)
  itmX.SubItems(4) = Trim(txtYb_g.Text)
  txtGys.Text = ""
  txtLxr_g.Text = ""
  txtDh_g.Text = ""
  txtDz_g.Text = ""
  txtYb_g.Text = ""
End Sub

'客户 添加
Private Sub cmdAdd_k_Click()
  Dim intKey As Integer
  Dim itmX 'As ListItem
  
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select * from khzd"
    .AddNew
    !khmc = Trim(txtKhm.Text)    '客户名称
    !lxr = Trim(txtLxr_g.Text)  '联系人
    !dh = Trim(txtDh_g.Text)    '电话
    !dz = Trim(txtDz_g.Text)    '地址
    !yb = Trim(txtYb_g.Text)    '邮编
    .Update
    intKey = !khzd_key
    .Close
  End With
  Set itmX = lvwKh.ListItems.Add(, "khzd" & CStr(intKey), Trim(txtKhm.Text))
  itmX.SubItems(1) = Trim(txtLxr_k.Text)
  itmX.SubItems(2) = Trim(txtDh_k.Text)
  itmX.SubItems(3) = Trim(txtDz_k.Text)
  itmX.SubItems(4) = Trim(txtYb_k.Text)
  txtKhm.Text = ""
  txtLxr_k.Text = ""
  txtDh_k.Text = ""
  txtDz_k.Text = ""
  txtYb_k.Text = ""
End Sub

'商品库 添加
Private Sub cmdAdd_s_Click()
  Dim intKey As Integer
  Dim itmX 'As ListItem
  
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select * from spzd"
    .AddNew
    !spdm = Trim(txtSpdm.Text)    '商品代码
    !spmc = Trim(txtSpmc.Text)    '商品名称
    !scdd = Trim(txtSpcd.Text)    '产地
    !gyszd_key = intGysKey
    .Update
    intKey = !spzd_key
    .Close
  End With
  Set itmX = lvwSpk.ListItems.Add(, "spzd" & CStr(intKey), Trim(txtSpdm.Text))
  itmX.SubItems(1) = Trim(txtSpmc.Text)
  itmX.SubItems(2) = Trim(txtSpcd.Text)
  itmX.SubItems(3) = Trim(cmbGys.Text)
  txtSpdm.Text = ""
  txtSpmc.Text = ""
  txtSpcd.Text = ""
End Sub

Private Sub cmdAdd_u_Click()
  Dim itmX 'As ListItem
  Dim strKey As String
  
  If gstrUser <> "管理员" Then
    MsgBox "必须是管理员身份才能进行用户登录信息的设置。", vbExclamation, "系统设置"
    Exit Sub
  End If
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select * from userinfo"
    .AddNew
    !user_id = Trim(txtUser.Text)
    !user_psd = Trim(txtPsd.Text)
    !user_level = cmbLevel.ListIndex
    .Update
    strKey = CStr(!user_key)
    .Close
  End With
  Set itmX = lvwUser.ListItems.Add(, "user" & strKey, Trim(txtUser.Text))
  If cmbLevel.ListIndex = 0 Then
    itmX.SubItems(1) = "管理员"
  Else
    itmX.SubItems(1) = "操作员"
  End If
  txtUser.Text = ""
  txtPsd.Text = ""
End Sub

Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub cmdDelete_u_Click()
  If gstrUser <> "管理员" Then
    MsgBox "必须是管理员身份才能进行用户登录信息的设置。", vbExclamation, "系统设置"
    Exit Sub
  End If
  With rstMain
    If .State = adStateOpen Then .Close
    .Open "select * from userinfo where user_key=" & Mid(lvwUser.SelectedItem.Key, 5, Len(lvwUser.SelectedItem.Key) - 4)
    If Not .BOF Or Not .EOF Then
      .Delete
      .Update
      lvwUser.ListItems.Remove lvwUser.SelectedItem.Index
      lvwUser.Refresh
      cmdDelete_u.Enabled = False
    End If
    .Close
  End With
End Sub

Private Sub Form_Load()
  Dim clmX 'As ColumnHeader
  
  intGysKey = 0
  With cmbLevel
    .Clear
    .AddItem "管理员"
    .AddItem "操作员"
    .ListIndex = 1
  End With
  '///////////////////////////////////////////
  '初始化ListView控件
  With lvwGys
    .ColumnHeaders.Clear
    Set clmX = .ColumnHeaders.Add(, , "供应商", 2000)
    Set clmX = .ColumnHeaders.Add(, , "联系人", 1200)
    Set clmX = .ColumnHeaders.Add(, , "电话", 1200)
    Set clmX = .ColumnHeaders.Add(, , "地址", 1500)
    Set clmX = .ColumnHeaders.Add(, , "邮编", 1200)
  End With
  With lvwKh
    .ColumnHeaders.Clear
    Set clmX = .ColumnHeaders.Add(, , "客户名", 2000)
    Set clmX = .ColumnHeaders.Add(, , "联系人", 1200)
    Set clmX = .ColumnHeaders.Add(, , "电话", 1200)
    Set clmX = .ColumnHeaders.Add(, , "地址", 2000)
    Set clmX = .ColumnHeaders.Add(, , "邮编", 1200)
  End With
  With lvwSpk
    .ColumnHeaders.Clear
    Set clmX = .ColumnHeaders.Add(, , "商品代码", 1200)
    Set clmX = .ColumnHeaders.Add(, , "商品名称", 2500)
    Set clmX = .ColumnHeaders.Add(, , "产地", 1200)
    Set clmX = .ColumnHeaders.Add(, , "供应商", 2000)
  End With
  With lvwUser
    .ColumnHeaders.Clear
    Set clmX = .ColumnHeaders.Add(, , "用户名称", 1500)
    Set clmX = .ColumnHeaders.Add(, , "用户级别", 1700)
  End With
  '///////////////////////////////////////////
  lvwGys_Fill
  lvwKh_Fill
  lvwSpk_Fill
  lvwUser_Fill
End Sub

Private Sub lvwGys_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  If lvwGys.HitTest(x, y) Is Nothing Then
    cmdDelete_g.Enabled = False
  Else
    cmdDelete_g.Enabled = True
  End If
End Sub

Private Sub lvwKh_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  If lvwKh.HitTest(x, y) Is Nothing Then
    cmdDelete_k.Enabled = False
  Else
    cmdDelete_k.Enabled = True
  End If
End Sub

Private Sub lvwSpk_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  If lvwSpk.HitTest(x, y) Is Nothing Then
    cmdDelete_s.Enabled = False
  Else
    cmdDelete_s.Enabled = True
  End If
End Sub

Private Sub lvwUser_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  If lvwUser.HitTest(x, y) Is Nothing Then
    cmdDelete_u.Enabled = False
  Else
    If lvwUser.HitTest(x, y).Text = "管理员" Then
      cmdDelete_u.Enabled = False
    Else
      cmdDelete_u.Enabled = True
    End If
  End If
End Sub

Private Sub SSTab_Click(previoustab As Integer)
  Select Case SSTab.Tab
  Case 0
    lbl.Caption = "[供应商]、[联系人] 必填"
  Case 1
    lbl.Caption = "[客户名]、[联系人] 必填"
  Case 2
    lbl.Caption = "[商品代码]、[商品名称] 必填"
    With rstMain
      If .State = adStateOpen Then .Close
      .Open "select * from gyszd"
      cmbGys.Clear
      While Not .EOF
        cmbGys.AddItem !gys & ""
        .MoveNext
      Wend
      .Close
    End With
  End Select
End Sub

Private Sub txtGys_Change()
  If Trim(txtGys.Text) <> "" And Trim(txtLxr_g.Text) <> "" Then
    cmdAdd_g.Enabled = True
  Else
    cmdAdd_g.Enabled = False
  End If
End Sub

Private Sub txtKhm_Change()
  If Trim(txtKhm.Text) <> "" And Trim(txtLxr_k.Text) <> "" Then
    cmdAdd_k.Enabled = True
  Else
    cmdAdd_k.Enabled = False
  End If
End Sub

Private Sub txtLxr_g_Change()
  If Trim(txtGys.Text) <> "" And Trim(txtLxr_g.Text) <> "" Then
    cmdAdd_g.Enabled = True
  Else
    cmdAdd_g.Enabled = False
  End If
End Sub

Private Sub txtLxr_k_Change()
  If Trim(txtKhm.Text) <> "" And Trim(txtLxr_k.Text) <> "" Then
    cmdAdd_k.Enabled = True
  Else
    cmdAdd_k.Enabled = False
  End If
End Sub

Private Sub txtSpdm_Change()
  If Trim(txtSpdm.Text) <> "" And Trim(txtSpmc.Text) <> "" Then
    cmdAdd_s.Enabled = True
  Else
    cmdAdd_s.Enabled = False
  End If
End Sub

Private Sub txtSpmc_Change()
  If Trim(txtSpdm.Text) <> "" And Trim(txtSpmc.Text) <> "" Then
    cmdAdd_s.Enabled = True
  Else
    cmdAdd_s.Enabled = False
  End If
End Sub

Private Sub txtUser_Change()
  If Trim(txtUser.Text) <> "" And Trim(txtUser.Text) <> "管理员" Then
    cmdAdd_u.Enabled = True
  Else
    cmdAdd_u.Enabled = False
  End If
End Sub