main_xtgl_mdgl.frm

珠宝为例

         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton ComEsc 
         BackColor       =   &H00C0C0C0&
         Caption         =   "[C]取消"
         Height          =   360
         Left            =   7410
         Style           =   1  'Graphical
         TabIndex        =   41
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton ComEnd 
         BackColor       =   &H00C0C0C0&
         Caption         =   "[X]退出"
         Height          =   360
         Left            =   8205
         Style           =   1  'Graphical
         TabIndex        =   40
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdMD 
         BackColor       =   &H00FFC0C0&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Index           =   3
         Left            =   2490
         Picture         =   "main_xtgl_mdgl.frx":24D6
         Style           =   1  'Graphical
         TabIndex        =   39
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdMD 
         BackColor       =   &H00FFC0C0&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Index           =   2
         Left            =   1695
         Picture         =   "main_xtgl_mdgl.frx":3A83
         Style           =   1  'Graphical
         TabIndex        =   38
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdMD 
         BackColor       =   &H00FFC0C0&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Index           =   1
         Left            =   900
         Picture         =   "main_xtgl_mdgl.frx":4F87
         Style           =   1  'Graphical
         TabIndex        =   37
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton CmdMD 
         BackColor       =   &H00FFC0C0&
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   360
         Index           =   0
         Left            =   105
         Picture         =   "main_xtgl_mdgl.frx":64B9
         Style           =   1  'Graphical
         TabIndex        =   36
         Top             =   195
         Width           =   800
      End
      Begin VB.CommandButton ComModify 
         BackColor       =   &H00C0C0C0&
         Caption         =   "[D]修改"
         Height          =   360
         Left            =   5025
         Style           =   1  'Graphical
         TabIndex        =   35
         Top             =   195
         Width           =   800
      End
   End
End
Attribute VB_Name = "main_xtgl_mdgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x, i
Public Sub viewdata()      '定义显示数据的函数
 For i = 0 To 16
  If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i) Else kh(i).Text = ""
 Next i
End Sub
Private Sub Form_Activate()
' 向combo1添加查询项目列表
  x = Array("门店编号", "门店全称", "简称", "地址", "所属地区", "邮政编码", "电话", "传真")
  For i = 0 To 7
   Combo1.AddItem (x(i))
  Next i
  Combo1.Text = "门店全称"
' 向combo2添加查询条件列表
  Combo2.AddItem ("like")
  Combo2.AddItem ("=")
  Combo2.AddItem (">")
  Combo2.AddItem ("<")
  Combo2.ListIndex = 0
'初始化给kh(i)赋值
  If Data1.Recordset.RecordCount > 0 Then
    Call viewdata       '调用函数
  End If
End Sub
Private Sub Form_Load()
  Data1.DatabaseName = App.Path & "\zbjxc.mdb"        '自动识别数据库路径
End Sub
Private Sub Form_Unload(Cancel As Integer)
  frm_main.Enabled = True
  Unload Me
End Sub
Private Sub ComFind_Click()
'查询门店信息
 Select Case Combo2.Text
  Case Is = "like"
    Data1.RecordSource = "select * from kh where (kh." & Combo1.Text & " " & "like " + Chr(34) + "*" + Text1.Text + "*" + Chr(34) + ")"
    Data1.Refresh
  Case Is = "="
    Data1.RecordSource = "select * from kh where (kh." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + Chr(34) + ")"
    Data1.Refresh
  Case Is = ">"
    Data1.RecordSource = "select * from kh where (kh." & Combo1.Text & " " & "like " + Chr(34) + Text1.Text + "*" + Chr(34) + ")"
    Data1.Refresh
  Case Is = "<"
    Data1.RecordSource = "select * from kh where (kh." & Combo1.Text & " " & "like " + Chr(34) + "*" + Text1.Text + Chr(34) + ")"
    Data1.Refresh
 End Select
 Call viewdata       '调用函数
End Sub
Private Sub kh_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
'回车获得焦点
 If KeyCode = vbKeyReturn And Index < 16 Then kh(Index + 1).SetFocus
 If KeyCode = vbKeyReturn And Index = 9 Then SSTab1.Tab = 1
 If KeyCode = vbKeyReturn And Index = 16 Then ComSaveM.SetFocus
End Sub
Private Sub SSTab1_Click(PreviousTab As Integer)
 If Data1.Recordset.RecordCount > 0 Then
    If SSTab1.Tab = 2 And ComAdd.Enabled = False Then
       MsgBox ("您正在处理数据,请取消数据处理,在执行本操作!")
       SSTab1.Tab = 0
     Else
    End If
 End If
