unit9.dfm

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

object Formtszx: TFormtszx
  Left = 98
  Top = 107
  Width = 870
  Height = 579
  Caption = #22270#20070#27880#38144
  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 = 32
    Top = 16
    Width = 505
    Height = 65
    Caption = #22312#24211#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 GroupBox1: TGroupBox
    Left = 576
    Top = 16
    Width = 257
    Height = 305
    Caption = #22312#24211#22270#20070#31579#36873
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 32
      Top = 32
      Width = 43
      Height = 16
      Caption = #20070#21495'    '
    end
    object Label2: TLabel
      Left = 32
      Top = 72
      Width = 39
      Height = 16
      Caption = #20070#21517'   '
    end
    object Label3: TLabel
      Left = 32
      Top = 112
      Width = 43
      Height = 16
      Caption = #31867#21035'    '
    end
    object Label4: TLabel
      Left = 32
      Top = 152
      Width = 43
      Height = 16
      Caption = #20316#32773'    '
    end
    object Label5: TLabel
      Left = 32
      Top = 192
      Width = 56
      Height = 16
      Caption = #20986#29256#31038'    '
    end
    object Editsh: TEdit
      Left = 104
      Top = 32
      Width = 121
      Height = 24
      TabOrder = 0
    end
    object Editsm: TEdit
      Left = 104
      Top = 72
      Width = 121
      Height = 24
      TabOrder = 1
    end
    object Editlb: TEdit
      Left = 104
      Top = 112
      Width = 121
      Height = 24
      TabOrder = 2
    end
    object Editzz: TEdit
      Left = 104
      Top = 152
      Width = 121
      Height = 24
      TabOrder = 3
    end
    object Editcbs: TEdit
      Left = 104
      Top = 192
      Width = 121
      Height = 24
      TabOrder = 4
    end
    object btnsx: TButton
      Left = 88
      Top = 248
      Width = 121
      Height = 41
      Caption = #31579#36873
      TabOrder = 5
      OnClick = btnsxClick
    end
  end
  object DBGridtszx: TDBGrid
    Left = 16
    Top = 88
    Width = 553
    Height = 241
    DataSource = DataSourcetszx
    FixedColor = clInactiveCaptionText
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGridtszxCellClick
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 344
    Width = 817
    Height = 113
    Caption = #22270#20070#27880#38144#25805#20316
    Color = clInactiveCaptionText
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 3
    object Label6: TLabel
      Left = 8
      Top = 32
      Width = 113
      Height = 16
      Caption = #27880#38144#22270#20070#32534#21495'   '
    end
    object Label7: TLabel
      Left = 264
      Top = 40
      Width = 107
      Height = 16
      Caption = #27880#38144#22270#20070#21517#31216'   '
    end
    object Label8: TLabel
      Left = 544
      Top = 32
      Width = 111
      Height = 16
      Caption = #27880#38144#22270#20070#20316#32773'  '
    end
    object Editzxsh: TEdit
      Left = 128
      Top = 32
      Width = 113
      Height = 24
      TabOrder = 0
    end
    object Editzxsm: TEdit
      Left = 392
      Top = 32
      Width = 121
      Height = 24
      TabOrder = 1
    end
    object Editzxzz: TEdit
      Left = 672
      Top = 32
      Width = 121
      Height = 24
      TabOrder = 2
    end
    object btnzx: TButton
      Left = 296
      Top = 72
      Width = 153
      Height = 33
      Caption = #27880#38144
      TabOrder = 3
      OnClick = btnzxClick
    end
  end
  object btnfh: TButton
    Left = 320
    Top = 480
    Width = 145
    Height = 49
    Caption = #36820#22238
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = btnfhClick
  end
  object DataSourcetszx: TDataSource
    DataSet = Querytszx
    Left = 40
    Top = 488
  end
  object Querytszx: TQuery
    Active = True
    DatabaseName = 'tsgl'
    SQL.Strings = (
      'select tsbm.'#22270#20070#32534#21495',tsbm.'#22270#20070#21517#31216',tsbm.'#22270#20070#31867#21035',tsbm.'#20316#32773#22995#21517',tsbm.'#20986#29256#31038
      'from tsbm,tsjy'
      'where (tsbm.'#22270#20070#32534#21495'=tsjy.'#22270#20070#32534#21495')and(tsjy.'#22270#20070#20511#20986#26631#24535'='#39#22312#24211#39')'
      'order by tsbm.'#22270#20070#32534#21495)
    Left = 128
    Top = 496
  end
end