ar_qry_gathering.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Qry_Gathering: TFrm_Ar_Qry_Gathering
  Left = 251
  Top = 104
  Caption = #25910#27454#31080#25454#21015#34920#26597#35810
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #25910#27454#31080#25454#21015#34920#26597#35810
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = #20840#37096
    end
    inherited Lbl_Order: TLabel
      Width = 156
      Caption = #23458#25143#20195#30721'/'#31080#25454#26085#26399'/'#25910#27454#24207#21495
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 3
      Columns = <
        item
          EditButtons = <>
          FieldName = 'CustomerCode'
          Footers = <>
          Visible = False
        end
        item
          EditButtons = <>
          FieldName = 'CustomerName'
          Footers = <>
          Visible = False
          Width = 107
        end
        item
          EditButtons = <>
          FieldName = 'CustomerFlag'
          Footers = <>
          Width = 183
        end
        item
          EditButtons = <>
          FieldName = 'GatheringNo'
          Footers = <>
          Width = 60
        end
        item
          EditButtons = <>
          FieldName = 'GatheringDate'
          Footers = <>
          Width = 65
        end
        item
          EditButtons = <>
          FieldName = 'BalanceTypeCode'
          Footers = <>
          Visible = False
          Width = 81
        end
        item
          EditButtons = <>
          FieldName = 'BalanceTypeName'
          Footers = <>
          Visible = False
          Width = 85
        end
        item
          EditButtons = <>
          FieldName = 'BalanceTypeFlag'
          Footers = <>
          Width = 122
        end
        item
          EditButtons = <>
          FieldName = 'CurrencyCode'
          Footers = <>
          Visible = False
          Width = 55
        end
        item
          EditButtons = <>
          FieldName = 'CurrencyName'
          Footers = <>
          Visible = False
          Width = 54
        end
        item
          EditButtons = <>
          FieldName = 'CurrencyFlag'
          Footers = <>
          Width = 87
        end
        item
          EditButtons = <>
          FieldName = 'ExchangeRate'
          Footers = <>
          Width = 37
        end
        item
          EditButtons = <>
          FieldName = 'BillNo'
          Footers = <>
          Width = 76
        end
        item
          EditButtons = <>
          FieldName = 'TotalTaxAmount'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'TotalCancelAmount'
          Footers = <>
        end
        item
          EditButtons = <>
          FieldName = 'CustomerBank'
          Footers = <>
          Width = 127
        end
        item
          EditButtons = <>
          FieldName = 'CustomerBankActNo'
          Footers = <>
          Width = 98
        end
        item
          EditButtons = <>
          FieldName = 'SaleDeptCode'
          Footers = <>
          Visible = False
          Width = 93
        end
        item
          EditButtons = <>
          FieldName = 'DeptName'
          Footers = <>
          Visible = False
          Width = 94
        end
        item
          EditButtons = <>
          FieldName = 'DeptFlag'
          Footers = <>
          Width = 149
        end
        item
          EditButtons = <>
          FieldName = 'SaleEmployeeCode'
          Footers = <>
          Visible = False
          Width = 97
        end
        item
          EditButtons = <>
          FieldName = 'EmployeeName'
          Footers = <>
          Visible = False
          Width = 97
        end
        item
          EditButtons = <>
          FieldName = 'EmployeeFlag'
          Footers = <>
          Width = 94
        end
        item
          EditButtons = <>
          FieldName = 'BillDate'
          Footers = <>
          Width = 76
        end
        item
          EditButtons = <>
          FieldName = 'InvoiceNo'
          Footers = <>
          Width = 88
        end
        item
          EditButtons = <>
          FieldName = 'TotalAmount'
          Footers = <>
          Width = 76
        end
        item
          EditButtons = <>
          FieldName = 'ThiSCancelAmount'
          Footers = <>
          Width = 128
        end
        item
          EditButtons = <>
          FieldName = 'RemArk'
          Footers = <>
          Width = 153
        end>
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    Left = 237
    Top = 291
  end
  inherited ActionList: TActionList
    Left = 272
    Top = 240
  end
  inherited AdoQry_Main: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192' +
      '.168.0.100;Use procedure for Prepare=1;Auto Translate=True;Packe' +
      't Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      'select Ar_Gathering.CustomerCode,'
      '          Customer.CustomerName,'
      
        '       Ar_Gathering.CustomerCode+'#39' '#39'+Customer.CustomerName  as C' +
        'ustomerFlag,'
      '       Ar_Gatheringline.GatheringNo,'
      '       Ar_Gathering.GatheringDate,'
      '       Ar_Gathering.BalanceTypeCode,'
      '       BalanceType.BalanceTypeName,'
      
        '       Ar_Gathering.BalanceTypeCode+'#39' '#39'+BalanceType.BalanceTypeN' +
        'ame as BalanceTypeFlag,'
      '       Ar_Gathering.CurrencyCode,'
      '         Currency.CurrencyName ,'
      
        '       Ar_Gathering.CurrencyCode+'#39' '#39'+Currency.CurrencyName as Cu' +
        'rrencyFlag,'
      '       Ar_Gathering.ExchangeRate,'
      '       Ar_Gathering.BillNo,'
      '       Ar_Gathering.TotalTaxAmount,'
      '       Ar_Gathering.TotalCancelAmount,'
      '       Ar_Gathering.CustomerBank,'
      '       Ar_Gathering.CustomerBankActNo,'
      '       Ar_Gathering.SaleDeptCode, '
      '          Dept.DeptName,'
      '       Ar_Gathering.SaleDeptCode+'#39' '#39'+Dept.DeptName as DeptFlag,'
      '       Ar_Gathering.SaleEmployeeCode,'
      '          Employee.EmployeeName,'
      
        '       Ar_Gathering.SaleEmployeeCode+'#39' '#39'+Employee.EmployeeName a' +
        's EmployeeFlag,'
      '       Sa_SaleInvoice.BillDate,'
      '       Ar_Gatheringline.BillNo as InvoiceNo,'
      '       Ar_Gatheringline.TotalAmount,'
      '       Ar_Gatheringline.ThiSCancelAmount,'
      '       Ar_Gathering.RemArk'
      'from Ar_Gatheringline '
      
        'join Ar_Gathering on Ar_Gatheringline.GatheringNo=Ar_Gathering.G' +
        'atheringNo'
      
        'left join Sa_SaleInvoice on Ar_Gatheringline.BillNo=Sa_SaleInvoi' +
        'ce.InvoiceNo'
      
        'left join Customer on Ar_Gathering.CustomerCode=Customer.Custome' +
        'rCode'
      'left join Dept on Ar_Gathering.SaleDeptCode=Dept.DeptCode'
      
        'left join Employee on Ar_Gathering.SaleEmployeeCode=Employee.Emp' +
        'loyeeCode'
      
        'left join Currency on Ar_Gathering.CurrencyCode=Currency.Currenc' +
        'yCode'
      
        'left join BalanceType on Ar_Gathering.BalanceTypeCode=BalanceTyp' +
        'e.BalanceTypeCode')
    Left = 360
    Top = 217
    object AdoQry_MainCustomerCode: TStringField
      DisplayLabel = #23458#25143#20195#30721
      FieldName = 'CustomerCode'
      Origin = 'Ar_Gathering'
      Size = 12
    end
    object AdoQry_MainCustomerName: TStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'CustomerName'
      Origin = 'Customer'
      Size = 60
    end
    object AdoQry_MainCustomerFlag: TStringField
      DisplayLabel = #23458#25143#26631#35782
      FieldName = 'CustomerFlag'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_MainGatheringNo: TStringField
      DisplayLabel = #25910#27454#24207#21495
      FieldName = 'GatheringNo'
      Origin = 'Ar_Gathering'
      Size = 16
    end
    object AdoQry_MainGatheringDate: TDateTimeField
      DisplayLabel = #31080#25454#26085#26399
      FieldName = 'GatheringDate'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_MainBalanceTypeCode: TStringField
      DisplayLabel = #32467#31639#26041#24335#20195#30721
      FieldName = 'BalanceTypeCode'
      Origin = 'Ar_Gathering'
      Size = 3
    end
    object AdoQry_MainCurrencyCode: TStringField
      DisplayLabel = #36135#24065#20195#30721
      FieldName = 'CurrencyCode'
      Origin = 'Ar_Gathering'
      Size = 3
    end
    object AdoQry_MainCurrencyName: TStringField
      DisplayLabel = #36135#24065#21517#31216
      FieldName = 'CurrencyName'
      Origin = 'Currency'
      Size = 30
    end
    object AdoQry_MainCurrencyFlag: TStringField
      DisplayLabel = #36135#24065#26631#35782
      FieldName = 'CurrencyFlag'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainExchangeRate: TFloatField
      DisplayLabel = #27719#29575
      FieldName = 'ExchangeRate'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_MaInBillNo: TStringField
      DisplayLabel = #21333#25454#21495
      FieldName = 'BillNo'
      Origin = 'Ar_Gathering'
      Size = 16
    end
    object AdoQry_MainTotalTaxAmount: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'TotalTaxAmount'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_MainTotalCancelAmount: TFloatField
      DisplayLabel = #26680#38144#37329#39069
      FieldName = 'TotalCancelAmount'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_MainCustomerBank: TStringField
      DisplayLabel = #38134#34892
      FieldName = 'CustomerBank'
      Origin = 'Ar_Gathering'
      Size = 60
    end
    object AdoQry_MainCustomerBankActNo: TStringField
      DisplayLabel = #38134#34892#24080#21495
      FieldName = 'CustomerBankActNo'
      Origin = 'Ar_Gathering'
      Size = 40
    end
    object AdoQry_MainSaleDeptCode: TStringField
      DisplayLabel = #38144#21806#37096#38376#20195#30721
      FieldName = 'SaleDeptCode'
      Origin = 'Ar_Gathering'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = #38144#21806#37096#38376#21517#31216
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_MainDeptFlag: TStringField
      DisplayLabel = #38144#21806#37096#38376#26631#35782
      FieldName = 'DeptFlag'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      DisplayLabel = #33829#38144#19994#21153#21592#20195#30721
      FieldName = 'SaleEmployeeCode'
      Origin = 'Ar_Gathering'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      DisplayLabel = #33829#38144#19994#21153#21592#21517#31216
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MainEmployeeFlag: TStringField
      DisplayLabel = #33829#38144#19994#21153#21592#26631#35782
      FieldName = 'EmployeeFlag'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MaInBillDate: TDateTimeField
      DisplayLabel = #21457#31080#26085#26399
      FieldName = 'BillDate'
      Origin = 'Sa_SaleInvoice'
    end
    object AdoQry_MainInvoiceNo: TStringField
      DisplayLabel = #38144#21806#21457#31080#21495
      FieldName = 'InvoiceNo'
      Size = 16
    end
    object AdoQry_MainTotalAmount: TFloatField
      DisplayLabel = #38144#21806#21457#31080#37329#39069
      FieldName = 'TotalAmount'
      Origin = 'Ar_Gatheringline'
    end
    object AdoQry_MainThiSCancelAmount: TFloatField
      DisplayLabel = #26412#27425#38144#21806#21457#31080#26680#38144#37329#39069
      FieldName = 'ThiSCancelAmount'
      Origin = 'Ar_Gatheringline'
    end
    object AdoQry_MainRemArk: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'RemArk'
      Origin = 'Ar_Gathering'
      Size = 60
    end
    object AdoQry_MainBalanceTypeName: TStringField
      DisplayLabel = #32467#31639#26041#24335#21517#31216
      FieldName = 'BalanceTypeName'
      Origin = 'BalanceType'
      Size = 30
    end
    object AdoQry_MainBalanceTypeFlag: TStringField
      DisplayLabel = #32467#31639#26041#24335#26631#35782
      FieldName = 'BalanceTypeFlag'
      ReadOnly = True
      Size = 34
    end
  end
  inherited DataSource: TDataSource
    Left = 312
    Top = 161
  end
end