End Sub
Private Sub CmdMD_Click(Index As Integer)
 Select Case Index
 Case Is = 0
  If Not Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
 Case Is = 1
  If Data1.Recordset.RecordCount <> 0 Then
   If Data1.Recordset.BOF = False Then Data1.Recordset.MovePrevious
   If Data1.Recordset.BOF = True Then Data1.Recordset.MoveFirst
  End If
 Case Is = 2
  If Data1.Recordset.RecordCount <> 0 Then
   If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext
   If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast
  End If
 Case Is = 3
  If Data1.Recordset.RecordCount <> 0 Then
   If Data1.Recordset.EOF = False Then Data1.Recordset.MoveNext
   If Data1.Recordset.EOF = True Then Data1.Recordset.MoveLast
  End If
 End Select
  Call viewdata
End Sub
Private Sub ComAdd_Click()                           '允许用户添加新记录
  For i = 0 To 16
      kh(i).Text = ""
      kh(i).Enabled = True
  Next i
  ComSaveM.Visible = True: ComSaveA.Visible = False: ComSaveM.Enabled = True: ComEsc.Enabled = True
  For i = 0 To 3
   CmdMD(i).Enabled = False
  Next i
  ComAdd.Enabled = False: Commodify.Enabled = False: ComDelete.Enabled = False
  SSTab1.Tab = 0: kh(0).SetFocus
End Sub
Private Sub ComModify_Click()                           '允许用户修改记录
 If Data1.Recordset.RecordCount > 0 Then
  Data1.Recordset.Edit
  For i = 0 To 16
  kh(i).Enabled = True
  Next i
  ComSaveA.Visible = True: ComSaveA.Enabled = True: ComSaveM.Visible = False: ComEsc.Enabled = True
  For i = 0 To 3
   CmdMD(i).Enabled = False
  Next i
  ComAdd.Enabled = False: Commodify.Enabled = False: ComDelete.Enabled = False
 Else
  MsgBox ("没有要修改的数据!")
 End If
End Sub
Private Sub ComSaveA_Click()                           '保存修改记录
  Dim a As String
  a = MsgBox("您确实要修改这条数据吗?", vbYesNo)
  If a = vbYes Then
     Data1.Recordset.Edit
     For i = 0 To 16
         If kh(i).Text <> "" Then Data1.Recordset.Fields(i) = kh(i).Text
         kh(i).Enabled = False
     Next i
     ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
     For i = 0 To 3
      CmdMD(i).Enabled = True
     Next i
     Commodify.Enabled = True: ComDelete.Enabled = True: Data1.Recordset.Update
  End If
End Sub
Private Sub ComSaveM_Click()                           '保存新增记录
  Dim mydb As Database
  Dim myrs1 As Recordset
  If kh(0).Text <> "" And kh(1).Text <> "" Then
     Set mydb1 = Workspaces(0).OpenDatabase(App.Path & "\zbjxc.mdb")
     Set myrs1 = mydb1.OpenRecordset("kh", dbOpenTable)
     myrs1.AddNew
     For i = 0 To 16
         If kh(i).Text <> "" Then myrs1.Fields(i) = kh(i).Text
     Next i
     myrs1.Update: myrs1.Close: mydb1.Close: Data1.Refresh
     For i = 0 To 3
      CmdMD(i).Enabled = True
     Next i
     Commodify.Enabled = True: ComDelete.Enabled = True
     ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
    Else
  End If
End Sub
Private Sub ComDelete_Click()            '删除门店信息
 If Data1.Recordset.RecordCount > 0 Then
    a = MsgBox("您确实要删除这条数据吗?", vbYesNo)
    If a = vbYes Then
     Data1.Recordset.Delete
     Data1.Refresh
     For i = 0 To 3
      CmdMD(i).Enabled = True
     Next i
     Commodify.Enabled = True: ComDelete.Enabled = True
     ComSaveA.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
     For i = 0 To 16
         kh(i).Text = ""
     Next i
    End If
  Else
    MsgBox ("没有要删除的数据!")
 End If
End Sub
Private Sub ComEsc_Click()                '取消操作
 If Data1.Recordset.RecordCount > 0 Then
  For i = 0 To 16
      kh(i).Enabled = False
      If Data1.Recordset.Fields(i) <> "" Then kh(i).Text = Data1.Recordset.Fields(i)
  Next i
  For i = 0 To 3
   CmdMD(i).Enabled = True
  Next i
  Commodify.Enabled = True: ComDelete.Enabled = True: ComSaveA.Enabled = False
  ComSaveM.Enabled = False: ComEsc.Enabled = False: ComAdd.Enabled = True
 End If
End Sub
Private Sub Comend_Click()
  frm_main.Enabled = True
  Unload Me
End Sub