📄 n_ydxx.frm
字号:
VERSION 5.00
Object = "{9A226D6F-2658-4445-8D35-5C19D42676FE}#1.0#0"; "BSE.ocx"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Object = "{74848F95-A02A-4286-AF0C-A3C755E4A5B3}#1.0#0"; "actskn43.ocx"
Begin VB.Form N_YDXX
Caption = "预 订 客 人 信 息"
ClientHeight = 6960
ClientLeft = 60
ClientTop = 450
ClientWidth = 8520
LinkTopic = "Form1"
ScaleHeight = 6960
ScaleWidth = 8520
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Enabled = 0 'False
Height = 375
Index = 2
Left = 2520
TabIndex = 14
Text = "预定时间："
Top = 5520
Width = 975
End
Begin VB.TextBox Text2
Enabled = 0 'False
Height = 270
Index = 1
Left = 5520
TabIndex = 13
Text = "记录数:："
Top = 600
Width = 855
End
Begin VB.Frame Frame1
Height = 6705
Left = 120
TabIndex = 1
Top = 120
Width = 8280
Begin ACTIVESKINLibCtl.Skin Skin1
Left = 960
OleObjectBlob = "N_YDXX.frx":0000
Top = 6360
End
Begin VB.TextBox Text4
Enabled = 0 'False
Height = 270
Left = 6360
TabIndex = 15
Top = 480
Width = 1095
End
Begin VB.TextBox Text2
Enabled = 0 'False
Height = 375
Index = 0
Left = 120
TabIndex = 12
Text = "客人姓名："
Top = 5400
Width = 975
End
Begin VB.CommandButton Command3
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 7080
TabIndex = 11
Top = 6000
Width = 1095
End
Begin VB.CommandButton Command2
Caption = "废预定桌"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 5760
TabIndex = 10
Top = 6000
Width = 1215
End
Begin VB.CommandButton cmd_func
Caption = "选 中"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3120
TabIndex = 5
Top = 6000
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "删 除"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 4440
TabIndex = 4
Top = 6000
Width = 1215
End
Begin VB.TextBox Text3
Height = 375
Left = 3480
TabIndex = 3
Top = 5400
Width = 1095
End
Begin VB.TextBox Text1
Height = 375
Left = 1200
TabIndex = 2
Top = 5400
Width = 1095
End
Begin BSE_Engine.BSE BSE1
Left = 2880
Top = 3720
_ExtentX = 6588
_ExtentY = 1085
End
Begin MSFlexGridLib.MSFlexGrid gd1
Height = 4410
Left = 330
TabIndex = 6
Top = 840
Width = 7845
_ExtentX = 13838
_ExtentY = 7779
_Version = 393216
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 = 9
Top = 180
Width = 4845
End
Begin MSForms.CommandButton CommandButton1
Height = 375
Left = 4680
TabIndex = 8
Top = 5400
Width = 735
Caption = "搜索"
Size = "1296;661"
FontName = "宋体"
FontHeight = 180
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin VB.Label label5
Height = 255
Index = 1
Left = 2400
TabIndex = 7
Top = 5475
Width = 855
End
End
Begin VB.CommandButton CMD_EXIT
Caption = "退 出 "
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 7200
TabIndex = 0
Top = 6000
Width = 1095
End
End
Attribute VB_Name = "N_YDXX"
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 ADODB.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 ydkl_lsh As Integer '记录返回的常来客序号
Dim CS_yddh As String
'**************************************************************************************************
'* 功 能 :
'* 作 者 : shooting
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub flex_refresh()
Call Flex_full(gd1, t_bt, flex_rec, t_fields, t_fdcounts - 1, t_fdxs)
Text4.Text = gd1.Rows - 1
gd1.Refresh
'Call button_refresh(True)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : shooting
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
Unload Me
End Sub
Private Sub cmd_func_Click()
Call N_YDD.init(1, gd1.TextArray(gd1.Row * 5))
N_YDD.Show (1)
Call CMD_EXIT_Click
End Sub
Private Sub Command1_Click()
On Error Resume Next
Dim ADORS As ADODB.Recordset
'Dim strsql As String
'Dim intComID As Integer
Dim intrtn As Integer
intrtn = MsgBox("真的要删除选中的预定信息吗？", vbOKCancel, "删除预定信息")
If intrtn = vbOK Then
Set ADORS = New ADODB.Recordset
ADORS.Source = "SELECT * FROM N_YDD where id ='" + gd1.TextArray(gd1.Row * 5) + "'"
Set ADORS.ActiveConnection = objConn
ADORS.CursorType = adOpenDynamic
ADORS.LockType = adLockOptimistic
ADORS.Open
ADORS.Delete
ADORS.Close
Set ADORS = Nothing
Set flex_rec = New ADODB.Recordset
flex_rec.Source = "SELECT ID,KRMC,LXDH,YDRQ,LXDH FROM N_YDD"
Set flex_rec.ActiveConnection = objConn
flex_rec.CursorType = adOpenDynamic
flex_rec.LockType = adLockOptimistic
flex_rec.Open
Call flex_refresh
flex_rec.Close
Set flex_rec = Nothing
End If
End Sub
Private Sub Command2_Click()
N_SF.CS_SZLX = 4
N_SF.Show (1)
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub CommandButton1_Click()
Dim sssql As String
If Trim(Text1.Text) = "" And Trim(Text3.Text) = "" Then
sssql = "SELECT ID,KRMC,LXDH,YDRQ,LXDH FROM N_YDD"
GoTo FLESH
End If
If Trim(Text1.Text) <> "" And Trim(Text3.Text) <> "" Then
sssql = "SELECT ID,KRMC,YDCZS,YDRQ,LXDH FROM N_YDD where krmc = '" + Trim(Text1.Text) + "' and ydrq ='" + Trim(Text3.Text) + "'"
Else
If Trim(Text3.Text) = "" Then
sssql = "SELECT ID,KRMC,YDCZS,YDRQ,LXDH FROM N_YDD where krmc = '" + Trim(Text1.Text) + "' "
Else
sssql = "SELECT ID,KRMC,YDCZS,YDRQ,LXDH FROM N_YDD where ydrq ='" + Trim(Text3.Text) + "'"
End If
End If
FLESH:
Set flex_rec = New ADODB.Recordset
flex_rec.Source = sssql
Set flex_rec.ActiveConnection = objConn
flex_rec.CursorType = adOpenDynamic
flex_rec.LockType = adLockOptimistic
flex_rec.Open
Call flex_refresh
flex_rec.Close
Set flex_rec = Nothing
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : shooting
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub Form_Load()
On Error Resume Next
Skin1.LoadSkin App.Path + "\棋牌界面"
Skin1.ApplySkin hWnd
'Dim flex_rec As ADODB.Recordset
Set flex_rec = New ADODB.Recordset
flex_rec.Source = "SELECT ID,KRMC,LXDH,YDRQ,LXDH FROM N_YDD"
Set flex_rec.ActiveConnection = objConn
flex_rec.CursorType = adOpenDynamic
flex_rec.LockType = adLockOptimistic
flex_rec.Open
frm_msg.Visible = False
frm_msg.Caption = ""
'Set flex_rec = PUB_data.OpenRecordset("SELECT ID,KRMC,YDFJS,YDRQ,LXDH FROM N_YDD", 4, 0, 2)
If Not flex_rec.BOF Then
flex_rec.MoveLast
flex_rec.MoveFirst
End If
t_fields = Array("ID", "KRMC", "LXDH", "YDRQ", "LXDH") '设置显示字段
t_fdxs = Array(0, 0, 0, 0, 0) '设置显示字段
t_bt = "> 序号 |<客 人 姓 名 |<联 系 电 话 |<预 定 日 期 |<联 系 电 话 " '设置显示表头格式
t_fdcounts = 5
Call flex_refresh
flex_rec.Close
Set flex_rec = Nothing
End Sub
Private Sub gd1_DblClick()
Call N_YDD.init(1, gd1.TextArray(gd1.Row * 5))
N_YDD.Show (1)
'Call CMD_EXIT_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -