📄 fojkd.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.1#0"; "COMCTL32.OCX"
Begin VB.Form Frmtianjia
Caption = "Form1"
ClientHeight = 4815
ClientLeft = 60
ClientTop = 345
ClientWidth = 8325
LinkTopic = "Form1"
ScaleHeight = 4815
ScaleWidth = 8325
StartUpPosition = 3 'Windows Default
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 3405
Left = 150
TabIndex = 1
Top = 540
Width = 7845
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 390
Left = 1350
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "ZBQKB"
Top = 2940
Visible = 0 'False
Width = 1305
End
Begin VB.ComboBox cboPYFS
BackColor = &H00C0C0FF&
DataField = "PYFS"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 1050
TabIndex = 39
Text = " "
Top = 2070
Width = 2745
End
Begin VB.TextBox txtBYZX
BackColor = &H00C0C0FF&
DataField = "BYZX"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 1050
TabIndex = 38
Top = 2520
Width = 2745
End
Begin VB.TextBox txtSFZHM
BackColor = &H00C0C0FF&
DataField = "SFZHM"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 5100
TabIndex = 35
Top = 2085
Width = 2535
End
Begin VB.TextBox txtLTKHM
BackColor = &H00C0C0FF&
DataField = "LTKHM"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 5100
TabIndex = 34
Top = 2565
Width = 2565
End
Begin VB.TextBox txtTC
BackColor = &H00C0C0FF&
DataField = "TC"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 6525
TabIndex = 31
Top = 1620
Width = 1095
End
Begin VB.TextBox txtZY
BackColor = &H00C0C0FF&
DataField = "ZY"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 6525
TabIndex = 30
Top = 1140
Width = 1095
End
Begin VB.ComboBox cboXL
BackColor = &H00C0C0FF&
DataField = "XL"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 4830
TabIndex = 28
Text = " "
Top = 1590
Width = 1095
End
Begin VB.ComboBox cboZZMM
BackColor = &H00C0C0FF&
DataField = "ZZMM"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 4830
TabIndex = 26
Text = " "
Top = 1150
Width = 1095
End
Begin VB.ComboBox cboSY
BackColor = &H00C0C0FF&
DataField = "SY"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
ItemData = "FoJKD.frx":0000
Left = 2700
List = "FoJKD.frx":0002
TabIndex = 23
Text = " "
Top = 1170
Width = 1095
End
Begin VB.TextBox txtDH
BackColor = &H00C0C0FF&
DataField = "DH"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 2700
TabIndex = 22
Top = 1620
Width = 1095
End
Begin VB.ComboBox cboNJ
BackColor = &H00C0C0FF&
DataField = "NJ"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 1050
TabIndex = 19
Text = " "
Top = 1170
Width = 1095
End
Begin VB.TextBox txtSS
BackColor = &H00C0C0FF&
DataField = "SS"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 1050
TabIndex = 18
Top = 1620
Width = 1095
End
Begin VB.ComboBox cboXB
BackColor = &H00C0C0FF&
DataField = "XB"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 6525
TabIndex = 15
Text = " "
Top = 270
Width = 1095
End
Begin VB.TextBox txtBJ
BackColor = &H00C0C0FF&
DataField = "BJ"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Left = 6525
TabIndex = 14
Text = " "
Top = 735
Width = 1095
End
Begin VB.ComboBox cboHKSX
BackColor = &H00C0C0FF&
DataField = "HKSX"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -