开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Java编程 > 查看源码
da_frmScan.frm
资源名称：ScannControl.rar　[点击查看]
上传用户：wyanru1974
上传日期：2022-08-09
资源大小：1315k
文件大小：16k
源码类别：

Java编程

开发平台：

Java

da_frmScan.frm：源码内容
  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Object = "{84926CA3-2941-101C-816F-0E6013114B7F}#1.0#0"; "IMGSCAN.OCX"
  4. Object = "{6D940288-9F11-11CE-83FD-02608C3EC08A}#2.1#0"; "IMGEDIT.OCX"
  5. Begin VB.Form da_frmScan 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "扫描档案原文"
  8.    ClientHeight    =   6750
  9.    ClientLeft      =   1380
  10.    ClientTop       =   1050
  11.    ClientWidth     =   9390
  12.    Icon            =   "da_frmScan.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   6750
  17.    ScaleWidth      =   9390
  18.    ShowInTaskbar   =   0   'False
  19.    Begin ScanLibCtl.ImgScan ImgScanyw 
  20.       Left            =   4530
  21.       Top             =   90
  22.       _Version        =   65536
  23.       _ExtentX        =   1032
  24.       _ExtentY        =   820
  25.       _StockProps     =   0
  26.       DestImageControl=   "ImgEdityw"
  27.       Image           =   "D:mwdadataimagebmp"
  28.       FileType        =   3
  29.       PageType        =   6
  30.       CompressionType =   0
  31.       CompressionInfo =   0
  32.       ScanTo          =   1
  33.    End
  34.    Begin VB.CommandButton cmdEdit 
  35.       Caption         =   "修改旧页"
  36.       Enabled         =   0   'False
  37.       BeginProperty Font 
  38.          Name            =   "宋体"
  39.          Size            =   10.5
  40.          Charset         =   134
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       Height          =   375
  47.       Left            =   6630
  48.       TabIndex        =   3
  49.       Top             =   180
  50.       Width           =   1215
  51.    End
  52.    Begin VB.CommandButton cmdDelete 
  53.       Caption         =   "删除旧页"
  54.       Enabled         =   0   'False
  55.       BeginProperty Font 
  56.          Name            =   "宋体"
  57.          Size            =   10.5
  58.          Charset         =   134
  59.          Weight          =   400
  60.          Underline       =   0   'False
  61.          Italic          =   0   'False
  62.          Strikethrough   =   0   'False
  63.       EndProperty
  64.       Height          =   375
  65.       Left            =   6630
  66.       TabIndex        =   5
  67.       Top             =   690
  68.       Width           =   1215
  69.    End
  70.    Begin VB.CommandButton cmdAdd 
  71.       Caption         =   "添加新页"
  72.       Enabled         =   0   'False
  73.       BeginProperty Font 
  74.          Name            =   "宋体"
  75.          Size            =   10.5
  76.          Charset         =   134
  77.          Weight          =   400
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   375
  83.       Left            =   5250
  84.       TabIndex        =   2
  85.       Top             =   180
  86.       Width           =   1215
  87.    End
  88.    Begin VB.CommandButton cmdCancel 
  89.       Caption         =   "取消扫描"
  90.       BeginProperty Font 
  91.          Name            =   "宋体"
  92.          Size            =   10.5
  93.          Charset         =   134
  94.          Weight          =   400
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       Height          =   375
  100.       Left            =   6630
  101.       TabIndex        =   8
  102.       Top             =   180
  103.       Width           =   1215
  104.    End
  105.    Begin VB.CommandButton cmdSetup 
  106.       Caption         =   "设置扫描仪"
  107.       BeginProperty Font 
  108.          Name            =   "宋体"
  109.          Size            =   10.5
  110.          Charset         =   134
  111.          Weight          =   400
  112.          Underline       =   0   'False
  113.          Italic          =   0   'False
  114.          Strikethrough   =   0   'False
  115.       EndProperty
  116.       Height          =   375
  117.       Left            =   8010
  118.       TabIndex        =   6
  119.       Top             =   180
  120.       Width           =   1215
  121.    End
  122.    Begin VB.CommandButton cmdBrowse 
  123.       Caption         =   "浏览图象"
  124.       Enabled         =   0   'False
  125.       BeginProperty Font 
  126.          Name            =   "宋体"
  127.          Size            =   10.5
  128.          Charset         =   134
  129.          Weight          =   400
  130.          Underline       =   0   'False
  131.          Italic          =   0   'False
  132.          Strikethrough   =   0   'False
  133.       EndProperty
  134.       Height          =   375
  135.       Left            =   5250
  136.       TabIndex        =   4
  137.       Top             =   690
  138.       Width           =   1215
  139.    End
  140.    Begin VB.CommandButton cmdSearch 
  141.       Caption         =   "确定"
  142.       Default         =   -1  'True
  143.       BeginProperty Font 
  144.          Name            =   "宋体"
  145.          Size            =   10.5
  146.          Charset         =   134
  147.          Weight          =   400
  148.          Underline       =   0   'False
  149.          Italic          =   0   'False
  150.          Strikethrough   =   0   'False
  151.       EndProperty
  152.       Height          =   345
  153.       Left            =   3780
  154.       TabIndex        =   1
  155.       Top             =   210
  156.       Width           =   705
  157.    End
  158.    Begin MSComCtl2.UpDown UpDnpage 
  159.       Height          =   375
  160.       Left            =   4050
  161.       TabIndex        =   9
  162.       Top             =   720
  163.       Width           =   270
  164.       _ExtentX        =   476
  165.       _ExtentY        =   661
  166.       _Version        =   393216
  167.       Value           =   1
  168.       AutoBuddy       =   -1  'True
  169.       BuddyControl    =   "cmdCancel"
  170.       BuddyDispid     =   196612
  171.       OrigLeft        =   1860
  172.       OrigTop         =   750
  173.       OrigRight       =   2130
  174.       OrigBottom      =   1095
  175.       Max             =   20
  176.       Min             =   1
  177.       Enabled         =   0   'False
  178.    End
  179.    Begin ImgeditLibCtl.ImgEdit ImgEdityw 
  180.       Height          =   5355
  181.       Left            =   90
  182.       TabIndex        =   14
  183.       Top             =   1290
  184.       Width           =   9225
  185.       _Version        =   131073
  186.       _ExtentX        =   16272
  187.       _ExtentY        =   9446
  188.       _StockProps     =   96
  189.       BorderStyle     =   1
  190.       ImageControl    =   "ImgEdityw"
  191.       BeginProperty AnnotationFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  192.          Name            =   "MS Serif"
  193.          Size            =   12
  194.          Charset         =   0
  195.          Weight          =   400
  196.          Underline       =   0   'False
  197.          Italic          =   0   'False
  198.          Strikethrough   =   0   'False
  199.       EndProperty
  200.       AutoRefresh     =   -1  'True
  201.       UndoBufferSize  =   134586368
  202.       OcrZoneVisibility=   -4044
  203.       AnnotationOcrType=   88
  204.    End
  205.    Begin VB.TextBox txtpage 
  206.       BackColor       =   &H80000018&
  207.       Enabled         =   0   'False
  208.       BeginProperty Font 
  209.          Name            =   "宋体"
  210.          Size            =   10.5
  211.          Charset         =   134
  212.          Weight          =   400
  213.          Underline       =   0   'False
  214.          Italic          =   0   'False
  215.          Strikethrough   =   0   'False
  216.       EndProperty
  217.       Height          =   315
  218.       Left            =   1590
  219.       TabIndex        =   12
  220.       Top             =   750
  221.       Width           =   2445
  222.    End
  223.    Begin VB.TextBox txtdh 
  224.       BackColor       =   &H80000018&
  225.       BeginProperty Font 
  226.          Name            =   "宋体"
  227.          Size            =   10.5
  228.          Charset         =   134
  229.          Weight          =   400
  230.          Underline       =   0   'False
  231.          Italic          =   0   'False
  232.          Strikethrough   =   0   'False
  233.       EndProperty
  234.       Height          =   315
  235.       Left            =   1050
  236.       TabIndex        =   0
  237.       Top             =   210
  238.       Width           =   2715
  239.    End
  240.    Begin VB.CommandButton cmdClose 
  241.       Caption         =   "关闭"
  242.       BeginProperty Font 
  243.          Name            =   "宋体"
  244.          Size            =   10.5
  245.          Charset         =   134
  246.          Weight          =   400
  247.          Underline       =   0   'False
  248.          Italic          =   0   'False
  249.          Strikethrough   =   0   'False
  250.       EndProperty
  251.       Height          =   375
  252.       Left            =   8010
  253.       TabIndex        =   10
  254.       Top             =   690
  255.       Width           =   1215
  256.    End
  257.    Begin VB.CommandButton cmdUpdate 
  258.       Caption         =   "开始扫描"
  259.       BeginProperty Font 
  260.          Name            =   "宋体"
  261.          Size            =   10.5
  262.          Charset         =   134
  263.          Weight          =   400
  264.          Underline       =   0   'False
  265.          Italic          =   0   'False
  266.          Strikethrough   =   0   'False
  267.       EndProperty
  268.       Height          =   375
  269.       Left            =   5250
  270.       TabIndex        =   7
  271.       Top             =   180
  272.       Width           =   1215
  273.    End
  274.    Begin VB.Label Label2 
  275.       Caption         =   "当前图像页号:"
  276.       BeginProperty Font 
  277.          Name            =   "宋体"
  278.          Size            =   10.5
  279.          Charset         =   134
  280.          Weight          =   400
  281.          Underline       =   0   'False
  282.          Italic          =   0   'False
  283.          Strikethrough   =   0   'False
  284.       EndProperty
  285.       Height          =   255
  286.       Left            =   90
  287.       TabIndex        =   13
  288.       Top             =   780
  289.       Width           =   1425
  290.    End
  291.    Begin VB.Label Label1 
  292.       Caption         =   "当前档号:"
  293.       BeginProperty Font 
  294.          Name            =   "宋体"
  295.          Size            =   10.5
  296.          Charset         =   134
  297.          Weight          =   400
  298.          Underline       =   0   'False
  299.          Italic          =   0   'False
  300.          Strikethrough   =   0   'False
  301.       EndProperty
  302.       Height          =   255
  303.       Left            =   90
  304.       TabIndex        =   11
  305.       Top             =   240
  306.       Width           =   945
  307.    End
  308. End
  309. Attribute VB_Name = "da_frmScan"
  310. Attribute VB_GlobalNameSpace = False
  311. Attribute VB_Creatable = False
  312. Attribute VB_PredeclaredId = True
  313. Attribute VB_Exposed = False
  315. Option Explicit
  316. Dim mbEditFlag As Boolean
  317. Dim mbAddFlag As Boolean
  318. Dim mpath() As String
  319. Dim strsort As String
  320. Dim strywlj As String
  321. Dim mVal As Integer
  323. Private Sub SetButtons(bVal As Boolean)
  324.   cmdAdd.Visible = bVal
  325.   cmdEdit.Visible = bVal
  326.   cmdUpdate.Visible = Not bVal
  327.   cmdCancel.Visible = Not bVal
  328.   cmdDelete.Visible = bVal
  329.   CmdSetup.Visible = bVal
  330.   cmdClose.Visible = bVal
  331.   cmdSearch.Visible = bVal
  332.   cmdBrowse.Visible = bVal
  333.   txtdh.Enabled = bVal
  334.   UpDnpage.Visible = bVal
  335. End Sub
  337. Private Sub cmdAdd_Click()
  338.     mbAddFlag = True
  339.     SetButtons False
  340.     mVal = UpDnpage.Value
  341.     txtpage.Text = "添加新图象页"
  342. End Sub
  344. Private Sub cmdCancel_Click()
  345.   SetButtons True
  346.   mbEditFlag = False
  347.   mbAddFlag = False
  348.   UpDnpage.Value = mVal
  349. End Sub
  351. Private Sub cmdClose_Click()
  352.     Unload Me
  353. End Sub
  355. Private Sub cmdDelete_Click()
  356.   On Error GoTo DeleteErr
  357.   Dim mResult As Integer
  358.   Dim oldpath As String
  359.   
  360.   mResult = MsgBox("确实要删除此图象页吗?", vbYesNo + vbQuestion, "删除")
  361.   If mResult = vbYes Then
  362.      oldpath = mpath(UpDnpage.Value - 1)
  363.      strywlj = Replace(strywlj, oldpath & ";", "")
  364.      strywlj = Replace(strywlj, oldpath, "")
  365.      g_DBConnect.Execute "UPDATE da_jnwjb SET ywlj ='" & strywlj & "' WHERE sort1='" & strsort & "'"
  366.      Kill g_ServerPath & "image" & oldpath
  367.      mpath = Split(strywlj, ";")
  368.      If UpDnpage.Max > 1 Then
  369.         UpDnpage.Max = UpDnpage.Max - 1
  370.         UpDnpage.Value = UpDnpage.Max
  371.         ImgEdityw.Image = g_ServerPath & "image" & mpath(UpDnpage.Value - 1)
  372.      Else
  373.         cmdEdit.Enabled = False
  374.         cmdDelete.Enabled = False
  375.         cmdBrowse.Enabled = False
  376.         UpDnpage.Enabled = False
  377.         UpDnpage.Max = 0
  378.         UpDnpage.Min = 0
  379.         ImgEdityw.ClearDisplay
  380.      End If
  381.   End If
  382.   Exit Sub
  383. DeleteErr:
  384.   MsgBox Err.Description, vbOKOnly, "错误"
  385. End Sub
  387. Private Sub cmdEdit_Click()
  388.     mbEditFlag = True
  389.     SetButtons False
  390.     mVal = UpDnpage.Value
  391.     txtpage.Text = "修改图象页:" & CStr(UpDnpage.Value)
  392. End Sub
  394. Private Sub cmdSetup_Click()
  395.     ImgScanyw.ShowSelectScanner
  396.     ImgScanyw.ShowScanPreferences
  397. End Sub
  399. Private Sub cmdUpdate_Click()
  400.     On Error GoTo UpdateErr
  401.     Dim strpath As String
  402.         
  403.     If mbAddFlag Then
  404.        strpath = Trim(txtdh) & "_" & CStr(UpDnpage.Max + 1) & ".BMP"
  405.        ImgScanyw.Image = g_ServerPath & "image" & strpath
  406.        ImgScanyw.ShowScanNew
  407.        ImgScanyw.CloseScanner
  408.        If Dir(g_ServerPath & "image" & strpath) <> "" Then
  409.           If strywlj <> "" Then
  410.              strywlj = strywlj & ";" & strpath
  411.           Else
  412.              strywlj = strpath
  413.           End If
  414.           g_DBConnect.Execute "UPDATE da_jnwjb SET ywlj ='" & strywlj & "' WHERE sort1='" & strsort & "'"
  415.           mpath = Split(strywlj, ";")
  416.           cmdEdit.Enabled = True
  417.           cmdDelete.Enabled = True
  418.           cmdBrowse.Enabled = True
  419.           UpDnpage.Enabled = True
  420.           ImgEdityw.Image = g_ServerPath & "image" & strpath
  421.           UpDnpage.Max = UpDnpage.Max + 1
  422.           UpDnpage.Min = 1
  423.           UpDnpage.Value = UpDnpage.Max
  424.        End If
  425.     Else
  426.        strpath = Trim(txtdh) & "_" & CStr(mVal) & ".BMP"
  427.        ImgScanyw.Image = g_ServerPath & "image" & strpath
  428.        ImgScanyw.ShowScanNew
  429.        ImgScanyw.CloseScanner
  430.        If Dir(g_ServerPath & "image" & strpath) <> "" Then
  431.           ImgEdityw.Image = g_ServerPath & "image" & strpath
  432.           UpDnpage.Value = mVal
  433.        End If
  434.     End If
  435.     SetButtons True
  436.     mbEditFlag = False
  437.     mbAddFlag = False
  438.     Exit Sub
  439. UpdateErr:
  440.   MsgBox Err.Description, vbOKOnly, "错误"
  441. End Sub
  443. Private Sub Form_Load()
  444.     If Not ImgScanyw.ScannerAvailable Then
  445.        MsgBox "没有安装扫描仪,请安装扫描仪后再试！"
  446.        cmdSearch.Enabled = False
  447.     Else
  448.        cmdSearch.Enabled = True
  449.     End If
  450. End Sub
  452. Private Sub cmdSearch_Click()
  453.    Dim rstjnwj As Recordset
  454.    Dim QueryStr As String
  455.    On Error GoTo ErrHandle
  457.     If txtdh.Text = "" Then
  458.         Exit Sub
  459.     End If
  460.     QueryStr = "SELECT qzh+'-'+mlh+'-'+ajh+'-'+yh as dh ,ywlj,sort1 FROM da_jnwjb " & _
  461.                "WHERE qzh+'-'+mlh+'-'+ajh+'-'+yh='" & Trim(txtdh.Text) & "'"
  462.     Set rstjnwj = New Recordset
  463.     rstjnwj.Open QueryStr, g_DBConnect, adOpenStatic, adLockReadOnly
  464.     If rstjnwj.BOF And rstjnwj.EOF Then
  465.        MsgBox "找不到满足条件的记录！", vbOKOnly, "查找记录"
  466.        cmdAdd.Enabled = False
  467.        cmdEdit.Enabled = False
  468.        cmdDelete.Enabled = False
  469.        cmdBrowse.Enabled = False
  470.        UpDnpage.Enabled = False
  471.        txtpage.Text = ""
  472.        strywlj = ""
  473.     Else
  474.        cmdAdd.Enabled = True
  475.        strsort = rstjnwj("sort1") & ""
  476.        strywlj = rstjnwj("ywlj") & ""
  477.        If strywlj <> "" Then
  478.           If InStr(strywlj, ".DOC") = 0 Then
  479.              mpath = Split(strywlj, ";")
  480.              cmdEdit.Enabled = True
  481.              cmdDelete.Enabled = True
  482.              cmdBrowse.Enabled = True
  483.              UpDnpage.Enabled = True
  484.              UpDnpage.Min = 1
  485.              UpDnpage.Max = UBound(mpath) + 1
  486.              UpDnpage.Value = 1
  487.              ImgEdityw.ClearDisplay
  488.           End If
  489.        Else
  490.           cmdEdit.Enabled = False
  491.           cmdDelete.Enabled = False
  492.           cmdBrowse.Enabled = False
  493.           UpDnpage.Enabled = False
  494.           UpDnpage.Min = 0
  495.           UpDnpage.Max = 0
  496.           ImgEdityw.ClearDisplay
  497.        End If
  498.     End If
  499.     rstjnwj.Close
  500.     Set rstjnwj = Nothing
  501.     Exit Sub
  502. ErrHandle:
  503.    MsgBox Err.Number & Err.Description
  504. End Sub
  506. Private Sub UpDnpage_Change()
  507.     If UpDnpage.Value = 0 Then
  508.        txtpage.Text = "无图象原文"
  509.     Else
  510.        txtpage.Text = CStr(UpDnpage.Value) & "/共 " & CStr(UBound(mpath) + 1) & " 页"
  511.     End If
  512. End Sub
  514. Private Sub cmdbrowse_Click()
  515. Dim strpath As String
  516.     strpath = g_ServerPath & "image" & mpath(UpDnpage.Value - 1)
  517.     If Dir(strpath) <> "" Then
  518.        ImgEdityw.ClearDisplay
  519.        ImgEdityw.Image = g_ServerPath & "image" & mpath(UpDnpage.Value - 1)
  520.        ImgEdityw.Display
  521.     Else
  522.        MsgBox "找不到图象文件！", vbOKOnly, "提示"
  523.     End If
  524. End Sub