gsunit.dfm

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

object Form6: TForm6
  Left = 260
  Top = 180
  Width = 367
  Height = 191
  Caption = #25346#22833#26435#38480#35748#35777
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 34
    Width = 60
    Height = 12
    Caption = #35831#36755#20837#21345#21495
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 56
    Top = 72
    Width = 60
    Height = 12
    Caption = #35831#36755#20837#23494#30721
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton1: TSpeedButton
    Left = 144
    Top = 120
    Width = 105
    Height = 22
    Caption = #30830#35748#26435#38480
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Glyph.Data = {
      EE000000424DEE0000000000000076000000280000000F0000000F0000000100
      0400000000007800000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
      FFF0FFFFFFFFFFFF0FF0FFFFFFFFFFF000F0FFFFFFFFFF000FF0FFFFFFFFF000
      FFF0FFF00000000FFFF0FF00BBB000FFFFF0F00BBBBB00FFFFF0F0BBBBBBB0FF
      FFF0F0BBB0BBB0FFFFF0F0BB0F0BB0FFFFF0F00BB0BB00FFFFF0FF00BBB00FFF
      FFF0FFF00000FFFFFFF0FFFFFFFFFFFFFFF0}
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object Edit1: TEdit
    Left = 144
    Top = 30
    Width = 121
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ParentFont = False
    TabOrder = 0
    Text = 'Edit1'
  end
  object Edit2: TEdit
    Left = 144
    Top = 64
    Width = 121
    Height = 20
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    ParentFont = False
    TabOrder = 1
    Text = 'Edit2'
  end
  object DBEdit1: TDBEdit
    Left = 176
    Top = 32
    Width = 121
    Height = 21
    DataField = #21345#21495
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 2
    Visible = False
  end
  object DBEdit2: TDBEdit
    Left = 176
    Top = 64
    Width = 121
    Height = 21
    DataField = #23494#30721
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
    TabOrder = 3
    Visible = False
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 304
    Top = 104
  end
  object Table1: TTable
    Active = True
    TableName = #23384#21462#35760#24405'.db'
    Left = 304
    Top = 48
    object Table1BDEDesigner: TStringField
      FieldName = #22995#21517
      Size = 10
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #21345#21495
      Size = 10
    end
    object Table1BDEDesigner3: TStringField
      FieldName = #19987#19994#29677#32423
      Size = 14
    end
    object Table1BDEDesigner4: TFloatField
      FieldName = #20313#39069
    end
    object Table1BDEDesigner5: TStringField
      FieldName = #21150#21345#26085#26399
    end
    object Table1BDEDesigner6: TStringField
      FieldName = #25346#22833#26631#35760
      Size = 3
    end
    object Table1BDEDesigner7: TStringField
      FieldName = #23494#30721
      Size = 6
    end
  end
end