unit3.dfm

《delphi 7.0_8.0课程设计与系统开发案例》随书代码

object Form3: TForm3
  Left = 125
  Top = 105
  Width = 611
  Height = 409
  Caption = #27983#35272#32479#35745#31383#20307
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 160
    Top = 16
    Width = 199
    Height = 24
    Caption = #27983#35272#19982#32479#35745#26597#35810#31383#20307
    Font.Charset = GB2312_CHARSET
    Font.Color = clLime
    Font.Height = -21
    Font.Name = #21326#25991#20013#23435
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 123
    Top = 278
    Width = 60
    Height = 12
    Caption = #35831#36873#25321#24180#32423
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 202
    Top = 278
    Width = 48
    Height = 12
    Caption = #36873#25321#29677#32423
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 263
    Top = 278
    Width = 60
    Height = 12
    Caption = #36873#25321#36923#36753#31526
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 16
    Top = 278
    Width = 60
    Height = 12
    Caption = #36873#25321#23383#27573#21517
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 56
    Width = 586
    Height = 161
    Color = clBtnFace
    DataSource = DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #23398#29983#32534#21495
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23398#29983#22995#21517
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25152#22312#24180#32423
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #25152#22312#29677#32423
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'YJF'
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #23398#24180#24180#24230
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36153#29992#28165#21333
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32463#25163#20154
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SJ'
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZL'
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #32564#36153#26085#26399
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22791#27880
        Title.Alignment = taCenter
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 296
    Top = 224
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 1
  end
  object StaticText1: TStaticText
    Left = 123
    Top = 249
    Width = 100
    Height = 16
    Caption = #32452#21512#26465#20214#32479#35745#21151#33021
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object ComboBox1: TComboBox
    Left = 115
    Top = 296
    Width = 72
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 12
    ParentFont = False
    TabOrder = 3
    Text = #24180#32423#21015#34920
    OnClick = ComboBox1Click
    Items.Strings = (
      #39640#19968#24180#32423
      #39640#20108#24180#32423
      #39640#19977#24180#32423
      #21021#19968#24180#32423
      #21021#20108#24180#32423
      #21021#19977#24180#32423)
  end
  object ComboBox2: TComboBox
    Left = 187
    Top = 296
    Width = 72
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 12
    ParentFont = False
    TabOrder = 4
    Text = #29677#32423#21015#34920
    OnClick = ComboBox2Click
    Items.Strings = (
      #19968#29677
      #20108#29677
      #19977#29677
      #22235#29677
      #20116#29677
      #20845#29677
      #19971#29677
      #20843#29677
      #20061#29677
      #21313#29677)
  end
  object memo1: TMemo
    Left = 2
    Top = 322
    Width = 324
    Height = 55
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object ComboBox3: TComboBox
    Left = 260
    Top = 296
    Width = 64
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 12
    ParentFont = False
    TabOrder = 6
    Text = #36923#36753#31526
    OnClick = ComboBox3Click
    Items.Strings = (
      '='
      'and'
      'or'
      '<>'
      '<'
      '<='
      '>'
      '>=')
  end
  object BitBtn1: TBitBtn
    Left = 424
    Top = 285
    Width = 90
    Height = 25
    Caption = #25191#34892#32479#35745#25805#20316
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = BitBtn1Click
  end
  object Memo2: TMemo
    Left = 328
    Top = 322
    Width = 271
    Height = 55
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      'Memo2')
    ParentFont = False
    TabOrder = 8
  end
  object ComboBox4: TComboBox
    Left = 2
    Top = 296
    Width = 110
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 12
    ParentFont = False
    TabOrder = 9
    Text = #23383#27573#21015#34920
    OnClick = ComboBox4Click
  end
  object Table1: TTable
    Active = True
    TableName = #20013#23398#29983#32564#36153'.DB'
    Left = 360
    Top = 80
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 328
    Top = 120
  end
end