fin.dfm.~36~

delphi2007开发的汽车配件进销存系统.实用级的源码.

object frmIn: TfrmIn
  Left = 0
  Top = 0
  Caption = #36827#36135#31649#29702
  ClientHeight = 584
  ClientWidth = 684
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    684
    584)
  PixelsPerInch = 96
  TextHeight = 13
  object cxPageControl1: TcxPageControl
    Left = 0
    Top = 0
    Width = 684
    Height = 584
    ActivePage = cxTabSheet1
    Align = alClient
    LookAndFeel.Kind = lfOffice11
    LookAndFeel.NativeStyle = False
    TabOrder = 4
    ExplicitTop = 55
    ExplicitHeight = 529
    ClientRectBottom = 584
    ClientRectRight = 684
    ClientRectTop = 24
    object cxTabSheet1: TcxTabSheet
      Caption = #36827#36135#31649#29702
      ImageIndex = 0
      ExplicitHeight = 505
      DesignSize = (
        684
        560)
      object cxGroupBox1: TcxGroupBox
        Left = 6
        Top = 3
        Anchors = [akLeft, akTop, akRight, akBottom]
        Caption = #21333#25454#20449#24687
        ParentBackground = False
        ParentColor = False
        Style.Color = clCream
        Style.LookAndFeel.Kind = lfUltraFlat
        Style.Shadow = False
        StyleDisabled.LookAndFeel.Kind = lfUltraFlat
        StyleFocused.LookAndFeel.Kind = lfUltraFlat
        StyleHot.LookAndFeel.Kind = lfUltraFlat
        TabOrder = 0
        Transparent = True
        ExplicitHeight = 206
        DesignSize = (
          675
          261)
        Height = 261
        Width = 675
        object DBGridEh1: TDBGridEh
          Left = 2
          Top = 16
          Width = 671
          Height = 208
          Align = alCustom
          Anchors = [akLeft, akTop, akRight, akBottom]
          DataSource = DM.DS1
          Flat = False
          FooterColor = clWindow
          FooterFont.Charset = DEFAULT_CHARSET
          FooterFont.Color = clWindowText
          FooterFont.Height = -11
          FooterFont.Name = 'Tahoma'
          FooterFont.Style = []
          FooterRowCount = 1
          SumList.Active = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          OnDblClick = DBGridEh1DblClick
          Columns = <
            item
              EditButtons = <>
              FieldName = 'jhdh'
              Footer.Value = #21512#35745#65306
              Footer.ValueType = fvtStaticText
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'bm'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'sl'
              Footer.FieldName = 'sl'
              Footer.ValueType = fvtSum
              Footers = <>
            end
            item
              DisplayFormat = #65509'0.00'
              EditButtons = <>
              FieldName = 'jj'
              Footers = <>
            end
            item
              DisplayFormat = #65509'0.00'
              EditButtons = <>
              FieldName = 'dj'
              Footer.Value = #24635#37329#39069#65306
              Footer.ValueType = fvtStaticText
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'jhrq'
              Footer.DisplayFormat = #65509'0.00'
              Footer.FieldName = 'jhze'
              Footer.ValueType = fvtSum
              Footers = <>
            end
            item
              DisplayFormat = #65509'0.00'
              EditButtons = <>
              FieldName = 'jhze'
              Footers = <>
            end>
        end
        object cxButton3: TcxButton
          Left = 593
          Top = 229
          Width = 75
          Height = 25
          Anchors = [akRight, akBottom]
          Caption = #20837#24211
          TabOrder = 1
        end
        object cxButton5: TcxButton
          Left = 501
          Top = 229
          Width = 75
          Height = 25
          Anchors = [akRight, akBottom]
          Caption = #21024#38500
          TabOrder = 2
          OnClick = cxButton5Click
        end
        object cxButton6: TcxButton
          Left = 411
          Top = 229
          Width = 75
          Height = 25
          Anchors = [akRight, akBottom]
          Caption = #21047#26032
          TabOrder = 3
          OnClick = cxButton6Click
        end
      end
      object cxGroupBox2: TcxGroupBox
        Left = 6
        Top = 270
        Anchors = [akLeft, akRight, akBottom]
        Caption = #37197#20214#20449#24687
        TabOrder = 1
        ExplicitTop = 215
        DesignSize = (
          675
          287)
        Height = 287
        Width = 675
        object DBGridEh2: TDBGridEh
          Left = 3
          Top = 49
          Width = 669
          Height = 228
          Anchors = [akLeft, akTop, akRight, akBottom]
          DataSource = DM.ds2
          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]
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'Tahoma'
          TitleFont.Style = []
          OnDblClick = DBGridEh2DblClick
          Columns = <
            item
              EditButtons = <>
              FieldName = 'hw'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'bm'
              Footers = <>
              Width = 80
            end
            item
              EditButtons = <>
              FieldName = 'pm'
              Footers = <>
              Width = 150
            end
            item
              EditButtons = <>
              FieldName = 'gg'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'cd'
              Footers = <>
              Width = 50
            end
            item
              EditButtons = <>
              FieldName = 'dw'
              Footers = <>
            end
            item
              EditButtons = <>
              FieldName = 'jj'
              Footers = <>
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'dj'
              Footers = <>
              Width = 60
            end
            item
              EditButtons = <>
              FieldName = 'sl'
              Footers = <>
              Width = 60
            end>
        end
        object cxTextEdit1: TcxTextEdit
          Left = 3