📄 frmmoney.frm
字号:
Top = 285
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 12
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":0006
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":045A
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":08AE
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":0D02
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":1156
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":15AA
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":19FE
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":1E52
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":22A6
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":4FB0
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":6CBA
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMoney.frx":97C4
Key = ""
EndProperty
EndProperty
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MFG
Bindings = "frmMoney.frx":B4CE
Height = 1380
Left = 45
TabIndex = 19
Top = 5220
Width = 8850
_ExtentX = 15610
_ExtentY = 2434
_Version = 393216
Rows = 3
Cols = 8
FixedRows = 0
FixedCols = 0
MergeCells = 2
_NumberOfBands = 1
_Band(0).Cols = 8
_Band(0).GridLinesBand= 1
_Band(0).TextStyleBand= 0
_Band(0).TextStyleHeader= 0
_Band(0).ColHeader= 1
_Band(0)._NumMapCols= 8
_Band(0)._MapCol(0)._Name= "出货单编号"
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(0)._Alignment= 7
_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(4)._Name= "货品代码"
_Band(0)._MapCol(4)._RSIndex= 4
_Band(0)._MapCol(5)._Name= "数量"
_Band(0)._MapCol(5)._RSIndex= 5
_Band(0)._MapCol(5)._Alignment= 7
_Band(0)._MapCol(6)._Name= "实售价"
_Band(0)._MapCol(6)._RSIndex= 6
_Band(0)._MapCol(6)._Alignment= 7
_Band(0)._MapCol(7)._Name= "小计"
_Band(0)._MapCol(7)._RSIndex= 7
_Band(0)._MapCol(7)._Alignment= 7
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "其他"
Height = 180
Index = 3
Left = 4080
TabIndex = 9
Top = 1065
Width = 360
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "收款时间"
Height = 180
Index = 2
Left = 225
TabIndex = 8
Top = 4665
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "收款人"
Height = 180
Index = 1
Left = 405
TabIndex = 7
Top = 4155
Width = 540
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "合计金额"
Height = 180
Left = 225
TabIndex = 6
Top = 3645
Width = 720
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "货物数量"
Height = 180
Left = 225
TabIndex = 5
Top = 3135
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "收款单位"
Height = 180
Left = 225
TabIndex = 4
Top = 2640
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "凭证号"
Height = 180
Left = 405
TabIndex = 3
Top = 2130
Width = 540
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "支付方式"
Height = 180
Left = 225
TabIndex = 2
Top = 1620
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "出货单号"
Height = 180
Index = 0
Left = 225
TabIndex = 0
Top = 1110
Width = 720
End
End
Attribute VB_Name = "frmMoney"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
If g_rst.State = 1 Then g_rst.Close
Combo1.Clear
g_rst.Open "select 支付方式 as t from 支付方式"
While Not g_rst.EOF
Combo1.AddItem g_rst!t & ""
g_rst.MoveNext
Wend
If g_rst.State = 1 Then g_rst.Close
Text9.Clear
g_rst.Open "select distinct(客户名称) as t from 客户资料"
While Not g_rst.EOF
Text9.AddItem g_rst!t & ""
g_rst.MoveNext
Wend
If g_rst.State = 1 Then g_rst.Close
Combo2.Clear
g_rst.Open "select 人员姓名 from 工作人员"
While Not g_rst.EOF
Combo2.AddItem g_rst!人员姓名
g_rst.MoveNext
Wend
ADO.ConnectionString = g_cnnStr
ADOCHD.ConnectionString = g_cnnStr
ADO.RecordSource = "select * from 收费单 where 0=9"
ADO.Refresh
ADO.Recordset.AddNew
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If g_rst.State = 1 Then g_rst.Close
g_rst.Open "select sum(数量) as a,sum(小计) as b from 出货单 where 出货单编号='" & Text1.Text & "'"
If g_rst.EOF Then MsgBox "您输入的出货单不存在!": Exit Sub
Text3.Text = g_rst!a & ""
Text4.Text = g_rst!b & ""
ADOCHD.RecordSource = "select * from 出货单 where 出货单编号='" & Text1.Text & "'"
ADOCHD.Refresh
End If
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Caption
Case "收费确认"
ADO.Recordset.Update
MsgBox "收费成功!"
Case "退出"
ADO.Recordset.CancelUpdate
Unload Me
Case "打印"
'DE.rsMoney_分组.Filter = "出货单.出货单编号=" & Text1.Text
drMoney.Show
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -