bjshow.frm

本系统特为行业报价、订单、产品管理与客户关系管理所订制

VERSION 5.00
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Object = "{4F29B06F-16D9-4A0C-9C8A-2F0C02F625FE}#1.7#0"; "FlexCell.ocx"
Begin VB.Form bjshow 
   Caption         =   "库存报警显示"
   ClientHeight    =   5370
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7695
   Icon            =   "bjshow.frx":0000
   LinkTopic       =   "Form3"
   ScaleHeight     =   5370
   ScaleWidth      =   7695
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin FlexCell.Grid Grid1 
      Height          =   4575
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   5775
      _ExtentX        =   10186
      _ExtentY        =   8070
      Cols            =   9
      DisplayRowIndex =   -1  'True
      ExtendLastCol   =   -1  'True
      Rows            =   1
   End
   Begin ACTIVESKINLibCtl.Skin Skn1 
      Left            =   0
      OleObjectBlob   =   "bjshow.frx":000C
      Top             =   0
   End
End
Attribute VB_Name = "bjshow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/10
'描    述：商品综合管理系统 Sql2000版
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Sub Form_Load()
Skn1.LoadSkin App.Path & sknPname
Skn1.ApplySkinByName hWnd, "窗体"
Skn1.ApplySkin hWnd
With Grid1
.OpenFile ("bjgrid.cel")
End With
bj_show
End Sub
Private Sub bj_show()
Set Qy1 = cnn.Execute("select * from p_message where jnum<=zxbj or jnum>=zdbj")
With Grid1
 .Rows = 1
 Do While Not Qy1.EOF
  .Rows = .Rows + 1
  .Cell(.Rows - 1, 1).Text = Qy1.Fields(0)
  .Cell(.Rows - 1, 2).Text = Qy1.Fields(1)
  .Cell(.Rows - 1, 3).Text = Qy1.Fields(2)
  .Cell(.Rows - 1, 4).Text = Qy1.Fields(3)
  .Cell(.Rows - 1, 5).Text = Qy1.Fields(4)
  .Cell(.Rows - 1, 6).Text = Qy1.Fields(5)
  .Cell(.Rows - 1, 7).Text = Qy1.Fields(8)
  .Cell(.Rows - 1, 8).Text = Qy1.Fields(9)
  .Cell(.Rows - 1, 9).Text = Qy1.Fields(10)
  Qy1.MoveNext
 Loop
End With
End Sub
Private Sub Form_Resize()
If Me.WindowState <> 1 Then
Grid1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End If
End Sub