forfeitform.~dfm

来自「图书管理系统,使用Delphi开发,数据库为Microsoft SQL Serv」· ~DFM 代码 · 共 74 行

inherited Forfeit: TForfeit
  Caption = #22270#20070#32602#27454
  Enabled = True
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Label3: TLabel
    Width = 60
    Caption = #35835#32773#32534#21495#65306
  end
  inherited Label4: TLabel
    Width = 60
    Caption = #22270#20070#32534#21495#65306
  end
  inherited Label5: TLabel
    Width = 60
    Caption = #35835#32773#22995#21517#65306
  end
  object Label6: TLabel [5]
    Left = 240
    Top = 352
    Width = 72
    Height = 13
    Caption = #23454#25910#37329#39069'        '
  end
  inherited ToolBar1: TToolBar
    Visible = False
  end
  inherited BitBtn1: TBitBtn
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn [12]
    Left = 72
    Top = 352
    Width = 97
    Height = 41
    Caption = #25910#22238#32602#27454
    TabOrder = 6
    OnClick = BitBtn2Click
    Kind = bkIgnore
  end
  object Edit4: TEdit [13]
    Left = 240
    Top = 368
    Width = 121
    Height = 21
    TabOrder = 7
    OnKeyPress = Edit4KeyPress
  end
  inherited DataSource1: TDataSource
    Left = 568
  end
  object ADOCommand1: TADOCommand
    Connection = DataModule3.ADOConnection1
    Parameters = <>
    Left = 592
    Top = 8
  end
  object ADOQuery2: TADOQuery
    Connection = DataModule3.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select a.*,b.*,c.* from BookLend a,BookInfo b,ReaderInfo c where' +
        '(a.BookInfo_No=b.BookInfo_No)and(a.ReaderInfo_No=c.ReaderInfo_No' +
        ')and(BookLend_State='#39#26410#36824#39')and(a.BookLend_RestoreDate-getdate()<0)')
    Left = 472
    Top = 8
  end
end