frmyz.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmyz 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "烟站管理"
   ClientHeight    =   4290
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4920
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   8439.009
   ScaleMode       =   0  'User
   ScaleWidth      =   5266.923
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Caption         =   "烟站信息"
      Height          =   4270
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4815
      Begin MSFlexGridLib.MSFlexGrid MSF 
         Height          =   3950
         Left            =   120
         TabIndex        =   6
         Top             =   240
         Width           =   3375
         _ExtentX        =   5953
         _ExtentY        =   6959
         _Version        =   393216
         Cols            =   3
         BackColorBkg    =   -2147483624
      End
      Begin VB.Frame Frame3 
         Caption         =   "操作："
         Height          =   3495
         Left            =   3600
         TabIndex        =   1
         Top             =   480
         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 = "frmyz"
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()
    newyzID = InputBox("请输入要添加的烟站代码（不能超过5个字符）", "烟站代码")
    newyzmc = InputBox("请输入要添加的烟站名称（不能超过5个汉字）", "烟站名称")
    Set rs = db.OpenRecordset("select yz.yzID from yz where yzID =" + Chr$(34) + newyzID + Chr$(34) + ";")
    If rs.EOF Then
        If newyzID = "" Or newyzmc = "" Then
            MsgBox "烟站信息不能为空!", vbOKOnly, "添加失败警告"
        Else
            Set rs = db.OpenRecordset("yz")
            With rs
            .AddNew
            !yzID = newyzID
            !yzmc = newyzmc
            .Update
            End With
            Me.Refresh
            Call Form_Load
        End If
    Else
        MsgBox "烟站已经存在！", vbOKOnly, "添加失败"
    End If
End Sub

Private Sub Del_Click()
    delyz = InputBox("请输入要删除的烟站代码：", "删除")
    If delyz = "" Then
        MsgBox "删除操作取消", vbOKOnly, "失败警告"
    Else
        Set rs = db.OpenRecordset("select * from yz where yzID =" + Chr$(34) + delyz + 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 * 13 / 100
        .ColWidth(1) = .Width * 31 / 100
        .ColWidth(2) = .Width * 53 / 100
        .Col = 0: .Row = 0
        .Text = "序号"
        .Col = 1: .Row = 0
        .Text = "烟站代码"
        .Col = 2: .Row = 0
        .Text = "烟站名称"
    End With
    Set db = OpenDatabase(App.Path + "..\db\System.mdb")
    Set rs = db.OpenRecordset("select * from yz order by yzID")
    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("yzID")
                .Col = 2: .Row = i
                .Text = rs.Fields("yzmc")
                rs.MoveNext
            Next i
        End With
    End If
End Sub

Private Sub Mod_Click()
    modyz = InputBox("请输入要修改的烟站代码：", "修改")
    Set rs = db.OpenRecordset("select yz.yzID from yz where yzID =" + Chr$(34) + modyz + Chr$(34) + ";")
    If rs.EOF Then
        MsgBox "没有此烟站信息！", vbOKOnly, "警告"
    Else
        modyzID = InputBox("请输入要修改的烟站代码：", "修改")
        modyzmc = InputBox("请输入要修改的烟站名称：", "修改")
        If modyzID = "" Or modyzmc = "" Then
            MsgBox "烟站信息不能为空!", vbOKOnly, "修改失败警告"
        Else
            Set rs = db.OpenRecordset("select * from yz where yzID=" + Chr$(34) + modyz + Chr$(34) + ";")
            With rs
                .Edit
                !yzID = modyzID
                !yzmc = modyzmc
                .Update
            End With
            MsgBox "烟站信息修改成功！", vbOKOnly, "修改"
            Me.Refresh
            Call Form_Load
        End If
    End If
End Sub