ar_enter_passsaleinvoiceh.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_PassSaleInvoiceH: TFrm_Ar_Enter_PassSaleInvoiceH
  Left = 41
  Top = 102
  Caption = '发票审核'
  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 = 180
      Caption = '销售客户代码/开票日期/发票单号'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 3
      Columns = <
        Item
          FieldName = 'CustomerCode'
          PickList.Strings = ()
          Title.Caption = '销售客户代码'
          Width = 80
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Title.Caption = '销售客户名称'
          Width = 130
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerFalg'
          PickList.Strings = ()
          Title.Caption = '销售客户标识'
          Width = 180
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateDate'
          PickList.Strings = ()
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceNo'
          PickList.Strings = ()
          Width = 54
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalTaxAmount'
          PickList.Strings = ()
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceType'
          PickList.Strings = (
            '0 普通发票'
            '1 专用发票')
          Width = 70
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Width = 71
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyFalg'
          PickList.Strings = ()
          Width = 63
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchangeRate'
          PickList.Strings = ()
          Width = 41
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Bank'
          PickList.Strings = ()
          Width = 111
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BankActNo'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Assess'
          PickList.Strings = (
            '0 未审核'
            '1 已审核')
          Width = 58
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'AssessorEmployeeCode'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'assessName'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'assessflag'
          PickList.Strings = ()
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'AssessDate'
          PickList.Strings = ()
          Width = 68
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeName'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'createEmployeeFalg'
          PickList.Strings = ()
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EdItEmployeeCode'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'edItEmployeeName'
          PickList.Strings = ()
          Width = 100
          Visible = False
          KeyList.Strings = ()
        end
        Item
          FieldName = 'edItEmployeeFalg'
          PickList.Strings = ()
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EditDate'
          PickList.Strings = ()
          Width = 62
          KeyList.Strings = ()
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Width = 100
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 525
    Top = 163
  end
  inherited AdoQry_Head: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=192.168.0.1' +
      '51;Use procedure for Prepare=1;Auto Translate=True;Packet Size=4' +
      '096;Workstation ID=XYB'
    SQL.Strings = (
      ' Select sa_SaleInvoice.*,CustomerName,'
      
        '                       sa_SaleInvoice.CustomerCode+'#39' '#39'+ Customer' +
        'Name as CustomerFalg,'
      '                      CurrencyName,'
      
        '                      sa_SaleInvoice.CurrencyCode+'#39' '#39'+CurrencyNa' +
        'me As CurrencyFalg,'
      '                      PayTerm.PayTermName,'
      
        '                      sa_SaleInvoice.SaleTermCode+'#39' '#39'+PayTerm.Pa' +
        'yTermName As PayTermFalg,'
      '                       t1.EmployeeName as edItEmployeeName, '
      
        '                       edItEmployeeCode+'#39' '#39'+t1.EmployeeName As e' +
        'dItEmployeeFalg, '
      '                      tt.EmployeeName as createEmployeeName,'
      
        '                      CreateEmployeeCode+'#39' '#39'+tt.EmployeeName As ' +
        'createEmployeeFalg,'
      '                       Employee2.EmployeeName as assessName,'
      
        '                      sa_SaleInvoice.assessorEmployeeCode+'#39' '#39'+em' +
        'ployee2.EmployeeName as assessflag'
      '                From sa_SaleInvoice left outer Join Customer'
      
        '                    On sa_SaleInvoice.CustomerCode=Customer.Cust' +
        'omerCode'
      '                    left outer Join Currency'
      
        '                    On sa_SaleInvoice.CurrencyCode=Currency.Curr' +
        'encyCode'
      '                    left outer Join PayTerm'
      
        '                    On sa_SaleInvoice.SaleTermCode=PayTerm.PayTe' +
        'rmCode'
      '                    left outer Join Employee tt'
      
        '                    On sa_SaleInvoice.CreateEmployeeCode=tt.Empl' +
        'oyeeCode'
      '                    left outer Join Employee t1 '
      
        '                     On sa_SaleInvoice.edItEmployeeCode=t1.Emplo' +
        'yeeCode '
      '                    left outer join Employee Employee2'
      
        '                    on sa_SaleInvoice.assessorEmployeeCode=emplo' +
        'yee2.EmployeeCode'
      ''
      ' '
      ' ')
    Left = 384
    object AdoQry_HeadInvoiceNo: TStringField
      DisplayLabel = '发票号'
      FieldName = 'InvoiceNo'
      Origin = '#InvoicePass'
      Size = 16
    end
    object AdoQry_HeadInvoiceType: TIntegerField
      DisplayLabel = '发票类型'
      FieldName = 'InvoiceType'
      Origin = '#InvoicePass'
    end
    object AdoQry_HeadCustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'CustomerCode'
      Origin = '#InvoicePass'
      Size = 12
    end
    object AdoQry_HeadBank: TStringField
      DisplayLabel = '银行'
      FieldName = 'Bank'
      Origin = '#InvoicePass'
      Size = 60
    end
    object AdoQry_HeadBankActNo: TStringField
      DisplayLabel = '银行帐号'
      FieldName = 'BankActNo'
      Origin = '#InvoicePass'
      Size = 40
    end
    object AdoQry_HeadCurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'CurrencyCode'
      Origin = '#InvoicePass'
      Size = 2
    end
    object AdoQry_HeadTotalTaxAmount: TFloatField
      DisplayLabel = '发票金额'
      FieldName = 'TotalTaxAmount'
      Origin = '#InvoicePass'
    end
    object AdoQry_HeadAssess: TIntegerField
      DisplayLabel = '审核标志'
      FieldName = 'Assess'
      Origin = '#InvoicePass'
    end
    object AdoQry_HeadAssessorEmployeeCode: TStringField
      DisplayLabel = '审核人代码'
      FieldName = 'AssessorEmployeeCode'
      Origin = '#InvoicePass'
      Size = 30
    end
    object AdoQry_HeadAssessDate: TDateTimeField
      DisplayLabel = '审核日期'
      FieldName = 'AssessDate'
      Origin = '#InvoicePass'
    end
    object AdoQry_HeadRemArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'RemArk'
      Origin = '#InvoicePass'
      Size = 60
    end
    object AdoQry_HeadCreateDate: TDateTimeField
      DisplayLabel = '制单日期'
      FieldName = 'CreateDate'
      Origin = '#InvoicePass'
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      DisplayLabel = '制单人代码'
      FieldName = 'CreateEmployeeCode'
      Origin = '#InvoicePass'
      Size = 30
    end
    object AdoQry_HeadEditDate: TDateTimeField
      DisplayLabel = '修改日期'
      FieldName = 'EditDate'
      Origin = '#InvoicePass'
    end
    object AdoQry_HeadEdItEmployeeCode: TStringField
      DisplayLabel = '修改人代码'
      FieldName = 'EdItEmployeeCode'
      Origin = '#InvoicePass'
      Size = 30
    end
    object AdoQry_HeadCustomerName: TStringField
      DisplayLabel = '客户名称'
      FieldName = 'CustomerName'
      Origin = '#InvoicePass'
      Size = 60
    end
    object AdoQry_HeadCustomerFalg: TStringField
      DisplayLabel = '客户标识'
      FieldName = 'CustomerFalg'
      Origin = '#InvoicePass'
      ReadOnly = True
      Size = 73
    end
    object AdoQry_HeadCurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'CurrencyName'
      Origin = '#InvoicePass'
      Size = 30
    end
    object AdoQry_HeadCurrencyFalg: TStringField
      DisplayLabel = '货币标识'
      FieldName = 'CurrencyFalg'
      Origin = '#InvoicePass'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_HeadcreateEmployeeName: TStringField
      DisplayLabel = '制单人名称'
      FieldName = 'createEmployeeName'
      Origin = '#InvoicePass'
      Size = 60
    end
    object AdoQry_HeadcreateEmployeeFalg: TStringField
      DisplayLabel = '制单人标识'
      FieldName = 'createEmployeeFalg'
      Origin = '#InvoicePass'
      ReadOnly = True
      Visible = False
      Size = 91
    end
    object AdoQry_HeadassessName: TStringField
      DisplayLabel = '审核人名称'
      FieldName = 'assessName'
      Origin = '#InvoicePass'
      Size = 60
    end
    object AdoQry_Headassessflag: TStringField
      DisplayLabel = '审核人标识'
      FieldName = 'assessflag'
      Origin = '#InvoicePass'
      Size = 91
    end
    object AdoQry_HeadedItEmployeeName: TStringField
      DisplayLabel = '修改人名称'
      FieldName = 'edItEmployeeName'
      Origin = '#InvoicePass'
      Size = 60
    end
    object AdoQry_HeadedItEmployeeFalg: TStringField
      DisplayLabel = '修改人标识'
      FieldName = 'edItEmployeeFalg'
      Origin = '#InvoicePass'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_HeadExchangeRate: TFloatField
      DisplayLabel = '汇率'
      FieldName = 'ExchangeRate'
      Origin = '#InvoicePass'
    end
  end
  inherited DataSource: TDataSource
    Top = 305
  end
end