📄 fygl.frm
字号:
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 = "金额(大写):"
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 = 7
Left = 3360
TabIndex = 13
Top = 2640
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 = 9
Left = 240
TabIndex = 12
Top = 3120
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 = 3720
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 = 3270
TabIndex = 10
Top = 3720
Width = 1305
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
Begin VB.Shape Shape1
BackColor = &H8000000A&
Height = 5532
Left = 960
Top = 1080
Width = 9732
End
End
Attribute VB_Name = "FYGL"
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
On Error Resume Next
'Dim ii As Integer
Dim lis As Object
Dim name1 As String
Dim x1, x2, y1, y2
Dim dw
Dim g As String
g = "lin"
Dim Found, MyObject, MyCollection
'Printer.NewPage
Found = False ' 设置变量初始值。
For Each MyObject In Me
' 对每个成员作一次迭代。
name1 = MyObject.Name
'If InStr(1, MyObject.Name, "lin") > 0 Then ' 如果 Text 属性值等于“Hello”。)
If MyObject.BorderStyle > 0 Then
'If MyObject Is Line Then
x1 = MyObject.x1
x2 = MyObject.x2
y1 = MyObject.y1
y2 = MyObject.y2
dw = MyObject.BorderWidth
Printer.DrawWidth = dw
Printer.Line (x1, y1)-(x2, y2)
' 'debug.Print MyObject.Name, x1, x2, y1, y2
Else
x1 = MyObject.Left
y1 = MyObject.Top
Printer.Font.Size = MyObject.Font.Size
Printer.CurrentX = x1
Printer.CurrentY = y1
Printer.Print MyObject.Caption
'Exit For ' 退出循环。
End If
x1 = MyObject.Left
y1 = MyObject.Top
Printer.Font.Size = MyObject.Font.Size
Printer.CurrentX = x1
Printer.CurrentY = y1
Printer.Print MyObject.Text
x1 = 0: x2 = 0: y1 = 0: y2 = 0
20:
Next
'Form2.Show
Printer.EndDoc
'Printer.NewPage
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"
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 cmdAdd_Click
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) = "仟"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -