frmlog.frm

该软件（教师住房管理系统）能实现如下功能： 基本信息录入 基本信息浏览 基本查询 分类查询 查基本信息的添加、删除修改。分房申请信息的录入及平分 分房处理 报表生成 打印功能 帮助

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmlog 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查看分房记录："
   ClientHeight    =   4485
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4350
   Icon            =   "frmlog.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4485
   ScaleWidth      =   4350
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin MSComDlg.CommonDialog Dialog1 
      Left            =   1560
      Top             =   1680
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton Command2 
      Caption         =   "关闭(&C)"
      Height          =   375
      Left            =   2760
      TabIndex        =   2
      Top             =   3980
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "保存为文件(&S)"
      Height          =   375
      Left            =   480
      TabIndex        =   1
      Top             =   3980
      Width           =   1335
   End
   Begin VB.TextBox Text1 
      BackColor       =   &H80000004&
      Height          =   3855
      Left            =   0
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      TabIndex        =   0
      Top             =   0
      Width           =   4335
   End
End
Attribute VB_Name = "frmlog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                    教师住房管理系统   Version 1.0                    '''
'''                         （VB6.0 源代码）                             '''
'''                                                                      '''
'''                        俊彦软件工作室出品                            '''
'''                                                                      '''
'''            （浦口校区科技节“电子杯”程序设计大赛参赛作品）          '''
'''                                                                      '''
'''                程序设计：东南大学土木工程学院   周曹俊               '''
'''                                                                      '''
'''                 CopyRight AllRights Reserved (c)2003                 '''
'''                                                                      '''
'''                         2003年5月15日                                '''
'''                                                                      '''
'''                                                                      '''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit

Private Sub Command1_Click()
Dim strfilename As String
Dialog1.DialogTitle = "保存为文件："
Dialog1.Filter = "记录文件（*.log）|*.log"
Dialog1.ShowSave
strfilename = Dialog1.FileName
Open strfilename For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
'分房记录
Dim rs As Recordset
Dim strindex As String, strname As String, strfrom As String, strto As String
strindex = Right(frmtree2.TreeView1.SelectedItem.Key, 1)
Set rs = db2.OpenRecordset("select newid,id,name from " & strindex & " where newid<>''")
If Not rs.EOF Then
    rs.MoveFirst
    Text1.Text = "分房成功！" & vbCrLf
    Do Until rs.EOF
        strname = rs!Name
        strfrom = rs!id
        strto = rs!newid
        Text1.Text = Text1.Text & vbCrLf & "原住户" & strfrom & "（户主：" & strname & "），分配到新住号：" & strto & vbCrLf
        rs.MoveNext
    Loop
End If
End Sub