allselectform.frm

电脑公司硬件销售管理系统

         X1              =   0
         X2              =   6360
         Y1              =   2040
         Y2              =   2040
      End
      Begin VB.Label LabDanWei 
         Caption         =   "(单位:元)"
         Height          =   255
         Left            =   3360
         TabIndex        =   8
         Top             =   2160
         Width           =   855
      End
      Begin VB.Label Label55 
         Caption         =   "(*)"
         Height          =   255
         Left            =   4200
         TabIndex        =   7
         Top             =   2160
         Width           =   255
      End
   End
   Begin VB.CommandButton CmdOk 
      Caption         =   "确  定"
      Height          =   375
      Left            =   5160
      TabIndex        =   5
      Top             =   240
      Width           =   975
   End
   Begin VB.CommandButton CmdEnd 
      Caption         =   "取  消"
      Height          =   375
      Left            =   5160
      TabIndex        =   4
      Top             =   720
      Width           =   975
   End
   Begin MSAdodcLib.Adodc Adodc1 
      Height          =   330
      Left            =   720
      Top             =   2760
      Width           =   2295
      _ExtentX        =   4048
      _ExtentY        =   582
      ConnectMode     =   0
      CursorLocation  =   3
      IsolationLevel  =   -1
      ConnectionTimeout=   15
      CommandTimeout  =   30
      CursorType      =   3
      LockType        =   3
      CommandType     =   8
      CursorOptions   =   0
      CacheSize       =   50
      MaxRecords      =   0
      BOFAction       =   0
      EOFAction       =   0
      ConnectStringType=   1
      Appearance      =   1
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Orientation     =   0
      Enabled         =   -1
      Connect         =   ""
      OLEDBString     =   ""
      OLEDBFile       =   ""
      DataSourceName  =   ""
      OtherAttributes =   ""
      UserName        =   ""
      Password        =   ""
      RecordSource    =   ""
      Caption         =   "Adodc1"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      _Version        =   393216
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   3480
      TabIndex        =   3
      Top             =   120
      Width           =   1215
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   1080
      TabIndex        =   1
      Text            =   "请选择"
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label Label4 
      Height          =   255
      Left            =   1080
      TabIndex        =   33
      Top             =   1200
      Width           =   5055
   End
   Begin VB.Label Label3 
      Height          =   255
      Left            =   3600
      TabIndex        =   32
      Top             =   840
      Width           =   1335
   End
   Begin VB.Label Label2 
      Height          =   255
      Left            =   1080
      TabIndex        =   31
      Top             =   840
      Width           =   1095
   End
   Begin VB.Label Label1 
      Height          =   255
      Left            =   1080
      TabIndex        =   30
      Top             =   480
      Width           =   1095
   End
   Begin VB.Label LabName 
      Caption         =   "客户姓名："
      Height          =   255
      Left            =   120
      TabIndex        =   29
      Top             =   840
      Width           =   975
   End
   Begin VB.Label LabPhone 
      Caption         =   "联系电话："
      Height          =   255
      Left            =   2640
      TabIndex        =   28
      Top             =   840
      Width           =   1215
   End
   Begin VB.Label LabAddress 
      Caption         =   "联系地址："
      Height          =   255
      Left            =   120
      TabIndex        =   27
      Top             =   1200
      Width           =   1095
   End
   Begin VB.Label LabDate 
      Caption         =   "购机日期："
      Height          =   255
      Left            =   120
      TabIndex        =   26
      Top             =   480
      Width           =   975
   End
   Begin VB.Label LabDATA 
      Height          =   255
      Left            =   1080
      TabIndex        =   25
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label LabFindTxt 
      Caption         =   "查询内容："
      Height          =   375
      Left            =   2520
      TabIndex        =   2
      Top             =   120
      Width           =   1095
   End
   Begin VB.Label LabSelTxt 
      Caption         =   "请选择："
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   855
   End
End
Attribute VB_Name = "AllSelectForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用
'声明:
'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源代码
'  引起的一切纠纷(后果)与本站无关,请您尊重原作者的劳动成果！
'2.若本站在代码上有侵权之处请您与站长联系，站长会及时更正。
'网站：http://www.dapha.net
'论坛：http://www.5ivb.net
'Email:[e-mail]
'CopyRight 2001-2005 By dapha.net
'整理时间：2003-8-16 12:44:02


Private Sub CmdEnd_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    Dim StrConnect As String
    Dim strSQL As String
    If Me.Text1.Text = "" Then
        MsgBox "请输入查询内容！", vbOKOnly + 32, "金恒生计算机硬件公司管理系统"
        Me.Text1.SetFocus
        Exit Sub
    End If

    StrConnect = App.Path
    If Right(StrConnect, 1) <> "\" Then StrConnect = StrConnect + "\"
    StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & StrConnect & "\data\kji.bgh"
    Adodc1.ConnectionString = StrConnect
    Adodc1.CommandType = adCmdText
    strSQL = "select * from [computer] where " & Me.Combo1.Text & " = " & Chr$(34) & Me.Text1.Text & Chr$(34)
    Adodc1.RecordSource = strSQL
    Me.Adodc1.Refresh
    Me.Label1.Caption = Me.Adodc1.Recordset("购机日期")
    Me.Label2.Caption = Me.Adodc1.Recordset("客户姓名")
    Me.Label3.Caption = Me.Adodc1.Recordset("联系电话")
    Me.Label4.Caption = Me.Adodc1.Recordset("联系地址")
    Me.Label5.Caption = Me.Adodc1.Recordset("cpu")
    Me.Label6.Caption = Me.Adodc1.Recordset("主板")
    Me.Label7.Caption = Me.Adodc1.Recordset("内存")
    Me.Label8.Caption = Me.Adodc1.Recordset("硬盘")
    Me.Label9.Caption = Me.Adodc1.Recordset("显卡")
    Me.Label10.Caption = Me.Adodc1.Recordset("光驱")
    Me.Label11.Caption = Me.Adodc1.Recordset("软驱")
    Me.Label12.Caption = Me.Adodc1.Recordset("声卡")
    Me.Label13.Caption = Me.Adodc1.Recordset("键鼠")
    Me.Label14.Caption = Me.Adodc1.Recordset("音箱")
    Me.Label15.Caption = Me.Adodc1.Recordset("机箱")
    Me.Label16.Caption = Me.Adodc1.Recordset("其它")
    Me.Label17.Caption = Me.Adodc1.Recordset("显示器")
    Me.Label18.Caption = Me.Adodc1.Recordset("扫描仪")
    Me.Label19.Caption = Me.Adodc1.Recordset("打印机")
    Me.Label20.Caption = Me.Adodc1.Recordset("总计")

End Sub

Private Sub Form_Load()
    Dim StrConnect As String

    Me.Top = 0
    Me.Left = 0
    Me.Height = 4600
    Me.Width = 6450
    Me.Combo1.AddItem ("总计")
    Me.Combo1.AddItem ("客户姓名")
    Me.Combo1.AddItem ("联系电话")

End Sub

'统计结果：
'    注释共：1行