📄 frmchghm.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form frmChgHM
BorderStyle = 1 'Fixed Single
Caption = "修改家庭成员"
ClientHeight = 3630
ClientLeft = 45
ClientTop = 435
ClientWidth = 6345
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3630
ScaleWidth = 6345
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame1
Height = 2655
Left = 0
TabIndex = 4
Top = 0
Width = 6375
Begin VB.CheckBox chkTM
Caption = "透明"
Height = 255
Left = 5640
TabIndex = 19
Top = 0
Width = 735
End
Begin VB.TextBox txtXM
Height = 300
Left = 1320
MaxLength = 10
TabIndex = 11
Top = 240
Width = 1695
End
Begin VB.TextBox txtGX
Height = 300
Left = 4400
MaxLength = 30
TabIndex = 10
Top = 240
Width = 1695
End
Begin VB.TextBox txtDW
Height = 300
Left = 1320
MaxLength = 30
TabIndex = 9
Top = 2040
Width = 4695
End
Begin VB.TextBox txtZW
Height = 300
Left = 1320
MaxLength = 30
TabIndex = 7
Top = 840
Width = 1695
End
Begin VB.ComboBox cboMM
Height = 300
ItemData = "frmChgHM.frx":0000
Left = 4440
List = "frmChgHM.frx":000D
TabIndex = 6
Top = 1440
Width = 1695
End
Begin VB.TextBox txtDH
Height = 300
Left = 1320
MaxLength = 12
TabIndex = 5
Top = 1440
Width = 1695
End
Begin MSComCtl2.DTPicker dtpRQ
Height = 300
Left = 4360
TabIndex = 8
Top = 840
Width = 1695
_ExtentX = 2990
_ExtentY = 529
_Version = 393216
Format = 42926081
CurrentDate = 39540
End
Begin VB.Label Label1
Caption = "成员姓名"
Height = 495
Left = 360
TabIndex = 18
Top = 360
Width = 975
End
Begin VB.Label Label2
Caption = "与本人关系"
Height = 375
Left = 3240
TabIndex = 17
Top = 360
Width = 975
End
Begin VB.Label Label3
Caption = "工作单位"
Height = 255
Left = 360
TabIndex = 16
Top = 2040
Width = 735
End
Begin VB.Label Label4
Caption = "出生日期"
Height = 495
Left = 3360
TabIndex = 15
Top = 840
Width = 1455
End
Begin VB.Label Label5
Caption = "担任职务"
Height = 615
Left = 360
TabIndex = 14
Top = 880
Width = 855
End
Begin VB.Label Label6
Caption = "政治面貌"
Height = 375
Left = 3360
TabIndex = 13
Top = 1440
Width = 855
End
Begin VB.Label Label7
Caption = "联系电话"
Height = 495
Left = 360
TabIndex = 12
Top = 1520
Width = 735
End
End
Begin VB.Frame Frame2
Height = 975
Left = 0
TabIndex = 0
Top = 2640
Width = 6375
Begin MSForms.CommandButton cmdOK
Height = 375
Left = 1035
TabIndex = 3
Top = 360
Width = 1095
Caption = "确定"
PicturePosition = 327683
Size = "1931;661"
Picture = "frmChgHM.frx":0023
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdExit
Height = 375
Left = 4080
TabIndex = 2
Top = 360
Width = 1095
Caption = "返回"
PicturePosition = 327683
Size = "1931;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdClear
Height = 375
Left = 2565
TabIndex = 1
Top = 360
Width = 1095
Caption = "清空"
PicturePosition = 327683
Size = "1931;661"
Picture = "frmChgHM.frx":03BD
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
End
Attribute VB_Name = "frmChgHM"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public gh As String
Public iID As Integer
Private Sub chkTM_Click()
If chkTM.Value = 1 Then
Call DarkMe(Me, 200)
Me.refresh
Else
Call DarkMe(Me, 255)
Me.refresh
End If
End Sub
Private Sub cmdClear_Click()
txtXM = ""
txtGX = ""
txtDW = ""
txtZW = ""
txtDH = ""
cboMM = ""
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdOk_Click()
Dim strSql As String
Dim strMsg As String
Dim rs As ADODB.Recordset
If Trim(txtXM.Text) = "" Then
MsgBox "姓名不能为空"
TextFocus txtXM
Exit Sub
End If
If Trim(cboMM) <> "群众" And Trim(cboMM) <> "团员" And Trim(cboMM) <> "党员" Then
MsgBox "政治面貌不对"
TxtFocus cboMM
Exit Sub
End If
strSql = "delete * from t_hm where 工号='" & gh & "' and ID=" & iID
Set rs = ExecuteSQL(strSql, strMsg)
strSql = "select * from t_hm where 工号='" & gh & "'"
Set rs = ExecuteSQL(strSql, strMsg)
rs.AddNew
rs.Fields("工号").Value = gh
rs.Fields("成员姓名").Value = fitobj(txtXM)
rs.Fields("与本人关系").Value = fitobj(txtGX)
rs.Fields("出生日期").Value = Trim(dtpRQ.Value)
rs.Fields("工作单位").Value = fitobj(txtDW)
rs.Fields("担任职务").Value = fitobj(txtZW)
rs.Fields("政治面貌").Value = fitobj(cboMM)
rs.Fields("联系电话").Value = fitobj(txtDW)
rs.Update
rs.Close
Set rs = Nothing
MsgBox "修改成功"
Call frmRS.showHM(gh)
Unload Me
End Sub
Private Sub Form_Load()
Call DarkMe(Me, 255)
Me.refresh
End Sub
'文本型
Private Function fitobj(objControl As Control)
Dim v As String
v = Trim(objControl)
If v = "" Then
fitobj = Null
Else
fitobj = v
End If
End Function
Private Sub Label6_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -