sal_enter_closesaleorder.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_CloseSaleOrder: TFrm_Sal_Enter_CloseSaleOrder
  Left = 0
  Top = 98
  Caption = '销售订单关闭'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '销售订单关闭'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 36
      Caption = '未关闭'
    end
    inherited Lbl_Order: TLabel
      Width = 168
      Caption = '下单日期/销售订单号/订单行号'
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 408
    Height = 33
    inherited Image4: TImage
      Height = 33
    end
    object DBText2: TDBText
      Left = 69
      Top = 4
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'Itemflag'
      DataSource = DataSource
      TransParent = True
    end
    object Label2: TLabel
      Left = 3
      Top = 4
      Width = 60
      Height = 12
      Caption = '物料标识：'
      TransParent = True
    end
    object Label1: TLabel
      Left = 3
      Top = 20
      Width = 84
      Height = 12
      Caption = '销售客户标识：'
      TransParent = True
    end
    object DBText1: TDBText
      Left = 91
      Top = 20
      Width = 42
      Height = 12
      AutoSize = True
      DataField = 'customerflag'
      DataSource = DataSource
      TransParent = True
    end
  end
  inherited Pnl_Body: TPanel
    Height = 311
    inherited Image3: TImage
      Height = 311
    end
    inherited DBGridEh: TDBGridEh
      Height = 311
      ReadOnly = False
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'slocheck'
          PickList.Strings = (
            '1'
            '0')
          Title.Font.ChArset = GB2312_CHArSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 30
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'createdate'
          PickList.Strings = ()
          ReadOnly = True
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slono'
          PickList.Strings = ()
          ReadOnly = True
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slolineno'
          PickList.Strings = ()
          ReadOnly = True
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemCode'
          PickList.Strings = ()
          ReadOnly = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemName'
          PickList.Strings = ()
          ReadOnly = True
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Itemflag'
          PickList.Strings = ()
          Width = 169
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slolinestatus'
          PickList.Strings = (
            '6 下达'
            '7 关闭')
          ReadOnly = True
          Width = 43
          KeyList.Strings = (
            '6'
            '7')
        end
        Item
          FieldName = 'slolinedate'
          PickList.Strings = ()
          ReadOnly = True
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'sloqty'
          PickList.Strings = ()
          ReadOnly = True
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Shipqty'
          PickList.Strings = ()
          ReadOnly = True
          Width = 56
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerCode'
          PickList.Strings = ()
          ReadOnly = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerName'
          PickList.Strings = ()
          ReadOnly = True
          Width = 150
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerflag'
          PickList.Strings = ()
          Width = 180
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeCode'
          PickList.Strings = ()
          ReadOnly = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeName'
          PickList.Strings = ()
          ReadOnly = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeflag'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleDeptCode'
          PickList.Strings = ()
          ReadOnly = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          ReadOnly = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Width = 95
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleEmployeeCode'
          PickList.Strings = ()
          ReadOnly = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          ReadOnly = True
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Employeeflag'
          PickList.Strings = ()
          Width = 94
          KeyList.Strings = ()
        end
        Item
          FieldName = 'slolineremArk'
          PickList.Strings = ()
          ReadOnly = True
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'customerPmno'
          PickList.Strings = ()
          Title.Caption = '客户采购订单号'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'referenceno'
          PickList.Strings = ()
          Width = 65
          KeyList.Strings = ()
        end>
    end
  end
  inherited ActionList: TActionList
    Top = 176
    inherited Act_CancelCheck: TAction
      Caption = '打开'
      Hint = '打开'
      OnExecute = Act_CancelCheckExecute
    end
    inherited Act_Check: TAction
      Caption = '关闭'
      Hint = '关闭'
      OnExecute = Act_CheckExecute
    end
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=ZHENG' +
      'JIArONG'
    BeforeInsert = AdoQry_HeadBeforeInsert
    SQL.Strings = (
      ''
      'select t2.slocheck,'
      '       t1.Createdate,'
      '       t1.customerPmno,'
      '       t1.referenceno,'
      '       t2.slono,'
      '       t2.slolineno,'
      '       t2.ItemCode,'
      '       Item.ItemName,'
      '       t2.ItemCode+'#39' '#39'+Item.ItemName as Itemflag,'
      '       t2.slolinestatus,'
      '       t2.slolinedate,'
      '       t2.sloqty,'
      '       t2.Shipqty,'
      '      -- t2.noFinishsloqty,'
      '       t1.customerCode,'
      '       customer.customerName,'
      
        '       t1.customerCode+'#39' '#39'+customer.customerName as customerflag' +
        ','
      '       t1.SaleTypeCode,'
      '       SaleType.SaleTypeName,'
      
        '       t1.SaleTypeCode+'#39' '#39'+SaleType.SaleTypeName as SaleTypeflag' +
        ','
      '       t1.SaleDeptCode,'
      '       Dept.DeptName,'
      '       t1.SaleDeptCode+'#39' '#39'+Dept.DeptName as Deptflag,'
      '       t1.SaleEmployeeCode,'
      '       Employee.EmployeeName,'
      
        '       t1.SaleEmployeeCode+'#39' '#39'+Employee.EmployeeName as Employee' +
        'flag,'
      '       t2.lastoperationtime,'
      '       t2.slolineremArk'
      'from  sa_SaleOrderline t2'
      'join sa_SaleOrder t1 on t2.slono=t2.slono'
      'left outer join Item on t2.ItemCode=Item.ItemCode'
      
        'left outer join customer on t1.customerCode=customer.customercod' +
        'e'
      
        'left outer join SaleType on t1.SaleTypeCode=SaleType.SaleTypecod' +
        'e'
      'left outer join Dept on t1.SaleDeptCode=Dept.DeptCode'
      
        'left outer join Employee on t1.SaleEmployeeCode=Employee.employe' +
        'eCode')
    Left = 280
    Top = 198
    object AdoQry_Headslocheck: TIntegerField
      DisplayLabel = '标记'
      FieldName = 'slocheck'
      Origin = '#tMpSaleOrderClose'
    end
    object AdoQry_Headcreatedate: TDateTimeField
      DisplayLabel = '下单日期'
      FieldName = 'createdate'
      Origin = '#tMpSaleOrderClose'
    end
    object AdoQry_Headslono: TStringField
      DisplayLabel = '销售订单号'
      FieldName = 'slono'
      Origin = '#tMpSaleOrderClose'
      Size = 16
    end
    object AdoQry_Headslolineno: TIntegerField
      DisplayLabel = '订单行号'
      FieldName = 'slolineno'
      Origin = '#tMpSaleOrderClose'
    end
    object AdoQry_HeadItemCode: TStringField
      DisplayLabel = '物料代码'
      FieldName = 'ItemCode'
      Origin = '#tMpSaleOrderClose'
      Size = 16
    end
    object AdoQry_HeadItemName: TStringField
      DisplayLabel = '物料描述'
      FieldName = 'ItemName'
      Origin = '#tMpSaleOrderClose'
      Size = 80
    end
    object AdoQry_HeadItemflag: TStringField
      DisplayLabel = '物料标识'
      FieldName = 'Itemflag'
      Origin = '#tMpSaleOrderClose'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_Headslolinestatus: TIntegerField
      DisplayLabel = '行状态'
      FieldName = 'slolinestatus'
      Origin = '#tMpSaleOrderClose'
    end
    object AdoQry_Headslolinedate: TDateTimeField
      DisplayLabel = '约定交货日'
      FieldName = 'slolinedate'
      Origin = '#tMpSaleOrderClose'
    end
    object AdoQry_Headsloqty: TFloatField
      DisplayLabel = '约定交货量'
      FieldName = 'sloqty'
      Origin = '#tMpSaleOrderClose'
    end
    object AdoQry_HeadcustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'customerCode'
      Origin = '#tMpSaleOrderClose'
      Size = 12
    end
    object AdoQry_HeadcustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'customerName'
      Origin = '#tMpSaleOrderClose'
      Size = 60
    end
    object AdoQry_Headcustomerflag: TStringField
      DisplayLabel = '客户标识'
      FieldName = 'customerflag'
      Origin = '#tMpSaleOrderClose'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_HeadSaleTypeName: TStringField
      DisplayLabel = '销售类型名称'
      FieldName = 'SaleTypeName'
      Origin = '#tMpSaleOrderClose'
      Size = 30
    end
    object AdoQry_HeadSaleTypeflag: TStringField
      DisplayLabel = '销售类型标识'
      FieldName = 'SaleTypeflag'
      Origin = '#tMpSaleOrderClose'
      ReadOnly = True
      Size = 51
    end
    object AdoQry_HeadSaleDeptCode: TStringField
      DisplayLabel = '销售部门代码'
      FieldName = 'SaleDeptCode'
      Origin = '#tMpSaleOrderClose'
      Size = 8
    end
    object AdoQry_HeadDeptName: TStringField
      DisplayLabel = '销售部门名称'
      FieldName = 'DeptName'
      Origin = '#tMpSaleOrderClose'
      Size = 40
    end
    object AdoQry_HeadDeptflag: TStringField
      DisplayLabel = '销售部门标识'
      FieldName = 'Deptflag'
      Origin = '#tMpSaleOrderClose'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_HeadSaleEmployeeCode: TStringField
      DisplayLabel = '营销业务员代码'
      FieldName = 'SaleEmployeeCode'
      Origin = '#tMpSaleOrderClose'
      Size = 30
    end
    object AdoQry_HeadEmployeeName: TStringField
      DisplayLabel = '营销业务员名称'
      FieldName = 'EmployeeName'
      Origin = '#tMpSaleOrderClose'
      Size = 60
    end
    object AdoQry_HeadEmployeeflag: TStringField
      DisplayLabel = '营销业务员标识'
      FieldName = 'Employeeflag'
      Origin = '#tMpSaleOrderClose'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadslolineremArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'slolineremArk'
      Origin = '#tMpSaleOrderClose'
      Size = 60
    end
    object AdoQry_Headlastoperationtime: TDateTimeField
      FieldName = 'lastoperationtime'
    end
    object AdoQry_HeadSaleTypeCode: TStringField
      DisplayLabel = '销售类型代码'
      FieldName = 'SaleTypeCode'
      Origin = '#tMpSaleOrderClose'
      Size = 6
    end
    object AdoQry_HeadShipqty: TFloatField
      DisplayLabel = '已发货量'
      FieldName = 'Shipqty'
      Origin = '#tMpSaleOrderClose'
    end
    object AdoQry_HeadcustomerPmno: TStringField
      DisplayLabel = '采购订单号'
      FieldName = 'customerPmno'
      Origin = '#tMpSaleOrderClose'
      Size = 16
    end
    object AdoQry_Headreferenceno: TStringField
      DisplayLabel = '参考号'
      FieldName = 'referenceno'
      Origin = '#tMpSaleOrderClose'
      Size = 16
    end
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 444
  end
end