unit12.dfm

图书馆管理系统

object frmExportReaderinfo: TfrmExportReaderinfo
  Left = 130
  Top = 170
  Width = 838
  Height = 537
  Caption = #23548#20986#35835#32773#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 338
    Top = 455
    Width = 92
    Height = 27
    Caption = #23548#20986#21040'Excel'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object DBGrid1: TDBGrid
    Left = 7
    Top = 13
    Width = 806
    Height = 430
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -10
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'reader_no'
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_name'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_sex'
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_type'
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_dep'
        Width = 75
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_tel'
        Width = 80
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_email'
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_amount'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_checkdate'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_memo'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'reader_score'
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 475
    Top = 455
    Width = 93
    Height = 27
    Caption = #36864#20986'(&e)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 296
    Top = 200
  end
  object ADOTable1: TADOTable
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=library'
    CursorType = ctStatic
    TableName = 'Readers'
    Left = 264
    Top = 200
  end
  object SaveDialog1: TSaveDialog
    Filter = 'Excel(*.xls)|*.xls'
    Left = 328
    Top = 200
  end
end