ufrm_stock_report.dfm

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· DFM 代码 · 共 662 行 · 第 1/2 页

inherited frm_stock_report: Tfrm_stock_report
  Left = 352
  Top = 203
  BorderStyle = bsToolWindow
  Caption = 'frm_stock_report'
  ClientHeight = 273
  ClientWidth = 400
  Constraints.MaxHeight = 300
  FormStyle = fsNormal
  Position = poScreenCenter
  Visible = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 400
    Height = 193
    Align = alTop
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 398
      Height = 191
      Align = alClient
      Caption = #26465#20214#35774#23450
      TabOrder = 0
      object Label1: TLabel
        Left = 24
        Top = 44
        Width = 57
        Height = 13
        Caption = #36135#21697#32534#21495':  '
      end
      object Label2: TLabel
        Left = 24
        Top = 84
        Width = 57
        Height = 13
        Caption = #23384#20648#20301#32622':  '
      end
      object Label3: TLabel
        Left = 218
        Top = 44
        Width = 18
        Height = 13
        Caption = #33267'  '
      end
      object Label4: TLabel
        Left = 219
        Top = 84
        Width = 18
        Height = 13
        Caption = #33267'  '
      end
      object Label5: TLabel
        Left = 24
        Top = 124
        Width = 57
        Height = 13
        Caption = #20837#24211#26085#26399':  '
      end
      object Label6: TLabel
        Left = 219
        Top = 124
        Width = 18
        Height = 13
        Caption = #33267'  '
      end
      object dxButtonEdit1: TdxButtonEdit
        Left = 80
        Top = 40
        Width = 121
        Color = clInfoBk
        ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
        TabOrder = 0
        OnChange = dxButtonEdit1Change
        Buttons = <
          item
            Default = True
          end>
        OnButtonClick = dxButtonEdit1ButtonClick
        ExistButtons = True
      end
      object dxButtonEdit2: TdxButtonEdit
        Left = 248
        Top = 40
        Width = 121
        Color = clInfoBk
        ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
        TabOrder = 1
        Buttons = <
          item
            Default = True
          end>
        OnButtonClick = dxButtonEdit2ButtonClick
        ExistButtons = True
      end
      object dxButtonEdit3: TdxButtonEdit
        Left = 80
        Top = 80
        Width = 121
        Color = clInfoBk
        ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
        TabOrder = 2
        OnChange = dxButtonEdit3Change
        Buttons = <
          item
            Default = True
          end>
        OnButtonClick = dxButtonEdit3ButtonClick
        ExistButtons = True
      end
      object dxButtonEdit4: TdxButtonEdit
        Left = 248
        Top = 80
        Width = 121
        Color = clInfoBk
        ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
        TabOrder = 3
        Buttons = <
          item
            Default = True
          end>
        OnButtonClick = dxButtonEdit4ButtonClick
        ExistButtons = True
      end
      object dxDateEdit1: TdxDateEdit
        Left = 80
        Top = 120
        Width = 121
        Color = clInfoBk
        ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
        TabOrder = 4
        OnChange = dxDateEdit1Change
        Date = -700000
      end
      object dxDateEdit2: TdxDateEdit
        Left = 248
        Top = 120
        Width = 121
        Color = clInfoBk
        ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
        TabOrder = 5
        Date = -700000
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 193
    Width = 400
    Height = 80
    Align = alClient
    TabOrder = 1
    object BitBtn1: TBitBtn
      Left = 58
      Top = 28
      Width = 75
      Height = 25
      Caption = 'OK'
      ModalResult = 1
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 269
      Top = 26
      Width = 75
      Height = 25
      TabOrder = 1
      Kind = bkClose
    end
  end
  object qy_rep: TQuery
    Active = True
    DatabaseName = 'JXC_CSD'
    SQL.Strings = (
      'SELECT * FROM T_GOODSSTOCK ')
    Left = 147
    Top = 184
    object qy_repGOODSNO: TStringField
      FieldName = 'GOODSNO'
      Origin = 'JXC_CSD.T_GOODSSTOCK.GOODSNO'
    end
    object qy_repLOCATION: TStringField
      FieldName = 'LOCATION'
      Origin = 'JXC_CSD.T_GOODSSTOCK.LOCATION'
      Size = 30
    end
    object qy_repUNIT: TStringField
      FieldName = 'UNIT'
      Origin = 'JXC_CSD.T_GOODSSTOCK.UNIT'
      Size = 8
    end
    object qy_repSTOCKQTY: TFloatField
      FieldName = 'STOCKQTY'
      Origin = 'JXC_CSD.T_GOODSSTOCK.STOCKQTY'
    end
    object qy_repMEMO: TStringField
      FieldName = 'MEMO'
      Origin = 'JXC_CSD.T_GOODSSTOCK.MEMO'
      Size = 80
    end
    object qy_repRESINDATE: TDateTimeField
      FieldName = 'RESINDATE'
      Origin = 'JXC_CSD.T_GOODSSTOCK.RESINDATE'
    end
    object qy_repRESOUTDATE: TDateTimeField
      FieldName = 'RESOUTDATE'
      Origin = 'JXC_CSD.T_GOODSSTOCK.RESOUTDATE'
    end
    object qy_repACTI: TStringField
      FieldName = 'ACTI'
      Origin = 'JXC_CSD.T_GOODSSTOCK.ACTI'
      Size = 1
    end
    object qy_repOWUS: TStringField
      FieldName = 'OWUS'
      Origin = 'JXC_CSD.T_GOODSSTOCK.OWUS'
      Size = 10
    end
    object qy_repGRUP: TStringField
      FieldName = 'GRUP'
      Origin = 'JXC_CSD.T_GOODSSTOCK.GRUP'
      Size = 10
    end
    object qy_repCRET: TDateTimeField
      FieldName = 'CRET'
      Origin = 'JXC_CSD.T_GOODSSTOCK.CRET'
    end
    object qy_repMODU: TStringField
      FieldName = 'MODU'
      Origin = 'JXC_CSD.T_GOODSSTOCK.MODU'
      Size = 10
    end
    object qy_repMODT: TDateTimeField
      FieldName = 'MODT'
      Origin = 'JXC_CSD.T_GOODSSTOCK.MODT'
    end
  end
  object ds_rep: TDataSource
    DataSet = qy_rep
    Left = 179
    Top = 184
  end
  object ppBDEPipeline1: TppBDEPipeline
    DataSource = ds_rep
    UserName = 'BDEPipeline1'
    Left = 211
    Top = 184
    object ppBDEPipeline1ppField1: TppField
      FieldAlias = 'GOODSNO'
      FieldName = 'GOODSNO'
      FieldLength = 0
      DisplayWidth = 0
      Position = 0
    end
    object ppBDEPipeline1ppField2: TppField
      FieldAlias = 'LOCATION'
      FieldName = 'LOCATION'
      FieldLength = 30
      DisplayWidth = 30
      Position = 1
    end
    object ppBDEPipeline1ppField3: TppField
      FieldAlias = 'UNIT'
      FieldName = 'UNIT'
      FieldLength = 8
      DisplayWidth = 8
      Position = 2
    end
    object ppBDEPipeline1ppField4: TppField
      Alignment = taRightJustify
      FieldAlias = 'STOCKQTY'
      FieldName = 'STOCKQTY'
      FieldLength = 0
      DataType = dtDouble
      DisplayWidth = 10
      Position = 3
    end
    object ppBDEPipeline1ppField5: TppField
      FieldAlias = 'MEMO'
      FieldName = 'MEMO'
      FieldLength = 80
      DisplayWidth = 80
      Position = 4
    end
    object ppBDEPipeline1ppField6: TppField
      FieldAlias = 'RESINDATE'
      FieldName = 'RESINDATE'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 5
    end
    object ppBDEPipeline1ppField7: TppField
      FieldAlias = 'RESOUTDATE'
      FieldName = 'RESOUTDATE'
      FieldLength = 0
      DataType = dtDateTime
      DisplayWidth = 18
      Position = 6
    end
    object ppBDEPipeline1ppField8: TppField
      FieldAlias = 'ACTI'
      FieldName = 'ACTI'
      FieldLength = 1
      DisplayWidth = 1
      Position = 7
    end
    object ppBDEPipeline1ppField9: TppField