sal_qry_totalshiporder6.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Qry_TotalShipOrder6: TFrm_Sal_Qry_TotalShipOrder6
  Left = 176
  Top = 123
  Caption = #38144#21806#21457#36135#32479#35745'-'#25353#21457#36135#26085#26399
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #38144#21806#21457#36135#32479#35745'-'#25353#21457#36135#26085#26399
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_OrderTitle: TLabel
      Left = 14
    end
    inherited Lbl_ConditionTitle: TLabel
      Left = 14
    end
    inherited Lbl_Condition: TLabel
      Left = 80
    end
    inherited Lbl_Order: TLabel
      Left = 72
      Top = 22
      Width = 126
      Caption = #21457#36135#26085#26399'/'#38144#21806#21457#36135#21333#21495
    end
  end
  inherited Pnl_Hint: TPanel
    object DBText1: TDBText
      Left = 74
      Top = 9
      Width = 6
      Height = 12
      AutoSize = True
      DataField = 'CreateDate'
      DataSource = DataSource
    end
    object Label1: TLabel
      Left = 14
      Top = 9
      Width = 58
      Height = 12
      Caption = #21457#36135#26085#26399#65306
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 2
      VTitleMargin = 8
      OnDblClick = Act_LookExecute
      Columns = <
        item
          EditButtons = <>
          FieldName = 'createdate'
          Footers = <>
          Title.Caption = #21457#36135#26085#26399
          Visible = False
          Width = 70
        end
        item
          EditButtons = <>
          FieldName = 'InvBIllNo'
          Footers = <>
          Title.Caption = #21457#36135#21333#21495
          Width = 68
        end
        item
          EditButtons = <>
          FieldName = 'CustomerFlag'
          Footers = <>
          Title.Caption = #38144#21806#23458#25143#26631#35782
          Width = 167
        end
        item
          EditButtons = <>
          FieldName = 'shipqty'
          Footers = <>
          Title.Caption = #21457#36135#25968#37327
          Width = 54
        end
        item
          EditButtons = <>
          FieldName = 'totalinvbillnotaxamount'
          Footers = <>
          Title.Caption = #26410#31246#37329#39069
          Width = 57
        end
        item
          EditButtons = <>
          FieldName = 'totalinvbillamount'
          Footers = <>
          Title.Caption = #21547#31246#37329#39069
          Width = 55
        end
        item
          EditButtons = <>
          FieldName = 'SaletypeFlag'
          Footers = <>
          Title.Caption = #38144#21806#31867#22411#26631#35782
          Width = 109
        end
        item
          EditButtons = <>
          FieldName = 'SaleDeptFlag'
          Footers = <>
          Title.Caption = #38144#21806#37096#38376#26631#35782
          Width = 154
        end
        item
          EditButtons = <>
          FieldName = 'SaleEmployeeFlag'
          Footers = <>
          Title.Caption = #33829#38144#19994#21153#21592#26631#35782
          Width = 99
        end
        item
          EditButtons = <>
          FieldName = 'InvBillTaxRate'
          Footers = <>
          Title.Caption = #38144#21806#31246#29575
          Width = 63
        end
        item
          EditButtons = <>
          FieldName = 'PayTermFlag'
          Footers = <>
          Title.Caption = #20184#27454#26465#27454#26631#35782
          Width = 111
        end
        item
          EditButtons = <>
          FieldName = 'ShipModeFlag'
          Footers = <>
          Title.Caption = #21457#36135#26041#24335#26631#35782
          Width = 88
        end
        item
          EditButtons = <>
          FieldName = 'CustomerShipAddressFlag'
          Footers = <>
          Title.Caption = #21457#36135#22320#22336#26631#35782
          Width = 158
        end>
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    ConnectionString = 'FILE NAME=Mrpii.udl'
    Left = 477
    Top = 307
  end
  inherited ActionList: TActionList
    Left = 192
    Top = 168
    inherited Act_Look: TAction
      Enabled = True
      Visible = True
      OnExecute = Act_LookExecute
    end
  end
  inherited AdoQry_Main: TADOQuery
    Active = True
    ConnectionString = 'FILE NAME=Mrpii.udl'
    CursorType = ctStatic
    SQL.Strings = (
      
        ' Exec AnalyzeSales '#39'0'#39','#39'[##ZHENGJIArONG_2002.08.17 16:21:06 381]' +
        #39','#39'  (InvOutBill.InvBillDate Between '#39#39'2002.05.19'#39#39' And '#39#39'2002.0' +
        '8.17'#39#39') '#39','#39'  (isnull(InvOutBill.CustomerCode,'#39#39#39#39')  Between '#39#39#39#39 +
        ' And '#39#39'ZZZZZZ'#39#39') '#39','#39'  (InvOutBill.InvBillNO Between  '#39#39#39#39' And '#39#39 +
        'ZZZZZZ'#39#39') '#39','#39'  (isnull(InvOutBill.SaleType,'#39#39#39#39') Between '#39#39#39#39' An' +
        'd '#39#39'ZZZZZZ'#39#39') '#39','#39'  (isnull(InvOutBill.DeptCode,'#39#39#39#39') Between '#39#39#39 +
        #39' And '#39#39'ZZZZZZ'#39#39') '#39','#39'  (isnull(InvOutBill.Sal_EmployeeCode,'#39#39#39#39')' +
        ' Between '#39#39#39#39' And '#39#39'ZZZZZZ'#39#39') '#39','#39'  (isnull(InvOutBill.PayTermCod' +
        'e,'#39#39#39#39') Between '#39#39#39#39' And '#39#39'ZZZZZZ'#39#39')  '#39','#39' InvOutBill.CurrencyCod' +
        'e='#39#39'00'#39#39'  '#39)
    Top = 145
  end
  inherited DataSource: TDataSource
    Left = 392
    Top = 153
  end
  inherited PopuPmenu: TPopupMenu
    Left = 232
    Top = 169
  end
end