fin.dfm.~41~

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
    AlignWithMargins = True
    Left = 3
    Top = 3
    Width = 678
    Height = 578
    ActivePage = cxTabSheet1
    Align = alClient
    LookAndFeel.Kind = lfOffice11
    LookAndFeel.NativeStyle = False
    ShowFrame = True
    TabOrder = 4
    ExplicitLeft = 8
    ExplicitTop = 0
    ExplicitWidth = 684
    ExplicitHeight = 584
    ClientRectBottom = 577
    ClientRectLeft = 1
    ClientRectRight = 677
    ClientRectTop = 26
    object cxTabSheet1: TcxTabSheet
      Caption = #36827#36135#31649#29702
      ImageIndex = 0
      ExplicitLeft = 0
      ExplicitTop = 24
      ExplicitWidth = 684
      ExplicitHeight = 505
      DesignSize = (
        676
        551)
      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
        Visible = False
        ExplicitWidth = 675
        ExplicitHeight = 206
        DesignSize = (
          667
          252)
        Height = 252
        Width = 667
        object DBGridEh1: TDBGridEh
          Left = 2
          Top = 16
          Width = 663
          Height = 199
          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 = 585
          Top = 220
          Width = 75
          Height = 25
          Anchors = [akRight, akBottom]
          Caption = #20837#24211
          TabOrder = 1
          ExplicitLeft = 593
          ExplicitTop = 229
        end
        object cxButton5: TcxButton
          Left = 493
          Top = 220
          Width = 75
          Height = 25
          Anchors = [akRight, akBottom]
          Caption = #21024#38500
          TabOrder = 2
          OnClick = cxButton5Click
          ExplicitLeft = 501
          ExplicitTop = 229
        end
        object cxButton6: TcxButton
          Left = 403
          Top = 220
          Width = 75
          Height = 25
          Anchors = [akRight, akBottom]
          Caption = #21047#26032
          TabOrder = 3
          OnClick = cxButton6Click
          ExplicitLeft = 411
          ExplicitTop = 229
        end
      end
      object cxGroupBox2: TcxGroupBox
        Left = 0
        Top = 0
        Align = alClient
        Caption = #37197#20214#20449#24687
        TabOrder = 1
        Transparent = True
        ExplicitLeft = 6
        ExplicitTop = 233
        ExplicitWidth = 675
        ExplicitHeight = 324
        DesignSize = (
          676
          551)
        Height = 551
        Width = 676
        object DBGridEh2: TDBGridEh
          Left = 3
          Top = 49
          Width = 670
          Height = 499
          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