frmhq.frm

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

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

Private Sub Del_Click()
    delhq = InputBox("请输入要删除的货区代码：", "删除")
    If delhq = "" Then
        MsgBox "删除操作取消", vbOKOnly, "失败警告"
    Else
        Set rs = db.OpenRecordset("select * from hq where hqID =" + Chr$(34) + delhq + 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 hq order by hqID")
    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("hqID")
                .Col = 2: .Row = i
                .Text = rs.Fields("hqmc")
                rs.MoveNext
            Next i
        End With
    End If
End Sub

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