?? 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 + -