u_form1.dfm

很好地delphi书籍源码

object Form1: TForm1
  Left = 245
  Top = 130
  Width = 729
  Height = 539
  Caption = #25237#27880#21333
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 297
    Top = 49
    Height = 417
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 721
    Height = 49
    ButtonHeight = 37
    ButtonWidth = 49
    Caption = 'ToolBar1'
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Images = ImageList1
    ParentFont = False
    ShowCaptions = True
    TabOrder = 0
    object DSAppendTB: TToolButton
      Left = 0
      Top = 0
      Action = DSAppend
      ImageIndex = 0
    end
    object DSEditTB: TToolButton
      Left = 49
      Top = 0
      Action = DSEdit
      ImageIndex = 1
    end
    object DSPostTB: TToolButton
      Left = 98
      Top = 0
      Action = DSPost
      ImageIndex = 2
    end
    object DSDeleteTB: TToolButton
      Left = 147
      Top = 0
      Action = DSDelete
      ImageIndex = 3
    end
    object PrintTB: TToolButton
      Left = 196
      Top = 0
      Action = Print
      ImageIndex = 4
    end
    object CancelTB: TToolButton
      Left = 245
      Top = 0
      Action = DSCancel
      ImageIndex = 6
    end
    object PredictTB: TToolButton
      Left = 294
      Top = 0
      Action = Predict
      ImageIndex = 5
    end
    object WriteToTB: TToolButton
      Left = 343
      Top = 0
      Action = WriteTo
      ImageIndex = 10
    end
    object TeamTB: TToolButton
      Left = 392
      Top = 0
      Action = Team
      ImageIndex = 9
    end
    object MatchTB: TToolButton
      Left = 441
      Top = 0
      Action = Match
      ImageIndex = 8
    end
    object CloseTB: TToolButton
      Left = 490
      Top = 0
      Action = Exit
      ImageIndex = 7
    end
    object TeamCB: TComboBox
      Left = 539
      Top = 6
      Width = 103
      Height = 24
      Hint = #36718#27425
      Style = csOwnerDrawFixed
      ItemHeight = 18
      ItemIndex = 0
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = '0'
      OnChange = TeamCBChange
      Items.Strings = (
        '0'
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13')
    end
  end
  object DBGrid1: TDBGrid
    Left = 300
    Top = 49
    Width = 421
    Height = 417
    Align = alClient
    DataSource = DM.DSWriteTable
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object StringGrid1: TStringGrid
    Left = 0
    Top = 49
    Width = 297
    Height = 417
    Align = alLeft
    ColCount = 4
    Ctl3D = False
    DefaultColWidth = 55
    DefaultRowHeight = 22
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    ParentCtl3D = False
    TabOrder = 2
    OnKeyPress = StringGrid1KeyPress
    RowHeights = (
      22
      22
      22
      22
      22)
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 466
    Width = 721
    Height = 27
    Panels = <>
    SimplePanel = True
  end
  object DBGrid2: TDBGrid
    Left = 408
    Top = 104
    Width = 289
    Height = 305
    Color = clInfoBk
    Ctl3D = False
    DataSource = DM.DSQuery1
    DragKind = dkDock
    DragMode = dmAutomatic
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 4
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Visible = False
  end
  object ActionList1: TActionList
    Left = 16
    Top = 185
    object DSAppend: TDataSetInsert
      Category = 'Dataset'
      Caption = #28155#21152
    end
    object DSEdit: TDataSetEdit
      Category = 'Dataset'
      Caption = #32534#36753
    end
    object DSDelete: TDataSetDelete
      Category = 'Dataset'
      Caption = #21024#38500
    end
    object DSPost: TDataSetPost
      Category = 'Dataset'
      Caption = #20445#23384
    end
    object DSCancel: TDataSetCancel
      Category = 'Dataset'
      Caption = #21462#28040
      DataSource = DM.DSWriteTable
    end
    object Print: TAction
      Caption = #25171#21360
      OnExecute = PrintExecute
    end
    object Predict: TAction
      Caption = #39044#27979
      OnExecute = PredictExecute
    end
    object WriteTo: TAction
      Caption = #36873#29992
      Enabled = False
      OnExecute = WriteToExecute
    end
    object Team: TAction
      Caption = #29699#38431
      OnExecute = TeamExecute
    end
    object Match: TAction
      Caption = #23545#38453#34920
      OnExecute = MatchExecute
    end
    object Exit: TAction
      Caption = #36864#20986
      OnExecute = ExitExecute
    end
    object OpenAction: TAction
      Caption = #25171#24320
      OnExecute = OpenActionExecute
    end
    object SaveAction: TAction
      Caption = #20445#23384
      OnExecute = SaveActionExecute
    end
    object SaveAsAction: TAction
      Caption = #21478#23384#20026
      OnExecute = SaveAsActionExecute
    end
  end
  object ImageList1: TImageList
    Left = 48
    Top = 184
    Bitmap = {
      494C01010B000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001001000000000000020
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000