📄 frmmodpay.frm

📁 该软件非常适合学校小型数据管理
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Left            =   240
            TabIndex        =   24
            Top             =   120
            Width           =   3255
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "完成题数："
            Height          =   180
            Index           =   11
            Left            =   3120
            TabIndex        =   7
            Top             =   600
            Width           =   900
         End
         Begin VB.Label LblLable 
            AutoSize        =   -1  'True
            Caption         =   "本次分数："
            Height          =   180
            Index           =   5
            Left            =   240
            TabIndex        =   6
            Top             =   600
            Width           =   900
         End
         Begin VB.Label Label5 
            Caption         =   "比赛类型："
            Height          =   255
            Left            =   240
            TabIndex        =   23
            Top             =   1080
            Width           =   975
         End
      End
   End
   Begin VB.CommandButton CmdRetrun 
      Caption         =   "返回(&C)"
      Height          =   375
      Left            =   5280
      TabIndex        =   1
      Top             =   4680
      Width           =   1215
   End
   Begin VB.CommandButton CmdSave 
      Caption         =   "保存(&S)"
      Height          =   375
      Left            =   3960
      TabIndex        =   0
      Top             =   4680
      Width           =   1215
   End
   Begin WinXPC_Engine.WindowsXPC WinXPPayManage 
      Left            =   1440
      Top             =   360
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
   Begin WinXPC_Engine.WindowsXPC WinXPModPay 
      Left            =   1440
      Top             =   2400
      _ExtentX        =   6588
      _ExtentY        =   1085
      ColorScheme     =   2
      Common_Dialog   =   0   'False
   End
   Begin VB.CommandButton Command1 
      Caption         =   "移动(&M)"
      Height          =   375
      Left            =   2640
      TabIndex        =   31
      Top             =   4680
      Width           =   1215
   End
   Begin VB.CommandButton Command2 
      Caption         =   "删除(&D)"
      Height          =   375
      Left            =   1320
      TabIndex        =   33
      Top             =   4680
      Width           =   1215
   End
   Begin VB.Label Label7 
      Caption         =   "0"
      Height          =   375
      Left            =   240
      TabIndex        =   32
      Top             =   4560
      Visible         =   0   'False
      Width           =   855
   End
End
Attribute VB_Name = "FrmModPay"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CmbCode_Change()
If RstPayRecord.State = adStateOpen Then
RstPayRecord.Close              '//关闭记录集
End If
RstPayRecord.Open "select *from 会员档案 where 会员编号='" & CmbCode.Text & "' ", DBCON, adOpenKeyset, adLockOptimistic, adCmdText

   TxtName.Text = RstPayRecord.Fields(1).Value   '//给文本框赋值

Dim StrSQL As String
    StrSQL = "select * from 成绩表 where "
       StrSQL = StrSQL & "试题编号= '" & Trim(TxtBrach.Text) & "'" & "and" & " 会员编号 = '" & Trim(CmbCode.Text) & "'"
        '
If RstPayRecord.State = adStateOpen Then
RstPayRecord.Close              '//关闭记录集
End If
           If RstPayRecord.State = adStateClosed Then
                RstPayRecord.Open StrSQL, DBCON, adOpenKeyset, adLockOptimistic, adCmdText
            End If

On Error Resume Next
'TxtName.Text = RstPayRecord.Fields(2).Value
TxtAnnuities.Text = RstPayRecord.Fields(3).Value
TxtSafety.Text = RstPayRecord.Fields(0).Value
CmbSex.Text = RstPayRecord.Fields(5).Value
Text2.Text = RstPayRecord.Fields(8).Value
TxtVPay.Text = RstPayRecord.Fields(7).Value
DTPicker1.Value = RstPayRecord.Fields(6).Value
 Label7.Caption = RstPayRecord.Fields(9).Value
End Sub

Private Sub CmdDel_Click()
If MsgBox("确定要删除吗？", vbInformation + vbYesNo, "删除信息") = vbYes Then
    If RsModPay.RecordCount <> 0 Then
        RsModPay.Delete         '//删除记录
        Call CmdMove_Click
    Else
        MsgBox "当前没有任何记录", , "删除记录"
        Call FormTxtValue2      '//调用给文本框赋空值的过程
    End If
