ufrm_salesprice.dfm

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

inherited frm_salesprice: Tfrm_salesprice
  Left = 294
  Top = 162
  Height = 475
  Caption = 'frm_salesprice'
  PixelsPerInch = 96
  TextHeight = 13
  inherited Page01: TPageControl
    Height = 415
    ActivePage = TabSheet1
    TabIndex = 0
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Height = 384
        object Label1: TLabel
          Left = 24
          Top = 16
          Width = 51
          Height = 13
          Caption = #36135#21697#32534#21495':'
        end
        object Label2: TLabel
          Left = 48
          Top = 49
          Width = 27
          Height = 13
          Caption = #21333#20301':'
        end
        object Label3: TLabel
          Left = 48
          Top = 82
          Width = 27
          Height = 13
          Caption = #21333#20215':'
        end
        object Label4: TLabel
          Left = 48
          Top = 115
          Width = 27
          Height = 13
          Caption = #24330#21035':'
        end
        object Label5: TLabel
          Left = 24
          Top = 148
          Width = 51
          Height = 13
          Caption = #30830#35748#26631#24535':'
        end
        object Label6: TLabel
          Left = 24
          Top = 181
          Width = 51
          Height = 13
          Caption = #24314#31435#26085#26399':'
        end
        object Label7: TLabel
          Left = 36
          Top = 214
          Width = 39
          Height = 13
          Caption = #20462#25913#20154':'
        end
        object Label8: TLabel
          Left = 24
          Top = 248
          Width = 51
          Height = 13
          Caption = #20462#25913#26085#26399':'
        end
        object DBEdit1: TDBEdit
          Left = 80
          Top = 16
          Width = 121
          Height = 21
          DataField = 'GOODSNO'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 80
          Top = 48
          Width = 121
          Height = 21
          DataField = 'UNIT'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 80
          Top = 80
          Width = 121
          Height = 21
          DataField = 'PRICE'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 80
          Top = 112
          Width = 121
          Height = 21
          DataField = 'CURRENCY'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 3
        end
        object DBEdit5: TDBEdit
          Left = 80
          Top = 144
          Width = 121
          Height = 21
          Color = clBtnFace
          DataField = 'ACTI'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          ReadOnly = True
          TabOrder = 4
        end
        object DBEdit6: TDBEdit
          Left = 80
          Top = 176
          Width = 121
          Height = 21
          Color = clBtnFace
          DataField = 'CRET'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          ReadOnly = True
          TabOrder = 5
        end
        object DBEdit7: TDBEdit
          Left = 80
          Top = 208
          Width = 121
          Height = 21
          Color = clBtnFace
          DataField = 'MODU'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          ReadOnly = True
          TabOrder = 6
        end
        object DBEdit8: TDBEdit
          Left = 80
          Top = 240
          Width = 121
          Height = 21
          Color = clBtnFace
          DataField = 'MODT'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          ReadOnly = True
          TabOrder = 7
        end
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dbGrid: TdxDBGrid
        Height = 384
        KeyField = 'GOODSNO'
        Filter.Criteria = {00000000}
        object dbGridGOODSNO: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'GOODSNO'
        end
        object dbGridUNIT: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'UNIT'
        end
        object dbGridPRICE: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'PRICE'
        end
        object dbGridCURRENCY: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CURRENCY'
        end
        object dbGridACTI: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'ACTI'
        end
        object dbGridOWUS: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'OWUS'
        end
        object dbGridGRUP: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'GRUP'
        end
        object dbGridCRET: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CRET'
        end
        object dbGridMODU: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'MODU'
        end
        object dbGridMODT: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'MODT'
        end
      end
    end
  end
  inherited qy_master: TQuery
    DatabaseName = 'JXC_CSD'
    object qy_masterGOODSNO: TStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'GOODSNO'
      Origin = 'JXC_CSD.T_SALESPRICE.GOODSNO'
    end
    object qy_masterUNIT: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UNIT'
      Origin = 'JXC_CSD.T_SALESPRICE.UNIT'
      Size = 8
    end
    object qy_masterPRICE: TFloatField
      DisplayLabel = #21333#20215
      FieldName = 'PRICE'
      Origin = 'JXC_CSD.T_SALESPRICE.PRICE'
    end
    object qy_masterCURRENCY: TStringField
      DisplayLabel = #24330#21035
      FieldName = 'CURRENCY'
      Origin = 'JXC_CSD.T_SALESPRICE.CURRENCY'
      Size = 8
    end
    object qy_masterACTI: TStringField
      DisplayLabel = #30830#35748#26631#24535
      FieldName = 'ACTI'
      Origin = 'JXC_CSD.T_SALESPRICE.ACTI'
      Size = 1
    end
    object qy_masterOWUS: TStringField
      DisplayLabel = #25152#26377#32773
      FieldName = 'OWUS'
      Origin = 'JXC_CSD.T_SALESPRICE.OWUS'
      Size = 10
    end
    object qy_masterGRUP: TStringField
      DisplayLabel = #32676#32452
      FieldName = 'GRUP'
      Origin = 'JXC_CSD.T_SALESPRICE.GRUP'
      Size = 10
    end
    object qy_masterCRET: TDateTimeField
      DisplayLabel = #24314#31435#26085#26399
      FieldName = 'CRET'
      Origin = 'JXC_CSD.T_SALESPRICE.CRET'
    end
    object qy_masterMODU: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'MODU'
      Origin = 'JXC_CSD.T_SALESPRICE.MODU'
      Size = 10
    end
    object qy_masterMODT: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'MODT'
      Origin = 'JXC_CSD.T_SALESPRICE.MODT'
    end
  end
end