📄 frmin_pztypelist.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{7802D41A-28B0-43C4-95EA-17B7E32337D1}#1.0#0"; "CellCtrl5.ocx"
Begin VB.Form frmIN_PzTypeList
BorderStyle = 1 'Fixed Single
Caption = "凭证类别设置"
ClientHeight = 4515
ClientLeft = 45
ClientTop = 615
ClientWidth = 7635
HelpContextID = 1025
Icon = "frmIN_PzTypeList.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4515
ScaleWidth = 7635
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin CELL50Lib.Cell Cell1
Height = 735
Left = 3120
TabIndex = 10
Top = 1920
Visible = 0 'False
Width = 1455
_Version = 65536
_ExtentX = 2566
_ExtentY = 1296
_StockProps = 0
End
Begin MSComctlLib.Toolbar tbrPzType
Align = 1 'Align Top
Height = 555
Left = 0
TabIndex = 9
Top = 0
Width = 7635
_ExtentX = 13467
_ExtentY = 979
ButtonWidth = 820
ButtonHeight = 926
AllowCustomize = 0 'False
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "Print"
Object.ToolTipText = "打印"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "预览"
Key = "Preview"
Object.ToolTipText = "预览"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "增加"
Key = "Add"
Object.ToolTipText = "增加"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Key = "Delete"
Object.ToolTipText = "删除"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Key = "Save"
Object.ToolTipText = "保存"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "取消"
Key = "Cancel"
Object.ToolTipText = "取消"
ImageIndex = 6
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "Help"
Object.ToolTipText = "帮助"
ImageIndex = 7
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "Exit"
Object.ToolTipText = "退出"
ImageIndex = 8
EndProperty
EndProperty
BorderStyle = 1
Begin MSComctlLib.ImageList ImageList1
Left = 6300
Top = 45
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmIN_PzTypeList.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmIN_PzTypeList.frx":0556
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmIN_PzTypeList.frx":0A9A
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmIN_PzTypeList.frx":0EEE
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmIN_PzTypeList.frx":1002
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmIN_PzTypeList.frx":1116
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmIN_PzTypeList.frx":122A
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmIN_PzTypeList.frx":133E
Key = ""
EndProperty
EndProperty
End
End
Begin VB.CommandButton cmdKmList
Height = 300
Left = 6435
Picture = "frmIN_PzTypeList.frx":179A
Style = 1 'Graphical
TabIndex = 8
Top = 4185
Width = 255
End
Begin VB.TextBox txtTemp
BackColor = &H80000009&
ForeColor = &H80000012&
Height = 285
Left = 960
TabIndex = 6
Top = 2880
Visible = 0 'False
Width = 1095
End
Begin VB.ComboBox cboPzType
BackColor = &H80000009&
Height = 300
ItemData = "frmIN_PzTypeList.frx":189C
Left = 4950
List = "frmIN_PzTypeList.frx":18B5
TabIndex = 5
Top = 4095
Visible = 0 'False
Width = 1365
End
Begin VB.Frame Frame1
Height = 3390
Left = 15
TabIndex = 1
Top = 600
Width = 7560
Begin VB.CommandButton cmdDown
Caption = "↓"
Height = 390
Left = 7170
TabIndex = 4
ToolTipText = "下移"
Top = 2520
Width = 315
End
Begin VB.CommandButton cmdUp
Caption = "↑"
Height = 390
Left = 7170
TabIndex = 3
ToolTipText = "上移"
Top = 480
Width = 315
End
Begin MSFlexGridLib.MSFlexGrid mfgPzType
Height = 3165
Left = 75
TabIndex = 2
Top = 150
Width = 7005
_ExtentX = 12356
_ExtentY = 5583
_Version = 393216
Cols = 4
FixedCols = 0
BackColorFixed = 14737632
BackColorSel = -2147483639
BackColorBkg = -2147483639
GridColor = -2147483630
ScrollTrack = -1 'True
FocusRect = 2
HighLight = 2
GridLinesFixed = 1
AllowUserResizing= 1
End
Begin VB.Label lblUse
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H8000000B&
BorderStyle = 1 'Fixed Single
Caption = "已使用类型"
ForeColor = &H000000FF&
Height = 960
Left = 7155
TabIndex = 7
Top = 1215
Visible = 0 'False
Width = 330
WordWrap = -1 'True
End
End
Begin VB.Label Label1
BorderStyle = 1 'Fixed Single
Caption = "注： 此表中的顺序将影响凭证录入中的默认顺序；科目代码列表以"",""分隔。"
Height = 240
Left = 120
TabIndex = 0
Top = 4140
Width = 6690
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuPrint
Caption = "打印(&P)"
Shortcut = ^P
End
Begin VB.Menu mnuPreview
Caption = "预览(&V)"
End
Begin VB.Menu mnuDiv1
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuEdit
Caption = "编辑(&E)"
Begin VB.Menu mnuNew
Caption = "增加(&N)"
Shortcut = ^N
End
Begin VB.Menu mnuDelete
Caption = "删除(&D)"
Shortcut = ^D
End
Begin VB.Menu mnuSave
Caption = "保存(&S)"
Shortcut = ^S
End
Begin VB.Menu mnuDiv2
Caption = "-"
End
Begin VB.Menu mnuCancel
Caption = "取消(&C)"
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
End
End
Attribute VB_Name = "frmIN_PzTypeList"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private rSt As ADODB.Recordset
Private AddFlag As Boolean
Private FrmAct As Boolean '窗体加完成标志
Private bChk As Boolean '允许检查标志
Private Sub cboPzType_Change()
mfgPzType.Refresh
End Sub
Private Sub cboPzType_Click()
mfgPzType.TextMatrix(mfgPzType.row, 2) = cboPzType.List(cboPzType.ListIndex)
mfgPzType.Refresh
End Sub
Private Sub cboPzType_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
If mfgPzType.col > 0 Then mfgPzType.col = mfgPzType.col - 1
Case vbKeyRight
If mfgPzType.col < mfgPzType.Cols - 1 Then mfgPzType.col = mfgPzType.col + 1
Case vbKeyUp
If mfgPzType.row > 1 Then mfgPzType.row = mfgPzType.row - 1
Case vbKeyDown
If mfgPzType.row < mfgPzType.Rows - 1 Then mfgPzType.row = mfgPzType.row + 1
End Select
KeyCode = 0
End Sub
Private Sub cboPzType_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Trim$("" & cboPzType.text) = "" Then
MsgBox "请选择科目限制类别！", vbInformation
Exit Sub
Else
With mfgPzType
.TextMatrix(.row, .col) = cboPzType.text
End With
cboPzType.Visible = False
If mfgPzType.Visible = True Then mfgPzType.SetFocus
End If
Else
KeyAscii = 0
End If
End Sub
Private Sub cmdDown_Click()
Dim grdSary(4) As String
Dim i As Integer
If mfgPzType.row = 0 Then Exit Sub
With mfgPzType
If .row = .Rows - 1 Then
cmdDown.Enabled = False
cmdUp.Enabled = True
Else
For i = 0 To .Cols - 1
grdSary(i) = .TextMatrix(.row, i)
Next i
For i = 0 To .Cols - 1
.TextMatrix(.row, i) = .TextMatrix(.row + 1, i)
Next i
For i = 0 To .Cols - 1
.TextMatrix(.row + 1, i) = grdSary(i)
Next i
Select Case .col
Case 0, 1, 3
txtTemp.text = .TextMatrix(.row, .col)
Case 2
cboPzType.text = .TextMatrix(.row, .col)
End Select
.row = .row + 1
If .row = .Rows - 1 Then
cmdDown.Enabled = False
cmdUp.Enabled = True
End If
End If
End With
If mfgPzType.Visible = True Then mfgPzType.SetFocus
If txtTemp.Visible Or cboPzType.Visible Then mfgPzType_Click
End Sub
Private Sub cmdKmList_Click()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -