📄 frmpuboapower.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{0D6234D1-DBA2-11D1-B5DF-0060976089D0}#6.0#0"; "TODG6.OCX"
Begin VB.Form frmPubOAPower
Caption = "629"
ClientHeight = 5520
ClientLeft = 165
ClientTop = 735
ClientWidth = 8220
LinkTopic = "Form2"
ScaleHeight = 5520
ScaleWidth = 8220
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.PictureBox PicMoving
Appearance = 0 'Flat
BackColor = &H80000016&
ForeColor = &H80000008&
Height = 4365
Left = 7830
ScaleHeight = 4335
ScaleWidth = 45
TabIndex = 5
Top = 870
Visible = 0 'False
Width = 75
End
Begin VB.PictureBox picMain
Height = 4275
Left = 1800
ScaleHeight = 4215
ScaleWidth = 5265
TabIndex = 2
Top = 960
Width = 5325
Begin TrueOleDBGrid60.TDBGrid TDBGrid1
Height = 4125
Left = 0
OleObjectBlob = "frmPubOAPower.frx":0000
TabIndex = 6
Top = 0
Width = 5205
End
End
Begin VB.PictureBox picState
Height = 315
Left = 1800
ScaleHeight = 255
ScaleWidth = 6015
TabIndex = 1
Top = 600
Width = 6075
End
Begin MSComctlLib.ImageList ImageList1
Left = 7200
Top = 3420
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPubOAPower.frx":85A1
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPubOAPower.frx":88BD
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmPubOAPower.frx":8BD9
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 0
Top = 0
Width = 8220
_ExtentX = 14499
_ExtentY = 979
ButtonWidth = 609
ButtonHeight = 926
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "-"
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "63"
Key = "tbGroup"
ImageIndex = 1
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 1
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "64"
Key = "tbUserID"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "-"
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "36"
Key = "tbFrash"
ImageIndex = 2
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "-"
Style = 3
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TvwPower
Height = 4335
Left = 60
TabIndex = 3
Top = 960
Width = 1635
_ExtentX = 2884
_ExtentY = 7646
_Version = 393217
Indentation = 647
LineStyle = 1
Sorted = -1 'True
Style = 7
Appearance = 1
MouseIcon = "frmPubOAPower.frx":8EF5
End
Begin VB.Image imgMove
Height = 4215
Left = 1680
MousePointer = 9 'Size W E
Top = 960
Width = 75
End
Begin VB.Label lblPower
Alignment = 2 'Center
BorderStyle = 1 'Fixed Single
Caption = "63"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 60
TabIndex = 4
Top = 600
Width = 1635
End
Begin VB.Menu mnuFile
Caption = "44"
Begin VB.Menu menuClose
Caption = "11"
End
End
Begin VB.Menu popMenu
Caption = "633"
Visible = 0 'False
Begin VB.Menu mnuNewGroup
Caption = "630"
End
Begin VB.Menu mnuEditGroup
Caption = "631"
End
Begin VB.Menu mnuNewUser
Caption = "632"
End
Begin VB.Menu mnuEditUser
Caption = "633"
End
Begin VB.Menu menuIni
Caption = "634"
End
End
End
Attribute VB_Name = "frmPubOAPower"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public isMove As Boolean
Const sglSplitLimit = 500
'Private Sub iniTdbgMain()
'On Error GoTo Err_iniTdbgMain
' Dim Temp As New TrueOleDBGrid60.ValueItem
' Me.TDBGrid1.AllowAddNew = False
' Me.TDBGrid1.AllowUpdate = True
' Me.TDBGrid1.AllowDelete = False
' Me.TDBGrid1.Columns(0).ValueItems.AnnotatePicture = True
' Me.TDBGrid1.Columns(0).ValueItems.Translate = True
' With Me.TDBGrid1.Columns(0).ValueItems
' Temp.Value = "Admin"
' 'Temp.DisplayValue = LoadPicture("c:\windows\Circles.bmp")
' .Add Temp
' End With
'
'
' Me.TDBGrid1.Columns(0).Merge = True
' Me.TDBGrid1.Columns(1).Merge = True
' Me.TDBGrid1.Columns(2).Merge = True
'
' Me.TDBGrid1.Columns(0).Alignment = 2
' 'me.TDBGrid1.Appearanc
' Me.TDBGrid1.Columns(3).ValueItems.Presentation = 4
' Me.TDBGrid1.Columns(4).ValueItems.Presentation = 4
' Me.TDBGrid1.Columns(5).ValueItems.Presentation = 4
' Me.TDBGrid1.Columns(6).ValueItems.Presentation = 4
' Me.TDBGrid1.Columns(7).ValueItems.Presentation = 4
' Me.TDBGrid1.Columns(8).ValueItems.Presentation = 4
' Me.TDBGrid1.MarqueeStyle = 4
' Me.TDBGrid1.HighlightRowStyle.BackColor = &O0
' TDBGrid1.EvenRowStyle.BackColor = &H80FFFF
' TDBGrid1.OddRowStyle.BackColor = &HC0FFFF
'
' TDBGrid1.HighlightRowStyle.BackColor = &H400000
' TDBGrid1.HighlightRowStyle.ForeColor = vbWhite
' TDBGrid1.AlternatingRowStyle = True
' TDBGrid1.Columns(0).Caption = "组ID"
' TDBGrid1.Columns(1).Caption = "组说明"
' TDBGrid1.Columns(2).Caption = "用户名"
' TDBGrid1.Columns(3).Caption = "新增"
' TDBGrid1.Columns(4).Caption = "修改"
' TDBGrid1.Columns(5).Caption = "查询"
' TDBGrid1.Columns(6).Caption = "审核"
' TDBGrid1.Columns(7).Caption = "记帐"
' TDBGrid1.Columns(8).Caption = "财务"
'
'
' Exit Sub
'
'Err_iniTdbgMain:
' MisMsg "iniTdbgMain Error: " & Err.Description
' Exit Sub
'End Sub
Private Sub CmdDel_Click()
Me.TDBGrid1.AllowDelete = True
Me.TDBGrid1.Refresh
End Sub
Private Sub cmdNew_Click()
Me.TDBGrid1.AllowAddNew = True
Me.TDBGrid1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Me.TDBGrid1.AllowDelete = True
Me.TDBGrid1.AllowUpdate = True
Me.TDBGrid1.Refresh
End Sub
Private Sub Form_Load()
isMove = False
iniTvw
IniSize 2200
Me.Caption = LoadResString(Val(Me.Caption & GLanguageID))
GGetRes GLanguageID, Me
End Sub
Private Sub Form_Resize()
IniSize 2200
End Sub
Private Sub imgMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
isMove = True
With imgMove
PicMoving.Move .Left, .Top, 30, .Height
End With
PicMoving.Visible = True
End Sub
Private Sub imgMove_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim sglPos As Single
If isMove = True Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -