frmfenfaload.frm

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

VERSION 5.00
Begin VB.Form Frmfenfaload 
   Caption         =   "杂志分发"
   ClientHeight    =   2850
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4155
   Icon            =   "frmfenfaload.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   2850
   ScaleWidth      =   4155
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text2 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   450
      Left            =   1680
      TabIndex        =   6
      Top             =   1680
      Width           =   975
   End
   Begin VB.TextBox Text1 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   450
      Left            =   1680
      TabIndex        =   4
      Top             =   960
      Width           =   1815
   End
   Begin VB.TextBox Txtcode 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   450
      Left            =   1680
      TabIndex        =   2
      Top             =   360
      Width           =   1815
   End
   Begin VB.CommandButton Cmdfenfa 
      Caption         =   " 订阅查看"
      Height          =   375
      Left            =   2880
      TabIndex        =   0
      Top             =   1680
      Width           =   1095
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "半月刊请按照“1/上”格式"
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   480
      TabIndex        =   7
      Top             =   2400
      Width           =   2160
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "订阅年份："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   1
      Left            =   480
      TabIndex        =   5
      Top             =   1200
      Width           =   1125
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "杂志期数："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   0
      Left            =   480
      TabIndex        =   3
      Top             =   1800
      Width           =   1125
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "邮发代号："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   11.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   225
      Index           =   3
      Left            =   480
      TabIndex        =   1
      Top             =   600
      Width           =   1125
   End
End
Attribute VB_Name = "Frmfenfaload"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Download by http://www.codefans.net
Private Sub Cmdfenfa_Click() '//y
Dim sql As String

If Me.Txtcode.Text = "" Then
   MsgBox "请输入邮发代号！", vbExclamation, "分发"
   Me.Txtcode.SetFocus
   Exit Sub
End If

If Me.Text1.Text = "" Then
    MsgBox "请输入年份！", vbExclamation, "分发"
    Me.Text1.SetFocus
    Exit Sub
End If

If Me.Text2.Text = "" Then
   MsgBox "请输入期数！", vbExclamation, "分发"
   Me.Text2.SetFocus
   Exit Sub
End If
   
   sql = "select * from magazine,dingyue,teacher where magazine.code=dingyue.code and dingyue.name=teacher.name"
   Frmfenfamodify.Adodc1.CommandType = adCmdText
   Frmfenfamodify.Adodc1.RecordSource = sql & " and magazine.code='" & Trim(Me.Txtcode.Text) & "' and qishu='" & Me.Text1.Text & "第" & Trim(Me.Text2.Text) & "期'   and  receive Is  Null order by office"
   Frmfenfamodify.Adodc1.Refresh
   Frmfenfamodify.Adodc1.CommandType = adCmdTable

 If Frmfenfamodify.Adodc1.Recordset.RecordCount = 0 Then
   MsgBox "没有该杂志的订阅记录！或者该期杂志已分发！", vbExclamation, "杂志分发"
   Exit Sub
End If
   Unload Me
   Frmfenfamodify.Text1(0).Text = Frmfenfamodify.Adodc1.Recordset.Fields("dingyue.code").Value
   Frmfenfamodify.Text1(1).Text = Frmfenfamodify.Adodc1.Recordset.Fields("Type").Value
   Frmfenfamodify.Text1(2).Text = Frmfenfamodify.Adodc1.Recordset.Fields("magazine").Value
   Frmfenfamodify.Text1(3).Text = Frmfenfamodify.Adodc1.Recordset.Fields("qishu").Value
   Frmfenfamodify.Show
End Sub

Private Sub Form_Load()

Me.Text1.Text = Year(Date)
Me.Txtcode.Text = "请输入"
'Me.Text2.Text = "1"

End Sub
Private Sub Txtcode_GotFocus()
If Me.Txtcode.Text = "请输入" Then
   Me.Txtcode.Text = ""
   Me.Txtcode.SetFocus
End If
End Sub