End If
End Sub
Private Sub CmdEdit_Click()
Call CmdState1                  '//调用命令按钮Visible属性为隐藏的过程
Call TxtState                   '//调用启用文本框的Enabled属性过程
TxtBrach.Enabled = True
End Sub

Private Sub CmdMove_Click()
If RStTxtCode.State = adstateclsed Then
RStTxtCode.Open "会员档案", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
If RStTxtCode.RecordCount <> 0 Then
    RStTxtCode.MoveNext           '//记录向下移一条
    If RStTxtCode.EOF Then
    MsgBox "已经到达数据库底部,将返回第一行数据"
        RStTxtCode.MoveFirst      '//将记录移到第一行
    End If
    CmbCode.Text = RStTxtCode.Fields(0).Value
    Call CmbCode_Change          '//调用将记录数据赋给文本框的过程
Else
MsgBox "当前没有任何记录", , "移动记录"
End If
End Sub


Private Sub CmdRetrun_Click()
Unload Me
End Sub

Private Sub CmdSave_Click()
On Error GoTo ErrSave
    Call UpRsValue
    RsModPay.Update         '//更新记录
    Call CmdMove_Click
    MsgBox "数据已被保存", , "保存成功"
    Call CmdState2
    Call TxtState1
    
Exit Sub
ErrSave:
    Select Case Err.Number
        Case -2147217887
        MsgBox "编号不能为空", vbInformation + vbOKOnly, "输入错误"
        Case -2147352571
        MsgBox "没选择编号或带 * 内容没填,若没有请输入 0 ", vbInformation + vbOKOnly, "输入错误"
        Case Else
        MsgBox "错误描述：" & Err.Description & vbCrLf & "错误代码：" & Err.Number, vbCritical + vbOKOnly, "非法操作"
    End Select
End Sub

Private Sub DataCombo1_Click(Area As Integer)

End Sub

Private Sub Command1_Click()
Call CmdMove_Click
End Sub

Private Sub Command2_Click()
Call CmdDel_Click
End Sub

Private Sub Form_Load()
Me.Left = Frmmdimain.Width / 5
Me.Top = Frmmdimain.Height / 20

If RSCombo1.State = adstateclsed Then

RSCombo1.Open "获奖情况", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
Set TxtVPay.RowSource = RSCombo1
TxtVPay.BoundColumn = "比赛奖项"
TxtVPay.ListField = "比赛奖项"

If RStTxtCode.State = adstateclsed Then
RStTxtCode.Open "会员档案", DBCON, adOpenKeyset, adLockPessimistic, adCmdTable
End If
Set CmbCode.RowSource = RStTxtCode
CmbCode.BoundColumn = "会员编号"
CmbCode.ListField = "会员编号"



WinXPModPay.InitSubClassing
If RsModPay.State = adStateOpen Then
    RsModPay.Close
End If

RsModPay.Open "考试信息", DBCON, adOpenKeyset, adLockPessimistic, adcmdtalbe
Set TxtBrach.RowSource = RsModPay
TxtBrach.BoundColumn = "试题编号"
TxtBrach.ListField = "试题编号"



If RsModPay.State = adStateOpen Then
    RsModPay.Close
End If
RsModPay.Open " 成绩表", DBCON, adOpenKeyset, adLockPessimistic, adcmdtalbe

Call FormTxtValue1


End Sub

Private Sub UpRsValue()

RsModPay.Fields(1).Value = CmbCode.Text
RsModPay.Fields(2).Value = TxtName.Text
'RsModPay.Fields(2).Value = TxtBrach.Text
RsModPay.Fields(7).Value = TxtVPay.Text
'RsModPay.Fields(4).Value = TxtTimeOver.Text
'RsModPay.Fields(5).Value = TxtAllowance.Text
'RsModPay.Fields(6).Value = TxtRent.Text
'RsModPay.Fields(7).Value = TxtBonus.Text
'RsModPay.Fields(8).Value = TxtOther.Text
RSAddMark.Fields(9).Value = Label7.Caption
RsModPay.Fields(3).Value = TxtAnnuities.Text
RsModPay.Fields(0).Value = TxtSafety.Text
'RsModPay.Fields(7).Value = TxtVPay.Text
RsModPay.Fields(6).Value = DTPicker1.Value

