depotinputunit.dfm

简单的进销存系统,包含登陆等界面,内容丰富,各种技巧,适合初学者

object depotInputfrm: TdepotInputfrm
  Left = 120
  Top = 132
  Width = 699
  Height = 442
  Align = alClient
  Caption = #20179#24211#20837#24211#24405#20837
  Color = clInactiveCaptionText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object P_back: TPanel
    Left = 0
    Top = 0
    Width = 691
    Height = 415
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 3
    Color = clInactiveCaptionText
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object L_title: TLabel
      Left = 3
      Top = 3
      Width = 685
      Height = 15
      Align = alTop
      Alignment = taCenter
      AutoSize = False
      Caption = #20179#24211#20837#24211#24405#20837
      Color = clInactiveCaptionText
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object P_main: TPanel
      Left = 3
      Top = 18
      Width = 685
      Height = 394
      Align = alClient
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 0
      object Panel_down: TPanel
        Left = 0
        Top = 356
        Width = 683
        Height = 36
        Align = alBottom
        BevelOuter = bvNone
        Color = clInactiveCaptionText
        TabOrder = 0
        object Bevel_bass: TBevel
          Left = 0
          Top = 0
          Width = 683
          Height = 2
          Align = alTop
        end
        object L_count: TLabel
          Left = 12
          Top = 12
          Width = 120
          Height = 13
          Caption = #21512#35745#37329#39069#65306'  '#65509'0.00'
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Panel_button: TPanel
          Left = 523
          Top = 2
          Width = 160
          Height = 34
          Align = alRight
          BevelOuter = bvNone
          ParentColor = True
          TabOrder = 0
          object OKBtn: TButton
            Left = 0
            Top = 6
            Width = 75
            Height = 25
            Caption = #20445#23384
            TabOrder = 0
            OnClick = OKBtnClick
          end
          object CancelBtn: TButton
            Left = 80
            Top = 6
            Width = 75
            Height = 25
            Caption = #25918#24323
            TabOrder = 1
            OnClick = CancelBtnClick
          end
        end
      end
      object PageScroller_input: TPageScroller
        Left = 0
        Top = 0
        Width = 683
        Height = 34
        Align = alTop
        AutoScroll = False
        Control = Panel1
        TabOrder = 1
        object Panel1: TPanel
          Left = 0
          Top = 0
          Width = 1016
          Height = 34
          Color = clInactiveCaptionText
          TabOrder = 0
          object Label1: TLabel
            Left = 13
            Top = 10
            Width = 36
            Height = 13
            Caption = #20179#24211#65306
          end
          object Label3: TLabel
            Left = 418
            Top = 8
            Width = 36
            Height = 13
            Caption = #26085#26399#65306
          end
          object Label2: TLabel
            Left = 214
            Top = 10
            Width = 48
            Height = 13
            Caption = #19994#21153#21592#65306
          end
          object DTP_date: TDateTimePicker
            Left = 457
            Top = 6
            Width = 127
            Height = 20
            CalAlignment = dtaLeft
            Date = 37319.8739042708
            Time = 37319.8739042708
            DateFormat = dfLong
            DateMode = dmComboBox
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            Kind = dtkDate
            ParseInput = False
            TabOrder = 0
          end
          object cb_depot: TComboBox
            Left = 48
            Top = 6
            Width = 145
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            ItemHeight = 13
            TabOrder = 1
            Text = 'cb_depot'
          end
          object cb_ywy: TComboBox
            Left = 264
            Top = 6
            Width = 129
            Height = 21
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            ItemHeight = 13
            TabOrder = 2
            Text = 'cb_ywy'
          end
        end
      end
      object IMPSG_DATA: TStringGrid
        Left = 0
        Top = 34
        Width = 683
        Height = 322
        Align = alClient
        BorderStyle = bsNone
        Ctl3D = True
        DefaultRowHeight = 18
        FixedColor = clInactiveCaptionText
        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
        RowHeights = (
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18
          18)
      end
    end
  end
  object ADOQuery_data: TADOQuery
    DataSource = GoodsSelectForm.DataSource_data
    Parameters = <>
    Left = 368
    Top = 104
  end
  object DataSource_data: TDataSource
    DataSet = ADOQuery_data
    Left = 448
    Top = 104
  end
end