unit2.dfm

关于delphi的相关源码

object Form2: TForm2
  Left = 383
  Top = 237
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #26597#27957#32467#26524
  ClientHeight = 328
  ClientWidth = 422
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 160
    Width = 425
    Height = 169
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'cardno'
        Title.Caption = #24037#21495
        Width = 56
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'riqi'
        Title.Caption = #26085#26399
        Width = 106
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'backup'
        Title.Caption = #22791#27880
        Width = 248
        Visible = True
      end>
  end
  object Edit1: TEdit
    Left = 104
    Top = 8
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object Edit2: TEdit
    Left = 104
    Top = 48
    Width = 121
    Height = 21
    TabOrder = 2
  end
  object DateTimePicker1: TDateTimePicker
    Left = 104
    Top = 96
    Width = 121
    Height = 21
    Date = 39215.644743379630000000
    Time = 39215.644743379630000000
    TabOrder = 3
  end
  object BitBtn1: TBitBtn
    Left = 256
    Top = 0
    Width = 89
    Height = 41
    Caption = #30830#23450
    Default = True
    TabOrder = 4
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 256
    Top = 80
    Width = 89
    Height = 41
    Caption = #20851#38381
    TabOrder = 5
    OnClick = BitBtn2Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000}
    NumGlyphs = 2
  end
  object RadioButton1: TRadioButton
    Left = 16
    Top = 8
    Width = 81
    Height = 17
    Caption = #24037#21495': '
    Checked = True
    TabOrder = 6
    TabStop = True
  end
  object RadioButton2: TRadioButton
    Left = 16
    Top = 56
    Width = 73
    Height = 17
    Caption = #22995#21517':     '
    TabOrder = 7
  end
  object RadioButton3: TRadioButton
    Left = 16
    Top = 96
    Width = 73
    Height = 17
    Caption = #26085#26399':'
    TabOrder = 8
  end
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 120
    Width = 423
    Height = 41
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh]
    Flat = True
    Hints.Strings = (
      #39318#35760#24405
      #19978#19968#26465#35760#24405
      #19979#19968#26465#35760#24405
      #26411#35760#24405
      #25554#20837#35760#24405
      #21024#38500#35760#24405
      #32534#36753#35760#24405
      #20445#23384#32534#36753
      #21462#28040#32534#36753
      #21047#26032#35760#24405)
    ParentShowHint = False
    ShowHint = True
    TabOrder = 9
  end
  object BitBtn3: TBitBtn
    Left = 256
    Top = 40
    Width = 89
    Height = 41
    Caption = #25171#21360
    TabOrder = 10
    OnClick = BitBtn3Click
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\notebook.mdb;Pers' +
      'ist Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    Left = 72
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 72
    Top = 40
  end
  object ADOTable1: TADOTable
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\notebook.mdb;Pers' +
      'ist Security Info=False'
    TableName = 'beiwang'
    Left = 72
    Top = 80
  end
  object ExcelApplication1: TExcelApplication
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    AutoQuit = False
    Left = 368
    Top = 8
  end
  object ExcelWorksheet1: TExcelWorksheet
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 360
    Top = 56
  end
  object ExcelWorkbook1: TExcelWorkbook
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    Left = 352
    Top = 104
  end
end