frmdatamanager.frm

C/S多层数据库系统.使用Visual Basic为前端开发工具,以SQL Server作为后台数据库操作平台!

VERSION 5.00
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Begin VB.Form frmDataManager 
   Caption         =   "MSDRC"
   ClientHeight    =   4755
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7110
   Icon            =   "frmDataManager.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4755
   ScaleWidth      =   7110
   Begin VB.Frame fraCommand 
      Height          =   555
      Left            =   0
      TabIndex        =   0
      Top             =   3750
      Width           =   7035
      Begin VB.CommandButton cmdRefresh 
         Caption         =   "刷新(&R)"
         Height          =   285
         Left            =   2790
         TabIndex        =   3
         Top             =   180
         Width           =   1275
      End
      Begin VB.CommandButton cmdRollBackTrans 
         Caption         =   "取消操作(&C)"
         Height          =   285
         Left            =   1410
         TabIndex        =   2
         Top             =   180
         Width           =   1275
      End
      Begin VB.CommandButton cmdCommitTrans 
         Caption         =   "确认修改(&T)"
         Height          =   285
         Left            =   120
         TabIndex        =   1
         Top             =   180
         Width           =   1275
      End
   End
   Begin MSRDC.MSRDC rdcTest 
      Align           =   2  'Align Bottom
      Height          =   330
      Left            =   0
      Top             =   4425
      Visible         =   0   'False
      Width           =   7110
      _ExtentX        =   12541
      _ExtentY        =   582
      _Version        =   393216
      Options         =   0
      CursorDriver    =   0
      BOFAction       =   0
      EOFAction       =   0
      RecordsetType   =   1
      LockType        =   3
      QueryType       =   0
      Prompt          =   3
      Appearance      =   1
      QueryTimeout    =   30
      RowsetSize      =   100
      LoginTimeout    =   15
      KeysetSize      =   0
      MaxRows         =   0
      ErrorThreshold  =   -1
      BatchSize       =   15
      BackColor       =   -2147483643
      ForeColor       =   -2147483640
      Enabled         =   -1  'True
      ReadOnly        =   0   'False
      Appearance      =   -1  'True
      DataSourceName  =   "酒店管理"
      RecordSource    =   ""
      UserName        =   "sa"
      Password        =   ""
      Connect         =   ""
      LogMessages     =   ""
      Caption         =   ""
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "frmDataManager.frx":08CA
      Height          =   3615
      Left            =   0
      OleObjectBlob   =   "frmDataManager.frx":08E0
      TabIndex        =   4
      Top             =   120
      Width           =   7095
   End
End
Attribute VB_Name = "frmDataManager"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 Private TableName As String

Private Sub cmdCommitTrans_Click()
'On Error GoTo ErrorHandle
    'rdcTest.Refresh
    
   rdcTest.CommitTrans
   rdcTest.SQL = "select * from 酒店登记"
   rdcTest.Refresh
   rdcTest.BeginTrans
    
Exit Sub

'ErrorHandle:
  'ShowErr
  
End Sub

Private Sub cmdRefresh_Click()
'On Error GoTo ErrorHandle
  rdcTest.SQL = "select * from 酒店登记"
  rdcTest.Refresh
Exit Sub
'ErrorHandle:
  'ShowErr
End Sub

Private Sub cmdRollBackTrans_Click()
'On Error GoTo ErrorHandle
  rdcTest.RollbackTrans
  rdcTest.SQL = "select * from 酒店登记"
 ' rdcTest.Refresh
  rdcTest.BeginTrans
Exit Sub
'ErrorHandle:
  'ShowErr
End Sub


Private Sub Form_Activate()
  'ShowStatus ("数据管理 -- " & TableName)
End Sub

Private Sub Form_Load()
  
 ' ShowStatus ("数据管理")
 ' TableName = CurrentTable
 ' Me.Caption = "数据管理 -- " & TableName
 ' Form_Resize
 ' On Error GoTo ErrorHandle
 '   rdcTest.Connect = ConnectID
 '   rdcTest.CursorDriver = rdUseServer
  rdcTest.SQL = "select * from 酒店登记"
  rdcTest.Refresh
    
 '   If TableName = "Input" Or TableName = "Output" Or _
 '      TableName = "Store" Or TableName = "Retreat" Then
 '     Me.Caption = Me.Caption & "(只读)"
 '     dbgTest.AllowAddNew = False
 '     dbgTest.AllowDelete = False
 '     dbgTest.AllowUpdate = False
 '     dbgTest.AllowRowSizing = False
 '     cmdCommitTrans.Visible = False
 '    cmdRollBackTrans.Visible = False
 '     cmdRefresh.Left = cmdCommitTrans.Left
  '  Else
  '    rdcTest.BeginTrans
  '  End If
'ErrorHandle:
 ' Exit Sub
End Sub

Private Sub Form_Resize()
  If Me.WindowState <> vbMinimized Then
    If Me.Width < 4500 Then Me.Width = 4500
    If Me.Height < 3000 Then Me.Height = 3000
    DBGrid1.Height = Me.Height - 990
    fraCommand.Top = DBGrid1.Top + DBGrid1.Height + 10
    fraCommand.Width = Me.Width - 120
  End If
End Sub