📄 frmmodifysinfo.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmModifysinfo
Caption = "修改学籍信息"
ClientHeight = 7725
ClientLeft = 45
ClientTop = 345
ClientWidth = 11400
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 7725
ScaleWidth = 11400
Begin VB.Frame Frame1
Caption = "查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1932
Left = 0
TabIndex = 1
Top = 3840
Width = 9135
Begin VB.CheckBox Check3
Caption = "按班号："
Height = 300
Left = 5040
TabIndex = 9
Top = 360
Width = 1095
End
Begin VB.CheckBox Check1
Caption = "按学号："
Height = 255
Left = 120
TabIndex = 8
Top = 360
Width = 1095
End
Begin VB.CheckBox Check2
Caption = "按姓名："
Height = 255
Left = 2640
TabIndex = 7
Top = 360
Width = 1095
End
Begin VB.TextBox txtCourse
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 6120
TabIndex = 6
Top = 360
Width = 1092
End
Begin VB.TextBox txtName
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 3720
TabIndex = 5
Top = 360
Width = 1092
End
Begin VB.TextBox txtSID
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 372
Left = 1200
TabIndex = 4
Top = 360
Width = 1092
End
Begin VB.CommandButton cmdExit
Caption = "退出查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 5040
TabIndex = 3
Top = 1080
Width = 1212
End
Begin VB.CommandButton cmdInquire
Caption = "查询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 492
Left = 2760
TabIndex = 2
Top = 1080
Width = 1212
End
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "frmModifysinfo.frx":0000
Height = 3855
Left = 0
TabIndex = 0
Top = 0
Visible = 0 'False
Width = 9135
_ExtentX = 16113
_ExtentY = 6800
_Version = 393216
AllowUpdate = 0 'False
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
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 = 9
BeginProperty Column00
DataField = "student_ID"
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 = "student_Name"
Caption = "姓名"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "student_Sex"
Caption = "性别"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "born_Date"
Caption = "生日"
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 = "class_NO"
Caption = "班号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "tele_Number"
Caption = "电话号码"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "ru_Date"
Caption = "入学日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "address"
Caption = "家庭地址"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "comment"
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
BeginProperty Column05
EndProperty
BeginProperty Column06
EndProperty
BeginProperty Column07
EndProperty
BeginProperty Column08
EndProperty
EndProperty
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 0
Top = 5760
Visible = 0 'False
Width = 1815
_ExtentX = 3201
_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 = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "DSN=Student"
OLEDBString = ""
OLEDBFile = ""
DataSourceName = "Student"
OtherAttributes = ""
UserName = "sa"
Password = "sa"
RecordSource = "SELECT * FROM student_Info"
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
Attribute VB_Name = "frmModifysinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SearchStr As String
Dim TmpSource As String
Private Sub cmdInquire_Click()
'If Check1 = 1 And Check2 = 0 And Check3 = 0 Then
TmpSource = "SELECT * FROM student_Info WHERE student_ID='" + Trim(txtSID) + "'"
'End If
Adobc1.RecordSource = TmpSource
Adobc1.Refresh
End Sub
Private Sub Refresh_Stu(ByVal TmpSearch As Boolean)
If CurArea.AreaId <= 0 And Check1.Value = 0 Then
DataGrid1.Visible = False
Exit Sub
End If
DataGrid1.Visible = True
TmpSource = "SELECT * FROM student_Info WHERE student_ID=" + Trim(txtSID)
'地域
If TmpSearch = True Then
TmpSource = TmpSource + " And (o.OrgName LIKE '%" + SearchStr _
+ "%' Or d.AreaName LIKE '%" + SearchStr _
+ "%' Or t.TypeName LIKE '%" + SearchStr _
+ "%' Or l.CltName LIKE '%" + SearchStr _
+ "%' Or l.Sex LIKE '%" + SearchStr _
+ "%' Or j.JobName LIKE '%" + SearchStr _
+ "%' Or l.Office LIKE '%" + SearchStr _
+ "%' Or l.Mobile LIKE '%" + SearchStr _
+ "%' Or l.Address LIKE '%" + SearchStr _
+ "%' Or l.Postcode LIKE '%" + SearchStr + "%')"
End If
TmpSource = TmpSource + " ORDER BY d.AreaId, o.OrgName, l.CltName"
Adodc1.RecordSource = TmpSource
Adodc1.Refresh
If DataGrid1.Visible = False Then
lblSel = 0
Else
lblSel = Adodc1.Recordset.RecordCount
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -