manualunit.dfm

使用delphi语言

        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label1: TLabel
          Left = 76
          Top = 12
          Width = 26
          Height = 13
          Caption = #25688#35201
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label2: TLabel
          Left = 89
          Top = 42
          Width = 13
          Height = 13
          Caption = #24180
        end
        object Label3: TLabel
          Left = 352
          Top = 42
          Width = 13
          Height = 13
          Caption = #26376
        end
        object Label4: TLabel
          Left = 50
          Top = 73
          Width = 52
          Height = 13
          Caption = #32844#24037#32534#21495
        end
        object Label5: TLabel
          Left = 339
          Top = 73
          Width = 26
          Height = 13
          Caption = #36134#21495
        end
        object Label6: TLabel
          Left = 50
          Top = 105
          Width = 52
          Height = 13
          Caption = #32844#24037#22995#21517
        end
        object Label7: TLabel
          Left = 314
          Top = 106
          Width = 52
          Height = 13
          Caption = #24635#22686#21152#39069
        end
        object Label8: TLabel
          Left = 50
          Top = 132
          Width = 52
          Height = 13
          Caption = #24635#20943#23569#39069
        end
        object Label9: TLabel
          Left = 83
          Top = 164
          Width = 390
          Height = 13
          Caption = #22312#32844#24037#32534#21495#26694#19978#21452#20987#25110#25353#22238#36710#65292#21487#35843#20986#32844#24037#32534#21495#36873#25321#26694#65292#20379#36873#25321#36755#20837
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Edit1: TEdit
          Left = 104
          Top = 8
          Width = 385
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 0
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
        end
        object Edit2: TEdit
          Left = 104
          Top = 69
          Width = 154
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 3
          OnDblClick = Edit2DblClick
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit2KeyDown
        end
        object Edit3: TEdit
          Left = 368
          Top = 69
          Width = 120
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 4
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
        end
        object Edit4: TEdit
          Left = 104
          Top = 100
          Width = 154
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 5
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
        end
        object Edit5: TEdit
          Left = 368
          Top = 100
          Width = 120
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 6
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
          OnKeyPress = Edit5KeyPress
        end
        object Edit6: TEdit
          Left = 104
          Top = 131
          Width = 154
          Height = 21
          Color = 16758820
          ReadOnly = True
          TabOrder = 7
          OnEnter = Edit1Enter
          OnExit = Edit1Exit
          OnKeyDown = Edit1KeyDown
          OnKeyPress = Edit5KeyPress
        end
        object MaskEdit1: TMaskEdit
          Left = 104
          Top = 38
          Width = 154
          Height = 21
          Color = 16758820
          EditMask = '9999;1;_'
          MaxLength = 4
          ReadOnly = True
          TabOrder = 1
          Text = '    '
          OnEnter = MaskEdit1Enter
          OnExit = MaskEdit1Exit
          OnKeyDown = Edit1KeyDown
        end
        object MaskEdit2: TMaskEdit
          Left = 368
          Top = 38
          Width = 120
          Height = 21
          Color = 16758820
          EditMask = '99;1;_'
          MaxLength = 2
          ReadOnly = True
          TabOrder = 2
          Text = '  '
          OnEnter = MaskEdit1Enter
          OnExit = MaskEdit1Exit
          OnKeyDown = Edit1KeyDown
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #32534#36753#30028#38754
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 587
        Height = 200
        Color = clInfoBk
        DataSource = dm.dsdetail
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #25688#35201
            Width = 139
            Visible = True
          end
          item
            Expanded = False
            FieldName = #24180
            Width = 81
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26376
            Width = 68
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32844#24037#32534#21495
            Width = 109
            Visible = True
          end
          item
            Expanded = False
            FieldName = #36134#21495
            Width = 111
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32844#24037#22995#21517
            Width = 146
            Visible = True
          end
          item
            Expanded = False
            FieldName = #24635#31995#25968
            Title.Caption = #22686#21152#24635#39069
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20943#23569#24635#31995#25968
            Title.Caption = #20943#23569#24635#39069
            Visible = True
          end>
      end
    end
  end
  object c: TADOCommand
    Connection = dm.gjjconn
    Parameters = <>
    Left = 376
    Top = 11
  end
end