ar_enter_gathering.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_Gathering: TFrm_Ar_Enter_Gathering
  Left = 224
  Top = 92
  Caption = #25910#27454#31080#25454
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = #25910#27454#31080#25454
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = #20840#37096
    end
    inherited Lbl_Order: TLabel
      Width = 180
      Caption = #38144#21806#23458#25143#20195#30721'/'#31080#25454#26085#26399'/'#25910#27454#24207#21495
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 4
      Columns = <
        item
          EditButtons = <>
          FieldName = 'GatheringNo'
          Footers = <>
          Title.Caption = #25910#27454#24207#21495
          Width = 66
        end
        item
          EditButtons = <>
          FieldName = 'GatheringDate'
          Footers = <>
          Title.Caption = #31080#25454#26085#26399
          Width = 65
        end
        item
          EditButtons = <>
          FieldName = 'CustomerCode'
          Footers = <>
          Title.Caption = #38144#21806#23458#25143#20195#30721
        end
        item
          EditButtons = <>
          FieldName = 'customerName'
          Footers = <>
          Title.Caption = #38144#21806#23458#25143#21517#31216
          Width = 122
        end
        item
          EditButtons = <>
          FieldName = 'BalanceTypeName'
          Footers = <>
          Width = 84
        end
        item
          EditButtons = <>
          FieldName = 'ActSubjectCode'
          Footers = <>
          Width = 56
        end
        item
          EditButtons = <>
          FieldName = 'CurrencyCode'
          Footers = <>
          Title.Caption = #36135#24065#20195#30721
          Width = 56
        end
        item
          EditButtons = <>
          FieldName = 'currencyName'
          Footers = <>
          Title.Caption = #36135#24065#21517#31216
          Width = 54
        end
        item
          EditButtons = <>
          FieldName = 'ExchangeRate'
          Footers = <>
          Width = 34
        end
        item
          EditButtons = <>
          FieldName = 'BillNo'
          Footers = <>
          Title.Caption = #31080#25454#21495
          Width = 61
        end
        item
          EditButtons = <>
          FieldName = 'CustomerBank'
          Footers = <>
          Title.Caption = #38134#34892
          Width = 100
        end
        item
          EditButtons = <>
          FieldName = 'CustomerBankActNo'
          Footers = <>
          Title.Caption = #38134#34892#24080#21495
          Width = 85
        end
        item
          EditButtons = <>
          FieldName = 'TotalTaxAmount'
          Footers = <>
          Width = 43
        end
        item
          EditButtons = <>
          FieldName = 'SaleDeptCode'
          Footers = <>
          Title.Caption = #38144#21806#37096#38376#20195#30721
          Width = 82
        end
        item
          EditButtons = <>
          FieldName = 'DeptName'
          Footers = <>
          Title.Caption = #38144#21806#37096#38376#21517#31216
          Width = 84
        end
        item
          EditButtons = <>
          FieldName = 'SalEmployeeName'
          Footers = <>
          Width = 61
        end
        item
          EditButtons = <>
          FieldName = 'createrName'
          Footers = <>
          Width = 57
        end
        item
          EditButtons = <>
          FieldName = 'CreateDate'
          Footers = <>
          Width = 63
        end
        item
          EditButtons = <>
          FieldName = 'RemArk'
          Footers = <>
          Width = 100
        end>
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    Left = 381
    Top = 59
  end
  inherited ActionList: TActionList
    Left = 184
    Top = 160
  end
  inherited AdoQry_Main: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdrcmrm_B_old;Data Source=192.16' +
      '8.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet S' +
      'ize=4096;Workstation ID=XYB'
    SQL.Strings = (
      'select Ar_Gathering.*,'
      '       currency.currencyName,'
      '       customer.customerName,'
      '       BalanceType.BalanceTypeName,'
      '       Dept.DeptName,'
      '       t1.EmployeeName as SalEmployeeName,'
      '       t2.EmployeeName as createrName'
      '        '
      'from Ar_Gathering'
      
        'left join currency on Ar_Gathering.currencyCode=currency.currenc' +
        'yCode'
      
        'left join customer on Ar_Gathering.customerCode=customer.custome' +
        'rCode'
      
        'left join BalanceType on Ar_Gathering.BalanceTypeCode=Balancetyp' +
        'e.BalanceTypeCode'
      'left join Dept on Ar_Gathering.SaleDeptCode=Dept.DeptCode'
      
        'left join Employee t1 on Ar_Gathering.SaleEmployeeCode=t1.employ' +
        'eeCode'
      
        'left join Employee t2 on Ar_Gathering.CreateEmployeeCode=t2.empl' +
        'oyeeCode')
    Left = 88
    Top = 289
    object AdoQry_MainGatheringNo: TStringField
      DisplayLabel = #25910#27454#21333#21495
      FieldName = 'GatheringNo'
      Origin = 'Ar_Gathering'
      Size = 16
    end
    object AdoQry_MainBalanceTypeCode: TStringField
      FieldName = 'BalanceTypeCode'
      Origin = 'Ar_Gathering'
      Size = 3
    end
    object AdoQry_MainGatheringDate: TDateTimeField
      DisplayLabel = #21333#25454#26085#26399
      FieldName = 'GatheringDate'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_MainCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'Ar_Gathering'
      Size = 12
    end
    object AdoQry_MainActSubjectCode: TStringField
      DisplayLabel = #20250#35745#31185#30446
      FieldName = 'ActSubjectCode'
      Origin = 'Ar_Gathering'
      Size = 15
    end
    object AdoQry_MainCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'Ar_Gathering'
      Size = 2
    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_MainCustomerBank: TStringField
      DisplayLabel = #39038#23458#38134#34892
      FieldName = 'CustomerBank'
      Origin = 'Ar_Gathering'
      Size = 60
    end
    object AdoQry_MainCustomerBankActNo: TStringField
      DisplayLabel = #39038#23458#38134#34892#24080#21495
      FieldName = 'CustomerBankActNo'
      Origin = 'Ar_Gathering'
      Size = 40
    end
    object AdoQry_MainSaleDeptCode: TStringField
      FieldName = 'SaleDeptCode'
      Origin = 'Ar_Gathering'
      Size = 8
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      FieldName = 'SaleEmployeeCode'
      Origin = 'Ar_Gathering'
      Size = 30
    end
    object AdoQry_MainTotalTaxAmount: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'TotalTaxAmount'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_MainTotalCancelAmount: TFloatField
      FieldName = 'TotalCancelAmount'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_MainCreateDate: TDateTimeField
      DisplayLabel = #24314#26723#26085#26399
      FieldName = 'CreateDate'
      Origin = 'Ar_Gathering'
    end
    object AdoQry_MainCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Ar_Gathering'
      Size = 30
    end
    object AdoQry_MainRemArk: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'RemArk'
      Origin = 'Ar_Gathering'
      Size = 60
    end
    object AdoQry_MaincurrencyName: TStringField
      DisplayLabel = #36135#24065
      FieldName = 'currencyName'
      Origin = 'currency'
      Size = 30
    end
    object AdoQry_MaincustomerName: TStringField
      DisplayLabel = #23458#25143#25551#36848
      FieldName = 'customerName'
      Origin = 'customer'
      Size = 60
    end
    object AdoQry_MainBalanceTypeName: TStringField
      DisplayLabel = #32467#31639#26041#24335
      FieldName = 'BalanceTypeName'
      Origin = 'BalanceType'
      Size = 30
    end
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = #38144#21806#37096#38376
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_MainSalEmployeeName: TStringField
      DisplayLabel = #38144#21806#20154#21592
      FieldName = 'SalEmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_MaincreaterName: TStringField
      DisplayLabel = #24314#26723#20154#21592
      FieldName = 'createrName'
      Origin = 'Employee'
      Size = 60
    end
  end
  inherited DataSource: TDataSource
    Left = 288
    Top = 153
  end
end