📄 skdj.frm
字号:
Begin VB.Label lblLabels
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
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
Index = 4
Left = 240
TabIndex = 16
Top = 720
Width = 1365
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Caption = "结算方式:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 390
Index = 5
Left = 5880
TabIndex = 15
Top = 1725
Width = 1380
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
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
Index = 6
Left = 240
TabIndex = 14
Top = 2655
Width = 1365
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
Caption = "金额(大写):"
ForeColor = &H80000008&
Height = 375
Index = 7
Left = 3360
TabIndex = 13
Top = 2640
Width = 1005
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
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
Index = 9
Left = 240
TabIndex = 12
Top = 3120
Visible = 0 'False
Width = 1365
End
Begin VB.Label lblLabels
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
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
Index = 10
Left = 240
TabIndex = 11
Top = 3360
Width = 1365
End
Begin VB.Label lblLabels
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H00C0E0FF&
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 = 11
Left = 3360
TabIndex = 10
Top = 3360
Width = 945
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 = 372
Left = 2040
TabIndex = 30
Top = 120
Width = 5772
End
End
End
Attribute VB_Name = "skdj"
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
Call yd
Exit Sub
GoFirstError:
MsgBox err.Description
End Sub
'：cmdLast_Click
'： 无
Private Sub cmdLast_Click()
On Error Resume Next
datPrimaryRS.Recordset.MoveLast
Call yd
Exit Sub
GoFirstError:
MsgBox err.Description
End Sub
'：cmdNext_Click
'： 无
Private Sub cmdNext_Click()
On Error Resume Next
'datPrimaryRS.refresh
datPrimaryRS.Recordset.MoveNext
If datPrimaryRS.Recordset.EOF Then
datPrimaryRS.Recordset.MoveLast
End If
Call yd
Exit Sub
GoFirstError:
MsgBox err.Description
End Sub
'：cmdPrevious_Click
'： 无
Private Sub cmdPrevious_Click()
On Error Resume Next
datPrimaryRS.refresh
datPrimaryRS.Recordset.MovePrevious
'mbDataChanged = False
If datPrimaryRS.Recordset.BOF Then
datPrimaryRS.Recordset.MoveFirst
End If
Call yd
Exit Sub
GoFirstError:
MsgBox err.Description
End Sub
'：Combo1_Click
'： 无
Private Sub Combo1_Click()
Combo2.SetFocus
End Sub
'：Combo1_KeyPress
'：KeyAscii 为Integer型
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1.SetFocus
End If
End Sub
Private Sub Combo2_Change()
'txtFields(1).SetFocus
End Sub
'：Command1_Click
'： 无
Private Sub Command1_Click()
On Error Resume Next
Dim ii As Integer
Dim jj As Integer
Dim strlen As Integer
Dim strr As String
dyyll.Label13(ii).Caption = Me.txtFields(4)
dyyll.Label32(ii).Caption = Me.Text2.Text
dyyll.Label38(ii).Caption = Me.txtFields(3)
dyyll.Label39(ii).Caption = Me.Combo1.Text
dyyll.Label40(ii).Caption = Me.Text1.Text '票号
dyyll.Label41(ii).Caption = Me.Combo3.Text '煤种:
dyyll.Label42(ii).Caption = Me.txtFields(1) '数量
dyyll.Label43(ii).Caption = Me.Combo2.Text '
dyyll.Label44(ii).Caption = Me.txtFields(5) '结算方式
dyyll.Label45(ii).Caption = Me.txtFields(5) '单价
Commandd (Val(Me.txtFields(7)))
dyyll.Label55(ii).Caption = Label4.Text
dyyll.Label56(ii).Caption = Me.txtFields(9) '
dyyll.Label57(ii).Caption = Me.txtFields(10) '
' dyyll.Label58(ii).Caption = Me.txtFields(11) '
' Next ii
dyyll.Show
End Sub
'：DBCombo1_KeyPress
'：KeyAscii 为Integer型
Private Sub Combo3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Combo1.SetFocus
End If
End Sub
'：DTPicker1_DblClick
'： 无
Private Sub DTPicker1_DblClick()
DTPicker1.Visible = False
Text2.Visible = True
Text2.Text = Format(DTPicker1.Value, "yyyy-mm-dd")
End Sub
'：Form_Load
'： 无
Private Sub Form_Load()
Label6.Caption = jl_qym & "收款单"
Me.datPrimaryRS.ConnectionString = connetstr
datPrimaryRS.RecordSource = "select * from htk where hth='" & jl_hth & "'"
datPrimaryRS.refresh
Me.MSRDC1.ConnectionString = connetstr
Me.Text2.Text = Format(Now, "yyyy-mm-dd")
Set rest = New ADODB.Recordset
rest.Open "select DISTINCT hwm from hwmk where hwm>''", cn, 3
Dim recc As Integer
Dim ff As Integer
recc = rest.RecordCount
For ff = 1 To recc
Me.Combo3.AddItem rest.Fields("hwm")
rest.MoveNext
Next ff
rest.Close
Call yd
Me.cmdAdd.Enabled = False
' txtFields(11) = jl_zg
zw(1) = "壹"
zw(2) = "贰"
zw(3) = "叁"
zw(4) = "肆"
zw(5) = "伍"
zw(6) = "陆"
zw(7) = "柒"
zw(8) = "捌"
zw(9) = "玖"
zw(0) = "零"
dw(0) = "分"
dw(1) = "角"
dw(2) = ""
dw(3) = "元"
dw(4) = "拾"
dw(5) = "佰"
dw(6) = "仟"
dw(7) = "万"
dw(8) = "拾"
dw(9) = "佰"
dw(10) = "仟"
dw(11) = "亿"
dw1(0) = " "
dw1(1) = " "
dw1(2) = "拾"
dw1(3) = "佰"
dw1(4) = "仟"
dw1(5) = "万"
dw1(6) = "拾"
dw1(7) = "佰"
dw1(8) = "仟"
dw1(9) = "亿"
DTPicker1.Value = Now
headle = 1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -