frm_showany.frm

汽修厂管理软件

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form Frm_ShowAny 
   Caption         =   "Form1"
   ClientHeight    =   9045
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11730
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   9045
   ScaleWidth      =   11730
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Cmd_Exit 
      Caption         =   "退出"
      Height          =   255
      Left            =   7080
      TabIndex        =   5
      Top             =   240
      Width           =   1335
   End
   Begin VB.CommandButton Cmd_Preview 
      Caption         =   "打印预览"
      Height          =   255
      Left            =   5400
      TabIndex        =   4
      Top             =   240
      Width           =   1335
   End
   Begin VB.CommandButton Cmd_Print 
      Caption         =   "打印"
      Height          =   255
      Left            =   3840
      TabIndex        =   3
      Top             =   240
      Width           =   1335
   End
   Begin MSFlexGridLib.MSFlexGrid Grid_ShowAny 
      Height          =   7695
      Left            =   240
      TabIndex        =   2
      Top             =   720
      Width           =   11295
      _ExtentX        =   19923
      _ExtentY        =   13573
      _Version        =   393216
      HighLight       =   2
      SelectionMode   =   1
      MergeCells      =   2
      AllowUserResizing=   1
   End
   Begin VB.ComboBox Comb_Tables 
      Height          =   300
      Left            =   960
      TabIndex        =   0
      Text            =   "请选择显示的数据表"
      Top             =   240
      Width           =   2295
   End
   Begin VB.Label Label1 
      Caption         =   "显示："
      Height          =   375
      Left            =   240
      TabIndex        =   1
      Top             =   360
      Width           =   735
   End
End
Attribute VB_Name = "Frm_ShowAny"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mwksShowAny As Workspace
Dim mdbShowAny As Database

Private Sub Cmd_Exit_Click()
Unload Me
End Sub

Private Sub Cmd_Preview_Click()
Frm_PreView.strHeader = Comb_Tables.Text
Set Frm_PreView.MGrid = Grid_ShowAny
Frm_PreView.Show

End Sub

Private Sub Cmd_Print_Click()
Dim GPrinter As FlexPrinter
Printer.ScaleMode = vbPixels
On Error GoTo EHand
Set GPrinter = New FlexPrinter
Set GPrinter.FlexName = Grid_ShowAny
GPrinter.CurPage = 1
GPrinter.Header = Comb_Tables.Text

GPrinter.Footer = STRGRGINFO
With GPrinter
.PosTop = 550
.PosLeft = 50

.HSpace = 0
.VSpace = 0

.RoundCorX = 10
.RoundCorY = 10

.GridPenStyle = 0
.bGridPrint = True
.bDrawBoarder = True
.BoarderColor = 0
.BoarderStyle = 0
.BoarderWidth = 1
.BoarderDistance = 5
Do
 .PrintOut Printer
 .CurPage = .CurPage + 1
 Printer.EndDoc
Loop Until .CurPage = .TotalPages + 1
End With
Exit Sub

EHand:
MsgBox Err.Description, vbCritical, STRGARAGE
End Sub

Private Sub Comb_Tables_Click()
On Error GoTo EHand
'Sub ShowRSByFlex(RS As Recordset, Grid As MSFlexGrid)
Dim rsShowAny As Recordset
 Set rsShowAny = mdbShowAny.OpenRecordset(Comb_Tables.Text, dbOpenTable, dbReadOnly)
ShowRSByFlex rsShowAny, Grid_ShowAny
rsShowAny.Close
Exit Sub
EHand:
If Err.Number = 3112 Then
  MsgBox "您无权查看该表", vbOKOnly + vbInformation, STRGARAGE
  Grid_ShowAny.Rows = 1
  ElseIf Err.Number < 0.3011 Then
  MsgBox Err.Description, vbOKOnly + vbInformation, STRGARAGE
End If
End Sub

Private Sub Form_Load()
Dim rsShowAny As Recordset
Dim intSalarySetup As Integer
Dim docTable As Document
Frm_Login.Show vbModal
If strOkorEsc = "取消" Then
Unload Me
Exit Sub
End If
On Error GoTo EHand
Set mwksShowAny = DBEngine.CreateWorkspace("wksworker", Frm_Login.Txt_Name, Frm_Login.Txt_PWD, dbUseJet)
Set mdbShowAny = mwksShowAny.OpenDatabase(DBPATH, False, False)

'加载下拉框
For Each docTable In mdbShowAny.Containers("Tables").Documents
 If (Right(docTable.Name, 1) = "表" Or Right(docTable.Name, 1) = "人") Then
     docTable.UserName = mwksShowAny.UserName
     If docTable.AllPermissions > 116 Then Comb_Tables.AddItem docTable.Name
' Debug.Print docTable.Name & ":" & docTable.AllPermissions
End If
Next docTable

Exit Sub

EHand:

  MsgBox Err.Description, vbOKOnly + vbInformation, STRGARAGE
  Unload Me
End Sub