unit1.dfm.~3~

来自「delphi2007开发的汽车配件进销存系统.实用级的源码.」· ~3~ 代码 · 共 226 行

~3~
226
字号
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = #24211#23384#26597#35810
  ClientHeight = 459
  ClientWidth = 759
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object cxPageControl1: TcxPageControl
    AlignWithMargins = True
    Left = 3
    Top = 3
    Width = 753
    Height = 453
    ActivePage = cxTabSheet1
    Align = alClient
    ShowFrame = True
    TabOrder = 0
    ExplicitWidth = 694
    ExplicitHeight = 413
    ClientRectBottom = 452
    ClientRectLeft = 1
    ClientRectRight = 752
    ClientRectTop = 24
    object cxTabSheet1: TcxTabSheet
      Caption = #24211#23384#31649#29702
      ImageIndex = 0
      ExplicitTop = 26
      ExplicitWidth = 692
      ExplicitHeight = 386
      DesignSize = (
        751
        428)
      object cxGroupBox2: TcxGroupBox
        Left = 3
        Top = 4
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = #37197#20214#20449#24687
        TabOrder = 0
        ExplicitWidth = 686
        ExplicitHeight = 342
        DesignSize = (
          745
          384)
        Height = 384
        Width = 745
        object cxTextEdit1: TcxTextEdit
          Left = 3
          Top = 20
          Anchors = [akLeft, akTop, akRight]
          Style.LookAndFeel.Kind = lfOffice11
          Style.LookAndFeel.NativeStyle = False
          StyleDisabled.LookAndFeel.Kind = lfOffice11
          StyleDisabled.LookAndFeel.NativeStyle = False
          StyleFocused.LookAndFeel.Kind = lfOffice11
          StyleFocused.LookAndFeel.NativeStyle = False
          StyleHot.LookAndFeel.Kind = lfOffice11
          StyleHot.LookAndFeel.NativeStyle = False
          TabOrder = 0
          Text = #36755#20837#26597#35810#26465#20214'('#32534#30721#25110#21697#21517#25110#35268#26684')'
          OnClick = cxTextEdit1Click
          OnKeyUp = cxTextEdit1KeyUp
          ExplicitWidth = 680
          Width = 739
        end
        object DBGridEh2: TDBGridEh
          Left = 3
          Top = 41
          Width = 739
          Height = 340
          Anchors = [akLeft, akTop, akRight, akBottom]
          DataSource = DM.ds3
          Flat = False
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'Tahoma'
          FooterFont.Style = []
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          SumList.Active = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          Columns = <
            item
              EditButtons = <>
              FieldName = 'hw'
              Footers = <>
              Width = 54
            end
            item
              EditButtons = <>
              FieldName = 'bm'
              Footers = <>
              Width = 84
            end
            item
              EditButtons = <>
              FieldName = 'pm'
              Footers = <>
              Width = 73
            end
            item
              EditButtons = <>
              FieldName = 'gg'
              Footers = <>
              Width = 80
            end
            item
              EditButtons = <>
              FieldName = 'cd'
              Footers = <>
              Width = 74
            end
            item
              EditButtons = <>
              FieldName = 'dw'
              Footers = <>
            end
            item
              DisplayFormat = #65509'0.00'
              EditButtons = <>
              FieldName = 'jj'
              Footers = <>
              Visible = False
              Width = 80
            end
            item
              DisplayFormat = #65509'0.00'
              EditButtons = <>
              FieldName = 'dj'
              Footers = <>
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'kcsl'
              Footers = <>
            end>
        end
      end
      object Button1: TButton
        Left = 747
        Top = 426
        Width = 33
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = '&D'
        TabOrder = 5
        ExplicitLeft = 688
        ExplicitTop = 384
      end
      object cxTextEdit2: TcxTextEdit
        Left = 289
        Top = 396
        Anchors = [akRight, akBottom]
        TabOrder = 4
        Text = '3'
        ExplicitLeft = 230
        ExplicitTop = 354
        Width = 50
      end
      object cxButton2: TcxButton
        Left = 343
        Top = 392
        Width = 142
        Height = 28
        Anchors = [akRight, akBottom]
        Caption = #26174#31034#36798#21040#25253#35686#32447#30340#37197#20214
        TabOrder = 3
        OnClick = cxButton2Click
        ExplicitLeft = 284
        ExplicitTop = 350
      end
      object cxButton3: TcxButton
        Left = 578
        Top = 392
        Width = 88
        Height = 28
        Anchors = [akRight, akBottom]
        Caption = #26174#31034#25152#26377
        Enabled = False
        TabOrder = 2
        ExplicitLeft = 519
        ExplicitTop = 350
      end
      object cxButton4: TcxButton
        Left = 491
        Top = 392
        Width = 81
        Height = 28
        Anchors = [akRight, akBottom]
        Caption = #20462#25913#24211#23384
        Enabled = False
        TabOrder = 1
        ExplicitLeft = 432
        ExplicitTop = 350
      end
      object cxButton5: TcxButton
        Left = 672
        Top = 392
        Width = 75
        Height = 29
        Anchors = [akRight, akBottom]
        Caption = #23548#20986
        Enabled = False
        TabOrder = 6
        ExplicitLeft = 613
        ExplicitTop = 350
      end
    end
  end
end

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?