www.pudn.com > sql.rar > frmDataManager.frm

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