craftinput.dfm

delphi框架可以学习, 写的很好的

inherited frmCraftInput: TfrmCraftInput
  Left = 89
  Top = 133
  Width = 989
  Height = 656
  Caption = #24037#33402#36164#26009#31649#29702
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter [0]
    Left = 137
    Top = 136
    Width = 5
    Height = 493
    Cursor = crHSplit
    Align = alRight
  end
  inherited RzPanel1: TRzPanel [1]
    Width = 981
    Height = 87
    BorderOuter = fsGroove
    BorderSides = [sdTop, sdBottom]
    inherited RzSeparator19: TRzSeparator
      Left = 0
      Height = 83
    end
    inherited RzLabel10: TRzLabel
      Left = 5
      Top = 14
      Height = 60
      Caption = #26597#13#13#35810#13#13#21306
    end
    inherited RzCheckBox14: TRzCheckBox
      Left = 288
      Top = 211
    end
    inherited RzCheckBox15: TRzCheckBox
      Left = 288
      Top = 235
    end
    inherited RzCheckBox16: TRzCheckBox
      Left = 288
      Top = 259
    end
    inherited RzCheckBox17: TRzCheckBox
      Left = 288
      Top = 283
    end
    inherited RzCheckBox18: TRzCheckBox
      Left = 288
      Top = 307
    end
    inherited RzCheckBox13: TRzCheckBox
      Left = 463
      Top = 35
      Caption = #24037#33402#26085#26399
    end
    inherited RzCheckBox12: TRzCheckBox
      Left = 40
      Top = 339
    end
    inherited RzCheckBox11: TRzCheckBox
      Left = 40
      Top = 315
    end
    inherited RzCheckBox10: TRzCheckBox
      Left = 40
      Top = 291
    end
    inherited RzCheckBox9: TRzCheckBox
      Left = 40
      Top = 267
    end
    inherited RzCheckBox8: TRzCheckBox
      Left = 463
      Top = 59
      Caption = #25104#21697#35268#26684
    end
    inherited RzCheckBox1: TRzCheckBox
      Left = 34
      Caption = #21697#31181#21517#31216
    end
    inherited RzEdit1: TRzEdit
      Left = 107
    end
    inherited RzCheckBox2: TRzCheckBox
      Left = 34
      Caption = #20135#21697#39068#33394
    end
    inherited RzEdit2: TRzEdit
      Left = 107
    end
    inherited RzCheckBox3: TRzCheckBox
      Left = 34
      Caption = #20135#21697#32452#32455
    end
    inherited RzEdit3: TRzEdit
      Left = 107
    end
    inherited RzCheckBox4: TRzCheckBox
      Left = 463
      Top = 11
      Caption = #24037#33402#22791#27880
    end
    inherited RzEdit4: TRzEdit
      Left = 539
      Top = 9
      Width = 312
    end
    inherited RzCheckBox5: TRzCheckBox
      Left = 247
      Top = 11
      Caption = #25152#22312#26412#21495
    end
    inherited RzEdit5: TRzEdit
      Left = 323
      Top = 9
    end
    inherited RzCheckBox6: TRzCheckBox
      Left = 247
      Top = 35
      Caption = #25152#22312#39029#30721
    end
    inherited RzEdit6: TRzEdit
      Left = 323
      Top = 33
    end
    inherited RzCheckBox7: TRzCheckBox
      Left = 247
      Top = 59
      Caption = #20135#21697#31576#21495
    end
    inherited RzPanel2: TRzPanel
      Left = 537
      Top = 33
    end
    inherited RzPanel3: TRzPanel
      Left = 374
      Top = 209
    end
    inherited RzPanel4: TRzPanel
      Left = 374
      Top = 233
    end
    inherited RzPanel5: TRzPanel
      Left = 374
      Top = 257
    end
    inherited RzPanel6: TRzPanel
      Left = 374
      Top = 281
    end
    inherited RzPanel7: TRzPanel
      Left = 374
      Top = 305
    end
    inherited RzEdit7: TRzEdit
      Left = 323
      Top = 57
    end
    inherited RzEdit8: TRzEdit
      Left = 539
      Top = 57
      Width = 312
    end
    inherited RzEdit9: TRzEdit
      Left = 128
      Top = 265
    end
    inherited RzEdit10: TRzEdit
      Left = 128
      Top = 289
    end
    inherited RzEdit11: TRzEdit
      Left = 128
      Top = 313
    end
    inherited RzEdit12: TRzEdit
      Left = 128
      Top = 337
    end
  end
  inherited RzToolbar1: TRzToolbar [2]
    Width = 981
    ToolbarControls = (
      btnOpen
      RzSpacer1
      BtnNew
      BtnSave
      BtnUndo
      BtnDelete
      Btn1
      RzSpacer2
      BtnCheck
      BtnUnCheck
      RzSpacer3
      BtnSelReport
      BtnPreview
      BtnPrint
      BtnDesigen
      RzSpacer4
      BtnOther
      BtnHelp
      BtnExit
      RzSpacer5
      Btn3
      Btn2
      Btn4
      Btn5
      Btn6
      Btn7)
    inherited RzSpacer2: TRzSpacer
      Left = 252
    end
    inherited BtnCheck: TRzToolButton
      Left = 260
    end
    inherited BtnUnCheck: TRzToolButton
      Left = 300
    end
    inherited RzSpacer3: TRzSpacer
      Left = 340
    end
    inherited BtnPrint: TRzToolButton
      Left = 450
    end
    inherited BtnDesigen: TRzToolButton
      Left = 490
    end
    inherited RzSpacer4: TRzSpacer
      Left = 530
    end
    inherited BtnExit: TRzToolButton
      Left = 640
    end
    inherited RzSpacer5: TRzSpacer
      Left = 680
    end
    inherited Btn1: TRzToolButton
      Left = 212
      Caption = #22797#21046
    end
    inherited Btn2: TRzToolButton
      Left = 728
    end
    inherited Btn3: TRzToolButton
      Left = 688
    end
    inherited BtnOther: TRzToolButton
      Left = 538
    end
    inherited BtnSelReport: TRzToolButton
      Left = 348
    end
  end
  object dbgridList: TDBGridEh [3]
    Left = 0
    Top = 136
    Width = 137
    Height = 493
    IntervalColor = clMoneyGreen
    Indicator = 11
    Align = alClient
    AllowedOperations = []
    DataSource = dm.dsCraft
    DrawMemoText = True
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = 10931184
    FooterFont.Charset = GB2312_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    FooterRowCount = 1
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight]
    ParentFont = False
    ReadOnly = True
    RowHeight = 20
    SumList.Active = True
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = [fsBold]
    TitleHeight = 18
    OnDrawColumnCell = dbgridListDrawColumnCell
    OnTitleBtnClick = dbgridListTitleBtnClick
    Columns = <
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Cpmc'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
        Width = 127
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Cpys'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #39068#33394
        Title.TitleButton = True
        Width = 84
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Cpgg'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #35268#26684
        Title.TitleButton = True
        Width = 116
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Cpzl'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Sxzl'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Cpzz'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #32452#32455
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Kh'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Wxys'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Zsl'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Hclsl'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Szym'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #39029#30721
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'Szbs'
        Footers = <>
        Title.Alignment = taCenter
        Title.Caption = #26412#21495
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'hcl1'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end
      item
        CharCase = ecNormal
        StringMask = smNormal
        EditButtons = <>
        FieldName = 'hcl2'
        Footers = <>
        Title.Alignment = taCenter
        Title.TitleButton = True
      end