main.dfm

图书馆借书证制作程序,对学校及其他图书馆都有一定的实用价值

object frmMain: TfrmMain
  Left = 425
  Top = 148
  Width = 455
  Height = 407
  Caption = #29577#26519#24066#19968#20013#22270#20070#39302#20511#20070#35777#21046#20316#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 447
    Height = 49
    Align = alTop
    TabOrder = 0
    object Button1: TButton
      Left = 340
      Top = 9
      Width = 97
      Height = 28
      Caption = #25171#21360#39044#35272
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 16
      Top = 8
      Width = 81
      Height = 28
      Caption = #20840#37096
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 96
      Top = 8
      Width = 81
      Height = 28
      Caption = #25945#24072
      TabOrder = 2
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 176
      Top = 8
      Width = 81
      Height = 28
      Caption = #34917#21150
      TabOrder = 3
      OnClick = Button4Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 49
    Width = 447
    Height = 305
    Align = alClient
    TabOrder = 1
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 354
    Width = 447
    Height = 19
    Panels = <
      item
        Text = #20316#32773': '#35203#22372'      2004-9-16'
        Width = 50
      end>
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Secu' +
      'rity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 104
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from 2004'
      'order by '#29677#21035','#24615#21035','#22995#21517)
    Left = 48
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 80
    Top = 104
  end
  object frf: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbExit, pbPageSetup]
    StoreInDFM = True
    RebuildPrinter = False
    Left = 16
    Top = 144
    ReportForm = {
      19000000A2050000190000000026004D6963726F736F6674204F666669636520
      446F63756D656E7420496D6167652057726974657200FFFFFFFFFF0900000034
      0800009A0B00004800000000000000480000000000000000FFFF00000000FFFF
      020000000000000000000000030400466F726D000F0000FFDC00000078000000
      7C0100002C010000040000000200F90000000900D6F7CFEECAFDBEDD31000201
      0000000028000000F5020000C20000003000050001000000000000000000FFFF
      FF1F000000000C0066724442446174615365743100000000000000FFFF000000
      000002000000010000000000000001000000C800000014000000010000000000
      0000007801000005004D656D6F360002003D0000002900000030010000BF0000
      0003000F00C8000000000000000000FFFFFF1F2E020000000000000000000000
      FFFF00000000000200000001000000000800BBAACEC4D6D0CBCE000C00000000
      0000000000080000000100020000000000FFFFFF000000000200000000000000
      00001102000005004D656D6F310002003C000000380000003701000020000000
      0300000001000000000000000000FFFFFF1F2E02000000000001001600D3F1C1
      D6CAD0D2BBD6D0CDBCCAE9B9DDBDE8CAE9D6A400000000FFFF00000000000200
      000001000000000A00BABAB6A6B7B1CCD8D0D000140000000000000000000A00
      00000100020000000000FFFFFF00000000020000000000000000009202000005
      004D656D6F3200020057000000670000004C0000007000000003000F00640000
      00000000000000FFFFFF1F2E020000000000000000000000FFFF000000000002
      00000001000000000A00BABAB6A6B7B1CCD8D0D000140000000000000000000A
      0000000100020000000000FFFFFF00000000020000000000000000002B030000
      05004D656D6F33000200C700000064000000A300000014000000010000000100
      0000000000000000FFFFFF1F2E02000000000001001800D0D5C3FBA3BA5B4144
      4F5175657279312E22D0D5C3FB225D00000000FFFF0000000000020000000100
      0000000800BBAACEC4D6D0CBCE000C0000000000000000000800000001000200
      00000000FFFFFF0000000002000000000000000000C403000005004D656D6F34
      000200C70000007C000000A30000001400000001000000010000000000000000
      00FFFFFF1F2E02000000000001001800D0D4B1F0A3BA5B41444F517565727931
      2E22D0D4B1F0225D00000000FFFF00000000000200000001000000000800BBAA
      CEC4D6D0CBCE000C000000000000000000080000000100020000000000FFFFFF
      00000000020000000000000000005D04000005004D656D6F35000200C7000000
      94000000A3000000140000000100000001000000000000000000FFFFFF1F2E02
      000000000001001800B0E0B1F0A3BA5B41444F5175657279312E22B0E0B1F022
      5D00000000FFFF00000000000200000001000000000800BBAACEC4D6D0CBCE00
      0C000000000000000000080000000100020000000000FFFFFF00000000020000
      00000000000A0E00546672426172436F6465566965770000E804000004004261
      7231000200CA000000AD00000094000000370000000100000001000000000000
      000000FFFFFF1F2E020000000000010012005B41444F5175657279312E22D1A7
      BAC5225D00000000FFFF00000000000200000001000000000001000602000000
      333333333333F33F000000000000000000007005000005004D656D6F37000200
      4C0000008F00000060000000140000000300000001000000000000000000FFFF
      FF1F2E02000000000001000A005B43555252454E54235D00000000FFFF000000
      00000200000001000000000500417269616C000A0000000000000000000A0000
      000100020000000000FFFFFF000000000200000000000000FEFEFF0000000000
      00000000000000FC0000000000000000000000000000000058008C4D3F98BDAC
      E2405DD75646F6CAE240}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSource = DataSource1
    Left = 48
    Top = 144
  end
  object frBarCodeObject1: TfrBarCodeObject
    Left = 80
    Top = 144
  end
  object frf2: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbExit, pbPageSetup]
    StoreInDFM = True
    RebuildPrinter = False
    Left = 16
    Top = 184
    ReportForm = {
      190000008D040000190000000026004D6963726F736F6674204F666669636520
      446F63756D656E7420496D6167652057726974657200FFFFFFFFFF0900000034
      0800009A0B00004800000000000000480000000000000000FFFF00000000FFFF
      020000000000000000000000030400466F726D000F0000FFDC00000078000000
      7C0100002C010000040000000200F90000000900D6F7CFEECAFDBEDD31000201
      0000000014000000F5020000C20000003000050001000000000000000000FFFF
      FF1F000000000C0066724442446174615365743100000000000000FFFF000000
      000002000000010000000000000001000000C800000014000000010000000000
      0000007801000005004D656D6F36000200490000001500000030010000BF0000
      0003000F00C8000000000000000000FFFFFF1F2E020000000000000000000000
      FFFF00000000000200000001000000000800BBAACEC4D6D0CBCE000C00000000
      0000000000080000000100020000000000FFFFFF000000000200000000000000
      00001102000005004D656D6F3100020045000000240000003701000020000000
      0300000001000000000000000000FFFFFF1F2E02000000000001001600D3F1C1
      D6CAD0D2BBD6D0CDBCCAE9B9DDBDE8CAE9D6A400000000FFFF00000000000200
      000001000000000A00BABAB6A6B7B1CCD8D0D000140000000000000000000A00
      00000100020000000000FFFFFF0000000002000000000000000000AA02000005
      004D656D6F330002006D000000580000007B0000001400000001000000010000
      00000000000000FFFFFF1F2E02000000000001001800BDCCCAA6A3BA5B41444F
      5175657279312E22D0D5C3FB225D00000000FFFF000000000002000000010000
      00000800BBAACEC4D6D0CBCE000C000000000000000000080000000100020000
      000000FFFFFF00000000020000000000000000004303000005004D656D6F3500
      0200F80000005800000077000000140000000100000001000000000000000000
      FFFFFF1F2E02000000000001001800BFC6D7E9A3BA5B41444F5175657279312E
      22B0E0B1F0225D00000000FFFF00000000000200000001000000000800BBAACE
      C4D6D0CBCE000C000000000000000000080000000100020000000000FFFFFF00
      00000002000000000000000A0E00546672426172436F6465566965770000CE03
      0000040042617231000200840000007D000000B8000000370000000100000001
      000000000000000000FFFFFF1F2E020000000000010012005B41444F51756572
      79312E22D1A7BAC5225D00000000FFFF00000000000200000001000000000001
      000602000000000000000000F83F000000000000000000005B04000005004D65
      6D6F320002000B010000C00000006C0000001000000003000000010000000000
      00000000FFFFFF1F2C00010200000001001000B7A2D6A4C8D5C6DAA3BA5B4441
      54455D00000000FFFF00000000000200000001000000000400BADACCE5000700
      0000000000000000000000000100020000000000FFFFFF000000000200000000
      000000FEFEFF000000000000000000000000FC00000000000000000000000000
      00000058008C4D3F98BDACE2405DD75646F6CAE240}
  end
end