baseinfo.~dfm

在打沙场用的最简单

inherited frmBaseinfo: TfrmBaseinfo
  Left = 173
  Top = 164
  Width = 568
  Height = 350
  ActiveControl = Grid
  Caption = #21333#34920#22522#31867
  Font.Charset = ANSI_CHARSET
  Font.Height = -12
  Font.Name = #32048#26126#39636
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 289
    Width = 560
    Height = 34
    Align = alBottom
    Bands = <
      item
        Control = Panel1
        ImageIndex = -1
        MinHeight = 30
        Width = 556
      end>
    object Panel1: TPanel
      Left = 9
      Top = 0
      Width = 543
      Height = 30
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object spbtnEdit: TSpeedButton
        Left = 4
        Top = 5
        Width = 60
        Height = 20
        Caption = #32534#36753
        Flat = True
        Glyph.Data = {
          D6000000424DD60000000000000076000000280000000B0000000C0000000100
          04000000000060000000C40E0000C40E00001000000000000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888880
          0000888888888880000088800000888000008888888888800000888880888880
          0000888800088880000088700000888000008800000008800000888800088880
          0000888800088880000088880008888000008888888888800000}
        Layout = blGlyphRight
        OnClick = spbtnEditClick
      end
      object paprint: TPanel
        Left = 403
        Top = 0
        Width = 140
        Height = 30
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 8
          Top = 8
          Width = 37
          Height = 17
          AutoSize = False
          Caption = #25171#21360#65306
        end
        object comboPrint: TwwDBLookupCombo
          Left = 45
          Top = 5
          Width = 89
          Height = 20
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #32048#26126#39636
          Font.Style = []
          DropDownAlignment = taLeftJustify
          Selected.Strings = (
            #25171#21360#36873#39033#9'8'#9#25171#21360#36873#39033#9'F'#9)
          LookupTable = CDSprint
          LookupField = #25171#21360#36873#39033
          Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
          ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.4'
          ParentFont = False
          TabOrder = 0
          AutoDropDown = False
          ShowButton = True
          PreciseEditRegion = False
          AllowClearKey = False
          OnChange = comboPrintChange
        end
      end
    end
  end
  object Grid: TDBGridEh
    Left = 0
    Top = 0
    Width = 560
    Height = 289
    Align = alClient
    Ctl3D = True
    DataSource = DSbaseinfo
    FixedColor = 12835543
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = ANSI_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    ImeName = #26234#33021#38472#26725#36755#20837#24179#21488'  5.4'
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleLines = 2
    OnGetCellParams = GridGetCellParams
  end
  object CDSprint: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 436
    Top = 260
    object CDSprintField: TStringField
      DisplayWidth = 8
      FieldName = #25171#21360#36873#39033
      Size = 8
    end
  end
  object ActionList1: TActionList
    Left = 24
    Top = 254
    object s01: TAction
      Caption = #26032#22686
      Hint = #26032#22686
      ShortCut = 16449
      OnExecute = s01Execute
    end
    object s02: TAction
      Caption = #22797#21046
      Hint = #22797#21046
      ShortCut = 16451
      OnExecute = s02Execute
    end
    object s03: TAction
      Caption = #20462#25913
      Hint = #20462#25913
      ShortCut = 16453
      OnExecute = s03Execute
    end
    object s04: TAction
      Caption = '?'#38500
      Hint = '?'#38500
      ShortCut = 16452
      OnExecute = s04Execute
    end
    object s05: TAction
      Caption = #26597#25214
      Hint = #26597#25214
      ShortCut = 16454
      OnExecute = s05Execute
    end
    object s06: TAction
      Caption = #21047#26032
      Hint = #21047#26032
      ShortCut = 16466
      OnExecute = s06Execute
    end
  end
  object PopupMenu: TPopupMenu
    AutoHotkeys = maManual
    Left = 56
    Top = 256
    object N1: TMenuItem
      Action = s01
    end
    object N2: TMenuItem
      Action = s02
    end
    object N3: TMenuItem
      Action = s03
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Action = s04
      Caption = #21034#38500
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object N7: TMenuItem
      Action = s05
    end
    object N8: TMenuItem
      Action = s06
    end
  end
  object CDSbaseinfo: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 56
    Top = 64
  end
  object DSbaseinfo: TDataSource
    DataSet = CDSbaseinfo
    Left = 24
    Top = 64
  end
  object frBaseinfo: TfrReport
    Dataset = frDBDSbaseinfo
    InitialZoom = pzDefault
    MDIPreview = True
    ModalPreview = False
    ModifyPrepared = False
    PreviewButtons = [pbZoom, pbPrint, pbExit]
    RebuildPrinter = False
    Left = 448
    Top = 216
    ReportForm = {19000000}
  end
  object frDBDSbaseinfo: TfrDBDataSet
    DataSet = CDSbaseinfo
    Left = 480
    Top = 216
  end
end