fnetbarperson.dfm

DELPHI6G开发的一成套网吧身份证管理系统。主要功能是利用扫描仪或是usb摄像头等图开输入设备

          ReadOnly = True
          TabOrder = 1
        end
        object DBEdit2: TDBEdit
          Left = 64
          Top = 300
          Width = 161
          Height = 21
          Anchors = [akLeft, akBottom]
          Color = 16763594
          DataField = 'person_name'
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 2
        end
        object DBMemo1: TDBMemo
          Left = 64
          Top = 356
          Width = 265
          Height = 57
          Anchors = [akLeft, akBottom]
          Color = 16763594
          DataField = 'desc'
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 3
        end
        object DBEdit3: TDBEdit
          Left = 64
          Top = 324
          Width = 161
          Height = 21
          Anchors = [akLeft, akBottom]
          Color = 16763594
          DataField = 'AppendDate'
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 4
        end
      end
      object TabSheet2: TTabSheet
        Caption = #28155#21152#26032#20154
        ImageIndex = 1
        DesignSize = (
          362
          427)
        object SpeedButton9: TSpeedButton
          Left = 256
          Top = 317
          Width = 81
          Height = 33
          Anchors = [akLeft, akBottom]
          Caption = #20445#23384
          OnClick = SpeedButton9Click
        end
        object SpeedButton10: TSpeedButton
          Left = 256
          Top = 269
          Width = 81
          Height = 33
          Anchors = [akLeft, akBottom]
          Caption = #25235#22270
          OnClick = SpeedButton10Click
        end
        object DRLabel1: TDRLabel
          Left = 0
          Top = 296
          Width = 49
          Height = 25
          Anchors = [akLeft, akBottom]
          AutoSize = False
          Caption = ' '#22995#21517
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          HiColor = clBlue
          LoColor = clNavy
          Border = boNone
          Ctl3D = True
          BlinkInterval = 300
          Blink = blNone
          Deep = 1
        end
        object DRLabel2: TDRLabel
          Left = 0
          Top = 320
          Width = 49
          Height = 25
          Anchors = [akLeft, akBottom]
          AutoSize = False
          Caption = ' '#22791#27880
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          HiColor = clBlue
          LoColor = clNavy
          Border = boNone
          Ctl3D = True
          BlinkInterval = 300
          Blink = blNone
          Deep = 1
        end
        object DRLabel6: TDRLabel
          Left = 0
          Top = 264
          Width = 49
          Height = 25
          Anchors = [akLeft, akBottom]
          AutoSize = False
          Caption = ' '#32534#21495
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          HiColor = clBlue
          LoColor = clNavy
          Border = boNone
          Ctl3D = True
          BlinkInterval = 300
          Blink = blNone
          Deep = 1
        end
        object ComboBox2: TComboBox
          Left = 56
          Top = 264
          Width = 185
          Height = 24
          Anchors = [akLeft, akBottom]
          Color = 12384766
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ItemHeight = 16
          ParentFont = False
          TabOrder = 0
        end
        object edit1: TEdit
          Left = 56
          Top = 293
          Width = 177
          Height = 24
          Anchors = [akLeft, akBottom]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
        end
        object Memo1: TMemo
          Left = 56
          Top = 321
          Width = 185
          Height = 89
          Anchors = [akLeft, akBottom]
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
        end
        object Panel4: TPanel
          Left = 0
          Top = 4
          Width = 353
          Height = 253
          Anchors = [akLeft, akTop, akRight, akBottom]
          BevelInner = bvLowered
          TabOrder = 3
          object ContainImage: TScrollBox
            Left = 2
            Top = 2
            Width = 349
            Height = 249
            Cursor = 3778
            HorzScrollBar.Smooth = True
            HorzScrollBar.Tracking = True
            HorzScrollBar.Visible = False
            VertScrollBar.Smooth = True
            VertScrollBar.Visible = False
            Align = alClient
            BorderStyle = bsNone
            TabOrder = 0
            OnResize = ContainImageResize
            object Image1: TImage
              Left = 0
              Top = 0
              Width = 105
              Height = 105
              Cursor = 3778
              AutoSize = True
              OnMouseDown = Image1MouseDown
              OnMouseMove = Image1MouseMove
            end
          end
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 504
    Width = 746
    Height = 30
    Panels = <>
    SimplePanel = False
  end
  object DelphiTwain1: TDelphiTwain
    OnTwainAcquire = DelphiTwain1TwainAcquire
    TransferMode = ttmMemory
    SourceCount = 0
    Info.MajorVersion = 1
    Info.MinorVersion = 0
    Info.Language = tlUserLocale
    Info.CountryCode = 1
    Info.Groups = [tgControl, tgImage]
    Info.VersionInfo = 'Application name'
    Info.Manufacturer = 'Application manufacturer'
    Info.ProductFamily = 'App product family'
    Info.ProductName = 'App product name'
    LibraryLoaded = False
    SourceManagerLoaded = False
    Left = 152
    Top = 152
  end
  object SavePic: TSavePictureDialog
    DefaultExt = '.bmp'
    Filter = 'JPEG Image File (*.jpg)|*.jpg|Bitmaps (*.bmp)|*.bmp'
    FilterIndex = 0
    Title = 'Select the file name to save'
    Left = 136
    Top = 236
  end
  object TinyDatabase1: TTinyDatabase
    FileName = 'NetBarPerson.tdb'
    DatabaseName = 'Person'
    Connected = True
    SessionName = 'Default'
    Left = 160
    Top = 264
  end
  object TinyTable1: TTinyTable
    DatabaseName = 'person'
    Active = True
    AfterScroll = TinyTable1AfterScroll
    TableName = 'Person_Info'
    IndexDefs = <
      item
        Name = 'person_id'
        Fields = 'person_id'
        Options = [ixPrimary]
      end
      item
        Name = 'id_no'
        Fields = 'person_no'
        Options = [ixUnique]
      end
      item
        Name = 'idx_name'
        Fields = 'person_name'
      end>
    FieldDefs = <
      item
        Name = 'person_id'
        DataType = ftAutoInc
      end
      item
        Name = 'person_no'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'person_name'
        DataType = ftString
        Size = 32
      end
      item
        Name = 'person_photo'
        DataType = ftString
        Size = 32
      end
      item
        Name = 'desc'
        DataType = ftString
        Size = 32
      end
      item
        Name = 'AppendDate'
        DataType = ftDateTime
      end>
    Left = 56
    Top = 152
  end
  object DataSource1: TDataSource
    DataSet = TinyTable1
    Left = 160
    Top = 128
  end
end