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 
   ClientHeight    =   4755
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7110
   Icon            =   "frmDataManager.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4755
   ScaleWidth      =   7110
   Begin VB.Frame fraCommand 
      Height          =   555
      Left            =   0
      TabIndex        =   1
      Top             =   3750
      Width           =   7035
      Begin VB.CommandButton cmdRefresh 
         Caption         =   "刷新(&R)"
         Height          =   285
         Left            =   2790
         TabIndex        =   4
         Top             =   180
         Width           =   1275
      End
      Begin VB.CommandButton cmdRollBackTrans 
         Caption         =   "取消操作(&C)"
         Height          =   285
         Left            =   1410
         TabIndex        =   3
         Top             =   180
         Width           =   1275
      End
      Begin VB.CommandButton cmdCommitTrans 
         Caption         =   "确认修改(&T)"
         Height          =   285
         Left            =   120
         TabIndex        =   2
         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        =   327680
      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        =   ""
      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 dbgTest 
      Align           =   1  'Align Top
      Bindings        =   "frmDataManager.frx":0442
      Height          =   1560
      Left            =   0
      OleObjectBlob   =   "frmDataManager.frx":0454
      TabIndex        =   0
      Top             =   0
      Width           =   7110
   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 " & TableName
    rdcTest.Refresh
    rdcTest.BeginTrans
Exit Sub
ErrorHandle:
  ShowErr
  
End Sub

Private Sub cmdRefresh_Click()
On Error GoTo ErrorHandle
  rdcTest.SQL = "select * from " & TableName
  rdcTest.Refresh
Exit Sub
ErrorHandle:
  ShowErr
End Sub

Private Sub cmdRollBackTrans_Click()
On Error GoTo ErrorHandle
  rdcTest.RollbackTrans
  rdcTest.SQL = "select * from " & TableName
  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 " & TableName
    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_LostFocus()
  ShowStatus ("")
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
    dbgTest.Height = Me.Height - 990
    fraCommand.Top = dbgTest.Top + dbgTest.Height + 10
    fraCommand.Width = Me.Width - 120
  End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
  ShowStatus ("")
  Select Case TableName
    Case "Businessman"
      BusinessmanTableOpened = False
    Case "Factory"
      FactoryTableOpened = False
    Case "Customer"
      CustomerTableOpened = False
    Case "Product"
      ProductTableOpened = False
    Case "Store"
      StoreTableOpened = False
    Case "Input"
      InputTableOpened = False
    Case "Output"
      OutputTableOpened = False
    Case "Retreat"
      RetreatTableOpened = False
  End Select
  Call EnableDMS
End Sub