frmstock_laurm.frm

< 飞鸿商品>>零售是基于VB+SQL2000开的商品零售管理系统. 开发的很好.可以一看

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form frmStock_laurm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "库存报警"
   ClientHeight    =   6540
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5820
   Icon            =   "frmStock_laurm.frx":0000
   MDIChild        =   -1  'True
   ScaleHeight     =   6540
   ScaleWidth      =   5820
   Begin Manage.xpcmdbutton cmdPrint 
      Height          =   465
      Left            =   1170
      TabIndex        =   2
      Top             =   5700
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   820
      Caption         =   "打  印"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin Manage.xpcmdbutton cmdClose 
      Height          =   465
      Left            =   3360
      TabIndex        =   1
      Top             =   5700
      Width           =   1335
      _ExtentX        =   2355
      _ExtentY        =   820
      Caption         =   "关  闭"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSFlexGridLib.MSFlexGrid Grid 
      Height          =   5325
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   5685
      _ExtentX        =   10028
      _ExtentY        =   9393
      _Version        =   393216
      FixedCols       =   0
      Appearance      =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00C0C0C0&
      Index           =   1
      X1              =   5340
      X2              =   5340
      Y1              =   5580
      Y2              =   6360
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00FFFFFF&
      Index           =   0
      X1              =   360
      X2              =   360
      Y1              =   5550
      Y2              =   6330
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00C0C0C0&
      Index           =   1
      X1              =   360
      X2              =   5340
      Y1              =   6330
      Y2              =   6330
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      Index           =   0
      X1              =   360
      X2              =   5370
      Y1              =   5550
      Y2              =   5580
   End
End
Attribute VB_Name = "frmStock_laurm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdClose_Click()
  Unload Me
End Sub

Private Sub Form_Load()
Dim SQL As String

SQL = "SELECT * From v_stock_less Union SELECT * FROM v_stock_more"
FillGrid " 商品编码|^ 商品名称|^ 当前库存|^ 报警类型", SQL, Grid, 4

End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set frmStock_laurm = Nothing
End Sub