📄 main_rcyw_rk.frm
字号:
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=Gcgl;Initial Catalog=Gcgl"
OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from spinf"
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 Adodc3
Height = 330
Left = 315
Top = 930
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=Gcgl;Initial Catalog=Gcgl"
OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from ckinf"
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 Adodc4
Height = 330
Left = 315
Top = 1320
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=Gcgl;Initial Catalog=Gcgl"
OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from yginf"
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 Adodc5
Height = 330
Left = 315
Top = 1740
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=Gcgl;Initial Catalog=Gcgl"
OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from gysmx"
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.TextBox wf
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 195
Left = 6810
TabIndex = 14
Top = 4800
Width = 1635
End
Begin VB.TextBox sf
BackColor = &H00FFFFFF&
Enabled = 0 'False
Height = 255
Left = 4095
TabIndex = 13
Top = 4770
Width = 1815
End
Begin VB.TextBox pz
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 195
Left = 870
Locked = -1 'True
TabIndex = 12
Top = 4470
Width = 645
End
Begin VB.TextBox hjsl
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
Enabled = 0 'False
Height = 195
Left = 2370
Locked = -1 'True
TabIndex = 11
Top = 4470
Width = 885
End
Begin VB.TextBox rq
Enabled = 0 'False
Height = 270
Left = 810
Locked = -1 'True
TabIndex = 6
Top = 75
Width = 1980
End
Begin VB.CommandButton ComEnd
BackColor = &H00C0C0C0&
Height = 360
Left = 10020
Picture = "main_rcyw_rk.frx":004B
Style = 1 'Graphical
TabIndex = 5
Top = 5145
Width = 1275
End
Begin VB.CommandButton Comqx
BackColor = &H00C0C0C0&
Enabled = 0 'False
Height = 360
Left = 8745
Picture = "main_rcyw_rk.frx":1A1B
Style = 1 'Graphical
TabIndex = 4
Top = 5145
Width = 1275
End
Begin VB.CommandButton Combc
BackColor = &H00C0C0C0&
Enabled = 0 'False
Height = 360
Left = 7470
Picture = "main_rcyw_rk.frx":34BE
Style = 1 'Graphical
TabIndex = 3
Top = 5145
Width = 1275
End
Begin VB.CommandButton Comdj
BackColor = &H00C0C0C0&
Height = 360
Left = 6180
Picture = "main_rcyw_rk.frx":4F63
Style = 1 'Graphical
TabIndex = 2
Top = 5145
Width = 1275
End
Begin MSFlexGridLib.MSFlexGrid MS1
Height = 3585
Left = 15
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 MSDataListLib.DataCombo ck
Bindings = "main_rcyw_rk.frx":6AAB
Height = 330
Left = 9090
TabIndex = 31
Top = 435
Width = 2070
_ExtentX = 3651
_ExtentY = 582
_Version = 393216
ListField = "仓库名称"
Text = ""
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "付款方式："
Height = 240
Left = 15
TabIndex = 26
Top = 4800
Width = 1020
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "折扣： 折 税率： % 应付金额： 元"
Height = 315
Left = 6225
TabIndex = 23
Top = 4485
Width = 5445
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "仓 库 "
Height = 225
Left = 8400
TabIndex = 20
Top = 480
Width = 900
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "实付金额： 未付金额： 元"
Height = 255
Left = 3240
TabIndex = 16
Top = 4800
Width = 5940
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "入库品种： 合计数量： 合计金额： 元"
Height = 225
Left = 30
TabIndex = 15
Top = 4470
Width = 6885
End
Begin VB.Label Label4
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "录单票号"
Height = 180
Left = 2895
TabIndex = 10
Top = 135
Width = 795
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
Caption = "录单日期"
Height = 180
Left = 15
TabIndex = 9
Top = 135
Width = 885
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "供货单位"
ForeColor = &H00000000&
Height = 255
Left = 30
TabIndex = 8
Top = 480
Width = 1215
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "经手人"
Height = 315
Left = 6450
TabIndex = 7
Top = 480
Width = 720
End
End
Attribute VB_Name = "main_rcyw_rk"
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 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() '初始化设置
rq.Text = Date
Combo1.AddItem ("现金"): Combo1.AddItem ("转帐支票")
Combo1.AddItem ("汇票"): Combo1.ListIndex = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -