main.frm

这是一个简单的文件管理系统,用VB+ACCESS编的,大虾多多指教

VERSION 5.00
Object = "{6D940288-9F11-11CE-83FD-02608C3EC08A}#2.1#0"; "IMGEDIT.OCX"
Object = "{009541A3-3B81-101C-92F3-040224009C02}#2.0#0"; "IMGADMIN.OCX"
Object = "{84926CA3-2941-101C-816F-0E6013114B7F}#1.0#0"; "IMGSCAN.OCX"
Begin VB.Form frmScan 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "进行扫描档案入库 ：-) Scan Files To Cabinet"
   ClientHeight    =   5355
   ClientLeft      =   150
   ClientTop       =   720
   ClientWidth     =   7590
   Icon            =   "main.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5355
   ScaleWidth      =   7590
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin ScanLibCtl.ImgScan ImgScan1 
      Left            =   300
      Top             =   2790
      _Version        =   65536
      _ExtentX        =   847
      _ExtentY        =   767
      _StockProps     =   0
      DestImageControl=   "ImgEdit1"
   End
   Begin ImgeditLibCtl.ImgEdit ImgEdit1 
      Height          =   5175
      Left            =   90
      TabIndex        =   0
      Top             =   75
      Width           =   7410
      _Version        =   131073
      _ExtentX        =   13070
      _ExtentY        =   9128
      _StockProps     =   96
      ImageControl    =   "ImgEdit1"
      BeginProperty AnnotationFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BorderStyle     =   0
      UndoBufferSize  =   39585792
      OcrZoneVisibility=   -4044
      AnnotationOcrType=   127
   End
   Begin VB.Line Line4 
      BorderColor     =   &H00FFFFFF&
      X1              =   7545
      X2              =   7545
      Y1              =   30
      Y2              =   5295
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00FFFFFF&
      X1              =   30
      X2              =   7560
      Y1              =   5295
      Y2              =   5295
   End
   Begin VB.Line Line2 
      BorderColor     =   &H00808080&
      X1              =   45
      X2              =   7545
      Y1              =   15
      Y2              =   15
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      X1              =   45
      X2              =   45
      Y1              =   15
      Y2              =   5295
   End
   Begin AdminLibCtl.ImgAdmin ImgAdmin1 
      Left            =   360
      Top             =   2295
      _Version        =   131072
      _ExtentX        =   714
      _ExtentY        =   661
      _StockProps     =   0
      PrintStartPage  =   0
      PrintEndPage    =   0
   End
   Begin VB.Menu MnuFile 
      Caption         =   "扫描操作(&F)"
      Begin VB.Menu MnuScan 
         Caption         =   "扫描文件(&C) ..."
         Shortcut        =   ^C
      End
      Begin VB.Menu step10 
         Caption         =   "-"
      End
      Begin VB.Menu MnuOpen 
         Caption         =   "打开文件(&O) ..."
         Shortcut        =   ^O
      End
      Begin VB.Menu MnuSave 
         Caption         =   "保存文件(&S) ..."
         Shortcut        =   ^S
      End
      Begin VB.Menu step11 
         Caption         =   "-"
      End
      Begin VB.Menu MnuExit 
         Caption         =   "关闭窗口(&X)"
         Shortcut        =   ^X
      End
   End
End
Attribute VB_Name = "frmScan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()

 Me.Left = Val(GetSetting(App.EXEName, "ScanForm", "Left"))
 Me.Top = Val(GetSetting(App.EXEName, "ScanForm", "Top"))

 End Sub


Private Sub Form_Unload(Cancel As Integer)

 SaveSetting App.EXEName, "ScanForm", "Left", Me.Left
 SaveSetting App.EXEName, "ScanForm", "Top", Me.Top
 
End Sub

Private Sub MnuExit_Click()
 
 '文件名送回
 Unload Me
 
End Sub

Private Sub MnuOpen_Click()
 
 ImgAdmin1.DialogTitle = "打开已经存在的图像文件"
 ImgAdmin1.CancelError = True
 ImgAdmin1.InitDir = App.Path + "\File"
 On Error GoTo CancelF
 ImgAdmin1.Image = ""
 ImgAdmin1.Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist
 ImgAdmin1.ShowFileDialog OpenDlg
 ImgEdit1.Image = ImgAdmin1.Image
 ImgEdit1.Display
 ScanFileName = ImgAdmin1.Image
 
 Exit Sub
CancelF:
 If Err.Number <> 32755 Then
    MsgBox "非法操作，不能继续操作！", vbOKOnly + vbQuestion, "不能打开"
    Else
    ImgAdmin1.Image = ""
 End If
 
End Sub

Private Sub MnuSave_Click()

 ImgAdmin1.DialogTitle = "保存图像文件"
 ImgAdmin1.CancelError = True
 ImgAdmin1.InitDir = App.Path + "\File"
 On Error GoTo CancelF
 ImgAdmin1.Image = ""
 ImgAdmin1.Filter = "压缩图片(*.bmp)|*.bmp|"
 ImgAdmin1.ShowFileDialog SaveDlg
 If InStr(1, UCase(ImgAdmin1.Image), UCase(".bmp"), vbTextCompare) Then
   ImgEdit1.SaveAs ImgAdmin1.Image, 3, 7, 1, 0, False
   ScanFileName = ImgAdmin1.Image
  Else
   ImgEdit1.SaveAs ImgAdmin1.Image & ".bmp", 3, 7, 1, 0, False
   ScanFileName = ImgAdmin1.Image & ".bmp"
 End If
 
 Exit Sub
CancelF:
 If Err.Number <> 32755 Then
    MsgBox "非法操作，不能继续操作！    ", vbOKOnly + vbQuestion, "不能保存"
    Else
    ImgAdmin1.Image = ""
 End If
    
End Sub

Private Sub MnuScan_Click()
 
 ImgScan1.DestImageControl = "ImgEdit1"
 On Error GoTo NoDevice
 ImgScan1.StartScan
 
 Exit Sub
NoDevice:
   If Err.Number = 1117 Then
      MsgBox "扫描设备没有找到，请重新安装！", vbOKOnly + vbCritical, "没有寻找到扫描设备"
      Exit Sub
      Else
      MsgBox "系统未知错误，不能继续！", vbOKOnly + vbCritical, "未知错误"
      Exit Sub
   End If
End Sub