frmjhjl.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmjhjl 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "进货记录"
   ClientHeight    =   5400
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7470
   Icon            =   "frmjhjl.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5400
   ScaleWidth      =   7470
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Caption         =   "显示结果"
      Height          =   4275
      Left            =   120
      TabIndex        =   6
      Top             =   600
      Width           =   7215
      Begin MSFlexGridLib.MSFlexGrid Grid1 
         Height          =   3855
         Left            =   120
         TabIndex        =   7
         Top             =   240
         Width           =   6975
         _ExtentX        =   12303
         _ExtentY        =   6800
         _Version        =   393216
         Cols            =   7
         ScrollTrack     =   -1  'True
         FocusRect       =   0
         SelectionMode   =   1
         AllowUserResizing=   3
         Appearance      =   0
      End
   End
   Begin VB.CommandButton cmdclose 
      Caption         =   "关闭(&C)"
      Height          =   375
      Left            =   6120
      TabIndex        =   5
      Top             =   4920
      Width           =   1215
   End
   Begin VB.CommandButton cmdrefresh 
      Caption         =   "刷新记录(&R)"
      Height          =   375
      Left            =   4800
      TabIndex        =   4
      Top             =   4920
      Width           =   1215
   End
   Begin VB.CommandButton cmddel 
      Caption         =   "删除(&D)"
      Height          =   375
      Left            =   3480
      TabIndex        =   3
      Top             =   4920
      Width           =   1215
   End
   Begin VB.CommandButton cmdquan 
      Caption         =   "显示全部(&A)"
      Height          =   375
      Left            =   2160
      TabIndex        =   1
      Top             =   4920
      Width           =   1215
   End
   Begin VB.CommandButton cmdsou 
      Caption         =   "搜"
      BeginProperty Font 
         Name            =   "华文行楷"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      TabIndex        =   0
      Top             =   4920
      Width           =   495
   End
   Begin MSComCtl2.DTPicker dt 
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   4920
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   661
      _Version        =   393216
      Format          =   25296897
      CurrentDate     =   38980
   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            =   2760
      TabIndex        =   8
      Top             =   120
      Width           =   1800
   End
End
Attribute VB_Name = "frmjhjl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdclose_Click()
    Unload Me
End Sub

Private Sub Command1_Click()

End Sub

Private Sub cmddel_Click()
    If Grid1.TextMatrix(Grid1.Row, 0) = "" Then
        MsgBox "没有可以删除的记录。", 48, "提示信息"
        Exit Sub
    End If
    If MsgBox("您确实要删除这条记录吗？", 36, "提示信息") = vbNo Then
        Exit Sub
    End If
    cn.Execute "delete from jinhuojilu where JID=" & Grid1.TextMatrix(Grid1.Row, 0)
    If Grid1.rows = 2 Then
        Grid1.rows = 1
        Grid1.rows = 2
    Else
        Grid1.RemoveItem Grid1.Row
    End If
End Sub
Private Sub cmdrefresh_Click()
    Dim rs As New ADODB.Recordset
    Dim strsql As String
    strsql = "select " & sqlziduan4 & " from jinhuojilu where Jshijian like '%" & dt.Value & "%' order by JNo"
    rs.open strsql, cn
    fuzhi Grid1, rs
End Sub

Private Sub cmdsou_Click()
    Dim rs As New ADODB.Recordset
    Dim strsql As String
    strsql = "select " & sqlziduan4 & " from jinhuojilu where Jshijian like '%" & dt.Value & "%' order by JNo"
    rs.open strsql, cn
    fuzhi Grid1, rs
    
End Sub
Private Sub Form_Load()
If ifmana = False Then
    cmdDel.Enabled = False
End If
dt.Value = Format(Date, "yyyy-mm-dd")
Dim rs As New ADODB.Recordset
Dim strsql As String
    strsql = "select " & sqlziduan4 & " from jinhuojilu order by JNo"
    rs.open strsql, cn
    fuzhi Grid1, rs

End Sub
Private Sub cmdQuan_Click() '全部查看按钮
    Dim rs As New ADODB.Recordset

    rs.open "select " & sqlziduan4 & " from jinhuojilu order by JNo", cn
    fuzhi Grid1, rs
End Sub