sal_enter_othersaleinvoiceh.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_OtherSaleInvoiceH: TFrm_Sal_Enter_OtherSaleInvoiceH
  Top = 108
  Caption = '其它销售开票'
  Windowstate = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    inherited ToolBar: TToolBar
      inherited TlBtn_Delete: TToolButton
        Visible = False
      end
    end
  end
  inherited Pnl_Title: TPanel
    Caption = '其它销售开票'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 114
      Caption = 'Date()-开票日期<=30'
    end
    inherited Lbl_Order: TLabel
      Width = 102
      Caption = '客户代码/开票日期'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      Columns = <
        Item
          FieldName = 'CustomerCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户代码'
          Width = 59
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户名称'
          Width = 128
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateDate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '开票日期'
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvoiceNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发票单号'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalTaxAmount'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发票金额'
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币代码'
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CurrencyName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币名称'
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ExchangeRate'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '汇率'
          Width = 52
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CreateEmployeeCode'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单人员代码'
          Width = 82
          KeyList.Strings = ()
        end
        Item
          FieldName = 'EmployeeName'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '制单人员名称'
          Width = 100
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerBank'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户开户银行'
          Width = 121
          KeyList.Strings = ()
        end
        Item
          FieldName = 'CustomerBankActNo'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '客户银行帐号'
          Width = 86
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Assess'
          PickList.Strings = (
            '未审核'
            '已审核')
          Title.Alignment = taCenter
          Title.Caption = '审核否'
          Width = 52
          KeyList.Strings = (
            '0'
            '1')
        end
        Item
          FieldName = 'RemArk'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '备注'
          Width = 237
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 573
    Top = 195
  end
  inherited ActionList: TActionList
    Left = 176
    Top = 200
  end
  inherited AdoQry_Head: 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'
    CurSorType = ctStatic
    SQL.Strings = (
      
        'Select Sa_SaleInvoice.*,Customer.CustomerName,Currency.CurrencyN' +
        'ame,Employee.EmployeeName,'
      'PayTermName'
      'From Sa_SaleInvoice'
      'Join Customer'
      '   On Sa_SaleInvoice.CustomerCode=Customer.CustomerCode'
      'Join Currency'
      '  On Sa_SaleInvoice.CurrencyCode=Currency.CurrencyCode'
      'Join Employee'
      '  On Sa_SaleInvoice.CreateEmployeeCode=Employee.EmployeeCode'
      'Join PayTerm'
      '  On Sa_SaleInvoice.SaleTermCode=PayTermCode'
      'Where CreateDate>=getdate()-30'
      ''
      'Order By Sa_SaleInvoice.CustomerCode,CreateDate'
      ''
      ' '
      ' ')
    Left = 344
    Top = 145
    object AdoQry_HeadInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Origin = 'Sa_SaleInvoice'
      Size = 16
    end
    object AdoQry_HeadCreateDate: TDateTimeField
      FieldName = 'CreateDate'
      Origin = 'Sa_SaleInvoice'
    end
    object AdoQry_HeadCreateEmployeeCode: TStringField
      FieldName = 'CreateEmployeeCode'
      Origin = 'Sa_SaleInvoice'
      Size = 30
    end
    object AdoQry_HeadCustomerCode: TStringField
      FieldName = 'CustomerCode'
      Origin = 'Sa_SaleInvoice'
      Size = 12
    end
    object AdoQry_HeadCustomerBank: TStringField
      FieldName = 'CustomerBank'
      Origin = 'Sa_SaleInvoice'
      Size = 60
    end
    object AdoQry_HeadCustomerBankActNo: TStringField
      FieldName = 'CustomerBankActNo'
      Origin = 'Sa_SaleInvoice'
      Size = 40
    end
    object AdoQry_HeadCurrencyCode: TStringField
      FieldName = 'CurrencyCode'
      Origin = 'Sa_SaleInvoice'
      Size = 2
    end
    object AdoQry_HeadExchangeRate: TFloatField
      FieldName = 'ExchangeRate'
      Origin = 'Sa_SaleInvoice'
    end
    object AdoQry_HeadSaleTermCode: TStringField
      FieldName = 'SaleTermCode'
      Origin = 'Sa_SaleInvoice'
      Size = 3
    end
    object AdoQry_HeadTotalTaxAmount: TFloatField
      FieldName = 'TotalTaxAmount'
      Origin = 'Sa_SaleInvoice'
    end
    object AdoQry_HeadAssess: TIntegerField
      FieldName = 'Assess'
      Origin = 'Sa_SaleInvoice'
    end
    object AdoQry_HeadAssessorEmployeeCode: TStringField
      FieldName = 'AssessorEmployeeCode'
      Origin = 'Sa_SaleInvoice'
      Size = 30
    end
    object AdoQry_HeadRemArk: TStringField
      FieldName = 'RemArk'
      Origin = 'Sa_SaleInvoice'
      Size = 60
    end
    object AdoQry_HeadCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'Customer'
      Size = 60
    end
    object AdoQry_HeadCurrencyName: TStringField
      FieldName = 'CurrencyName'
      Origin = 'Currency'
      Size = 30
    end
    object AdoQry_HeadEmployeeName: TStringField
      FieldName = 'EmployeeName'
      Origin = 'Employee'
      Size = 60
    end
    object AdoQry_HeadPayTermName: TStringField
      FieldName = 'PayTermName'
      Size = 30
    end
  end
  inherited DataSource: TDataSource
    Left = 440
    Top = 169
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 248
    Top = 273
  end
end