📄 frmlldj-a.frm
字号:
List = "FrmLldj-A.frx":3753
Style = 2 'Dropdown List
TabIndex = 34
Top = 298
Width = 2295
End
Begin VB.ComboBox Like1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "FrmLldj-A.frx":379B
Left = 3450
List = "FrmLldj-A.frx":37B1
Style = 2 'Dropdown List
TabIndex = 33
Top = 298
Width = 1165
End
Begin VB.ComboBox Like2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "FrmLldj-A.frx":37CC
Left = 3450
List = "FrmLldj-A.frx":37E2
Style = 2 'Dropdown List
TabIndex = 32
Top = 728
Width = 1165
End
Begin VB.ComboBox Like3
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
ItemData = "FrmLldj-A.frx":37FD
Left = 3450
List = "FrmLldj-A.frx":3813
Style = 2 'Dropdown List
TabIndex = 31
Top = 1166
Width = 1165
End
Begin VB.ComboBox Cmb2
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "FrmLldj-A.frx":382E
Left = 840
List = "FrmLldj-A.frx":3847
Style = 2 'Dropdown List
TabIndex = 30
Top = 728
Width = 2295
End
Begin VB.ComboBox Cmb3
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
ItemData = "FrmLldj-A.frx":388F
Left = 840
List = "FrmLldj-A.frx":38A8
Style = 2 'Dropdown List
TabIndex = 29
Top = 1200
Width = 2295
End
Begin VB.TextBox Txt01
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 416
Left = 4905
MaxLength = 20
TabIndex = 28
Top = 298
Width = 3361
End
Begin VB.TextBox Txt02
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 416
Left = 4905
MaxLength = 20
TabIndex = 27
Top = 728
Width = 3361
End
Begin VB.TextBox Txt03
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 416
Left = 4905
MaxLength = 20
TabIndex = 26
Top = 1166
Width = 3361
End
Begin VB.CheckBox Check1
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 311
Index = 0
Left = 454
TabIndex = 25
Top = 298
Width = 295
End
Begin VB.CheckBox Check1
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 311
Index = 1
Left = 454
TabIndex = 24
Top = 728
Width = 295
End
Begin VB.CheckBox Check1
BeginProperty Font
Name = "Arial"
Size = 10.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 311
Index = 2
Left = 454
TabIndex = 23
Top = 1166
Width = 295
End
Begin MSDataGridLib.DataGrid DataGrid2
Height = 5055
Left = 240
TabIndex = 36
Top = 1800
Width = 10815
_ExtentX = 19076
_ExtentY = 8916
_Version = 393216
AllowUpdate = 0 'False
DefColWidth = 57
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog Cdlg
Left = 4680
Top = 6840
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin vsElasticLightLibCtl.vsElasticLight vsElasticLight1
Left = 0
OleObjectBlob = "FrmLldj-A.frx":38F0
Top = 0
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "模糊"
ForeColor = &H000000FF&
Height = 210
Left = 3705
TabIndex = 44
Top = 7320
Width = 450
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "请注意不要有不必要的空格；Like指 查询。"
Height = 210
Left = 240
TabIndex = 43
Top = 7305
Width = 4980
End
Begin VB.Label Label3
Caption = "2008-03-21"
ForeColor = &H000000FF&
Height = 210
Left = 1800
TabIndex = 42
Top = 7005
Width = 2040
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "日期格式举例："
Height = 210
Left = 240
TabIndex = 41
Top = 7005
Width = 1590
End
End
End
End
Attribute VB_Name = "FrmLldj01"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim CmdExe As ADODB.Command
Dim LConRs As ADODB.Recordset
Dim Mrc As ADODB.Recordset
Dim RsJcqx As ADODB.Recordset '检测操作权限
Dim AddFlg As Boolean
Dim CBJ As String
Dim TxtSql As String
Dim CKMC As String
Dim CJMC As String
Dim YGXM As String
Private Sub CmbCK1_LostFocus()
CmbCK2.Text = CmbCK1.Text
End Sub
Private Sub CmbPM_Click()
If Trim(CmbPM.Text) = "" Then
CmbPM.SetFocus
Else
Dim Mrc As ADODB.Recordset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -