stk_enter_passcheckinvbillh.dfm

一个MRPII系统源代码版本

inherited Frm_Stk_Enter_PassCheckInvBillH: TFrm_Stk_Enter_PassCheckInvBillH
  Left = 13
  Top = 115
  Caption = '盘点单批准'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '盘点单批准'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 84
      Caption = '未批准(默认值)'
    end
    inherited Lbl_Order: TLabel
      Width = 48
      Caption = '盘点单号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'IsPassEmplyee'
          PickList.Strings = (
            '1 批准'
            '0 未批准'
            '')
          Title.Alignment = taCenter
          Title.Caption = '批准否'
          Width = 50
          KeyList.Strings = (
            '1'
            '0')
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '盘点单号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '盘点部门代码'
          Width = 40
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '盘点部门名称'
          Width = 40
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '盘点日期'
          Width = 40
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '盘点仓库代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'whName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '盘点仓库名称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '盘点货位代码'
          Width = 40
          KeyList.Strings = ()
        end
        Item
          FieldName = 'WhPositionName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '盘点货位名称'
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CheckEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '盘点人员代码'
          Width = 40
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '盘点人员名称'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PassEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批准人代码'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'psEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '批准人名称'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InAccountDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据日期'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo_In'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '对应入库单号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 150
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CheckEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统建档用户代码'
          Width = 40
          KeyList.Strings = ()
        end
        Item
          FieldName = 'chEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统建档用户名称'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统建档时间'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EdItEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统改档用户代码'
          Width = 40
          KeyList.Strings = ()
        end
        Item
          FieldName = 'edTEmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统改档用户名称'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EditDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '系统改档时间'
          Width = 50
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 702
    Top = 1
  end
  inherited ActionList: TActionList
    Left = 548
    Top = 1
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_kelong;Data Source=ExtDATAS' +
      'ERVER;Use procedure for Prepare=1;Auto Translate=True;Packet Siz' +
      'e=4096;Workstation ID=XYB'
    SQL.Strings = (
      'select '
      '     Inv_CheckInvBill.*,'
      '     Dept.DeptName,'
      '     Warehouse.whName,'
      '     WhPosition.WhPositionName,'
      '     chEmployee.EmployeeName as chEmployeeName,'
      '     psEmployee.EmployeeName as psEmployeeName,'
      '     CREmployee.EmployeeName as CREmployeeName,'
      '     edTEmployee.EmployeeName  as edTEmployeeName'
      'from Inv_CheckInvBill'
      'left join Dept  on Inv_CheckInvBill.DeptCode=Dept.DeptCode'
      'left join Warehouse on Inv_CheckInvBill.whCode=Warehouse.whCode'
      
        'left join WhPosition   on Inv_CheckInvBill.WhPositionCode=WHPosi' +
        'tion.WhPositionCode'
      
        'left join (select * from Employee) chEmployee on Inv_CheckInvBil' +
        'l.CheckEmployeeCode=chEmployee.EmployeeCode'
      
        'left join (select * from Employee) PsEmployee on Inv_CheckInvBil' +
        'l.PassEmployeeCode=PsEmployee.EmployeeCode'
      
        'left join (select * from Employee) CREmployee on Inv_CheckInvBil' +
        'l.CreateEmployeeCode=CrEmployee.EmployeeCode'
      
        'left join (select * from Employee) edTEmployee on Inv_CheckInvBi' +
        'll.EdItEmployeeCode=edTEmployee.EmployeeCode')
    Left = 578
    Top = 1
    object AdoQry_HeadInvBillNo: TStringField
      FieldName = 'InvBillNo'
      Origin = 'Inv_CheckInvBill'
      Size = 10
    end
    object AdoQry_HeadDeptCode: TStringField
      FieldName = 'DeptCode'
      Origin = 'Inv_CheckInvBill'
      Size = 12
    end
    object AdoQry_HeadInvBillDate: TDateTimeField
      FieldName = 'InvBillDate'
      Origin = 'Inv_CheckInvBill'
    end
    object AdoQry_HeadWhCode: TStringField
      FieldName = 'WhCode'
      Origin = 'Inv_CheckInvBill'
      Size = 4
    end
    object AdoQry_HeadWhPositionCode: TStringField
      FieldName = 'WhPositionCode'
      Origin = 'Inv_CheckInvBill'
      Size = 4
    end
    object AdoQry_HeadCheckEmployeeCode: TStringField
      FieldName = 'CheckEmployeeCode'
      Origin = 'Inv_CheckInvBill'
      Size = 30
    end
    object AdoQry_HeadIsPassEmplyee: TIntegerField
      FieldName = 'IsPassEmplyee'
      Origin = 'Inv_CheckInvBill'
    end
    object AdoQry_HeadPassEmployeeCode: TStringField
      FieldName = 'PassEmployeeCode'
      Origin = 'Inv_CheckInvBill'
      Size = 30
    end
    object AdoQry_HeadInAccountDate: TDateTimeField
      FieldName = 'InAccountDate'
      Origin = 'Inv_CheckInvBill'
    end
    object AdoQry_HeadInvBillNo_In: TStringField
      FieldName = 'InvBillNo_In'
      Origin = 'Inv_CheckInvBill'
      Size = 10
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Inv_CheckInvBill'
      Size = 120
    end
    object AdoQry_HeadTmpField: TIntegerField
      FieldName = 'TmpField'
      Origin = 'Inv_CheckInvBill'
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Inv_CheckInvBill'
      Size = 30
    end
    object AdoQry_HeadCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Origin = 'Inv_CheckInvBill'
    end
    object AdoQry_HeadEdItEmployeeCode: TStringField
      FieldName = 'EdItEmployeeCode'
      Origin = 'Inv_CheckInvBill'
      Size = 30
    end
    object AdoQry_HeadEditDate: TDateTimeField
      FieldName = 'EditDate'
      Origin = 'Inv_CheckInvBill'
    end
    object AdoQry_HeadDeptName: TStringField
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_HeadwhName: TStringField
      FieldName = 'whName'
      Origin = 'Warehouse'
      Size = 40
    end
    object AdoQry_HeadWhPositionName: TStringField
      FieldName = 'WhPositionName'
      Origin = 'WhPosition'
      Size = 40
    end
    object AdoQry_HeadchEmployeeName: TStringField
      FieldName = 'chEmployeeName'
      Size = 60
    end
    object AdoQry_HeadpsEmployeeName: TStringField
      FieldName = 'psEmployeeName'
      Size = 60
    end
    object AdoQry_HeadCREmployeeName: TStringField
      FieldName = 'CREmployeeName'
      Size = 60
    end
    object AdoQry_HeadedTEmployeeName: TStringField
      FieldName = 'edTEmployeeName'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 609
    Top = 1
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 672
    Top = 1
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 640
    Top = 1
  end
end