ufrm_goods_stock.dfm

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

inherited frm_goods_stock: Tfrm_goods_stock
  Left = 313
  Top = 158
  Width = 645
  Height = 338
  Caption = 'frm_goods_stock'
  PixelsPerInch = 96
  TextHeight = 13
  inherited CoolBar1: TCoolBar
    Width = 637
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 29
        Width = 633
      end>
    inherited ToolBar1: TToolBar
      Width = 620
    end
  end
  inherited Page01: TPageControl
    Width = 637
    Height = 278
    ActivePage = TabSheet1
    TabIndex = 0
    inherited TabSheet1: TTabSheet
      inherited panelEdit: TPanel
        Width = 629
        Height = 247
        object Label1: TLabel
          Left = 48
          Top = 16
          Width = 51
          Height = 13
          Caption = #36135#21697#32534#21495':'
        end
        object Label2: TLabel
          Left = 48
          Top = 46
          Width = 51
          Height = 13
          Caption = #23384#20648#20301#32622':'
        end
        object Label3: TLabel
          Left = 48
          Top = 77
          Width = 51
          Height = 13
          Caption = #23384#20648#21333#20301':'
        end
        object Label4: TLabel
          Left = 48
          Top = 108
          Width = 51
          Height = 13
          Caption = #23384#20648#25968#37327':'
        end
        object Label5: TLabel
          Left = 72
          Top = 138
          Width = 27
          Height = 13
          Caption = #22791#27880':'
        end
        object Label6: TLabel
          Left = 24
          Top = 169
          Width = 75
          Height = 13
          Caption = #26368#36817#20837#24211#26085#26399':'
        end
        object Label7: TLabel
          Left = 24
          Top = 200
          Width = 75
          Height = 13
          Caption = #26368#36817#20986#24211#26085#26399':'
        end
        object DBEdit1: TDBEdit
          Left = 106
          Top = 16
          Width = 122
          Height = 21
          DataField = 'GOODSNO'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 106
          Top = 45
          Width = 122
          Height = 21
          DataField = 'LOCATION'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 1
        end
        object DBEdit3: TDBEdit
          Left = 106
          Top = 74
          Width = 122
          Height = 21
          DataField = 'UNIT'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 2
        end
        object DBEdit4: TDBEdit
          Left = 106
          Top = 104
          Width = 122
          Height = 21
          DataField = 'STOCKQTY'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 3
        end
        object DBEdit5: TDBEdit
          Left = 106
          Top = 133
          Width = 122
          Height = 21
          DataField = 'MEMO'
          DataSource = ds_master
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 4
        end
        object dxDBDateEdit1: TdxDBDateEdit
          Left = 106
          Top = 162
          Width = 122
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 5
          DataField = 'RESINDATE'
          DataSource = ds_master
        end
        object dxDBDateEdit2: TdxDBDateEdit
          Left = 106
          Top = 192
          Width = 122
          ImeName = 'Chinese (Simplified) - Microsoft Pinyin'
          TabOrder = 6
          DataField = 'RESOUTDATE'
          DataSource = ds_master
        end
      end
    end
    inherited TabSheet2: TTabSheet
      inherited dbGrid: TdxDBGrid
        Width = 629
        Height = 247
        KeyField = 'GOODSNO'
        Filter.Active = True
        Filter.Criteria = {00000000}
        object dbGridGOODSNO: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'GOODSNO'
        end
        object dbGridLOCATION: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'LOCATION'
        end
        object dbGridUNIT: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'UNIT'
        end
        object dbGridSTOCKQTY: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'STOCKQTY'
        end
        object dbGridMEMO: TdxDBGridMaskColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'MEMO'
        end
        object dbGridRESINDATE: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'RESINDATE'
        end
        object dbGridRESOUTDATE: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'RESOUTDATE'
        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
          BandIndex = 0
          RowIndex = 0
          FieldName = 'GRUP'
        end
        object dbGridCRET: TdxDBGridDateColumn
          BandIndex = 0
          RowIndex = 0
          FieldName = 'CRET'
        end
        object dbGridMODU: TdxDBGridMaskColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'MODU'
        end
        object dbGridMODT: TdxDBGridDateColumn
          Visible = False
          BandIndex = 0
          RowIndex = 0
          FieldName = 'MODT'
        end
      end
    end
  end
  inherited qy_master: TQuery
    DatabaseName = 'JXC_CSD'
    SQL.Strings = (
      'SELECT * FROM T_GOODSSTOCK')
    object qy_masterGOODSNO: TStringField
      DisplayLabel = #36135#21697#32534#21495
      FieldName = 'GOODSNO'
      Origin = 'JXC_CSD.T_GOODSSTOCK.GOODSNO'
    end
    object qy_masterLOCATION: TStringField
      DisplayLabel = #23384#20648#20301#32622
      FieldName = 'LOCATION'
      Origin = 'JXC_CSD.T_GOODSSTOCK.LOCATION'
      Size = 30
    end
    object qy_masterUNIT: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UNIT'
      Origin = 'JXC_CSD.T_GOODSSTOCK.UNIT'
      Size = 8
    end
    object qy_masterSTOCKQTY: TFloatField
      DisplayLabel = #24211#23384#25968#37327
      FieldName = 'STOCKQTY'
      Origin = 'JXC_CSD.T_GOODSSTOCK.STOCKQTY'
    end
    object qy_masterMEMO: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'MEMO'
      Origin = 'JXC_CSD.T_GOODSSTOCK.MEMO'
      Size = 80
    end
    object qy_masterRESINDATE: TDateTimeField
      DisplayLabel = #26368#36817#20837#24211#26085#26399
      FieldName = 'RESINDATE'
      Origin = 'JXC_CSD.T_GOODSSTOCK.RESINDATE'
    end
    object qy_masterRESOUTDATE: TDateTimeField
      DisplayLabel = #26368#36817#20986#24211#26085#26399
      FieldName = 'RESOUTDATE'
      Origin = 'JXC_CSD.T_GOODSSTOCK.RESOUTDATE'
    end
    object qy_masterACTI: TStringField
      DisplayLabel = #26377#25928#26631#24535
      FieldName = 'ACTI'
      Origin = 'JXC_CSD.T_GOODSSTOCK.ACTI'
      Size = 1
    end
    object qy_masterOWUS: TStringField
      DisplayLabel = #24314#31435#32773
      FieldName = 'OWUS'
      Origin = 'JXC_CSD.T_GOODSSTOCK.OWUS'
      Size = 10
    end
    object qy_masterGRUP: TStringField
      DisplayLabel = #32676#32452
      FieldName = 'GRUP'
      Origin = 'JXC_CSD.T_GOODSSTOCK.GRUP'
      Size = 10
    end
    object qy_masterCRET: TDateTimeField
      DisplayLabel = #24314#31435#26085#26399
      FieldName = 'CRET'
      Origin = 'JXC_CSD.T_GOODSSTOCK.CRET'
    end
    object qy_masterMODU: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'MODU'
      Origin = 'JXC_CSD.T_GOODSSTOCK.MODU'
      Size = 10
    end
    object qy_masterMODT: TDateTimeField
      DisplayLabel = #20462#25913#26085#26399
      FieldName = 'MODT'
      Origin = 'JXC_CSD.T_GOODSSTOCK.MODT'
    end
  end
end