【VB开源代码栏目提醒】:以下是网学会员为您推荐的VB开源代码-main_gzcx.frm,希望本篇文章对您学习有所帮助。
VERSION 5.00
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form main_gzcx
BorderStyle = 3 'Fixed Dialog
Caption = "挂帐查询"
ClientHeight = 4035
ClientLeft = 120
ClientTop = 405
ClientWidth = 9360
Icon = "main_gzcx.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4035
ScaleWidth = 9360
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "main_gzcx.frx":000C
Height = 3045
Left = 60
OleObjectBlob = "main_gzcx.frx":0020
TabIndex = 8
Top = 465
Width = 9240
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "D:\VB数据库开发实例解析\程序\宾馆客房管理
系统\Kfgl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 2775
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "gzmx"
Top = 3630
Visible = 0 'False
Width = 1305
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "D:\VB数据库开发实例解析\
程序\宾馆客房
管理系统\Kfgl.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 3870
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "gzmx"
Top = 3660
Visible = 0 'False
Width = 1320
End
Begin MSDBCtls.DBCombo DBCOMBO1
Bindings = "main_gzcx.frx":1722
Height = 330
Left = 2190
TabIndex = 7
Top = 45
Width = 2745
_ExtentX = 4842
_ExtentY = 582
_Version = 393216
ListField = "挂账单位"
Text = ""
End
Begin VB.TextBox czy
BackColor = &H80000004&
BorderStyle = 0 'None
Height = 255
Left = 780
TabIndex = 6
Top = 3660
Width = 1305
End
Begin
VB.CommandButton Command1
Caption = "退出"
Height = 330
Left = 7155
TabIndex = 0
Top = 3615
Width = 2115
End
Begin MSComCtl2.DTPicker DTP1
Height = 285
Left = 6030
TabIndex = 2
Top = 90
Width = 1425
_ExtentX = 2514
_ExtentY = 503
_Version = 393216
Format = 30081025
CurrentDate = 37132
End
Begin MSComCtl2.DTPicker DTP2
Height = 285
Left = 7830
TabIndex = 3
Top = 90
Width = 1410
_ExtentX = 2487
_ExtentY = 503
_Version = 393216
Format = 30081025
CurrentDate = 37132
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "操作员:"
Height = 225
Left = 60
TabIndex = 5
Top = 3690
Width = 720
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "日期 到"
Height = 300
Left = 5505
TabIndex = 4
Top = 165
Width = 2505
End
Begin VB.Label Label1
Caption = "请选择挂帐单位名称:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 75
TabIndex = 1
Top = 135
Width = 2445
End
End
Attribute VB_Name = "main_gzcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub CX() '定义
查询挂帐信息的函数
Data1.RecordSource = "select * from gzmx where gzmx.挂账单位 like " + Chr(34) + DBCombo1.Text + Chr(34) + "and (gzmx.日期 between " + Chr(35) + Str(DTP1.Value) + Chr(35) + "and " + Chr(35) + Str(DTP2.Value) + Chr(35) + ")order by 日期,时间"
Data1.Refresh
End Sub
Private Sub Form_Load()
'自动识别数据库路径
Data1.DatabaseName = App.Path & "\KFGL.MDB"
Data2.DatabaseName = App.Path & "\KFGL.MDB"
End Sub
Private Sub Form_Activate()
czy.Text = main.StatusBar1.Panels(4).Text
'筛选挂帐单位
Data2.RecordSource = "select 挂账单位 from gzmx group by 挂账单位"
Data2.Refresh
DTP1.Value = Date - 30: DTP2.Value = Date '初始化日期
End Sub
Private Sub Form_Unload(Cancel As Integer)
main.Enabled = True
End Sub
Private Sub DBCombo1_Change() '查询挂帐信息
Call CX '调用函数
End Sub
Private Sub DTP1_Change()
Call CX '调用函数
End Sub
Private Sub DTP2_Change()
Call CX '调用函数
End Sub
Private Sub Command1_Click()
main.Enabled = True
Unload Me
End Sub