End Sub
Private Sub FormTxtValue1()
On Error Resume Next
TxtSafety.Text = RsModPay.Fields(0).Value
'CmbCode.Text = RsModPay.Fields(1).Value
TxtName.Text = RsModPay.Fields(2).Value
TxtAnnuities.Text = RsModPay.Fields(3).Value
CmbSex.Text = RsModPay.Fields(5).Value
Text2.Text = RsModPay.Fields(8).Value
TxtVPay.Text = RsModPay.Fields(7).Value
DTPicker1.Value = RsModPay.Fields(6).Value
'TxtBrach.Text = RsModPay.Fields(4).Value


'TxtTimeOver.Text = RsModPay.Fields(4).Value
'TxtAllowance.Text = RsModPay.Fields(5).Value
'TxtRent.Text = RsModPay.Fields(6).Value
'TxtBonus.Text = RsModPay.Fields(7).Value
'TxtOther.Text = RsModPay.Fields(8).Value


'TxtVPay.Text = RsModPay.Fields(11).Value


End Sub

Private Sub FormTxtValue2()

CmbCode.Text = Empty
TxtName.Text = Empty
TxtBrach.Text = Empty
'TxtPay.Text = Empty
'TxtTimeOver.Text = Empty
'TxtAllowance.Text = Empty
'TxtRent.Text = Empty
'TxtBonus.Text = Empty

'TxtOther.Text = Empty
TxtAnnuities.Text = Empty
TxtSafety.Text = Empty
TxtVPay.Text = Empty
DTPicker1.Value = Date

End Sub
Private Sub CmdState1()
CmdEdit.Visible = False
CmdDel.Visible = False
CmdMove.Visible = False
CmdSave.Visible = True
CmdRetrun.Enabled = False
TxtBrach.Enabled = False
End Sub
Private Sub CmdState2()
TxtBrach.Enabled = True
CmdEdit.Visible = True
CmdDel.Visible = True
CmdMove.Visible = True
CmdSave.Visible = False
CmdRetrun.Enabled = True
End Sub
Private Sub TxtState()
CmbSex.Enabled = True
CmbCode.Enabled = True
'TxtName.Enabled = True
'TxtBrach.Enabled = True
Text2.Enabled = True
TxtVPay.Enabled = True
TxtPay.Enabled = True
TxtTimeOver.Enabled = True
TxtAllowance.Enabled = True
TxtRent.Enabled = True
TxtBonus.Enabled = True
TxtOther.Enabled = True
TxtAnnuities.Enabled = True
TxtSafety.Enabled = True
'TxtVPay.Enabled = True
DTPicker1.Enabled = True
End Sub
Private Sub TxtState1()
CmbSex.Enabled = False
Text2.Enabled = False
CmbCode.Enabled = False
'TxtName.Enabled = False
'TxtBrach.Enabled = False
TxtPay.Enabled = False
TxtTimeOver.Enabled = False
TxtAllowance.Enabled = False
TxtRent.Enabled = False
TxtBonus.Enabled = False
TxtOther.Enabled = False
TxtAnnuities.Enabled = False
TxtSafety.Enabled = False
'TxtVPay.Enabled = False
DTPicker1.Enabled = False
End Sub
Private Sub Change()        '计算分数的过程
TxtAnnuities.Text = Val(TxtSafety.Text) * Val(Label7.Caption)
End Sub

Private Sub TxtAllowance_Change()
Call Change
End Sub

Private Sub TxtAnnuities_Change()
Call Change
End Sub

Private Sub TxtBonus_Change()
Call Change
End Sub

Private Sub TxtBrach_Change()

End Sub

Private Sub TxtBrach_Click(Area As Integer)

End Sub

Private Sub TxtOther_Change()
Call Change
End Sub

Private Sub TxtPay_Change()
Call Change
End Sub

Private Sub TxtRent_Change()
Call Change
End Sub

Private Sub TxtSafety_Change()
Call Change
End Sub

Private Sub TxtTimeOver_Change()
Call Change
End Sub

Private Sub TxtVPay_Change()
Call Change
End Sub
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -