inv_saleprice2.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_SalePrice2: TFrm_Inv_SalePrice2
  Left = -110
  Top = 80
  Caption = '销售价格'
  ClientHeight = 471
  ClientWidth = 763
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 763
  end
  inherited Pnl_Title: TPanel
    Width = 763
    Caption = '销售价格'
  end
  inherited Pnl_Head: TPanel
    Width = 763
    inherited Lbl_Order: TLabel
      Width = 156
      Caption = '客户代码/物料代码/起始日期'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 445
    Width = 763
    object Label1: TLabel
      Left = 16
      Top = 8
      Width = 84
      Height = 12
      Caption = '当前物料描述：'
    end
    object DBText1: TDBText
      Left = 104
      Top = 8
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'ItemName'
      DataSource = DataSource
    end
  end
  inherited Pnl_Body: TPanel
    Width = 763
    Height = 348
    inherited DBGridEh: TDBGridEh
      Width = 763
      Height = 348
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          Title.Caption = '物料代码'
          Width = 125
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          Title.Caption = '物料描述'
          Width = 250
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerCode'
          PickList.Strings = ()
          Title.Caption = '客户代码'
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Title.Caption = '客户名称'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TaxRate'
          PickList.Strings = ()
          Title.Caption = '税率%'
          Width = 36
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SP2Price'
          PickList.Strings = ()
          Title.Caption = '含税价'
          Width = 67
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SP2NoTaxPrice'
          PickList.Strings = ()
          Title.Caption = '未税价'
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SP2StArtDate'
          PickList.Strings = ()
          Title.Caption = '起始日期'
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SP2endDate'
          PickList.Strings = ()
          Title.Caption = '终止日期'
          Width = 77
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 357
    Top = 235
  end
  inherited ActionList: TActionList
    Top = 184
  end
  inherited AdoQry_Main: TAdoQuery
    CurSorType = ctStatic
    SQL.Strings = (
      'Select SalePrice2.SP2Id'
      '    ,SalePrice2.CustomerCode'
      '    ,Customer.CustomerName'
      '    ,SalePrice2.ItemCode'
      '    ,Item.ItemName'
      '    ,SalePrice2.SP2StArtDate'
      '    ,SalePrice2.SP2endDate'
      '    ,SalePrice2.SP2Price'
      '    ,SalePrice2.SP2NoTaxPrice'
      '    ,SalePrice2.TaxRate'
      '     From SalePrice2'
      
        '     Join Customer On SalePrice2.CustomerCode=Customer.CustomerC' +
        'ode'
      '     Join Item On SalePrice2.ItemCode=Item.ItemCode')
    Left = 296
    Top = 177
    object AdoQry_MainSP2Id: TAutoIncField
      FieldName = 'SP2Id'
      Origin = 'SalePrice2'
      ReadOnly = True
    end
    object AdoQry_MainCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'SalePrice2'
      Size = 12
    end
    object AdoQry_MainCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'Customer'
      Size = 60
    end
    object AdoQry_MainItemCode: TStringField
      FieldName = 'ItemCode'
      Origin = 'SalePrice2'
      Size = 16
    end
    object AdoQry_MainItemName: TStringField
      FieldName = 'ItemName'
      Origin = 'Item'
      Size = 60
    end
    object AdoQry_MainSP2StArtDate: TDateTimeField
      FieldName = 'SP2StArtDate'
      Origin = 'SalePrice2'
    end
    object AdoQry_MainSP2endDate: TDateTimeField
      FieldName = 'SP2endDate'
      Origin = 'SalePrice2'
    end
    object AdoQry_MainSP2Price: TFloatField
      FieldName = 'SP2Price'
      Origin = 'SalePrice2'
    end
    object AdoQry_MainSP2NoTaxPrice: TFloatField
      FieldName = 'SP2NoTaxPrice'
      Origin = 'SalePrice2'
    end
    object AdoQry_MainTaxRate: TFloatField
      FieldName = 'TaxRate'
      Origin = 'SalePrice2'
    end
  end
  inherited DataSource: TDataSource
    Left = 384
    Top = 161
  end
end