unit1.~dfm

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

object Form1: TForm1
  Left = 108
  Top = 47
  Width = 638
  Height = 454
  Align = alTop
  Caption = #28779#36710#31080#21153#31649#29702#31995#32479
  Color = clBtnFace
  Constraints.MaxHeight = 454
  Constraints.MaxWidth = 638
  Constraints.MinHeight = 454
  Constraints.MinWidth = 638
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 61
    Width = 630
    Height = 2
    Cursor = crVSplit
    Align = alTop
  end
  object Splitter2: TSplitter
    Left = 294
    Top = 63
    Width = 2
    Height = 364
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 630
    Height = 61
    Align = alTop
    Caption = #28779#36710#31080#21153#31649#29702#31995#32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -29
    Font.Name = #21326#25991#24425#20113
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 63
    Width = 294
    Height = 364
    Align = alLeft
    Caption = 'Panel2'
    TabOrder = 1
    object Label1: TLabel
      Left = 88
      Top = 16
      Width = 105
      Height = 21
      Caption = #21806#31080#23376#31995#32479
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -20
      Font.Name = #21326#25991#34892#26999
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 32
      Top = 260
      Width = 168
      Height = 14
      Caption = #26412#21015#36710#30446#21069#36824#21097#20313#24231#20301#25968#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 32
      Top = 336
      Width = 84
      Height = 12
      Caption = #30446#21069#21806#31080#25910#20837#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 32
      Top = 307
      Width = 161
      Height = 22
      Caption = #32479#35745#30446#21069#30340#21806#31080#25910#20837
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object DBNavigator1: TDBNavigator
      Left = 32
      Top = 224
      Width = 240
      Height = 25
      DataSource = DataSource1
      Flat = True
      TabOrder = 0
      BeforeAction = DBNavigator1BeforeAction
    end
    object Edit1: TEdit
      Left = 32
      Top = 282
      Width = 233
      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 = 'Edit1'
    end
    object Edit3: TEdit
      Left = 120
      Top = 334
      Width = 145
      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 = 2
      Text = 'Edit3'
    end
    object DBGrid1: TDBGrid
      Left = 4
      Top = 48
      Width = 285
      Height = 169
      DataSource = DataSource1
      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 = 3
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = #36710#27425
          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 = #36215#28857#31449
          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 = #32456#28857#31449
          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 = #21457#36710#26102#38388
          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 = #21040#31449#26102#38388
          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 = #26102#26399
          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 = #28779#36710#31561#32423
          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 = #21487#29992#24231#20301
          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 = #24231#20301#31867#21035
          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 = #31080#20215
          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
  end
  object Panel3: TPanel
    Left = 296
    Top = 63
    Width = 334
    Height = 364
    Align = alClient
    Caption = 'Panel3'
    TabOrder = 2
    object Label2: TLabel
      Left = 104
      Top = 16
      Width = 105
      Height = 21
      Caption = #35746#31080#23376#31995#32479
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -20
      Font.Name = #21326#25991#34892#26999
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 42
      Top = 258
      Width = 168
      Height = 14
      Caption = #26412#21015#36710#30446#21069#36824#21097#20313#24231#20301#25968#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBGrid2: TDBGrid
      Left = 4
      Top = 48
      Width = 326
      Height = 170
      DataSource = DataSource2
      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
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = #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
          Alignment = taCenter
          Expanded = False
          FieldName = #20303#22336
          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
          Alignment = taCenter
          Expanded = False
          FieldName = #36710#27425
          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
          Alignment = taCenter
          Expanded = False
          FieldName = #32852#31995#30005#35805
          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
          Alignment = taCenter
          Expanded = False
          FieldName = #35746#31080#25968#37327
          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
          Alignment = taCenter
          Expanded = False
          FieldName = #31080#20215
          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
          Alignment = taCenter
          Expanded = False
          FieldName = #21512#35745#37329#39069
          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 DBNavigator2: TDBNavigator
      Left = 40
      Top = 224
      Width = 240
      Height = 25
      DataSource = DataSource2
      Flat = True
      TabOrder = 1
      BeforeAction = DBNavigator1BeforeAction
    end
    object Edit2: TEdit
      Left = 43
      Top = 280
      Width = 231
      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 = 2
      Text = 'Edit2'
    end
  end
  object Table1: TTable
    Active = True
    TableName = #28779#36710#21806#31080'.db'
    Left = 240
    Top = 152
    object Table1BDEDesigner: TStringField
      FieldName = #36710#27425
      Size = 18
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #36215#28857#31449
    end
    object Table1BDEDesigner3: TStringField
      FieldName = #32456#28857#31449
    end
    object Table1BDEDesigner4: TStringField
      FieldName = #21457#36710#26102#38388
    end
    object Table1BDEDesigner5: TStringField
      FieldName = #21040#31449#26102#38388
    end
    object Table1BDEDesigner6: TStringField
      FieldName = #26102#26399
    end
    object Table1BDEDesigner7: TStringField
      FieldName = #28779#36710#31561#32423
      Size = 6
    end
    object Table1BDEDesigner8: TFloatField
      FieldName = #21487#29992#24231#20301
    end
    object Table1BDEDesigner9: TStringField
      FieldName = #24231#20301#31867#21035
      Size = 5
    end
    object Table1BDEDesigner10: TCurrencyField
      FieldName = #31080#20215
    end
  end
  object Table2: TTable
    Active = True
    TableName = #35746#31080#32773#20449#24687'.db'
    Left = 432
    Top = 152
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 200
    Top = 200
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 480
    Top = 184
  end
end