📄 hfrm309.frm
字号:
VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{F13C99C0-4D73-11D2-B8B2-0000C00A958C}#3.0#0"; "FPSPR30.OCX"
Begin VB.Form HFrm309
BackColor = &H00E0E0E0&
BorderStyle = 1 '屌掕(幚慄)
Caption = "H_Menu - [屘忈棜楌]"
ClientHeight = 14850
ClientLeft = 45
ClientTop = 435
ClientWidth = 19080
Icon = "HFrm309.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form9"
MaxButton = 0 'False
Moveable = 0 'False
ScaleHeight = 14850
ScaleWidth = 19080
StartUpPosition = 1 '蛋虐 太把偺拞墰
WindowState = 2 '嵟戝壔
Begin VB.TextBox txt_val
Alignment = 1 '塃懙偊
BeginProperty Font
Name = "俵俽 俹僑僔僢僋"
Size = 12
Charset = 128
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2040
MaxLength = 8
TabIndex = 11
Top = 14280
Width = 1575
End
Begin FPSpreadADO.fpSpread fpSpread
Height = 11775
Left = 120
TabIndex = 0
Top = 1440
Width = 18825
_Version = 196608
_ExtentX = 33205
_ExtentY = 20770
_StockProps = 64
DisplayColHeaders= 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "俵俽 俹僑僔僢僋"
Size = 14.25
Charset = 128
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MaxCols = 5
MaxRows = 20
RowHeaderDisplay= 0
ScrollBars = 2
SpreadDesigner = "HFrm309.frx":000C
UserResize = 1
VisibleCols = 5
VisibleRows = 20
End
Begin MSForms.Label lblTotle
Height = 375
Left = 4560
TabIndex = 15
Top = 14325
Width = 1335
BackColor = 14737632
Size = "2355;661"
FontName = "俵俽 俹僑僔僢僋"
FontEffects = 1073741825
FontHeight = 285
FontCharSet = 128
FontPitchAndFamily= 2
FontWeight = 700
End
Begin VB.Label lbl_rowname
Alignment = 2 '拞墰懙偊
BackStyle = 0 '摟柧
Caption = "儗僐乕僪"
BeginProperty Font
Name = "俵俽 俹僑僔僢僋"
Size = 14.25
Charset = 128
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 120
TabIndex = 14
Top = 14295
Width = 1095
End
Begin MSForms.CommandButton btn_firstend
Height = 375
Left = 1215
TabIndex = 9
Top = 14280
Width = 420
PicturePosition = 262148
Size = "741;661"
FontName = "俵俽 俹僑僔僢僋"
FontHeight = 180
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
End
Begin MSForms.CommandButton btn_last
Height = 375
Left = 1635
TabIndex = 10
Top = 14280
Width = 420
PicturePosition = 262148
Size = "741;661"
FontName = "俵俽 俹僑僔僢僋"
FontHeight = 180
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
End
Begin MSForms.CommandButton btn_next
Height = 375
Left = 3615
TabIndex = 12
Top = 14280
Width = 465
PicturePosition = 262148
Size = "820;661"
FontName = "俵俽 俹僑僔僢僋"
FontHeight = 180
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
End
Begin MSForms.CommandButton btn_lastend
Height = 375
Left = 4080
TabIndex = 13
Top = 14280
Width = 420
PicturePosition = 262148
Size = "741;661"
FontName = "俵俽 俹僑僔僢僋"
FontHeight = 180
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
End
Begin MSForms.CommandButton cmdPrintAll
Height = 495
Left = 13320
TabIndex = 7
Top = 13515
Width = 1815
Caption = "F5丗夋柺報嶞"
Size = "3201;873"
FontName = "俵俽 俹僑僔僢僋"
FontEffects = 1073741825
FontHeight = 240
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
FontWeight = 700
End
Begin MSForms.CommandButton cmdClose
Height = 495
Left = 16560
TabIndex = 8
Top = 13515
Width = 1575
Caption = "F12丗廔椆"
Size = "2778;873"
FontName = "俵俽 俹僑僔僢僋"
FontEffects = 1073741825
FontHeight = 240
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
FontWeight = 700
End
Begin VB.Label Label2
BackColor = &H80000001&
Height = 855
Left = 120
TabIndex = 6
Top = 13320
Width = 18855
End
Begin MSForms.Label Label3
Height = 345
Index = 3
Left = 3120
TabIndex = 5
Top = 960
Width = 2445
BackColor = -2147483639
Caption = "敪惗帪娫"
Size = "4322;600"
BorderStyle = 1
FontName = "俵俽 俹僑僔僢僋"
FontEffects = 1073741825
FontHeight = 315
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
FontWeight = 700
End
Begin MSForms.Label Label3
Height = 345
Index = 2
Left = 15120
TabIndex = 4
Top = 960
Width = 3405
BackColor = -2147483639
Caption = "嬫暘"
Size = "6006;609"
BorderStyle = 1
FontName = "俵俽 俹僑僔僢僋"
FontEffects = 1073741825
FontHeight = 315
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
FontWeight = 700
End
Begin MSForms.Label Label3
Height = 345
Index = 1
Left = 5640
TabIndex = 3
Top = 960
Width = 9375
BackColor = -2147483639
Caption = "僄儔乕"
Size = "16536;609"
BorderStyle = 1
FontName = "俵俽 俹僑僔僢僋"
FontEffects = 1073741825
FontHeight = 315
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
FontWeight = 700
End
Begin MSForms.Label Label3
Height = 340
Index = 5
Left = 600
TabIndex = 2
Top = 960
Width = 2450
BackColor = -2147483639
Caption = "敪惗擔晅"
Size = "4322;600"
BorderStyle = 1
FontName = "俵俽 俹僑僔僢僋"
FontEffects = 1073741825
FontHeight = 315
FontCharSet = 128
FontPitchAndFamily= 2
ParagraphAlign = 3
FontWeight = 700
End
Begin VB.Label Label1
BackStyle = 0 '摟柧
Caption = "屘忈棜楌"
BeginProperty Font
Name = "俵俽 俹僑僔僢僋"
Size = 36
Charset = 128
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 730
Left = 360
TabIndex = 1
Top = 120
Width = 3015
End
End
Attribute VB_Name = "HFrm309"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************************
'僔僗僥儉柤丗Hayashikane
'僾儘僌儔儉ID丗HFrm309
'僾儘僌儔儉柤丗屘忈棜楌
'廋惓ID 嶌惉擔 嶌惉幰 栚揑
'000丂 2007/08/12 錖孯 怴婯嶌惉
'******************************************************************************
Option Explicit
'#####STRAT########丂掕媊丂####################################################
Private adoRes As New ADODB.Recordset
Private strSql As String
Private rtnVal
Private valrow As Long
Private KeyFlag As Boolean
Private closeFlag As Boolean
'##### END ########丂掕媊丂####################################################
'#####STRAT########丂僀儀儞僩丂################################################
'******************************************************************************
'僀儀儞僩柤: Form_Load
'婡擻 : 僼僅乕儉偺弶婜壔
'******************************************************************************
Private Sub Form_Load()
' 楢愙幐攕
Call HiddenClose(Me)
btn_firstend.Picture = LoadPicture("..\image\first_end.bmp")
btn_last.Picture = LoadPicture("..\image\last.bmp")
btn_next.Picture = LoadPicture("..\image\next.bmp")
btn_lastend.Picture = LoadPicture("..\image\last_end.bmp")
' 僨乕僞僌儕僢僪偺僨乕僞傪庢摼偡傞
Call GetDataGrid
If adoRes.recordcount = 0 Then
txt_val.Text = 0
Else
txt_val.Text = 1
valrow = 1
End If
lblTotle.Caption = "/" & adoRes.recordcount
End Sub
'******************************************************************************
'僀儀儞僩柤: cmdClose_Click
'婡擻 : 廔椆儃僞儞傪僋儕僢僋
'******************************************************************************
Private Sub cmdClose_Click()
setFocusFlag = "HFrm309"
Unload Me
End Sub
'******************************************************************************
'僀儀儞僩柤: Form_Resize
'婡擻 : 儂乕儉偺愝掕
'******************************************************************************
Private Sub Form_Resize()
If Not Me.WindowState = 1 Then
Me.WindowState = 2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -