frm_sfcx.frm

小区物业管理系统,(vb6+SQLServer2000+使用说明)

         ColumnCount     =   10
         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
         BeginProperty Column07 
            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 Column08 
            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 Column09 
            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 
            BeginProperty Column00 
               ColumnWidth     =   884.976
            EndProperty
            BeginProperty Column01 
               ColumnWidth     =   884.976
            EndProperty
            BeginProperty Column02 
               ColumnWidth     =   1154.835
            EndProperty
            BeginProperty Column03 
               ColumnWidth     =   1214.929
            EndProperty
            BeginProperty Column04 
               ColumnWidth     =   854.929
            EndProperty
            BeginProperty Column05 
               ColumnWidth     =   884.976
            EndProperty
            BeginProperty Column06 
               ColumnWidth     =   840.189
            EndProperty
            BeginProperty Column07 
               ColumnWidth     =   870.236
            EndProperty
            BeginProperty Column08 
               ColumnWidth     =   840.189
            EndProperty
            BeginProperty Column09 
               ColumnWidth     =   1319.811
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "Frm_sfcx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    DTPicker1.Value = Date
    DTPicker2.Value = Date
    '自动识别路径
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_wygl.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select * from tab_smoney"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Option1_Click()   '请选择查询条件
    Combo1.Enabled = True
    Combo2.Enabled = True
    Text1.Enabled = True
    DTPicker1.Enabled = False
    DTPicker2.Enabled = False
    'DateTimePicker控件使您可以提供格式化的日期字段，使得进行日期选择很容易。另外，用户还可以从类似于MonthView控件的下拉式日历界面中选择日期。
End Sub
Private Sub Option2_Click()   '按收费日期查询
    Combo1.Enabled = False
    Combo2.Enabled = False
    Text1.Enabled = False
    DTPicker1.Enabled = True
    DTPicker2.Enabled = True
End Sub
Private Sub Command1_Click()   '查询
    If Combo1.Enabled = True Then
        'ComboBox 控件将 TextBox 控件和 ListBox 控件的特性结合在一起－既可以在控件的文本框部分输入信息，也可以在控件的列表框部分选择一项。
        If Combo2.Text = "like" Then
            Adodc1.RecordSource = "select * from tab_smoney where " & Combo1.Text & " like +'%" & Text1.Text & "%'"
            Adodc1.Refresh
        Else
            Adodc1.RecordSource = "select * from tab_smoney where " & Combo1.Text & " " & Combo2.Text & " '" & Text1.Text & "'"
            Adodc1.Refresh
        End If
    Else
        Adodc1.RecordSource = "select * from tab_smoney where 计费起始日期=" + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "and 计费终止日期=" + Chr(35) + Str(DTPicker2.Value) + Chr(35) + ""
        Adodc1.Refresh
    End If
End Sub
Private Sub Command2_Click()   '退出
    Unload Me
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then Command1.SetFocus '按回车键Command1获得焦点
End Sub