frmfactory.frm

VB编写的超市管理系统

VERSION 5.00
Begin VB.Form frmFactory 
   BackColor       =   &H00C0FFC0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "供应商设置"
   ClientHeight    =   4140
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7110
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4140
   ScaleWidth      =   7110
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdFind 
      Caption         =   "查找"
      Height          =   375
      Left            =   360
      TabIndex        =   12
      Top             =   3360
      Width           =   1095
   End
   Begin VB.TextBox txtNet 
      Height          =   285
      Left            =   2640
      TabIndex        =   11
      Top             =   2640
      Width           =   2415
   End
   Begin VB.TextBox txtTel 
      Height          =   285
      Left            =   2640
      TabIndex        =   10
      Top             =   2160
      Width           =   2415
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "关闭"
      Height          =   375
      Left            =   5640
      TabIndex        =   7
      Top             =   3360
      Width           =   1095
   End
   Begin VB.CommandButton cmdModify 
      Caption         =   "修改"
      Height          =   375
      Left            =   4320
      TabIndex        =   6
      Top             =   3360
      Width           =   1095
   End
   Begin VB.CommandButton cmdDel 
      Caption         =   "删除"
      Height          =   375
      Left            =   3000
      TabIndex        =   5
      Top             =   3360
      Width           =   1095
   End
   Begin VB.ComboBox cboFactory 
      Height          =   315
      Left            =   2640
      TabIndex        =   4
      Top             =   1560
      Width           =   2415
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "添加"
      Height          =   375
      Left            =   1680
      TabIndex        =   3
      Top             =   3360
      Width           =   1095
   End
   Begin VB.ComboBox cboProvince 
      Height          =   315
      Left            =   2640
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   960
      Width           =   2415
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "网址"
      Height          =   255
      Index           =   3
      Left            =   1440
      TabIndex        =   9
      Top             =   2640
      Width           =   375
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "联系方式"
      Height          =   255
      Index           =   2
      Left            =   1440
      TabIndex        =   8
      Top             =   2160
      Width           =   855
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "厂名*："
      Height          =   255
      Index           =   1
      Left            =   1440
      TabIndex        =   2
      Top             =   1680
      Width           =   615
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "省份*："
      Height          =   255
      Index           =   0
      Left            =   1440
      TabIndex        =   0
      Top             =   1080
      Width           =   1095
   End
End
Attribute VB_Name = "frmFactory"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Sql As String
Dim RS As ADODB.Recordset
Private Sub cboProvince_click()
'厂名的添加
Sql = "select 厂名 from 生产厂家表 where 省份='" & Trim(Me.cboProvince.Text) & "'"
Set RS = dbSelect(Sql)
Me.cboFactory.Clear
While Not RS.EOF
    Me.cboFactory.AddItem RS.Fields(0)
    RS.MoveNext
Wend
RS.Close
End Sub
Private Sub cmdAdd_Click()
'添加
If Trim(Me.cboFactory.Text) <> "" And Trim(Me.cboProvince.Text) <> "" Then
    Sql = "select * from 生产厂家表 where 省份='" & Trim(Me.cboProvince.Text)
    Sql = Sql & "' and 厂名='" & Trim(Me.cboFactory.Text) & "'"
    Set RS = dbSelect(Sql)
    If RS.EOF Then
        Sql = "insert into 生产厂家表 values('" & Trim(Me.cboProvince.Text)
        Sql = Sql & "','" & Trim(Me.cboFactory.Text)
        Sql = Sql & "','" & Trim(txtTel.Text)
        Sql = Sql & "','" & Trim(Me.txtNet.Text)
        Sql = Sql & "')"
        dbOperate Sql
    Else
        MsgBox "库中已有此数据!"
    End If
        RS.Close
Else
    MsgBox "主键不能为空！"
End If
End Sub
Private Sub cmdDel_Click()
On Error Resume Next
'删除数据
If Trim(Me.cboFactory.Text) <> "" And Trim(Me.cboProvince.Text) <> "" Then
    Sql = "select * from 生产厂家表 where 省份='" & Trim(Me.cboProvince.Text)
    Sql = Sql & "' and 厂名='" & Trim(Me.cboFactory.Text) & "'"
    Set RS = dbSelect(Sql)
    If Not RS.EOF Then
        Sql = "delete from 生产厂家表 where 省份='" & Trim(Me.cboProvince.Text)
        Sql = Sql & "' and 厂名='" & Trim(Me.cboFactory.Text) & "'"
        dbOperate Sql
    Else
        MsgBox "库中无此数据!"
    End If
        RS.Close
Else
    MsgBox "主键不能为空！"
End If
End Sub

Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdFind_Click()
'查找
On Error Resume Next
If Trim(Me.cboFactory.Text) <> "" And Trim(Me.cboProvince.Text) <> "" Then
    Sql = "select * from 生产厂家表 where 省份='" & Trim(Me.cboProvince.Text)
    Sql = Sql & "' and 厂名='" & Trim(Me.cboFactory.Text) & "'"
    Set RS = dbSelect(Sql)
    If Not RS.EOF Then
        Me.txtTel.Text = RS.Fields(2)
        Me.txtNet.Text = RS.Fields(3)
    Else
        MsgBox "库中无此数据!"
    End If
        RS.Close
Else
    MsgBox "主键不能为空！"
End If
End Sub
Private Sub cmdModify_Click()
On Error Resume Next
'修改
If Trim(Me.cboFactory.Text) <> "" And Trim(Me.cboProvince.Text) <> "" Then
    Sql = "select * from 生产厂家表 where 省份='" & Trim(Me.cboProvince.Text)
    Sql = Sql & "' and 厂名='" & Trim(Me.cboFactory.Text) & "'"
    Set RS = dbSelect(Sql)
    If Not RS.EOF Then
        Sql = "update 生产厂家表 set 联系方式='" & Trim(Me.txtTel.Text)
        Sql = Sql & "',网址='" & Trim(Me.txtNet.Text)
        Sql = Sql & "' where 省份='" & Trim(Me.cboProvince.Text)
        Sql = Sql & "' and 厂名='" & Trim(Me.cboFactory.Text) & "'"
        dbOperate Sql
    Else
        MsgBox "库中无此数据!"
    End If
        RS.Close
Else
    MsgBox "主键不能为空！"
End If
End Sub

Private Sub Form_Load()
'初始化数据
Sql = "select 省名 from 省份表"
Set RS = dbSelect(Sql)
While Not RS.EOF
    Me.cboProvince.AddItem RS.Fields(0)
    RS.MoveNext
Wend
Set RS = Nothing
End Sub