inv_qry_opadjustbilllist.dfm

一个MRPII系统源代码版本

inherited Frm_Inv_Qry_OpAdjustBillList: TFrm_Inv_Qry_OpAdjustBillList
  Left = 58
  Top = 111
  Caption = '委外加工材料结存调整单列表'
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '委外加工材料结存调整单列表'
  end
  inherited Pnl_Hint: TPanel
    Top = 394
    Height = 35
    object Label1: TLabel
      Left = 478
      Top = 11
      Width = 60
      Height = 12
      Caption = '金额汇总：'
    end
    object Edit1: TEdit
      Left = 544
      Top = 8
      Width = 121
      Height = 20
      ReadOnly = True
      TabOrder = 0
    end
  end
  inherited Pnl_Body: TPanel
    Height = 297
    inherited DBGridEh: TDBGridEh
      Height = 297
      Columns = <
        Item
          FieldName = 'opBillDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据日期'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'opBillNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '单据号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'VendorCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '供应商标识'
          Width = 254
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ItemFlag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '物料标识'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'UomName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '计量单位'
          Width = 50
          KeyList.Strings = ()
        end
        Item
          FieldName = 'opBillQty'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '调整数量'
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'opBillNoTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '调整金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeCodeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '操作员标识'
          Width = 85
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillLineRemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 100
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm;Data Source=192.168.0.15' +
      '1;Use procedure for Prepare=1;Auto Translate=True;Packet Size=40' +
      '96;Workstation ID=XYB'
    SQL.Strings = (
      'Select o.opBillDate,'
      '    o.opBillNo,'
      '    o.VendorCode+'#39' '#39'+Vendor.VendorName As VendorCodeName,'
      '    ol.ItemCode+'#39' '#39'+Item.ItemName ItemFlag,'
      '    Uom.UomName,'
      '    ol.opBillQty,'
      '    ol.opBillNoTaxAmount,'
      
        '    o.EmployeeCode+'#39' '#39'+Employee.EmployeeName As EmployeeCodeName' +
        ','
      '    ol.BillLineRemArk '
      '    From  opAdjustBillLine ol '
      '    Join opAdjustBill o on ol.opBillId=o.opBillId '
      '    Left Outer Join Item On  ol.ItemCode=Item.ItemCode '
      '    Left Outer Join Uom On  Item.UomCode=Uom.UomCode '
      '    Left Outer Join Vendor On  o.VendorCode=Vendor.VendorCode '
      
        '    Left Outer Join Employee On  o.EmployeeCode=Employee.Employe' +
        'eCode ')
    object AdoQry_MainopBillDate: TDateTimeField
      FieldName = 'opBillDate'
    end
    object AdoQry_MainopBillNo: TStringField
      FieldName = 'opBillNo'
      Size = 10
    end
    object AdoQry_MaInvendorCodeName: TStringField
      FieldName = 'VendorCodeName'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainItemFlag: TStringField
      FieldName = 'ItemFlag'
      ReadOnly = True
      Size = 97
    end
    object AdoQry_MainUomName: TStringField
      FieldName = 'UomName'
      Size = 10
    end
    object AdoQry_MainopBillQty: TFloatField
      FieldName = 'opBillQty'
    end
    object AdoQry_MainopBillNoTaxAmount: TFloatField
      FieldName = 'opBillNoTaxAmount'
    end
    object AdoQry_MainEmployeeCodeName: TStringField
      FieldName = 'EmployeeCodeName'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MaInBillLineRemArk: TStringField
      FieldName = 'BillLineRemArk'
      Size = 250
    end
  end
end