📄 main_czgl_yjzfx.frm
字号:
Height = 4620
Left = 75
TabIndex = 8
Top = 285
Width = 7545
_ExtentX = 13309
_ExtentY = 8149
_Version = 393216
AllowUpdate = 0 'False
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 7
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
BeginProperty Column02
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 Column03
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 Column04
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 Column05
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 Column06
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
MarqueeStyle = 4
BeginProperty Column00
ColumnWidth = 1814.74
EndProperty
BeginProperty Column01
ColumnWidth = 14.74
EndProperty
BeginProperty Column02
ColumnWidth = 1830.047
EndProperty
BeginProperty Column03
ColumnWidth = 900.284
EndProperty
BeginProperty Column04
ColumnWidth = 705.26
EndProperty
BeginProperty Column05
ColumnWidth = 810.142
EndProperty
BeginProperty Column06
ColumnWidth = 1035.213
EndProperty
EndProperty
End
End
Begin VB.Frame Frame2
Height = 690
Left = 6210
TabIndex = 0
Top = 4905
Width = 4050
Begin VB.Label Labhjje
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 225
Left = 2670
TabIndex = 3
Top = 300
Width = 1140
End
Begin VB.Label Labjl
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 225
Left = 1200
TabIndex = 2
Top = 285
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "结款单据数： 结款金额："
Height = 255
Left = 90
TabIndex = 1
Top = 315
Width = 5295
End
End
End
Attribute VB_Name = "main_czgl_yjzfx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim key, text As String '定义字符串
Dim nod As Node '定义Node对象
Private Sub Form_Activate()
TreeView1.Nodes.Clear
'在treeview中添加房台信息
Adodc1.RecordSource = "select * from 房间台号信息表 order by 编号"
Adodc1.Refresh
key = "房台信息"
text = "请选择所需房台"
Set Node1 = TreeView1.Nodes.Add(, , key, text, 1)
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
key = Trim(Adodc1.Recordset.Fields("房台名称"))
text = "(" & Trim(Adodc1.Recordset.Fields("编号")) & ")" & Trim(Adodc1.Recordset.Fields("房台名称"))
Set Node2 = TreeView1.Nodes.Add(Node1.Index, tvwChild, key, text, 2)
Adodc1.Recordset.MoveNext
Loop
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) 'Node对象被单击时
Text1.text = Right(Left(TreeView1.SelectedItem.text, 4), 3)
Adodc2.RecordSource = "select * from 月结帐表 where 房台编号='" + Text1.text + "'"
Adodc2.Refresh '查询月结帐信息
'统计结帐单据数、结帐金额
Adodc3.RecordSource = "select count(*)as 记录,sum(结款金额)as 金额合计 from 月结帐表 where 房台编号='" + Text1.text + "'"
Adodc3.Refresh
If Adodc3.Recordset.Fields(0) <> "" Then Labjl.Caption = Adodc3.Recordset.Fields(0) Else Labjl.Caption = "0"
If Adodc3.Recordset.Fields(1) <> "" Then Labhjje.Caption = Format(Adodc3.Recordset.Fields(1), "0.00") Else Labhjje.Caption = "0.00"
End Sub
Private Sub Comprint_Click() '打印月结帐信息
DataE1.rsCommand4.Open "select * from 月结帐表 where 房台编号='" + Trim(Text1.text) + "'order by 结帐单据号", cnn, adOpenKeyset, adLockOptimistic
DR1_yjdy.Show
End Sub
Private Sub ComView_Click() '显示点单信息
If Adodc2.Recordset.RecordCount > 0 Then
Load main_czgl_ddxx
main_czgl_ddxx.Show
main_czgl_ddxx.js.text = "1"
Me.Enabled = False
Else
MsgBox "无点单客户！"
End If
End Sub
Private Sub comend_Click()
frm_main.Enabled = True
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -