📄 main_rcyw_xs.frm
字号:
TabIndex = 31
Top = 435
Visible = 0 'False
Width = 3405
_ExtentX = 6006
_ExtentY = 2963
_Version = 393216
AllowUpdate = 0 'False
BackColor = 16761024
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = "客户编号"
Caption = "客户编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "客户全称"
Caption = "客户全称"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
MarqueeStyle = 3
BeginProperty Column00
ColumnWidth = 824.882
EndProperty
BeginProperty Column01
ColumnWidth = 1830.047
EndProperty
EndProperty
End
Begin MSDataListLib.DataCombo DataCombo1
Bindings = "main_rcyw_xs.frx":0036
Height = 330
Left = 7200
TabIndex = 30
Top = 420
Width = 2265
_ExtentX = 3995
_ExtentY = 582
_Version = 393216
ListField = "姓名"
Text = ""
End
Begin VB.TextBox ph
Enabled = 0 'False
Height = 270
Left = 3720
Locked = -1 'True
TabIndex = 28
Top = 75
Width = 2715
End
Begin VB.TextBox kh
Enabled = 0 'False
Height = 270
Left = 870
TabIndex = 27
Top = 420
Width = 5580
End
Begin VB.TextBox sl
Height = 270
Left = 8190
TabIndex = 26
Text = "0"
Top = 4455
Width = 660
End
Begin VB.ComboBox Combo1
Height = 300
Left = 990
TabIndex = 25
Text = "Combo1"
Top = 4755
Width = 2175
End
Begin VB.TextBox yfje
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H00FF0000&
Height = 195
Left = 9960
Locked = -1 'True
TabIndex = 23
Top = 4485
Width = 1455
End
Begin VB.TextBox zk
Height = 270
Left = 6765
TabIndex = 22
Text = "10"
Top = 4455
Width = 585
End
Begin VB.TextBox text1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 225
Left = 315
TabIndex = 0
Top = 1065
Visible = 0 'False
Width = 2085
End
Begin VB.TextBox hjje
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H00FF0000&
Height = 195
Left = 4140
Locked = -1 'True
TabIndex = 20
Top = 4485
Width = 1785
End
Begin VB.TextBox wf
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H00FF0000&
Height = 195
Left = 6810
Locked = -1 'True
TabIndex = 15
Top = 4800
Width = 1635
End
Begin VB.TextBox sf
BackColor = &H00FFFFFF&
Enabled = 0 'False
Height = 255
Left = 4095
TabIndex = 14
Top = 4770
Width = 1815
End
Begin VB.TextBox pz
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H00FF0000&
Height = 195
Left = 900
Locked = -1 'True
TabIndex = 13
Top = 4485
Width = 615
End
Begin VB.TextBox hjsl
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H00FF0000&
Height = 195
Left = 2430
Locked = -1 'True
TabIndex = 12
Top = 4485
Width = 825
End
Begin VB.TextBox rq
Enabled = 0 'False
Height = 270
Left = 855
Locked = -1 'True
TabIndex = 7
Top = 75
Width = 1980
End
Begin VB.CommandButton ComEnd
BackColor = &H00C0C0C0&
Height = 360
Left = 10035
Picture = "main_rcyw_xs.frx":004B
Style = 1 'Graphical
TabIndex = 6
Top = 5130
Width = 1275
End
Begin VB.CommandButton Comqx
BackColor = &H00C0C0C0&
Enabled = 0 'False
Height = 360
Left = 8760
Picture = "main_rcyw_xs.frx":1A1B
Style = 1 'Graphical
TabIndex = 5
Top = 5130
Width = 1275
End
Begin VB.CommandButton Combc
BackColor = &H00C0C0C0&
Enabled = 0 'False
Height = 360
Left = 7470
Picture = "main_rcyw_xs.frx":34BE
Style = 1 'Graphical
TabIndex = 4
Top = 5130
Width = 1275
End
Begin VB.CommandButton Comdj
BackColor = &H00C0C0C0&
Height = 360
Left = 6195
Picture = "main_rcyw_xs.frx":4F63
Style = 1 'Graphical
TabIndex = 3
Top = 5130
Width = 1275
End
Begin MSFlexGridLib.MSFlexGrid MS1
Height = 3585
Left = 0
TabIndex = 1
Top = 765
Width = 11625
_ExtentX = 20505
_ExtentY = 6324
_Version = 393216
Rows = 1
Cols = 0
FixedRows = 0
FixedCols = 0
BackColor = 16777215
BackColorFixed = 8421504
ForeColorSel = 16777215
BackColorBkg = 16777215
GridColorFixed = 16777215
Enabled = 0 'False
ScrollBars = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "收款方式："
Height = 240
Left = 45
TabIndex = 24
Top = 4800
Width = 1020
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "折扣： 折 税率： % 应收金额： 元"
Height = 315
Left = 6225
TabIndex = 21
Top = 4500
Width = 5445
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "实收金额： 未收金额： 元"
Height = 255
Left = 3240
TabIndex = 17
Top = 4815
Width = 5940
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "销售品种： 合计数量： 合计金额： 元"
Height = 225
Left = 30
TabIndex = 16
Top = 4485
Width = 6885
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "销售票号"
Height = 180
Left = 2940
TabIndex = 11
Top = 135
Width = 795
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "开票日期"
Height = 180
Left = 60
TabIndex = 10
Top = 135
Width = 885
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "购买单位 销售员"
ForeColor = &H00000000&
Height = 255
Left = 60
TabIndex = 9
Top = 480
Width = 8070
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 240
Left = 9105
TabIndex = 8
Top = 120
Width = 2265
End
Begin VB.Label wfje
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 210
Left = 8655
TabIndex = 2
Top = 5865
Visible = 0 'False
Width = 1455
End
End
Attribute VB_Name = "main_rcyw_xs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义数据集对象
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset
Dim rs5 As New ADODB.Recordset
Dim rs6 As New ADODB.Recordset
Dim s, Y, i, j '定义变量
Public khbh As String
Private Sub DataCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
MS1.Row = 1: MS1.Col = 1
Text1.Visible = True 'text1输入框可见
Text1.SetFocus 'text1获得焦点
End If
End Sub
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
With Adodc1.Recordset
'赋值给MS1表格
If .Fields("客户全称") <> "" Then kh.Text = .Fields("客户全称")
If .Fields("客户编号") <> "" Then khbh = .Fields("客户编号")
End With
kh.SetFocus
DataGrid1.Visible = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -