forminfo.dfm

《Delphi数据库应用项目开发实践》配书光盘

object Info: TInfo
  Left = 196
  Top = 201
  Width = 672
  Height = 401
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #33647#21697#20449#24687
  Color = clBtnFace
  Constraints.MaxHeight = 401
  Constraints.MaxWidth = 672
  Constraints.MinHeight = 401
  Constraints.MinWidth = 672
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 24
    Width = 72
    Height = 13
    Caption = #36873#25321#26597#35810#26041#24335
  end
  object Label2: TLabel
    Left = 328
    Top = 24
    Width = 36
    Height = 13
    Caption = #20851#38190#23383
  end
  object DBGrid1: TDBGrid
    Left = 39
    Top = 80
    Width = 586
    Height = 249
    Hint = #24744#21482#26377#27983#35272#26597#35810#26435#38480#65281
    BiDiMode = bdLeftToRight
    Ctl3D = True
    DataSource = DataSource1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete]
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clBlack
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Pitch = fpVariable
    TitleFont.Style = [fsBold]
    Columns = <
      item
        Expanded = False
        FieldName = #33647#21697#20195#30721
        Width = 86
        Visible = True
      end
      item
        Expanded = False
        FieldName = #33647#21697#21517#31216
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = #38144#21806#21333#20215
        Width = 72
        Visible = True
      end
      item
        Expanded = False
        FieldName = #29983#20135#26085#26399
        Width = 74
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26377#25928#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24211#23384#25968
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36827#36135#21378#23478
        Width = 102
        Visible = True
      end>
  end
  object ComboBox1: TComboBox
    Left = 144
    Top = 24
    Width = 145
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ItemHeight = 13
    TabOrder = 1
    Text = #33647#21697#20195#30721
    OnChange = ComboBox1Change
    Items.Strings = (
      #33647#21697#20195#30721
      #33647#21697#21517#31216
      #29983#20135#26085#26399
      #26377#25928#26399
      #36827#36135#21378#23478
      #21015#20986#25152#26377)
  end
  object Edit1: TEdit
    Left = 376
    Top = 24
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 2
    Text = 'Edit1'
  end
  object Button1: TButton
    Left = 544
    Top = 24
    Width = 41
    Height = 25
    Caption = #26597#35810
    TabOrder = 3
    OnClick = Button1Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 216
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=delphi;Persist Security Info=True;U' +
      'ser ID=sa;Initial Catalog=ypjxc;Data Source=LZ'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#33647#21697#20449#24687)
    Left = 264
  end
end