📄 frmygxx.frm
字号:
ImageKey = "dy"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "yl"
ImageKey = "yl"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增加"
Key = "zj"
Object.ToolTipText = "点击或按F5增加记录"
ImageKey = "xz"
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
Key = "xg"
Object.ToolTipText = "点击或按F3修改记录"
ImageKey = "xg"
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "sc"
Object.ToolTipText = "点击或按Ctrl+D删除当前记录"
ImageKey = "sc"
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Key = "sx"
ImageKey = "sx"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "分配"
Key = "fp"
Object.ToolTipText = "分配部门"
ImageKey = "dz"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "bz"
Object.ToolTipText = "点击或按F1帮助"
ImageKey = "bz"
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "fh"
Object.ToolTipText = "点击或按Ctrl+X退出"
ImageKey = "tc"
EndProperty
EndProperty
BorderStyle = 1
End
Begin MSComctlLib.ImageList ImageList1
Index = 0
Left = 2070
Top = 480
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 29
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":06D0
Key = "sz"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":0A6A
Key = "dy"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":0E04
Key = "yl"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":119E
Key = "xg"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":1538
Key = "zh"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":18D2
Key = "sh"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":1C6C
Key = "bc"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":2006
Key = "fq"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":23A0
Key = "bz"
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":273A
Key = "tc"
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":2AD4
Key = "bcgs"
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":2E6E
Key = "mrlk"
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":3208
Key = "xsxm"
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":35A2
Key = "first"
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":393C
Key = "prev"
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":3CD6
Key = "next"
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":4070
Key = "last"
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":440A
Key = "xx"
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":47A4
Key = "define"
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":4B3E
Key = "exec"
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":4ED8
Key = "xz"
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":5272
Key = "sc"
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":560C
Key = "sx"
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":59A6
Key = "cx"
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":5D40
Key = "zd"
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":60DA
Key = "dz"
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":6474
Key = "ph"
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":680E
Key = "fz"
EndProperty
BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":6BA8
Key = "dw"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Index = 1
Left = 720
Top = 3840
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":6F42
Key = "Root"
Object.Tag = "Root"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmYgxx.frx":7D96
Key = "Child"
Object.Tag = "Child"
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView tv
Height = 6375
Left = 120
TabIndex = 20
Top = 720
Width = 2640
_ExtentX = 4657
_ExtentY = 11245
_Version = 393217
LineStyle = 1
Style = 7
ImageList = "ImageList1(1)"
Appearance = 1
End
Begin VB.Image imgSplitter
Height = 6315
Left = 2820
MousePointer = 9 'Size W E
Top = 750
Width = 90
End
End
Attribute VB_Name = "FrmYgxx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Rec_CodeSet As New ADODB.Recordset '编码设置表
Dim Lrzt As Integer '录入状态标志(0-非录入状态 1-增加 2-修改)
Dim AddFlg As Boolean
'以下为固定使用变量(网格)
Dim Cxnrrec As New ADODB.Recordset '显示查询内容动态集
Dim Bln_Cancel As Boolean '取消按钮信息传递
Dim Rstmp As ADODB.Recordset
Dim CBJ As String
Dim CJMC As String
Dim YGXM As String
Dim DelFlg As Boolean
Private Sub BcCommand_Click()
On Error GoTo Err
If Trim(LrText(0).Text) = "" Or Trim(LrText(1).Text) = "" Or Trim(LrText(2).Text) = "" Or Trim(LrText(3).Text) = "" Or Trim(LrText(4).Text) = "" Or Trim(Combo1.Text) = "" Then
MsgBox "记录输入不完整！"
Exit Sub
End If
Cxnrrec!员工编号 = Trim(LrText(0).Text)
Cxnrrec!员工姓名 = Trim(LrText(1).Text)
Cxnrrec!联系电话 = Trim(LrText(2).Text)
Cxnrrec!家庭地址 = Trim(LrText(3).Text)
Cxnrrec!创建日期 = Trim(LrText(4).Text)
Cxnrrec!部门名称 = Combo1.Text
Cxnrrec!创建者 = Xtczy
If AddFlg = True Then
Cxnrrec.Update
MsgBox "记录添加成功！", vbInformation
Cxnrrec.MoveNext
If Cxnrrec.EOF Then Cxnrrec.MoveLast
Else
Cxnrrec.UpdateBatch adAffectAllChapters
MsgBox "记录修改成功！", vbInformation
Cxnrrec.MoveNext
If Cxnrrec.EOF Then Cxnrrec.MoveLast
End If
Call Toolfbjzt
loaddata
Call Cxnrtcwg(Combo1.Text)
Exit Sub
Err:
If AddFlg = True Then
Cxnrrec.CancelUpdate
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -