invreport.~dfm

文件包含程序源原文件

object frmReport: TfrmReport
  Left = 24
  Top = 99
  Width = 988
  Height = 645
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = 'Report List'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlCon: TPanel
    Left = 0
    Top = 0
    Width = 203
    Height = 618
    Align = alLeft
    TabOrder = 0
    object rdoTitle: TRadioGroup
      Left = 8
      Top = 271
      Width = 186
      Height = 226
      Caption = 'Group By'
      ItemIndex = 11
      Items.Strings = (
        'Date'
        'Material Code'
        'Material Class'
        'Paper NO'
        'Mold Code'
        'Suplier'
        'Maker'
        'Receive Man'
        'Input Man'
        'Manager Type'
        'by department'
        'ALL')
      TabOrder = 0
      OnClick = rdoTitleClick
    end
    object rdoSortID: TRadioGroup
      Left = 8
      Top = 501
      Width = 186
      Height = 114
      Caption = 'Sort By'
      ItemIndex = 2
      Items.Strings = (
        'Date'
        'Kind'
        'Material Code'
        'Paper NO')
      TabOrder = 1
      OnClick = rdoSortIDClick
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 201
      Height = 260
      Align = alTop
      TabOrder = 2
      object lblFDate: TLabel
        Left = 9
        Top = 8
        Width = 54
        Height = 13
        Caption = 'Start Date  '
      end
      object lblEDate: TLabel
        Left = 110
        Top = 8
        Width = 51
        Height = 13
        Caption = 'End Date  '
      end
      object Image1: TImage
        Left = 87
        Top = 22
        Width = 25
        Height = 21
        Picture.Data = {
          07544269746D617096010000424D960100000000000076000000280000001800
          0000180000000100040000000000200100000000000000000000100000000000
          000000000000000080000080000000808000800000008000800080800000C0C0
          C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
          FF00777777777777777777777777777777777777777777777777777777777777
          7777777777777777777777777777777777777777777777777777777777777777
          7777777777777777777777777777777770777777777777777777777770077777
          7777777777777777706077777777777777777000006607777777777777777066
          6666607777777777777770666666660777777777777770666666607777777777
          7777700000660777777777777777777770607777777777777777777770077777
          7777777777777777707777777777777777777777777777777777777777777777
          7777777777777777777777777777777777777777777777777777777777777777
          7777777777777777777777777777777777777777777777777777777777777777
          7777}
      end
      object cbxStk: TComboBox
        Left = 8
        Top = 108
        Width = 186
        Height = 21
        ImeMode = imClose
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ItemHeight = 13
        TabOrder = 5
        Text = 'cbxStk'
        OnChange = cbxStkChange
        Items.Strings = (
          'A_Material Inventory'
          'B_Other Material Inventory')
      end
      object edtFDate: TDateTimePicker
        Left = 8
        Top = 24
        Width = 84
        Height = 21
        CalAlignment = dtaLeft
        Date = 38262.0417959491
        Time = 38262.0417959491
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeMode = imClose
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        Kind = dtkDate
        ParseInput = False
        TabOrder = 0
      end
      object edtEDate: TDateTimePicker
        Left = 109
        Top = 24
        Width = 84
        Height = 21
        CalAlignment = dtaLeft
        Date = 38262.0417959491
        Time = 38262.0417959491
        DateFormat = dfShort
        DateMode = dmComboBox
        ImeMode = imClose
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        Kind = dtkDate
        ParseInput = False
        TabOrder = 1
      end
      object edtMoldID: TLabeledEdit
        Left = 8
        Top = 66
        Width = 185
        Height = 21
        EditLabel.Width = 54
        EditLabel.Height = 13
        EditLabel.Caption = 'Mold Code '
        ImeMode = imClose
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        LabelPosition = lpAbove
        LabelSpacing = 3
        TabOrder = 2
      end
      object edtStkID: TLabeledEdit
        Left = 8
        Top = 108
        Width = 35
        Height = 21
        EditLabel.Width = 48
        EditLabel.Height = 13
        EditLabel.Caption = 'Stock ID  '
        ImeMode = imClose
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        LabelPosition = lpAbove
        LabelSpacing = 3
        TabOrder = 3
        OnChange = edtStkIDChange
      end
      object edtStkName: TEdit
        Left = 43
        Top = 108
        Width = 133
        Height = 21
        ImeMode = imClose
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ReadOnly = True
        TabOrder = 4
      end
      object edtMatCode: TLabeledEdit
        Left = 8
        Top = 150
        Width = 185
        Height = 21
        EditLabel.Width = 65
        EditLabel.Height = 13
        EditLabel.Caption = 'Material Code'
        ImeMode = imClose
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        LabelPosition = lpAbove
        LabelSpacing = 3
        TabOrder = 6
      end
      object cbxSuplier: TComboBox
        Left = 7
        Top = 191
        Width = 186
        Height = 21
        ImeMode = imClose
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ItemHeight = 13
        TabOrder = 7
        Text = 'cbxStk'
        OnChange = cbxSuplierChange
        OnDropDown = cbxSuplierDropDown
        Items.Strings = (
          'A_Material Inventory'
          'B_Other Material Inventory')
      end
      object edtSuplier: TLabeledEdit
        Left = 7
        Top = 191
        Width = 58
        Height = 21
        EditLabel.Width = 35
        EditLabel.Height = 13
        EditLabel.Caption = 'Suplier '