📄 main_charge.frm
字号:
_Version = 393216
ListField = "序号"
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MHFGrid
Bindings = "Main_Charge.frx":4057
Height = 3765
Left = -74910
TabIndex = 37
Top = 375
Width = 11415
_ExtentX = 20135
_ExtentY = 6641
_Version = 393216
BackColor = 16761024
Cols = 10
FixedCols = 0
BackColorFixed = 16777088
BackColorSel = 16761024
ForeColorSel = 0
BackColorBkg = 16761024
GridColorFixed = 0
AllowUserResizing= 3
_NumberOfBands = 1
_Band(0).Cols = 10
_Band(0)._NumMapCols= 10
_Band(0)._MapCol(0)._Name= "序号"
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(1)._Name= "页码"
_Band(0)._MapCol(1)._RSIndex= 1
_Band(0)._MapCol(2)._Name= "姓名"
_Band(0)._MapCol(2)._RSIndex= 2
_Band(0)._MapCol(3)._Name= "金额"
_Band(0)._MapCol(3)._RSIndex= 3
_Band(0)._MapCol(3)._Alignment= 7
_Band(0)._MapCol(4)._Name= "邮编"
_Band(0)._MapCol(4)._RSIndex= 4
_Band(0)._MapCol(5)._Name= "地址"
_Band(0)._MapCol(5)._RSIndex= 5
_Band(0)._MapCol(6)._Name= "刊物名称"
_Band(0)._MapCol(6)._RSIndex= 6
_Band(0)._MapCol(7)._Name= "年"
_Band(0)._MapCol(7)._RSIndex= 7
_Band(0)._MapCol(8)._Name= "期"
_Band(0)._MapCol(8)._RSIndex= 8
_Band(0)._MapCol(9)._Name= "日期"
_Band(0)._MapCol(9)._RSIndex= 9
End
End
Begin MSDataListLib.DataCombo DCboMagazine
Bindings = "Main_Charge.frx":406C
Height = 330
Left = 945
TabIndex = 0
Top = 90
Width = 6495
_ExtentX = 11456
_ExtentY = 582
_Version = 393216
BackColor = 16761024
ListField = "刊物名称"
Text = "DCboMagazine"
End
Begin MSDataListLib.DataCombo DCboYear
Bindings = "Main_Charge.frx":4081
Height = 330
Left = 7515
TabIndex = 1
Top = 90
Width = 1560
_ExtentX = 2752
_ExtentY = 582
_Version = 393216
BackColor = 16761024
ListField = "年"
Text = "DCboYear"
End
Begin MSDataListLib.DataCombo DCboP
Bindings = "Main_Charge.frx":4096
Height = 330
Left = 9540
TabIndex = 2
Top = 90
Width = 1635
_ExtentX = 2884
_ExtentY = 582
_Version = 393216
BackColor = 16761024
ListField = "期"
Text = "DCboP"
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "杂志 年 期"
BeginProperty Font
Name = "黑体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 330
Index = 1
Left = 240
TabIndex = 3
Top = 120
Width = 11595
End
End
Attribute VB_Name = "Main_Charge"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i As Integer '定义整型变量
Dim rs As New ADODB.Recordset '定义数据集对象
'定义显示数据的过程
Private Sub ViewData()
For i = 1 To 5
TxtGf(i).Text = rs.Fields(i)
Next i
LblNumber.Caption = rs.Fields("序号")
DTPDate.Value = rs.Fields("日期")
End Sub
Private Sub DCboMagazine_Click(Area As Integer)
Adodc4.RecordSource = "select * from 稿费发放表 where 刊物名称 like +'" + DCboMagazine.Text + "'+'%'order by 序号"
Adodc4.Refresh
End Sub
Private Sub DCboP_Click(Area As Integer)
Adodc4.RecordSource = "select * from 稿费发放表 where 刊物名称 like'" + DCboMagazine.Text + "'+'%'and 年='" + DCboYear.Text + "'+'%'and 期='" + DCboP.Text + "'+'%'"
Adodc4.Refresh
End Sub
Private Sub DCboYear_Click(Area As Integer)
Adodc4.RecordSource = "select * from 稿费发放表 where 刊物名称 like +'" + DCboMagazine.Text + "'+'%'and 年='" + DCboYear.Text + "'+'%'"
Adodc4.Refresh
End Sub
Private Sub DListNumber_Click()
rs.Open "select * from 稿费发放表 where 序号='" + Trim(DListNumber.Text) + "'", cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
For i = 1 To 5
TxtGf(i).Text = rs.Fields(i)
Next i
LblNumber.Caption = rs.Fields("序号")
DTPDate.Value = rs.Fields("日期")
DCboMagazine.Text = rs.Fields("刊物名称")
DCboYear.Text = rs.Fields("年")
DCboP.Text = rs.Fields("期")
End If
rs.Close
End Sub
Private Sub DtpDate_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then TxtGf(4).SetFocus '按回车键TxtGf(4)获得焦点
End Sub
Private Sub TxtGf_GotFocus(Index As Integer)
TxtGf(Index).BackColor = &HFFFF80
End Sub
Private Sub TxtGf_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Index < 5 Then TxtGf(Index + 1).SetFocus
If KeyCode = vbKeyReturn And Index = 3 Then DTPDate.SetFocus
If KeyCode = vbKeyReturn And Index = 5 Then CmdSave.SetFocus
End Sub
Private Sub TxtGf_LostFocus(Index As Integer)
TxtGf(Index).BackColor = &HFFFFFF
End Sub
Private Sub CmdAdd_Click() '添加记录
rs.Open "select * from 稿费发放表 order by 序号", cnn, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
rs.MoveLast
LblNumber.Caption = "M" & DCboYear.Text & DCboP.Text & Format(Val(Right(rs.Fields("序号"), 5)) + 1, "00000")
Else
LblNumber.Caption = "M" & DCboYear.Text & DCboP.Text & "00001"
End If
rs.Close
For i = 1 To 5
TxtGf(i).Enabled = True
TxtGf(i).Text = ""
Next i
TxtGf(1).SetFocus
CmdSave.Enabled = True
CmdCancel.Enabled = True
CmdAdd.Enabled = False
End Sub
Private Sub CmdCancel_Click() '取消
For i = 1 To 5
TxtGf(i).Text = ""
Next i
CmdAdd.Enabled = True
End Sub
Private Sub CmdSave_Click() '新增记录
If TxtGf(1).Text = "" Then
MsgBox "系统不允许【页码】为空！"
Exit Sub
End If
If TxtGf(2).Text = "" Then
MsgBox "系统不允许【金额】为空！"
Exit Sub
End If
If TxtGf(3).Text = "" Then
MsgBox "系统不允许【邮编】为空！"
Exit Sub
End If
If DCboMagazine.Text = "" Then
MsgBox "系统不允许【杂志】为空！"
Exit Sub
End If
If DCboYear.Text = "" Then
MsgBox "系统不允许【年】为空！"
Exit Sub
End If
If DCboP.Text = "" Then
MsgBox "系统不允许【期】为空！"
Exit Sub
End If
rs.Open "select * from 稿费发放表", cnn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("序号") = LblNumber.Caption
rs.Fields("页码") = TxtGf(1).Text
rs.Fields("姓名") = TxtGf(2).Text
rs.Fields("金额") = Val(TxtGf(3).Text)
rs.Fields("邮编") = TxtGf(4).Text
rs.Fields("地址") = TxtGf(5).Text
rs.Fields("日期") = DTPDate
rs.Fields("刊物名称") = DCboMagazine.Text
rs.Fields("年") = DCboYear.Text
rs.Fields("期") = DCboP.Text
rs.Update
Adodc4.Refresh
rs.Close
For i = 1 To 5
TxtGf(i).Enabled = False
Next i
CmdSave.Enabled = False
CmdCancel.Enabled = False
CmdAdd.Enabled = True
Dim myval
myval = MsgBox("数据添加成功，是否打印汇款单", vbYesNo, Me.Caption)
If myval = vbYes Then
Load main_hkddy
main_hkddy.Show
main_hkddy.Txtje = TxtGf(3)
main_hkddy.Txtyb = TxtGf(4)
main_hkddy.Txtdz = TxtGf(5)
main_hkddy.Txtxm = TxtGf(2)
main_hkddy.Txtyear = DCboYear
main_hkddy.txtq = DCboP
main_hkddy.txty = TxtGf(1)
End If
End Sub
Private Sub CmdMModify_Click() '允许修改
For i = 1 To 5
TxtGf(i).Enabled = True
Next i
CmdMSave.Enabled = True
CmdMCancel.Enabled = True
End Sub
Private Sub CmdMSave_Click() '保存修改记录
If TxtGf(1).Text = "" Then
MsgBox "系统不允许【页码】为空！"
Exit Sub
End If
If TxtGf(2).Text = "" Then
MsgBox "系统不允许【姓名】为空！"
Exit Sub
End If
If TxtGf(3).Text = "" Then
MsgBox "系统不允许【金额】为空！"
Exit Sub
End If
If DCboMagazine.Text = "" Then
MsgBox "系统不允许【杂志】为空！"
Exit Sub
End If
If DCboYear.Text = "" Then
MsgBox "系统不允许【年】为空！"
Exit Sub
End If
If DCboP.Text = "" Then
MsgBox "系统不允许【期】为空！"
Exit Sub
End If
rs.Open "select * from 稿费发放表 where 序号='" + LblNumber.Caption + "'", cnn, adOpenKeyset, adLockOptimistic
myval = MsgBox("确实要修改该记录吗？", vbYesNo, "修改提示")
If myval = vbYes Then
rs.Fields("序号") = LblNumber.Caption
rs.Fields("页码") = TxtGf(1).Text
rs.Fields("姓名") = TxtGf(2).Text
rs.Fields("金额") = Val(TxtGf(3).Text)
For i = 4 To 5
rs.Fields(i) = TxtGf(i).Text
Next i
rs.Fields("日期") = DTPDate
rs.Fields("刊物名称") = DCboMagazine.Text
rs.Fields("年") = DCboYear.Text
rs.Fields("期") = DCboP.Text
rs.Update
rs.Close
Adodc4.Refresh
For i = 1 To 5
TxtGf(i).Enabled = False
Next i
End If
End Sub
Private Sub CmdMD_Click(Index As Integer)
rs.Open "select * from 稿费发放表", cnn, adOpenKeyset, adLockOptimistic
Select Case Index
Case Is = 0 '移到第一条记录
If Not rs.BOF Then rs.MoveFirst
Case Is = 1 '移到上一条记录
If rs.RecordCount <> 0 Then
If rs.BOF = False Then rs.MovePrevious
If rs.BOF = True Then rs.MoveFirst
End If
Case Is = 2 '移到下一条记录
If Adodc1.Recordset.RecordCount <> 0 Then
If rs.EOF = False Then rs.MoveNext
If rs.EOF = True Then rs.MoveLast
End If
Case Is = 3 '移到最后一条记录
If rs.EOF = False Then rs.MoveLast
End Select
Call ViewData '调用过程
rs.Close
End Sub
Private Sub CmdDelete_Click() '删除记录
rs.Open "select * from 稿费发放表 where 序号='" + LblNumber.Caption + "'", cnn, adOpenKeyset, adLockOptimistic
rs.Delete
rs.Update
Adodc4.Refresh
rs.Close
End Sub
Private Sub CmdPrint_Click()
DataReport1.Show
End Sub
Private Sub CmdQuit_Click()
Frm_Main.Show
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
Frm_Main.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -