📄 dt_cklb.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form dt_cklb
BorderStyle = 3 'Fixed Dialog
ClientHeight = 7080
ClientLeft = 45
ClientTop = 330
ClientWidth = 7710
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7080
ScaleWidth = 7710
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton cmd_func
Caption = "筛 选(F6)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 1
Left = 4005
TabIndex = 1
Top = 5910
Width = 1575
End
Begin VB.CommandButton cmd_func
Caption = "选中(Return)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 0
Left = 1590
TabIndex = 0
Top = 5910
Width = 1575
End
Begin VB.CommandButton CMD_EXIT
Caption = "退 出(Esc)"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 5760
TabIndex = 2
Top = 6570
Width = 1575
End
Begin VB.Frame Frame1
Height = 6465
Left = 120
TabIndex = 3
Top = 0
Width = 7440
Begin VB.Frame fm_cx
Caption = "筛选条件"
Height = 1365
Left = 330
TabIndex = 4
Top = 4470
Width = 6705
Begin VB.TextBox m_gjdm
Height = 300
Left = 1680
MaxLength = 2
TabIndex = 5
Text = "12"
Top = 240
Width = 380
End
Begin VB.Label lbtzck_bz
Caption = "中 文"
Enabled = 0 'False
Height = 195
Left = 660
TabIndex = 17
Top = 600
Width = 585
End
Begin MSForms.TextBox m_kr_x
Height = 300
Left = 1680
TabIndex = 16
Top = 600
Width = 1815
VariousPropertyBits= 746604569
MaxLength = 7
Size = "3201;529"
FontName = "宋体"
FontEffects = 1073750016
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "姓"
Enabled = 0 'False
Height = 195
Left = 1350
TabIndex = 15
Top = 600
Width = 285
End
Begin MSForms.TextBox m_kr_m
Height = 300
Left = 4350
TabIndex = 14
Top = 570
Width = 1815
VariousPropertyBits= 746604569
MaxLength = 7
Size = "3201;529"
FontName = "宋体"
FontEffects = 1073750016
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
Caption = "名"
Enabled = 0 'False
Height = 195
Left = 3720
TabIndex = 13
Top = 600
Width = 555
End
Begin MSForms.TextBox m_yw_x
Height = 300
Left = 1680
TabIndex = 12
Top = 930
Width = 1815
VariousPropertyBits= 746604569
MaxLength = 7
Size = "3201;529"
FontName = "宋体"
FontEffects = 1073750016
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin VB.Label Label6
Caption = "外 文"
Enabled = 0 'False
Height = 195
Left = 660
TabIndex = 11
Top = 930
Width = 585
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Caption = "姓"
Enabled = 0 'False
Height = 195
Left = 1350
TabIndex = 10
Top = 930
Width = 285
End
Begin MSForms.TextBox m_yw_m
Height = 300
Left = 4350
TabIndex = 9
Top = 900
Width = 1815
VariousPropertyBits= 746604569
MaxLength = 7
Size = "3201;529"
FontName = "宋体"
FontEffects = 1073750016
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 2
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
Caption = "名"
Enabled = 0 'False
Height = 195
Left = 3720
TabIndex = 8
Top = 930
Width = 555
End
Begin MSForms.ComboBox cm_gjmc
Height = 300
Left = 2070
TabIndex = 7
Top = 240
Width = 2175
VariousPropertyBits= 746604571
MaxLength = 20
DisplayStyle = 3
Size = "3836;529"
ColumnCount = 2
cColumnInfo = 2
MatchEntry = 1
ShowDropButtonWhen= 2
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
Object.Width = "705;1058"
End
Begin VB.Label Label9
Caption = "国 籍"
Height = 255
Left = 900
TabIndex = 6
Top = 300
Width = 735
End
End
Begin MSFlexGridLib.MSFlexGrid gd1
Height = 3810
Left = 330
TabIndex = 18
Top = 690
Width = 6780
_ExtentX = 11959
_ExtentY = 6720
_Version = 327680
Rows = 10
Cols = 6
FixedCols = 0
BackColor = 12648447
FocusRect = 0
ScrollBars = 2
SelectionMode = 1
End
Begin VB.Label frm_msg
Alignment = 1 'Right Justify
Caption = "ddd"
ForeColor = &H8000000D&
Height = 195
Left = 2220
TabIndex = 22
Top = 180
Width = 4845
End
Begin VB.Label Label2
Alignment = 2 'Center
Caption = "常 来 客 信 息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Left = 1440
TabIndex = 21
Top = 450
Width = 4215
End
Begin VB.Label Label4
Caption = "记录数:"
Height = 195
Left = 5640
TabIndex = 20
Top = 450
Width = 675
End
Begin VB.Label lb_jls
Height = 195
Left = 6390
TabIndex = 19
Top = 450
Width = 615
End
End
End
Attribute VB_Name = "dt_cklb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim key_index As Integer '表示当前功能键的代码
Dim flex_rec As Recordset '
Dim t_funcNo As String '0:增加记录 1:修改记录
Dim t_bt As String '存储列表显示的表头
Dim t_fields As Variant '存储列表显示的字段名
Dim t_fdxs As Variant '显示列是否有特殊处理 0 无, 1 有
Dim t_fdcounts As Integer '表示列表所显示的字段的个数
Dim clkl_xh As Integer '记录返回的常来客序号
'Dim PUB_data As Database
Sub MAIN(temp_data As Database)
Set PUB_data = temp_data
End Sub
'**************************************************************************************************
'* 功 能 : 用来设置各种控件 .edabled 的设置
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.03
'* 修改日期 : 1999.03.03
'* 参数说明 : temp_funcNo -- 表示编辑状态 '0' - 增加 '1' - 修改 '2' - 删除
'* temp_ft -- 表示控件 .Enabled 的状态 True False
'**************************************************************************************************
Private Sub tPkjEnabledFT(temp_funcNo As String, temp_ft As Boolean) '控件.enabled 的设置
m_kr_x.Enabled = temp_ft
m_kr_m.Enabled = temp_ft
m_yw_x.Enabled = temp_ft
m_yw_m.Enabled = temp_ft
m_gjdm.Enabled = temp_ft
cm_gjmc.Enabled = temp_ft
End Sub
'**************************************************************************************************
'* 功 能 : 用来设置各种控件赋值
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.05
'* 修改日期 : 1999.03.05
'* 参数说明 : temp_rec -- 显示的记录集名称
'* trmp_bszt -- 表示字段按何方式显示 2 - 字段初始化
'**************************************************************************************************
Private Sub tPkjTextSet(temp_rec As Recordset, temp_bszt As String)
Select Case temp_bszt
Case 0 '把字段清空
m_kr_x.Text = ""
m_kr_m.Text = ""
m_yw_x.Text = ""
m_yw_m.Text = ""
m_gjdm.Text = ""
cm_gjmc.Text = ""
Case 2 '把字段初始化
m_kr_x.Text = ""
m_kr_m.Text = ""
m_yw_x.Text = ""
m_yw_m.Text = ""
m_gjdm.Text = "CN"
If PUB_GetCMName(m_gjdm, cm_gjmc) Then
Else
cm_gjmc.Text = ""
End If
End Select
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub button_refresh(t_ft As Boolean)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -