📄
字号:
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
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
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
BeginProperty Column02
EndProperty
BeginProperty Column03
EndProperty
BeginProperty Column04
EndProperty
EndProperty
End
Begin MSAdodcLib.Adodc Adodc3
Height = 375
Left = -70560
Top = 2820
Width = 1935
_ExtentX = 3413
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 3
Appearance = 1
BackColor = 12648384
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=样品检测项目系统"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "样品检测项目系统"
OtherAttributes = ""
UserName = "sa"
Password = ""
RecordSource = "select * from 周期表"
Caption = "周期表"
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 = 375
Left = -74880
Top = 2820
Width = 1935
_ExtentX = 3413
_ExtentY = 661
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= 3
Appearance = 1
BackColor = 16761024
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=样品检测项目系统"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "样品检测项目系统"
OtherAttributes = ""
UserName = "sa"
Password = ""
RecordSource = "select * from 项目表"
Caption = "项目表"
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 VB.Label Label20
AutoSize = -1 'True
Caption = "检验历史"
Height = 180
Left = -66720
TabIndex = 50
Top = 840
Width = 720
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "抽象值"
Height = 180
Left = -65520
TabIndex = 49
Top = 3120
Visible = 0 'False
Width = 540
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "检验周期"
Height = 180
Left = -68040
TabIndex = 48
Top = 840
Width = 720
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "检验指标"
Height = 180
Left = -70440
TabIndex = 47
Top = 840
Width = 720
End
Begin VB.Label Label16
AutoSize = -1 'True
Caption = "项目名称"
Height = 180
Left = -73080
TabIndex = 46
Top = 840
Width = 720
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "项目代号"
Height = 180
Left = -74040
TabIndex = 45
Top = 840
Width = 720
End
End
Begin VB.Frame FrmYPXXB
Caption = "样品信息表"
Height = 1695
Left = 4200
TabIndex = 4
Top = 720
Width = 4215
Begin VB.TextBox TxtBZ
DataField = "备注"
DataSource = "Adodc1"
Height = 270
Left = 1200
Locked = -1 'True
TabIndex = 8
Text = "TxtBZ"
Top = 1320
Width = 2895
End
Begin VB.TextBox TxtJYLS
DataField = "检验历史"
DataSource = "Adodc1"
Height = 270
Left = 1200
Locked = -1 'True
TabIndex = 7
Text = "TxtJYLS"
Top = 960
Width = 2895
End
Begin VB.TextBox TxtJYXM
DataField = "检验项目"
DataSource = "Adodc1"
Height = 270
Left = 1200
Locked = -1 'True
TabIndex = 6
Text = "TxtJYXM"
Top = 600
Width = 2895
End
Begin VB.TextBox TxtYPMC
DataField = "样品名称"
DataSource = "Adodc1"
Height = 270
Left = 1200
Locked = -1 'True
TabIndex = 5
Text = "TxtYPMC"
Top = 240
Width = 2895
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "样品名称"
Height = 180
Left = 240
TabIndex = 12
Top = 240
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "检验项目"
Height = 180
Left = 240
TabIndex = 11
Top = 600
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "检验历史"
Height = 180
Left = 240
TabIndex = 10
Top = 960
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "备注"
Height = 180
Left = 240
TabIndex = 9
Top = 1320
Width = 360
End
End
Begin MSComctlLib.ImageList ImageList1
Left = 8040
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "检验项目生成.frx":09A3
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "检验项目生成.frx":127D
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "检验项目生成.frx":1B57
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "检验项目生成.frx":2831
Key = ""
EndProperty
EndProperty
End
Begin VB.Frame FrmSR
Caption = "输入"
Height = 1695
Left = 120
TabIndex = 0
Top = 720
Width = 3735
Begin VB.CommandButton CmdConfirm
Caption = "确认"
Height = 375
Left = 1320
TabIndex = 2
Top = 1080
Width = 975
End
Begin VB.TextBox TxtYPMC_CX
Height = 270
Left = 120
TabIndex = 1
Top = 480
Width = 3375
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "样品名称"
Height = 300
Left = 120
TabIndex = 3
Top = 240
Width = 720
End
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 13
Top = 0
Width = 11490
_ExtentX = 20267
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 4
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "JXXMSC"
Object.ToolTipText = "检验项目生成"
ImageIndex = 4
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "XMB"
Object.ToolTipText = "项目表"
ImageIndex = 1
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "YPXXB"
Object.ToolTipText = "样品信息表"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "ZQB"
Object.ToolTipText = "周期表"
ImageIndex = 3
EndProperty
EndProperty
End
End
Attribute VB_Name = "检验项目生成"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdConfirm_Click()
sqltext = "select * from 样品信息表 where 样品名称 Like '" & "%" & TxtYPMC_CX.Text & "%" & "'"
Adodc1.RecordSource = sqltext
Adodc1.Refresh
If Adodc1.Recordset.EOF = True Then
MsgBox "没有找到这样的样品，请确认填入的样品名称"
Adodc1.RecordSource = "select * from 样品信息表"
Adodc1.Refresh
Else
msgtext = "找到" & Adodc1.Recordset.RecordCount & "个符合的记录,请在表格中确认。"
MsgBox (msgtext)
End If
End Sub
Private Sub TabStrip1_Click()
End Sub
Private Sub CmdExplan_Click()
P_YPMC = Trim(TxtYPMC.Text)
P_JYXM = Trim(TxtJYXM.Text)
'下面对检验项目代码进行分析,形成N_JYXM数组
'Adodc1.Recordset.Fields(j).Value
lenth_JYXM = Len(P_JYXM)
temptext = P_JYXM
lentext = lenth_JYXM
'Option Base 1
'Rows = lentext / 5
Dim N_JYXM(29, 5)
i = 0
y = 0 '用Y来记录N_JYXM数组的行数。
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -