frmmagazineload.frm

本套程序是一款基于VB+Access实现的轻型杂志分发管理系统

VERSION 5.00
Begin VB.Form Frmreaderload 
   Caption         =   "教师"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4320
   Icon            =   "frmmagazineload.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4320
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Cmdadd 
      Caption         =   "添加(&A)"
      Height          =   375
      Left            =   1680
      TabIndex        =   7
      Top             =   2760
      Width           =   975
   End
   Begin VB.Frame Frame1 
      Height          =   2415
      Left            =   360
      TabIndex        =   3
      Top             =   120
      Width           =   3615
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   1440
         TabIndex        =   9
         Top             =   960
         Width           =   1215
      End
      Begin VB.TextBox Txtbox 
         Height          =   325
         Left            =   1440
         TabIndex        =   6
         Top             =   1440
         Width           =   1575
      End
      Begin VB.TextBox Txtname 
         Height          =   325
         Left            =   1440
         TabIndex        =   0
         Top             =   480
         Width           =   1575
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "信箱"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Index           =   2
         Left            =   600
         TabIndex        =   8
         Top             =   1560
         Width           =   390
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "办公室"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Index           =   3
         Left            =   600
         TabIndex        =   5
         Top             =   1080
         Width           =   585
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "姓名"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9.75
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   195
         Index           =   1
         Left            =   600
         TabIndex        =   4
         Top             =   600
         Width           =   390
      End
   End
   Begin VB.CommandButton Cmdno 
      Caption         =   " 取消(&C)"
      Height          =   375
      Left            =   2280
      TabIndex        =   1
      Top             =   2760
      Visible         =   0   'False
      Width           =   975
   End
   Begin VB.CommandButton Cmdyes 
      Caption         =   " 确定(&Q)"
      Height          =   375
      Left            =   960
      TabIndex        =   2
      Top             =   2760
      Visible         =   0   'False
      Width           =   975
   End
End
Attribute VB_Name = "Frmreaderload"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public p As String

Public Sub serialid()
  Dim idn As Integer
  Dim i, j, k As Integer
  Dim s As String
  
  Frmreaderload.Caption = "读者"
  s = MsgBox("是否优先使用缺号?", vbQuestion + vbYesNo, "提示")
  
   Frmreadermodify.Adodc1.CommandType = adCmdText
   Frmreadermodify.Adodc1.RecordSource = "select * from reader  order by readerid"
   Frmreadermodify.Adodc1.Refresh
   Frmreadermodify.Adodc1.CommandType = adCmdTable
  
 p = "p"
 With Frmreadermodify.Adodc1.Recordset
 If .RecordCount <> 0 Then
     .MoveLast
     i = Int(.Fields(0).Value)
    If s = vbYes Then
      If i <> .RecordCount Then '//优先考虑漏下的号码
       '//查找第一个漏下的号码
         k = 1
        .MoveFirst
        While Not (.EOF Or Val(.Fields(0).Value) <> k)
         .MoveNext
         k = k + 1
        Wend
        i = k
      Else
        MsgBox "目前没有缺号！", vbInformation, "提示"
        p = "np"
        Exit Sub
      End If
    Else
      k = .RecordCount
      i = i + 1
    End If
        s = Trim(.Fields(3).Value)
        Frmreaderload.Txtdept.Text = s
 Else
  i = 1
 End If
End With
   s = ""
   For j = 1 To 8 - Len(i)
      s = Trim(s + "0")
   Next j
s = s + Trim(Str(i))
Frmreaderload.Txtid.Text = s
Frmreaderload.Txtid.Enabled = False
End Sub

Private Sub Cmdadd_Click() '//y
'Call serialid
'If p = "np" Then
 'Exit Sub
'End If

Me.Txtname.Enabled = True
Me.Combo1.Enabled = True
Me.Txtbox.Enabled = True

Me.Txtname.Text = ""

Me.Cmdadd.Visible = False
Me.Cmdyes.Visible = True
Me.Cmdno.Visible = True


Me.Txtname.SetFocus
End Sub

Private Sub Cmdno_Click()
Unload Me
End Sub

Private Sub Cmdyes_Click() '//y
Dim s As String

If Me.Txtname.Text = "" Then
   MsgBox "请输入姓名！", vbExclamation, "教师"
   Exit Sub
End If

If Me.Combo1.Text = "" Then
    MsgBox "请选择办公室！", vbExclamation, "教师"
    Exit Sub
End If

If Me.Txtbox.Text = "" Then
   MsgBox "请输入信箱！", vbExclamation, "教师"
   Exit Sub
End If

With Frmreadermodify.Adodc1.Recordset '//y
If Me.Caption = "教师" Then
   .AddNew
   .Fields(0).Value = Trim(Me.Txtname.Text)
   .Fields(1).Value = Trim(Me.Combo1.Text)
   .Fields(2).Value = Trim(Me.Txtbox.Text)
   .Update
 
  Me.Txtname.Enabled = False
  Me.Combo1.Enabled = False
  Me.Txtbox.Enabled = False
  

  Me.Cmdadd.Visible = True
  Me.Cmdyes.Visible = False
  Me.Cmdno.Visible = False

Else
   '.Fields(0).Value = Trim(Me.Txtname.Text)
   .Fields(1).Value = Trim(Me.Combo1.Text)
   .Fields(2).Value = Trim(Me.Txtbox.Text)
   .Update
   MsgBox "该教师信息修改成功！", vbExclamation, "修改"
   Me.Caption = "教师"
   Unload Me
End If
End With
End Sub


Private Sub Form_Load()
Me.Txtname.Enabled = False
Me.Combo1.AddItem "董事长室"
Me.Combo1.AddItem "校长室"
Me.Combo1.AddItem "校务办1"
Me.Combo1.AddItem "校务办2"
Me.Combo1.AddItem "教导处1"
Me.Combo1.AddItem "教导处2"
Me.Combo1.AddItem "总务处1"
Me.Combo1.AddItem "总务处2"
Me.Combo1.AddItem "1办"
Me.Combo1.AddItem "2办"
Me.Combo1.AddItem "3办"
Me.Combo1.AddItem "4办"
Me.Combo1.AddItem "5办"
Me.Combo1.AddItem "6办"
Me.Combo1.AddItem "7办"
Me.Combo1.AddItem "8办"
Me.Combo1.AddItem "9办"
Me.Combo1.AddItem "10办"
Me.Combo1.AddItem "11办"
Me.Combo1.AddItem "12办"
Me.Combo1.AddItem "13办"
Me.Combo1.AddItem "文印室"
Me.Combo1.AddItem "实验室"
Me.Combo1.AddItem "图书室"
Me.Combo1.AddItem "阅览室"

End Sub
'Download by http://www.codefans.net

Private Sub Txtbox_GotFocus()
If Me.Combo1.Text <> "" Then
  Me.Txtbox.Text = Me.Combo1.Text
End If

End Sub