frmchakanku.frm

一个用VB写的服装进销存源码

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmchakanku 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查看库存"
   ClientHeight    =   5325
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   8355
   Icon            =   "frmchakanku.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5325
   ScaleWidth      =   8355
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdclose 
      Caption         =   "关闭窗口(&C)"
      Height          =   375
      Left            =   6840
      TabIndex        =   8
      Top             =   3120
      Width           =   1335
   End
   Begin VB.CommandButton cmdqing 
      Caption         =   "清空显示(&K)"
      Height          =   375
      Left            =   6840
      TabIndex        =   7
      Top             =   2640
      Width           =   1335
   End
   Begin VB.CommandButton cmdquan 
      Caption         =   "查看全部(&Q)"
      Height          =   375
      Left            =   6840
      TabIndex        =   6
      Top             =   2160
      Width           =   1335
   End
   Begin VB.CommandButton cmdcha 
      Caption         =   "查询记录(&F)"
      Height          =   375
      Left            =   6840
      TabIndex        =   1
      Top             =   1680
      Width           =   1335
   End
   Begin VB.TextBox txtcha 
      Height          =   375
      Left            =   6720
      TabIndex        =   0
      Top             =   1200
      Width           =   1575
   End
   Begin VB.Frame Frame1 
      Caption         =   "显示结果"
      Height          =   4635
      Left            =   120
      TabIndex        =   2
      Top             =   600
      Width           =   6555
      Begin MSFlexGridLib.MSFlexGrid Grid1 
         Height          =   4215
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   6315
         _ExtentX        =   11139
         _ExtentY        =   7435
         _Version        =   393216
         Cols            =   5
         ScrollTrack     =   -1  'True
         FocusRect       =   0
         SelectionMode   =   1
         AllowUserResizing=   3
         Appearance      =   0
      End
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "请在此输入编号"
      Height          =   180
      Left            =   6840
      TabIndex        =   5
      Top             =   960
      Width           =   1260
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "库存记录"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   3120
      TabIndex        =   4
      Top             =   120
      Width           =   1800
   End
End
Attribute VB_Name = "frmchakanku"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdcha_Click() '查询按钮功能
Dim rs As New ADODB.Recordset
Dim sql As String
     If Trim(txtcha.Text) = "" Then
        MsgBox "查询内容不能为空!", 48, "信息提示"
        txtcha.SetFocus
        Exit Sub
     End If
     
     sql = "select " & sqlziduan2 & " from Huopin where hNo like '%" & Trim(txtcha.Text) & "%' order by hNo"
     rs.open sql, cn
     If rs.RecordCount < 1 Then
        MsgBox "查无此编号信息!", 48, "信息提示"
        txtcha.Text = ""
        txtcha.SetFocus
        Exit Sub
     End If
     fuzhi Grid1, rs
     
End Sub



Private Sub cmdclose_Click()
    Unload Me
End Sub

Private Sub cmdqing_Click()
    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select " & sqlziduan2 & " from huopin where hNo=''"
    rs.open sql, cn
    fuzhi Grid1, rs
End Sub

Private Sub cmdQuan_Click()
    Dim rs As New ADODB.Recordset
    Dim sql As String
    sql = "select " & sqlziduan2 & " from Huopin order by hNo"
    rs.open sql, cn
    fuzhi Grid1, rs
End Sub


Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim strsql As String

    strsql = "select " & sqlziduan2 & " from huopin order by hNo"
    rs.open strsql, cn

    fuzhi Grid1, rs
End Sub
Private Sub txtcha_KeyPress(KeyAscii As Integer)
    If Trim(txtcha.Text) <> "" And KeyAscii = 13 Then
        cmdcha_Click
    End If
    
End Sub