fkcgl.dfm.~47~

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

object frmkcgl: Tfrmkcgl
  Left = 0
  Top = 0
  Caption = #24211#23384#31649#29702
  ClientHeight = 419
  ClientWidth = 700
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  DesignSize = (
    700
    419)
  PixelsPerInch = 96
  TextHeight = 13
  object cxPageControl1: TcxPageControl
    AlignWithMargins = True
    Left = 3
    Top = 3
    Width = 694
    Height = 413
    ActivePage = cxTabSheet1
    Align = alClient
    ShowFrame = True
    TabOrder = 0
    ClientRectBottom = 412
    ClientRectLeft = 1
    ClientRectRight = 693
    ClientRectTop = 26
    object cxTabSheet1: TcxTabSheet
      Caption = #24211#23384#31649#29702
      ImageIndex = 0
      DesignSize = (
        692
        386)
      object cxGroupBox2: TcxGroupBox
        Left = 3
        Top = 4
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = #37197#20214#20449#24687
        TabOrder = 0
        DesignSize = (
          686
          342)
        Height = 342
        Width = 686
        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
          Width = 680
        end
        object DBGridEh2: TDBGridEh
          Left = 3
          Top = 41
          Width = 680
          Height = 298
          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, dgConfirmDelete, dgCancelOnExit]
          SumList.Active = True
          TabOrder = 1
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          OnDblClick = cxButton4Click
          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 = 688
        Top = 384
        Width = 33
        Height = 25
        Anchors = [akRight, akBottom]
        Caption = '&D'
        TabOrder = 5
        OnClick = Button1Click
      end
      object cxTextEdit2: TcxTextEdit
        Left = 230
        Top = 354
        Anchors = [akRight, akBottom]
        TabOrder = 4
        Text = '3'
        OnKeyPress = cxTextEdit2KeyPress
        Width = 50
      end
      object cxButton2: TcxButton
        Left = 284
        Top = 350
        Width = 142
        Height = 28
        Anchors = [akRight, akBottom]
        Caption = #26174#31034#36798#21040#25253#35686#32447#30340#37197#20214
        TabOrder = 3
        OnClick = cxButton2Click
      end
      object cxButton3: TcxButton
        Left = 519
        Top = 350
        Width = 88
        Height = 28
        Anchors = [akRight, akBottom]
        Caption = #26174#31034#25152#26377
        TabOrder = 2
        OnClick = cxButton3Click
      end
      object cxButton4: TcxButton
        Left = 432
        Top = 350
        Width = 81
        Height = 28
        Anchors = [akRight, akBottom]
        Caption = #20462#25913#24211#23384
        TabOrder = 1
        OnClick = cxButton4Click
      end
      object cxButton5: TcxButton
        Left = 613
        Top = 350
        Width = 75
        Height = 29
        Anchors = [akRight, akBottom]
        Caption = #23548#20986
        TabOrder = 6
        OnClick = cxButton5Click
      end
    end
  end
  object cxButton1: TcxButton
    Left = 647
    Top = 5
    Width = 47
    Height = 20
    Anchors = [akTop, akRight]
    Caption = #20851#38381
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = cxButton1Click
  end
  object SaveDialog1: TSaveDialog
    Left = 400
    Top = 224
  end
end