📄 form6single.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Object = "{E2690E23-9719-101B-9306-0020AF234C9D}#4.1#0"; "CSCMD32.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form Form6single
BorderStyle = 1 'Fixed Single
Caption = "单项查询"
ClientHeight = 5325
ClientLeft = 45
ClientTop = 330
ClientWidth = 9435
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5325
ScaleWidth = 9435
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 15
Top = 4980
Width = 9435
_ExtentX = 16642
_ExtentY = 609
Style = 1
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Frame Frame1
Caption = "增装盒"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 975
Left = 720
TabIndex = 12
Top = 2880
Width = 1575
Begin VB.OptionButton Option2
Caption = "无(False)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 14
Top = 600
Value = -1 'True
Width = 1335
End
Begin VB.OptionButton Option1
Caption = "有(True)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 13
Top = 240
Width = 1215
End
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1
Bindings = "Form6single.frx":0000
Height = 4695
Left = 2400
TabIndex = 9
Top = 240
Width = 6975
_ExtentX = 12303
_ExtentY = 8281
_Version = 393216
Cols = 18
WordWrap = -1 'True
FocusRect = 2
MergeCells = 3
DataMember = "Command3查询分组"
_NumberOfBands = 3
_Band(0).Cols = 6
_Band(0).GridLinesBand= 1
_Band(0).TextStyleBand= 0
_Band(0).TextStyleHeader= 0
_Band(0)._NumMapCols= 5
_Band(0)._MapCol(0)._Name= "编号"
_Band(0)._MapCol(0)._RSIndex= 0
_Band(0)._MapCol(1)._Name= "姓名"
_Band(0)._MapCol(1)._RSIndex= 1
_Band(0)._MapCol(2)._Name= "类型"
_Band(0)._MapCol(2)._RSIndex= 2
_Band(0)._MapCol(3)._Name= "增装盒"
_Band(0)._MapCol(3)._RSIndex= 3
_Band(0)._MapCol(4)._Name= "初装日期"
_Band(0)._MapCol(4)._RSIndex= 4
_Band(1).BandIndent= 1
_Band(1).Cols = 12
_Band(1).GridLinesBand= 1
_Band(1).TextStyleBand= 0
_Band(1).TextStyleHeader= 0
_Band(1)._ParentBand= 0
_Band(1)._NumMapCols= 12
_Band(1)._MapCol(0)._Name= "编号"
_Band(1)._MapCol(0)._RSIndex= 0
_Band(1)._MapCol(1)._Name= "号码"
_Band(1)._MapCol(1)._RSIndex= 1
_Band(1)._MapCol(2)._Name= "姓名"
_Band(1)._MapCol(2)._RSIndex= 2
_Band(1)._MapCol(3)._Name= "类型"
_Band(1)._MapCol(3)._RSIndex= 3
_Band(1)._MapCol(4)._Name= "增装盒"
_Band(1)._MapCol(4)._RSIndex= 4
_Band(1)._MapCol(5)._Name= "初装日期"
_Band(1)._MapCol(5)._RSIndex= 5
_Band(1)._MapCol(6)._Name= "初装费"
_Band(1)._MapCol(6)._RSIndex= 6
_Band(1)._MapCol(6)._Alignment= 7
_Band(1)._MapCol(7)._Name= "交费日期"
_Band(1)._MapCol(7)._RSIndex= 7
_Band(1)._MapCol(8)._Name= "收视费"
_Band(1)._MapCol(8)._RSIndex= 8
_Band(1)._MapCol(8)._Alignment= 7
_Band(1)._MapCol(9)._Name= "地址"
_Band(1)._MapCol(9)._RSIndex= 9
_Band(1)._MapCol(10)._Name= "备注"
_Band(1)._MapCol(10)._RSIndex= 10
_Band(1)._MapCol(11)._Name= "当前时间"
_Band(1)._MapCol(11)._RSIndex= 11
_Band(2).BandIndent= 2
_Band(2).GridLinesBand= 1
_Band(2).TextStyleBand= 0
_Band(2).TextStyleHeader= 0
End
Begin VB.TextBox Text1
Height = 300
IMEMode = 1 'ON
Left = 960
TabIndex = 3
Top = 960
Width = 1215
End
Begin MSDataListLib.DataCombo DataCombo1
Bindings = "Form6single.frx":0014
Height = 330
Left = 960
TabIndex = 1
Top = 240
Width = 1215
_ExtentX = 2143
_ExtentY = 582
_Version = 393216
ListField = "编号"
BoundColumn = "编号"
Text = ""
Object.DataMember = "Command1查询"
End
Begin MSComCtl2.DTPicker DTPicker1
Bindings = "Form6single.frx":0029
BeginProperty DataFormat
Type = 1
Format = "yyyy-MM-dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 300
Left = 960
TabIndex = 2
Top = 1680
Width = 1215
_ExtentX = 2143
_ExtentY = 529
_Version = 393216
CalendarTitleBackColor= 16711680
CalendarTitleForeColor= 255
Format = 24444929
CurrentDate = 36734
MaxDate = 40543
MinDate = 36708
End
Begin MSComCtl2.DTPicker DTPicker2
Bindings = "Form6single.frx":0034
BeginProperty DataFormat
Type = 1
Format = "yyyy-MM-dd"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Height = 300
Left = 960
TabIndex = 6
Top = 2280
Width = 1215
_ExtentX = 2143
_ExtentY = 529
_Version = 393216
CalendarTitleBackColor= 16711680
CalendarTitleForeColor= 255
Format = 24444929
CurrentDate = 36734
MaxDate = 40543
MinDate = 36708
End
Begin CSCmdLibCtl.CSCmdBtn command1
Default = -1 'True
Height = 735
Left = 120
OleObjectBlob = "Form6single.frx":003F
TabIndex = 10
Top = 4080
Width = 855
End
Begin CSCmdLibCtl.CSCmdBtn command2
Cancel = -1 'True
Height = 735
Left = 1320
OleObjectBlob = "Form6single.frx":098A
TabIndex = 11
Top = 4080
Width = 855
End
Begin VB.Label Label5
Caption = "增装盒："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 8
Top = 3240
Width = 855
End
Begin VB.Label Label4
Caption = "初装日期："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 7
Top = 2325
Width = 1095
End
Begin VB.Label Label2
Caption = "姓名："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 5
Top = 1005
Width = 615
End
Begin VB.Label Label3
Caption = "交费日期："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 0
TabIndex = 4
Top = 1725
Width = 1095
End
Begin VB.Label Label1
Caption = "编号："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 0
Top = 285
Width = 615
End
End
Attribute VB_Name = "Form6single"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim bh, xm, jf, az, zzh As String
Dim lbh, lxm, ljf, laz, lzzh As String
Dim llstring, filterlstring As String
Dim entrydate As Date
Dim flagjf As Boolean
Private Sub Command1_Click()
'确定
'MSHFlexGrid1.Clear
If Not flagjf Then
Set MSHFlexGrid1.DataSource = hzzde
MSHFlexGrid1.DataMember = "command3查询分组"
MSHFlexGrid1.Refresh
hzzde.rsCommand3查询分组.Filter = filterlstring
If hzzde.rsCommand3查询分组.RecordCount = 0 Then
MsgBox "没有符合条件的记录", vbOKOnly, "警示"
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -