📄 main_htgl_jhgl.frm
字号:
Locked = -1 'True
TabIndex = 13
Top = 225
Width = 645
End
Begin VB.TextBox hjje
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H000000FF&
Height = 195
Left = 4200
Locked = -1 'True
TabIndex = 12
Top = 225
Width = 1380
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "进货品种： 合计数量： 合计金额： 元"
Height = 225
Left = 60
TabIndex = 15
Top = 225
Width = 5805
End
End
Begin MSDataListLib.DataList DataList1
Bindings = "main_htgl_jhgl.frx":031F
Height = 2790
Left = 4380
TabIndex = 8
Top = 495
Width = 2055
_ExtentX = 3625
_ExtentY = 4921
_Version = 393216
Appearance = 0
BackColor = 16744576
ListField = "供应商全称"
End
Begin VB.TextBox text1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 225
Left = 270
TabIndex = 0
Top = 1125
Visible = 0 'False
Width = 2085
End
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 1395
Left = -2340
TabIndex = 9
Top = 2490
Visible = 0 'False
Width = 3135
Begin VB.TextBox gysye
Height = 285
Left = 1410
TabIndex = 10
Top = 960
Width = 1005
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 330
Top = 240
Width = 1905
_ExtentX = 3360
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=CYGLXT"
OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=CYGLXT"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from 供应商信息表"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc2
Height = 330
Left = 345
Top = 600
Width = 1905
_ExtentX = 3360
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=CYGLXT"
OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=CYGLXT"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from 商品基础信息表"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Begin VB.CommandButton ComEnd
BackColor = &H00C0C0C0&
Height = 360
Left = 9855
Picture = "main_htgl_jhgl.frx":0334
Style = 1 'Graphical
TabIndex = 6
Top = 5400
Width = 1275
End
Begin VB.CommandButton Comdy
BackColor = &H00C0C0C0&
Height = 360
Left = 8580
Picture = "main_htgl_jhgl.frx":1D04
Style = 1 'Graphical
TabIndex = 5
Top = 5400
Width = 1275
End
Begin VB.CommandButton Comqx
BackColor = &H00C0C0C0&
Enabled = 0 'False
Height = 360
Left = 7305
Picture = "main_htgl_jhgl.frx":3618
Style = 1 'Graphical
TabIndex = 4
Top = 5400
Width = 1275
End
Begin VB.CommandButton Combc
BackColor = &H00C0C0C0&
Enabled = 0 'False
Height = 360
Left = 6015
Picture = "main_htgl_jhgl.frx":50BB
Style = 1 'Graphical
TabIndex = 3
Top = 5400
Width = 1275
End
Begin VB.CommandButton Comdj
BackColor = &H00C0C0C0&
Height = 360
Left = 4740
Picture = "main_htgl_jhgl.frx":6B60
Style = 1 'Graphical
TabIndex = 2
Top = 5400
Width = 1275
End
Begin MSFlexGridLib.MSFlexGrid MS1
Height = 3585
Left = 0
TabIndex = 1
Top = 840
Width = 11160
_ExtentX = 19685
_ExtentY = 6324
_Version = 393216
Rows = 1
Cols = 1
FixedRows = 0
FixedCols = 0
BackColor = 16777215
BackColorFixed = 8421504
ForeColorSel = 16777215
BackColorBkg = 16777215
GridColorFixed = 16777215
Enabled = 0 'False
FocusRect = 2
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.Frame Frame3
Height = 510
Left = 15
TabIndex = 16
Top = 4815
Width = 11130
Begin VB.TextBox sf
BackColor = &H00FFFFFF&
Height = 255
Left = 4170
TabIndex = 24
Top = 165
Width = 1725
End
Begin VB.TextBox wf
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
ForeColor = &H000000FF&
Height = 195
Left = 6885
Locked = -1 'True
TabIndex = 23
Top = 195
Width = 1635
End
Begin VB.ComboBox Combo1
Height = 300
Left = 945
TabIndex = 22
Text = "Combo1"
Top = 150
Width = 2325
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "实付金额： 未付金额： 元"
Height = 255
Left = 3315
TabIndex = 26
Top = 210
Width = 5940
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "付款方式："
Height = 240
Left = 60
TabIndex = 25
Top = 195
Width = 1020
End
End
Begin VB.Frame Frame6
Height = 510
Left = 30
TabIndex = 32
Top = 315
Width = 6525
Begin VB.TextBox gys
Height = 270
Left = 840
TabIndex = 34
Top = 165
Width = 5580
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "供货单位"
ForeColor = &H00000000&
Height = 255
Left = 60
TabIndex = 35
Top = 210
Width = 1215
End
End
Begin VB.Frame Frame7
Height = 510
Left = 6525
TabIndex = 33
Top = 315
Width = 4335
Begin VB.ComboBox jsr
Height = 300
Left = 705
TabIndex = 37
Text = "Combo2"
Top = 150
Width = 1560
End
Begin VB.ComboBox ck
Height = 300
Left = 2970
TabIndex = 36
Text = "Combo2"
Top = 150
Width = 1260
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "经手人 仓 库 "
Height = 225
Left = 135
TabIndex = 38
Top = 210
Width = 3600
End
End
End
Attribute VB_Name = "main_htgl_jhgl"
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 s, y, i, j '定义变量
Dim lsph As Integer '定义一个整型变量
Public Sub yfje_exp() '定义求应付金额的函数
yfje.text = Format((Val(hjje.text) * (Val(zk.text) / 10)) + (Val(yfje.text) * (Val(sl.text) / 100)), "0.00")
End Sub
Private Sub Form_Activate()
rkrq.text = Date '初始化进货日期
'向combo1添加付款方式列表
Combo1.AddItem ("现金")
Combo1.AddItem ("支票")
Combo1.AddItem ("欠帐")
Combo1.ListIndex = 0
'打开"员工信息表"
rs1.Open "select 员工姓名 from 员工信息表 group by 员工姓名", cnn, adOpenKeyset, adLockOptimistic
'添加经手人列表
If rs1.BOF = False Then rs1.MoveFirst
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -