unit4.~dfm

是用DELPHI编写的图书管理系统

object Formjccx: TFormjccx
  Left = 151
  Top = 112
  Width = 870
  Height = 564
  Caption = #20511#20986#22270#20070#26597#35810
  Color = clInactiveCaptionText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 128
    Top = 16
    Width = 569
    Height = 57
    Caption = #20511'   '#20986'  '#22270'  '#20070'  '#19968'  '#35272'  '#34920
    Color = clInactiveCaptionText
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object DBGridjccx: TDBGrid
    Left = 48
    Top = 88
    Width = 777
    Height = 153
    Color = clHighlightText
    DataSource = DataSourcejccx
    FixedColor = clInactiveCaptionText
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 64
    Top = 272
    Width = 769
    Height = 137
    Caption = #26597#35810#25805#20316
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 56
      Width = 145
      Height = 24
      Caption = #26597#35810#20851#38190#23383#36873#25321'    '
    end
    object Label2: TLabel
      Left = 440
      Top = 56
      Width = 129
      Height = 24
      Caption = #26597#35810#20851#38190#23383#35774#32622'    '
    end
    object ComboBoxgjz: TComboBox
      Left = 176
      Top = 56
      Width = 137
      Height = 24
      ItemHeight = 16
      TabOrder = 0
      OnChange = ComboBoxgjzChange
      Items.Strings = (
        #22270#20070#32534#21495
        #22270#20070#21517#31216
        #20511#20070#35777#21495
        #35835#32773#22995#21517)
    end
    object Editgjz: TEdit
      Left = 616
      Top = 48
      Width = 121
      Height = 24
      TabOrder = 1
    end
    object btncx: TButton
      Left = 312
      Top = 96
      Width = 121
      Height = 33
      Caption = #26597#35810
      TabOrder = 2
      OnClick = btncxClick
    end
  end
  object btnfh: TButton
    Left = 376
    Top = 456
    Width = 121
    Height = 41
    Caption = #36820#22238
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = btnfhClick
  end
  object DataSourcejccx: TDataSource
    DataSet = Queryjccx
    Left = 80
    Top = 456
  end
  object Queryjccx: TQuery
    Active = True
    DatabaseName = 'tsgl'
    SQL.Strings = (
      'select tsbm.'#22270#20070#32534#21495',tsbm.'#22270#20070#21517#31216',dzmc.'#20511#20070#35777#21495',dzmc.'#35835#32773#22995#21517',tsjy.'#20511#20986#26085#26399
      'from tsbm,dzmc,tsjy'
      
        'where (tsbm.'#22270#20070#32534#21495'=tsjy.'#22270#20070#32534#21495')and(dzmc.'#20511#20070#35777#21495'=tsjy.'#20511#20070#35777#21495')and(tsjy.'#22270#20070#20511#20986 +
        #26631#24535'='#39#20511#20986#39')'
      'order by tsbm.'#22270#20070#32534#21495)
    Left = 152
    Top = 456
  end
end