📄 fydg.frm
字号:
Caption = "结算方式:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 390
Index = 5
Left = 6000
TabIndex = 34
Top = 3000
Width = 1140
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Caption = "货主姓名:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Index = 3
Left = 4550
TabIndex = 33
Top = 1260
Width = 1360
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "票号:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Index = 0
Left = 5760
TabIndex = 32
Top = 800
Width = 1335
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Caption = "大写"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 3280
TabIndex = 31
Top = 2120
Width = 1300
End
Begin VB.Label Label5
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Caption = "发票号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 6000
TabIndex = 30
Top = 1680
Width = 1120
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "崔庄煤矿发货单(调整)"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 375
Left = 2040
TabIndex = 29
Top = 120
Width = 5415
End
Begin VB.Label Label7
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BorderStyle = 1 'Fixed Single
Caption = "运输方式"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 3280
TabIndex = 28
Top = 1680
Width = 1300
End
Begin VB.Line Line3
BorderColor = &H0000FF00&
BorderWidth = 2
X1 = 1800
X2 = 7440
Y1 = 600
Y2 = 600
End
Begin VB.Line Line1
BorderWidth = 2
X1 = 120
X2 = 9000
Y1 = 4680
Y2 = 4680
End
Begin VB.Line Line2
BorderStyle = 4 'Dash-Dot
BorderWidth = 2
DrawMode = 1 'Blackness
X1 = 120
X2 = 8880
Y1 = 1200
Y2 = 1200
End
Begin VB.Label Label9
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "开票时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 375
Left = 480
TabIndex = 27
Top = 720
Width = 1335
End
End
Begin VB.PictureBox picButtons
Align = 2 'Align Bottom
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 345
Left = 0
ScaleHeight = 345
ScaleWidth = 10425
TabIndex = 0
Top = 6270
Width = 10425
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 300
Left = 480
Style = 1 'Graphical
TabIndex = 10
ToolTipText = "添加"
Top = 0
Width = 800
End
Begin VB.CommandButton cmdUpdate
Caption = "保存(&U)"
Height = 300
Left = 1320
Style = 1 'Graphical
TabIndex = 9
ToolTipText = "更新"
Top = 0
Width = 800
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 300
Left = 2160
Style = 1 'Graphical
TabIndex = 8
ToolTipText = "删除"
Top = 0
Width = 800
End
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 300
Left = 3000
Style = 1 'Graphical
TabIndex = 7
Top = 0
Width = 800
End
Begin VB.CommandButton cmdClose
Height = 300
Left = 6960
Picture = "fydg.frx":0068
Style = 1 'Graphical
TabIndex = 6
ToolTipText = "关闭"
Top = 0
Width = 800
End
Begin VB.CommandButton cmdFirst
Enabled = 0 'False
Height = 300
Left = 3960
Picture = "fydg.frx":04AA
Style = 1 'Graphical
TabIndex = 5
Top = 0
UseMaskColor = -1 'True
Width = 600
End
Begin VB.CommandButton cmdPrevious
Enabled = 0 'False
Height = 300
Left = 4560
Picture = "fydg.frx":07EC
Style = 1 'Graphical
TabIndex = 4
Top = 0
UseMaskColor = -1 'True
Width = 600
End
Begin VB.CommandButton cmdNext
Enabled = 0 'False
Height = 300
Left = 5160
Picture = "fydg.frx":0B2E
Style = 1 'Graphical
TabIndex = 3
Top = 0
UseMaskColor = -1 'True
Width = 600
End
Begin VB.CommandButton cmdLast
Enabled = 0 'False
Height = 300
Left = 5760
Picture = "fydg.frx":0E70
Style = 1 'Graphical
TabIndex = 2
Top = 0
UseMaskColor = -1 'True
Width = 600
End
Begin VB.CommandButton Command1
Height = 300
Left = 6360
Picture = "fydg.frx":11B2
Style = 1 'Graphical
TabIndex = 1
Top = 0
Width = 615
End
End
Begin VB.Shape Shape1
Height = 5895
Left = 0
Top = 0
Width = 9975
End
End
Attribute VB_Name = "fydg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Option Explicit
Dim zw(10) As String
Dim dw(11) As String
Dim dw1(11) As String
Dim word As String
Dim w As String
Dim i As Integer
Dim headle
'##################################################################
'## 过程名称：cmdFirst_Click
'## 参数： 无
'##################################################################
Private Sub cmdFirst_Click()
On Error Resume Next
datPrimaryRS.Recordset.MoveFirst
'mbDataChanged = False
Text2.text = datPrimaryRS.Recordset.Fields("sj")
txtFields(0) = datPrimaryRS.Recordset.Fields("hth")
txtFields(1) = datPrimaryRS.Recordset.Fields("htl")
txtFields(3) = datPrimaryRS.Recordset.Fields("fhr")
txtFields(4) = datPrimaryRS.Recordset.Fields("fhdw")
'datPrimaryRS.Recordset.Fields("yfl") = 0
datPrimaryRS.Recordset.Fields("wfl") = txtFields(1)
txtFields(5) = datPrimaryRS.Recordset.Fields("dj")
txtFields(7) = datPrimaryRS.Recordset.Fields("je")
Label2.text = datPrimaryRS.Recordset.Fields("htldx")
Label4.text = datPrimaryRS.Recordset.Fields("jedx")
Combo1.text = datPrimaryRS.Recordset.Fields("ysfs")
txtFields(9) = datPrimaryRS.Recordset.Fields("bz")
txtFields(10) = datPrimaryRS.Recordset.Fields("tbr")
txtFields(11) = datPrimaryRS.Recordset.Fields("fzr")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -