ku911.frm

VB+SQL开发的管理系统软件,希望能对学习写软件工程文档的同学们有所帮助 转载的新云软件的程序

VERSION 5.00
Object = "{DAAC6951-59A4-4C08-9D6E-FE3919B64861}#1.0#0"; "FlexCell.ocx"
Begin VB.Form ku911 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "库存报警"
   ClientHeight    =   6105
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9555
   Icon            =   "ku911.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6105
   ScaleWidth      =   9555
   StartUpPosition =   1  '所有者中心
   Begin FlexCell.Grid Grid1 
      Height          =   6135
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9615
      _ExtentX        =   16960
      _ExtentY        =   10821
      Appearance      =   0
      Cols            =   10
      Rows            =   1
   End
End
Attribute VB_Name = "ku911"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Grid1.SetRegisterInformation "CNwinndy", "W]vyY-nonvk-u\nty-Zbl_e-`hms^" '进行注册
Grid1.Column(0).Width = 50
Grid1.Column(3).Width = 115
Grid1.Column(4).Width = 100
Grid1.Column(8).Width = 100
Grid1.Column(9).Width = 100
Grid1.BackColorFixed = RGB(251, 226, 124)
yxsql = "select * from 库存 where 数量<=最小报警库存 or 数量>=最大报警库存"
yxnumber = 10 '设定库存表中有多少个字段，在这里使用变量是防止以后程序修改后只需要修改
              '这个关键字就可以了
Grid1.Cols = yxnumber + 1
Set yx2 = cnn.Execute(yxsql) '执行某一SQL语句，并将结果返回到记录集YX2
For i = 1 To Grid1.Cols - 1
Grid1.Cell(0, i).Text = yx2.Fields(i - 1).Name
Next
yxkusee
End Sub
Private Sub yxkusee() '这里是通过引入的SQL语句来执行数据的显示
Set yx2 = cnn.Execute(yxsql)
Do While Not yx2.EOF '当YX2记录集未到结尾时执行
Grid1.Rows = Grid1.Rows + 1
Grid1.Cell(Grid1.Rows - 1, 0).Text = Grid1.Rows - 1
 For j = 1 To Grid1.Cols - 1 '设定读取列
 If Not yx2.Fields(j - 1) Is Nothing Then '空值的处理
  Grid1.Cell(Grid1.Rows - 1, j).Text = yx2.Fields(j - 1)
    If Mid(Grid1.Cell(Grid1.Rows - 1, j).Text, 1, 1) = "." Then
    Grid1.Cell(Grid1.Rows - 1, j).Text = "0" & Grid1.Cell(Grid1.Rows - 1, j).Text
   End If
 Else
 Grid1.Cell(Grid1.Rows - 1, j).Text = ""
 End If
 Next
 yx2.MoveNext
Loop
End Sub

Private Sub Form_Unload(Cancel As Integer)
Formmain.WindowState = 0
End Sub