📄 n_krdjd.frm
字号:
Index = 1
Left = 1440
TabIndex = 28
Top = 120
Width = 6735
Begin VB.TextBox Text17
Enabled = 0 'False
Height = 270
Left = 4440
TabIndex = 46
Top = 360
Width = 1815
End
Begin VB.TextBox Text22
Enabled = 0 'False
Height = 270
Left = 1080
TabIndex = 45
Top = 360
Width = 2175
End
Begin VB.TextBox Text15
Enabled = 0 'False
Height = 270
Left = 3240
TabIndex = 44
Text = "接 待 员"
Top = 1800
Width = 855
End
Begin VB.TextBox Text14
Enabled = 0 'False
Height = 270
Left = 3240
TabIndex = 43
Text = "宾客姓名"
Top = 1320
Width = 855
End
Begin VB.TextBox Text13
Enabled = 0 'False
Height = 270
Left = 2520
TabIndex = 42
Text = "加 桌"
Top = 840
Width = 615
End
Begin VB.TextBox Text12
Enabled = 0 'False
Height = 270
Left = 120
TabIndex = 41
Text = "桌 号"
Top = 840
Width = 855
End
Begin VB.TextBox Text11
Enabled = 0 'False
Height = 270
Index = 0
Left = 120
TabIndex = 40
Text = "备 注"
Top = 2280
Width = 855
End
Begin VB.TextBox Text9
Enabled = 0 'False
Height = 270
Left = 120
TabIndex = 39
Text = "宾客电话"
Top = 1800
Width = 855
End
Begin VB.TextBox Text5
Enabled = 0 'False
Height = 270
Left = 120
TabIndex = 38
Text = "来店时间"
Top = 1320
Width = 855
End
Begin VB.TextBox Text4
Enabled = 0 'False
Height = 270
Left = 120
TabIndex = 37
Text = "帐 号"
Top = 360
Width = 855
End
Begin VB.CommandButton add_cz
Caption = "增加"
Height = 300
Left = 4440
TabIndex = 36
Top = 840
Width = 615
End
Begin VB.ComboBox Combo1
Height = 300
Left = 3240
Style = 2 'Dropdown List
TabIndex = 35
Top = 840
Width = 1095
End
Begin VB.TextBox m_rzrq
Height = 270
Left = 1080
TabIndex = 34
Top = 1320
Width = 2055
End
Begin VB.TextBox dj_bz
Height = 1695
Left = 1080
TabIndex = 33
Top = 2280
Width = 4335
End
Begin VB.TextBox kr_tel
Height = 270
Left = 1080
TabIndex = 32
Top = 1800
Width = 2055
End
Begin VB.TextBox m_jdy
Height = 270
Left = 4200
TabIndex = 31
Top = 1800
Width = 1335
End
Begin VB.TextBox m_czh
Height = 270
Left = 1080
TabIndex = 30
Top = 840
Width = 1335
End
Begin VB.TextBox kr_xm
Height = 270
Left = 4200
TabIndex = 29
Top = 1320
Width = 2055
End
End
End
Attribute VB_Name = "N_KRDJD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim t_bt1 As String '存储列表显示的表头
Dim t_fields1 As Variant '存储列表显示的字段名
Dim t_fdxs1 As Variant '表示显示列是否由代码转换成文字
Dim t_fdcounts1 As Integer '表示列表所显示的字段的个数
Dim t_pri1 As Variant
Dim t_bt2 As String '存储列表显示的表头
Dim t_fields2 As Variant '存储列表显示的字段名
Dim t_fdxs2 As Variant '表示显示列是否由代码转换成文字
Dim t_fdcounts2 As Integer '表示列表所显示的字段的个数
Dim t_pri2 As Variant
Dim t_bj As Variant
Dim sys_Cs As Integer
Dim zl As Variant
Dim a As String '实际消费金额
Dim b As String '消费金额
Dim c As String '消费折扣
'Dim d As String
Dim zxfe As String
Sub init_MAIN(temp_rec As ADODB.Recordset, fj_rec_temp As ADODB.Recordset, t_YG As String, t_zh As String, t_td As String)
On Error Resume Next
'MsgBox "8"
t_bj = Array(0, 0, 0, 0)
If Not temp_rec.EOF Then
Call tPkjTextSet(temp_rec, "1")
Call tPkjEnabledFT(False)
cmd_djbt.Enabled = False
Command11.Enabled = False
If temp_rec.Fields("JZ") = 0 Then
Text17.Text = "该桌已经有客！"
If temp_rec.Fields("sy") <> "" Then
Timer1.Enabled = False
Text19.Text = "该客人已付款！"
cm_tsfw.Text = temp_rec.Fields("tsfw")
Text2.Text = temp_rec.Fields("sy")
Text7.Text = temp_rec.Fields("SJSR")
Text8.Text = IIf(temp_rec.Fields("zl") = "", "0", temp_rec.Fields("zl"))
Text1.Text = IIf(temp_rec.Fields("JZFJ") = "", "*", temp_rec.Fields("JZFJ"))
Command2.Enabled = False
Command7.Enabled = False
Text7.Enabled = False
Text2.Enabled = False
End If
'kr_tf.Enabled = True
Text17.Visible = True
Command1.Enabled = True
Else
'Command1.Enabled = False
Timer1.Enabled = False
XF_QD.Enabled = False
Text17.Visible = True
cmd_djbt.Enabled = False
Command11.Enabled = True
If temp_rec.Fields("JZ") = 1 Then
Text17.Text = "该帐号已经结帐！"
Command1.Enabled = False
Command2.Enabled = False
Command5.Enabled = False
Command6.Enabled = False
Command7.Enabled = False
m_kf_zkl.Enabled = False
Text7.Enabled = False
cm_tsfw.Enabled = False
Text2.Enabled = False
Text19.Visible = False
'DJXG.Enabled = False
'DJXGQR.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Cmd5.Enabled = False
add_cz.Enabled = False
Command9.Enabled = False
Command8.Enabled = False
Command11.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
'Text3.Enabled = False
cm_tsfw.Text = temp_rec.Fields("tsfw")
Text2.Text = temp_rec.Fields("sy")
Text7.Text = temp_rec.Fields("SJSR")
Text8.Text = IIf(temp_rec.Fields("zl") = "", "0", temp_rec.Fields("zl"))
Text1.Text = IIf(temp_rec.Fields("JZFJ") = "", "*", temp_rec.Fields("JZFJ"))
Else
Text17.Text = "该帐号处于挂帐状态！"
Command9.Enabled = True
Timer1.Enabled = True
End If
End If
Else
Timer1.Enabled = False
Text22.Text = t_zh
If Not fj_rec_temp.EOF Then
m_czh.Text = Trim(fj_rec_temp.Fields("FHID"))
m_czh.Enabled = False
'Set fj_rec = PUB_data.OpenRecordset("SELECT * FROM N_FJ WHERE TRIM(FHID)='" & Trim(Label18.Caption) & "'", 2, 0, 2)
'Else
' Call FJ_GetCMSG
End If
cmd_djbt.Enabled = True
m_rzrq = Format(Date$, "YYYYMMDD")
'm_rzrq = Format(Date$, "YYYYMMDD") & " " & Format(Time$, "hh:mm")
m_jdy.Text = SYS_USER
cm_tdmc.Caption = t_td
m_zh.Enabled = False
m_jdy.Enabled = False
'kr_tf.Enabled = False
Text17.Visible = False
XF_QD.Enabled = False
Command11.Enabled = False
Command6.Enabled = False
Command5.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Text7.Enabled = False
End If
' MsgBox "9"
t_fields1 = Array("ID", "XFLB", "XFWP", "XFSL", "XFJE") '设置显示字段
t_fdxs1 = Array(0, 0, 0, 0, 0, 0) '设置显示字段
t_bt1 = "< 序号 |< 消费类别|< 消费品 |<消费数量|消费金额(元) " '设置显示表头格式
t_fdcounts1 = 5
't_pri1 = Array("支出项", "款项名", "消费数", "消费金额", "消费日期")
't_fields2 = Array("Kx", "JE", "RQ", "SJ", "JD", "MS") '设置显示字段
't_fdxs2 = Array(0, 0, 0, 0, 0, 0) '设置显示字段
't_bt2 = "< 款项名 |<金额 |<发生日期 |<发生时间 |<操作员 |<发生描述 " '设置显示表头格式
't_fdcounts2 = 6
't_pri2 = Array("款项名", "金额", "发生日期", "发生描述")
Call flex1_refresh("select * from N_XFJL where zh='" + Trim(Text22.Text) + "'")
'MsgBox "10"
'Call flex2_refresh("select * from N_FFJL where zh='" + Trim(m_zh.Caption) + "'")
'MsgBox "11"
End Sub
'**************************************************************************************************
'* 功 能 : 用来设置各种控件赋值
'* 作 者 : shooting
'* 作成日期 : 1999.03.05
'* 修改日期 : 1999.03.05
'* 参数说明 : temp_rec -- 显示的记录集名称
'* trmp_bszt -- 表示字段按何方式显示 0 - 把字段清空 1 - 按记录集显示字段 2 - 字段初始化
'**************************************************************************************************
Private Sub tPkjTextSet(temp_rec As ADODB.Recordset, temp_bszt As String)
On Error Resume Next
Select Case temp_bszt
Case 0 '把字段清空
m_zh.Caption = ""
'm_kf_lxn.Text = ""
tx_kf_lxc.Text = ""
'm_KR_FJ.Text = ""
kr_xm.Text = ""
m_czh.Text = ""
m_yw_x.Text = ""
m_yw_m.Text = ""
'op_xb(0).Value = False
'op_xb(1).Value = False
'op_xb(2).Value = False
m_kr_sr.Text = "____-__-__"
m_gjdm.Text = ""
'cm_gjmc.Text = ""
cm_zjmc.Text = ""
m_kr_zjhm.Text = ""
'm_sydm.Text = ""
cm_symc.Text = ""
cm_qzmc.Text = ""
m_kr_qz_yxq.Text = "____-__-__"
m_dz.Text = ""
'm_td_zh.Text = ""
cm_tdmc.Caption = ""
m_jdy.Text = ""
m_bdjddw_mc.Text = ""
m_rzrq.Text = "____-__-__"
m_rzsj.Text = "__:__:__"
m_ldrq.Text = "____-__-__"
m_ldsj.Text = "__:__:__"
cm_zklx_mc.Text = ""
m_kf_zkl.Text = ""
m_kf_fz.Text = ""
m_kf_fwf.Text = ""
m_vip_dj.Text = ""
cm_dj_fkmc.Text = ""
kr_tel.Text = ""
dj_bz.Text = ""
cm_tsfw.Text = ""
m_kr_dj.Text = ""
m_jd_bz1.Text = ""
'op_qd_ft(0).Value = True
m_hy_kh.Text = ""
'op_mfzc_ft(0).Value = True
'm_zck_bz.Text = ""
'op_sh_ft(1).Value = True
'op_jywp_ft(0).Value = True
'op_bxx_ft(0).Value = True
m_tsfz.Text = ""
m_tszh.Text = ""
m_zk_sqr.Text = ""
m_zk_spr.Text = ""
m_fzxg_rq.Text = "____-__-__"
m_fzxg_spr.Text = ""
m_dfy_dm.Text = ""
m_khdm.Text = ""
cm_ywdw_mc.Text = ""
Case 2 '把字段初始化
Text22.Text = ""
'm_kf_lxn.Text = ""
tx_kf_lxc = ""
'm_kr_fj.Text = ""
kr_xm.Text = ""
m_yw_x.Text = ""
m_czh.Text = ""
m_yw_m.Text = ""
m_kr_sr.Text = "____-__-__"
'op_xb(1).Value = True
m_gjdm.Text = "CN"
'If PUB_GetCMName(m_gjdm, cm_gjmc) Then
'Else
' cm_gjmc.Text = "*"
'End If
'm_zjdm.Text = "01"
'If PUB_GetCMName(m_zjdm, cm_zjmc) Then
'Else
cm_zjmc.Text = "*"
'End If
m_kr_zjhm.Text = ""
'm_sydm.Text = ""
cm_symc.Text = ""
'm_qzdm.Text = ""
cm_qzmc.Text = ""
m_kr_qz_yxq.Text = "____-__-__"
m_dz.Text = ""
'm_td_zh.Text = CS_tdzh
cm_tdmc.Caption = CS_tdmc
m_jdy.Text = ""
m_bdjddw_mc.Text = ""
m_rzrq.Text = Format(CS_rzrq, "yyyy-mm-dd")
m_rzsj.Text = Format(Time$, "hh:mm:ss")
m_ldrq.Text = Format(CS_ldrq, "yyyy-mm-dd")
m_ldsj.Text = "__:__:__"
'm_zklx.Text = CS_zklx
'If PUB_GetCMName(m_zklx, cm_zklx_mc) Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -