main_datainput.dfm

商场管理系统源码 一套值得初学者学习的源码包含全部源码,控件

inherited Frm_main_input: TFrm_main_input
  Left = 293
  Top = 182
  Caption = 'Frm_main_input'
  ClientHeight = 492
  ClientWidth = 680
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  inherited Image: TImage
    Width = 680
  end
  inherited L_title: TLabel
    Width = 675
  end
  inherited P_back: TPanel
    Width = 680
    Height = 476
    inherited P_main: TPanel
      Width = 674
      Height = 470
      inherited Panel_down: TPanel
        Top = 432
        Width = 672
        inherited Bevel_bass: TBevel
          Width = 672
        end
        object L_count: TLabel [1]
          Left = 12
          Top = 12
          Width = 146
          Height = 13
          Caption = #21512#35745#37329#39069#65306#38646#20803'  '#65509'0.00'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        inherited Panel_button: TPanel
          Left = 512
          inherited OKBtn: TDsFancyButton
            Caption = #20445#23384'[&S]'
            Enabled = False
          end
          inherited CancelBtn: TDsFancyButton
            Caption = #25918#24323'[&C]'
          end
        end
      end
      object PageScroller_input: TPageScroller
        Left = 0
        Top = 0
        Width = 672
        Height = 34
        Align = alTop
        AutoScroll = False
        Control = Panel1
        TabOrder = 1
        object Panel1: TPanel
          Left = 0
          Top = 0
          Width = 672
          Height = 34
          ParentColor = True
          TabOrder = 0
          object Label1: TLabel
            Left = 13
            Top = 11
            Width = 36
            Height = 12
            Caption = #21830#22330#65306
          end
          object Label2: TLabel
            Left = 362
            Top = 11
            Width = 36
            Height = 12
            Caption = #26085#26399#65306
          end
          object Label3: TLabel
            Left = 206
            Top = 11
            Width = 48
            Height = 12
            Caption = #19994#21153#21592#65306
          end
          object DTP_date: TDateTimePicker
            Left = 401
            Top = 6
            Width = 127
            Height = 20
            CalAlignment = dtaLeft
            Date = 37319.8739042708
            Time = 37319.8739042708
            DateFormat = dfLong
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 0
          end
          object CB_ywy: TFlatComboBox
            Left = 256
            Top = 7
            Width = 94
            Height = 20
            Style = csDropDownList
            Color = clWindow
            DropDownCount = 20
            ItemHeight = 12
            TabOrder = 1
            ItemIndex = -1
          end
          object CB_depot: TFlatComboBox
            Left = 50
            Top = 7
            Width = 145
            Height = 20
            Color = clWindow
            DropDownCount = 20
            ItemHeight = 12
            TabOrder = 2
            ItemIndex = -1
          end
        end
      end
      object IMPSG_DATA: TStringGrid
        Left = 0
        Top = 34
        Width = 672
        Height = 398
        Align = alClient
        BorderStyle = bsNone
        Ctl3D = True
        DefaultRowHeight = 18
        FixedColor = 14540253
        RowCount = 100
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goEditing, goTabs]
        ParentCtl3D = False
        TabOrder = 2
        OnDblClick = IMPSG_DATADblClick
        OnKeyPress = IMPSG_DATAKeyPress
        OnSelectCell = IMPSG_DATASelectCell
        OnSetEditText = IMPSG_DATASetEditText
      end
    end
  end
  object Query_data: TQuery
    CachedUpdates = True
    RequestLive = True
    Left = 176
    Top = 297
  end
end