frmyy.frm

这是一个用VB编写出来的烟草管理系统

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmyy 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "烟叶管理"
   ClientHeight    =   5625
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6150
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   11065.13
   ScaleMode       =   0  'User
   ScaleWidth      =   6583.654
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Caption         =   "烟叶信息"
      Height          =   5535
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6135
      Begin MSFlexGridLib.MSFlexGrid MSF 
         Height          =   5175
         Left            =   120
         TabIndex        =   6
         Top             =   240
         Width           =   4740
         _ExtentX        =   8361
         _ExtentY        =   9128
         _Version        =   393216
         Cols            =   6
         BackColorBkg    =   -2147483624
      End
      Begin VB.Frame Frame3 
         Caption         =   "操作："
         Height          =   3615
         Left            =   4920
         TabIndex        =   1
         Top             =   240
         Width           =   1095
         Begin VB.CommandButton Add 
            Caption         =   "添加"
            Height          =   400
            Left            =   240
            TabIndex        =   5
            Top             =   480
            Width           =   650
         End
         Begin VB.CommandButton Mod 
            Caption         =   "修改"
            Height          =   400
            Left            =   240
            TabIndex        =   4
            Top             =   1200
            Width           =   650
         End
         Begin VB.CommandButton Del 
            Caption         =   "删除"
            Height          =   400
            Left            =   240
            TabIndex        =   3
            Top             =   1920
            Width           =   650
         End
         Begin VB.CommandButton exit 
            Caption         =   "退出"
            Height          =   400
            Left            =   240
            TabIndex        =   2
            Top             =   2640
            Width           =   650
         End
      End
   End
End
Attribute VB_Name = "frmyy"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rs As Recordset

Private Sub Add_Click()
    newyynumber = InputBox("请输入要添加的烟叶编号", "烟叶编号")
    newyydm = InputBox("请输入要添加的烟叶代码（烟叶代码不能超过4位）", "烟叶代码")
    newyydj = InputBox("请输入要添加的烟叶等级（烟叶等级不能超过5个汉字）", "烟叶等级")
    newdbj = InputBox("请输入要添加的烟叶调拨价", "烟叶调拨价")
    newcbj = InputBox("请输入要添加的烟叶成本价", "烟叶成本价")
    Set rs = db.OpenRecordset("select yy.yycode from yy where yycode =" + Chr$(34) + newyydm + Chr$(34) + ";")
    If rs.EOF Then
        If newyydm = "" Or newyydj = "" Or newdbj = "" Or newcbj = "" Then
            MsgBox "烟叶信息不能为空!", vbOKOnly, "添加失败警告"
        Else
            Set rs = db.OpenRecordset("yy")
            With rs
            .AddNew
            !yynumber = newyynumber
            !yycode = newyydm
            !yymc = newyydj
            !dbj = newdbj
            !cbj = newcbj
            .Update
            End With
            Me.Refresh
            Call Form_Load
        End If
    Else
        MsgBox "烟叶已经存在！", vbOKOnly, "添加失败"
    End If
End Sub
Private Sub Del_Click()
    delyy = InputBox("请输入要删除的烟叶代码：", "删除")
    If delyy = "" Then
        MsgBox "删除操作取消", vbOKOnly, "失败警告"
    Else
        Set rs = db.OpenRecordset("select * from yy where yycode =" + Chr$(34) + delyy + Chr$(34) + ";")
        If rs.EOF Then
            MsgBox "没有此烟叶信息！", vbOKOnly, "警告"
        Else
            rs.MoveFirst
            Do Until rs.EOF
            rs.Delete
            rs.MoveNext
            Loop
            MsgBox "烟叶信息已经删除！", vbOKOnly, "删除"
            Me.Refresh
            Call Form_Load
        End If
    End If
    
End Sub

Private Sub exit_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Dim count As Integer
    With MSF
        .Rows = 1
        .ColWidth(0) = .Width * 9 / 100
        .ColWidth(1) = .Width * 17 / 100
        .ColWidth(2) = .Width * 17 / 100
        .ColWidth(3) = .Width * 19 / 100
        .ColWidth(4) = .Width * 15 / 100
        .ColWidth(5) = .Width * 15 / 100
        .Col = 0: .Row = 0
        .Text = "序号"
        .Col = 1: .Row = 0
        .Text = "烟叶编号"
        .Col = 2: .Row = 0
        .Text = "烟叶代码"
        .Col = 3: .Row = 0
        .Text = "烟叶等级"
        .Col = 4: .Row = 0
        .Text = "调拨价"
        .Col = 5: .Row = 0
        .Text = "成本价"
    End With
    Set db = OpenDatabase(App.Path + "..\db\System.mdb")
    Set rs = db.OpenRecordset("select * from yy order by yynumber")
    If rs.EOF = False Then
        rs.MoveFirst
        count = 0
        Do Until rs.EOF
            count = count + 1
            rs.MoveNext
        Loop
        With MSF
            rs.MoveFirst
            For i = 1 To count
            .AddItem Str(i)
            .Col = 1: .Row = i
            .Text = rs.Fields("yynumber")
            .Col = 2: .Row = i
            .Text = UCase(rs.Fields("yycode"))
            .Col = 3: .Row = i
            .Text = rs.Fields("yymc")
            .Col = 4: .Row = i
            .Text = rs.Fields("dbj")
            .Col = 5: .Row = i
            .Text = rs.Fields("cbj")
            rs.MoveNext
        Next i
        End With
    End If
End Sub

Private Sub Mod_Click()
    modyy = InputBox("请输入要修改的烟叶代码：", "修改")
    Set rs = db.OpenRecordset("select yy.yycode from yy where yycode =" + Chr$(34) + modyy + Chr$(34) + ";")
    If rs.EOF Then
        MsgBox "没有此烟叶信息！", vbOKOnly, "警告"
    Else
        Set rs = db.OpenRecordset("select * from yy where yycode=" + Chr$(34) + modyy + Chr$(34) + ";")
        modyydj = InputBox("请输入要修改的烟叶等级：", "修改")
        modyydbj = InputBox("请输入要修改的烟叶调拨价：", "修改")
        modyycbj = InputBox("请输入要修改的烟叶成本价：", "修改")
        If modyydj = "" Or modyydm = "" Or modyydbj = "" Or modyycbj = "" Then
            MsgBox "你必须输入烟叶信息！", vbOKOnly, "警告"
        Else
            With rs
                .Edit
                    !yycode = modyydm
                    !yymc = modyydj
                    !dbj = modyydbj
                    !cbj = modyycbj
                .Update
            End With
            MsgBox "烟叶信息修改成功！", vbOKOnly, "修改"
            Me.Refresh
            Call Form_Load
        End If
    End If
End Sub