📄 frmoptions.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmOptions
BorderStyle = 3 'Fixed Dialog
Caption = "基础数据设置"
ClientHeight = 5130
ClientLeft = 2565
ClientTop = 1500
ClientWidth = 7350
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5130
ScaleWidth = 7350
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdModify
Caption = "修改"
Height = 375
Left = 3360
TabIndex = 18
Top = 4560
Width = 975
End
Begin VB.Frame Frame1
Caption = "编号"
Height = 3375
Left = 4200
TabIndex = 11
Top = 720
Width = 2535
Begin VB.TextBox txtName
Height = 375
Left = 240
TabIndex = 15
Top = 2400
Width = 2055
End
Begin VB.TextBox txtId
Height = 375
Left = 240
TabIndex = 12
Top = 960
Width = 2055
End
Begin VB.Label Label1
Caption = "*"
ForeColor = &H000000FF&
Height = 255
Index = 1
Left = 1560
TabIndex = 17
Top = 1920
Width = 255
End
Begin VB.Label Label1
Caption = "*"
ForeColor = &H000000FF&
Height = 255
Index = 0
Left = 1440
TabIndex = 16
Top = 480
Width = 255
End
Begin VB.Label lblName
Caption = "Label1"
Height = 375
Left = 240
TabIndex = 14
Top = 1920
Width = 1335
End
Begin VB.Label lblId
Caption = "Label1"
Height = 375
Left = 240
TabIndex = 13
Top = 480
Width = 1095
End
End
Begin MSDataGridLib.DataGrid dgBasicData
Height = 3255
Left = 480
TabIndex = 10
Top = 840
Width = 3375
_ExtentX = 5953
_ExtentY = 5741
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
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
EndProperty
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
Height = 3780
Index = 3
Left = -20000
ScaleHeight = 3780
ScaleWidth = 5685
TabIndex = 6
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample4
Caption = "示例 4"
Height = 1785
Left = 2100
TabIndex = 9
Top = 840
Width = 2055
End
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
Height = 3780
Index = 2
Left = -20000
ScaleHeight = 3780
ScaleWidth = 5685
TabIndex = 5
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample3
Caption = "示例 3"
Height = 1785
Left = 1545
TabIndex = 8
Top = 675
Width = 2055
End
End
Begin VB.PictureBox picOptions
BorderStyle = 0 'None
Height = 3780
Index = 1
Left = -20000
ScaleHeight = 3780
ScaleWidth = 5685
TabIndex = 4
TabStop = 0 'False
Top = 480
Width = 5685
Begin VB.Frame fraSample2
Caption = "示例 2"
Height = 1785
Left = 645
TabIndex = 7
Top = 300
Width = 2055
End
End
Begin VB.CommandButton cmdDel
Caption = "删除"
Height = 375
Left = 4560
TabIndex = 3
Top = 4560
Width = 1095
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "退出"
Height = 375
Left = 5880
TabIndex = 2
Top = 4560
Width = 1095
End
Begin VB.CommandButton cmdOK
Caption = "添加"
Height = 375
Left = 2160
TabIndex = 1
Top = 4560
Width = 1095
End
Begin MSComctlLib.TabStrip tbsOptions
Height = 4125
Left = 240
TabIndex = 0
Top = 240
Width = 6855
_ExtentX = 12091
_ExtentY = 7276
_Version = 393216
BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628}
NumTabs = 3
BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "职务设置"
Key = "GroupPosition"
ImageVarType = 2
EndProperty
BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "民族设置"
Key = "GroupNation"
ImageVarType = 2
EndProperty
BeginProperty Tab3 {1EFB659A-857C-11D1-B16A-00C0F0283628}
Caption = "文化程度设置"
Key = "GroupEducation"
ImageVarType = 2
EndProperty
EndProperty
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
End
Attribute VB_Name = "frmOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' ******************************************************************************
'窗体公共变量定义
' ******************************************************************************
Option Explicit
Dim txtSQL As String
Dim txtSQLUpdate As String
Dim txtTest As String
Dim str As String
Dim rstOption As ADODB.Recordset
Dim results As String
Dim result As Integer
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdDel_Click()
If txtIsNull(txtId) Then '检验删除记录是否选定
MsgBox "请选择删除的记录！", vbOKOnly + vbExclamation, "警告"
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -