📄 frm_infochange.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Begin VB.Form Frm_InfoChange
Caption = "基本信息修改窗口"
ClientHeight = 7395
ClientLeft = 60
ClientTop = 345
ClientWidth = 10290
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7395
ScaleWidth = 10290
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame2
Height = 6165
Left = 90
TabIndex = 1
Top = 1170
Width = 10095
Begin MSFlexGridLib.MSFlexGrid Grid1
Height = 5985
Left = 30
TabIndex = 2
Top = 120
Width = 10005
_ExtentX = 17648
_ExtentY = 10557
_Version = 393216
Cols = 18
FixedCols = 0
AllowUserResizing= 1
Appearance = 0
End
End
Begin VB.Frame Frame1
Height = 1035
Left = 90
TabIndex = 0
Top = 30
Width = 10095
Begin VB.CommandButton Cmd_OK
Caption = " 查 询"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 8250
TabIndex = 7
Top = 300
Width = 1455
End
Begin VB.TextBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 4890
TabIndex = 6
Top = 360
Width = 2325
End
Begin VB.ComboBox Combo1
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 1500
TabIndex = 4
Top = 360
Width = 1965
End
Begin VB.Label Label1
Caption = "选择查询内容"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 1
Left = 3570
TabIndex = 5
Top = 420
Width = 1335
End
Begin VB.Label Label1
Caption = "选择查询字段"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 0
Left = 180
TabIndex = 3
Top = 420
Width = 1335
End
End
End
Attribute VB_Name = "Frm_InfoChange"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_FieldName As String
Private Sub Cmd_OK_Click()
Dim m_Rs As New ADODB.Recordset
Dim strSql As String
Dim i As Integer
If (Combo1.Text = "") And (Text1.Text = "") Then
strSql = "SELECT * FROM StuffInfo Order By ID"
Else
strSql = "SELECT * FROM StuffInfo WHERE " & Trim(m_FieldName) & " like '%" & Trim(Text1.Text) & "%'"
End If
''''MsgBox strSql
Set m_Rs = ExecuteSQL(strSql, "Person.mdb")
If m_Rs.RecordCount <> 0 Then
'''''''初始化表格行数''''''''''''
Grid1.Rows = 2
For i = 1 To Grid1.Cols - 1
Grid1.TextMatrix(1, i) = ""
Next
'''''''''''''''''''''''''''''''''''
i = 1
Do While Not m_Rs.EOF
Grid1.Rows = i + 2
Grid1.TextMatrix(i, 0) = m_Rs("SID")
Grid1.TextMatrix(i, 1) = m_Rs("SName")
Grid1.TextMatrix(i, 2) = m_Rs("SDept")
Grid1.TextMatrix(i, 3) = m_Rs("SGender")
Grid1.TextMatrix(i, 4) = m_Rs("SPlace")
Grid1.TextMatrix(i, 5) = m_Rs("SAge")
Grid1.TextMatrix(i, 6) = m_Rs("SBirthday")
Grid1.TextMatrix(i, 7) = m_Rs("SDegree")
Grid1.TextMatrix(i, 8) = m_Rs("SSpecial")
Grid1.TextMatrix(i, 9) = m_Rs("SAddress")
Grid1.TextMatrix(i, 10) = m_Rs("SCode")
Grid1.TextMatrix(i, 11) = m_Rs("STel")
Grid1.TextMatrix(i, 12) = m_Rs("SEmail")
Grid1.TextMatrix(i, 13) = m_Rs("SWorkTime")
Grid1.TextMatrix(i, 14) = m_Rs("SInTime")
Grid1.TextMatrix(i, 15) = m_Rs("SPayTime")
Grid1.TextMatrix(i, 16) = m_Rs("Sposition")
Grid1.TextMatrix(i, 17) = m_Rs("SRemark")
m_Rs.MoveNext
i = i + 1
Loop
End If
End Sub
Private Sub Combo1_Click()
Select Case Trim(Combo1.Text)
Case "职工编号"
m_FieldName = "SID"
Case "职工姓名"
m_FieldName = "SName"
Case "职工性别"
m_FieldName = "SGender"
Case "籍贯"
m_FieldName = "SPlace"
Case "出生日期"
m_FieldName = "SBirthday"
Case "年龄"
m_FieldName = "SAge"
Case "学历"
m_FieldName = "SDegree"
Case "专业"
m_FieldName = "SSpecial"
Case "家庭住址"
m_FieldName = "SAddress"
Case "参加工作时间"
m_FieldName = "SWorkTime"
Case "进入本单位时间"
m_FieldName = "SInTime"
Case "所在部门"
m_FieldName = "SDept"
End Select
End Sub
Private Sub Form_Load()
'''''''添加字段名称''''''''''
Combo1.AddItem "职工编号"
Combo1.AddItem "职工姓名"
Combo1.AddItem "职工性别"
Combo1.AddItem "籍贯"
Combo1.AddItem "出生日期"
Combo1.AddItem "年龄"
Combo1.AddItem "学历"
Combo1.AddItem "专业"
Combo1.AddItem "家庭住址"
Combo1.AddItem "参加工作时间"
Combo1.AddItem "进入本单位时间"
Combo1.AddItem "所在部门"
''''''添加标题'''''''''''''''''
Grid1.FormatString = " 职工编号 |^职工姓名|^ 所在部门 |^性别|^ 籍 贯 |^年龄|^ 出 生 日 期 |^ 学 历 |^ 专 业 |^ 家庭住址 |^ 邮政编码 |^ 电 话 |^ E-Mail |^ 参加工作时间 |^进入本单位时间|^ 起薪时间 |^ 职务 |^ 备注 "
End Sub
Private Sub Grid1_DblClick()
iFlag = 1 ''''代表修改记录''''''''''
Dim i As Integer
For i = 0 To Grid1.Cols - 1
sData(i) = Grid1.TextMatrix(Grid1.Row, i)
Next
Frm_InfoInput.Show 1
End Sub
Private Sub Grid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 2 Then
PopupMenu Frm_PopMenu.popmenu
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -