ar_enter_saleinvoice2_c1.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_SaleInvoice2_C1: TFrm_Ar_Enter_SaleInvoice2_C1
  Left = 116
  Top = 117
  Caption = '销售发货单选择列表'
  ClientHeight = 401
  ClientWidth = 711
  FormStyle = fsNormal
  Position = poDesktopCenter
  Windowstate = wsNormal
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Align = alNone
  end
  inherited Pnl_Title: TPanel
    Top = 0
    Width = 711
    Height = 3
    inherited Image2: TImage
      Width = 711
      Height = 3
    end
  end
  inherited Pnl_Head: TPanel
    Top = 3
    Width = 711
    Height = 0
    inherited Image1: TImage
      Width = 711
      Height = 0
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 340
    Width = 711
    Height = 61
    inherited Image4: TImage
      Width = 711
      Height = 61
    end
    object btn_ok: TButton
      Left = 295
      Top = 14
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = '确定(&O)'
      TabOrder = 0
      OnClick = btn_okClick
    end
    object btn_Cancel: TButton
      Left = 404
      Top = 14
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Cancel = True
      Caption = '取消(&C)'
      ModalResult = 2
      TabOrder = 1
      OnClick = btn_CancelClick
    end
    object Button1: TButton
      Left = 191
      Top = 14
      Width = 74
      Height = 23
      Anchors = [akRight, akBottom]
      Caption = '重选(&R)'
      TabOrder = 2
      OnClick = Button1Click
    end
  end
  inherited Pnl_Body: TPanel
    Top = 3
    Width = 711
    Height = 337
    inherited Image3: TImage
      Width = 711
      Height = 337
    end
    inherited DBGridEh: TDBGridEh
      Width = 711
      Height = 337
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = False
      OnTitleClick = DBGridEhTitleClick
      FrozenCols = 4
      Columns = <
        Item
          FieldName = 'checkflag'
          PickList.Strings = (
            '1'
            '0')
          Title.Alignment = taCenter
          Title.Font.ChArset = GB2312_CHArSET
          Title.Font.Color = clBlue
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 36
          KeyList.Strings = (
            '1'
            '0')
          Checkboxes = True
        end
        Item
          FieldName = 'InvBillDate'
          PickList.Strings = ()
          ReadOnly = True
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillNo'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '发货单号'
          Width = 71
          KeyList.Strings = ()
        end
        Item
          FieldName = 'BillTypeCode'
          PickList.Strings = (
            '材料销售发货'
            '产品销售发货')
          Width = 88
          KeyList.Strings = (
            '0205'
            '0206')
        end
        Item
          FieldName = 'currencyflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInvBillAmount'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInvBillNoTaxAmount'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 117
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Employeeflag'
          PickList.Strings = ()
          Width = 91
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBillTaxRate'
          PickList.Strings = ()
          ReadOnly = True
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 84
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 357
    Top = 147
  end
  inherited ActionList: TActionList
    Left = 256
    Top = 48
  end
  inherited AdoQry_Main: 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'
    CurSorType = ctStatic
    SQL.Strings = (
      'Select checkflag=0,'
      '       Sa_ShipOrder.* ,'
      '       currency.currencyName,'
      
        '       sa_ShipOrder.currencyCode+'#39' '#39'+currency.currencyName as cu' +
        'rrencyflag,'
      '       Dept.DeptName,'
      '       sa_ShipOrder.SaleDeptCode+'#39' '#39'+Dept.DeptName as Deptflag,'
      '       Employee.EmployeeName,'
      
        '       sa_ShipOrder.SaleEmployeeCode+'#39' '#39'+Employee.EmployeeName a' +
        's Employeeflag,'
      '       PayTerm.PayTermName,'
      
        '       sa_ShipOrder.PayTermCode+'#39' '#39'+PayTerm.PayTermName as Payte' +
        'rmflag,'
      '       ShipMode.ShipModeName,'
      
        '       sa_ShipOrder.ShipModeCode+'#39' '#39'+ShipMode.ShipModeName as sh' +
        'iPmodeflag,'
      '       SaleType.SaleTypeName,'
      
        '       sa_ShipOrder.SaleTypeCode+'#39' '#39'+SaleType.SaleTypeName as sa' +
        'leTypeflag'
      'From Sa_ShipOrder'
      'Join Dept'
      '  On Dept.DeptCode=Sa_ShipOrder.SaleDeptCode'
      'Join Employee'
      '  On Employee.EmployeeCode=Sa_ShipOrder.SaleEmployeeCode'
      'Join PayTerm'
      '  On PayTerm.PayTermCode=Sa_ShipOrder.PayTermCode'
      'join ShipMode'
      '  on sa_ShipOrder.ShipModeCode=ShipMode.ShipModeCode'
      'join currency '
      '  on sa_ShipOrder.currencyCode=currency.currencyCode'
      'join SaleType'
      ' on sa_ShipOrder.SaleTypeCode=SaleType.SaleTypeCode')
    Left = 280
    Top = 161
    object AdoQry_MainShipNo: TStringField
      DisplayLabel = '销售发货单号'
      FieldName = 'InvBillNo'
      Origin = '#dddd'
      Size = 16
    end
    object AdoQry_MainInvoiceNo: TStringField
      DisplayLabel = '发票号'
      FieldName = 'InvoiceNo'
      Origin = '#dddd'
      Size = 16
    end
    object AdoQry_MainSaleDeptCode: TStringField
      DisplayLabel = '销售部门代码'
      FieldName = 'DeptCode'
      Origin = '#dddd'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = '销售部门名称'
      FieldName = 'DeptName'
      Origin = '#dddd'
      Size = 40
    end
    object AdoQry_MainSaleEmployeeCode: TStringField
      DisplayLabel = '营销业务员代码'
      FieldName = 'SaleEmployeeCode'
      Origin = '#dddd'
      Size = 30
    end
    object AdoQry_MainEmployeeName: TStringField
      DisplayLabel = '营销业务员名称'
      FieldName = 'EmployeeName'
      Origin = '#dddd'
      Size = 60
    end
    object AdoQry_MainPayTermName: TStringField
      DisplayLabel = '付款条款名称'
      FieldName = 'PayTermName'
      Origin = '#dddd'
      Size = 30
    end
    object AdoQry_MainPayTermCode: TStringField
      DisplayLabel = '付款条款代码'
      FieldName = 'PayTermCode'
      Origin = '#dddd'
      Size = 3
    end
    object AdoQry_Maincheckflag: TIntegerField
      DisplayLabel = '标记'
      FieldName = 'checkflag'
      Origin = '#dddd'
    end
    object AdoQry_MainCustomerCode: TStringField
      DisplayLabel = '客户代码'
      FieldName = 'CustomerCode'
      Origin = '#dddd'
      Size = 12
    end
    object AdoQry_MainShipModeCode: TStringField
      DisplayLabel = '发货方式代码'
      FieldName = 'ShipModeCode'
      Origin = '#dddd'
      Size = 6
    end
    object AdoQry_MainSaleTypeCode: TStringField
      DisplayLabel = '销售类型代码'
      FieldName = 'SaleType'
      Origin = '#dddd'
      Size = 6
    end
    object AdoQry_MainCurrencyCode: TStringField
      DisplayLabel = '货币代码'
      FieldName = 'CurrencyCode'
      Origin = '#dddd'
      Size = 2
    end
    object AdoQry_MainTaxRate_Percent: TFloatField
      DisplayLabel = '销售税率'
      FieldName = 'InvBillTaxRate'
      Origin = '#dddd'
    end
    object AdoQry_MainTotalNoTaxAmount: TFloatField
      DisplayLabel = '未税金额'
      FieldName = 'TotalInvBillNoTaxAmount'
      Origin = '#dddd'
    end
    object AdoQry_MainTotalTaxAmount: TFloatField
      DisplayLabel = '含税金额'
      FieldName = 'TotalInvBillAmount'
      Origin = '#dddd'
    end
    object AdoQry_MainRemArk: TStringField
      DisplayLabel = '备注'
      FieldName = 'RemArk'
      Origin = '#dddd'
      Size = 60
    end
    object AdoQry_MaincurrencyName: TStringField
      DisplayLabel = '货币名称'
      FieldName = 'currencyName'
      Origin = '#dddd'
      Size = 30
    end
    object AdoQry_Maincurrencyflag: TStringField
      DisplayLabel = '货币标识'
      FieldName = 'currencyflag'
      Origin = '#dddd'
      ReadOnly = True
      Size = 33
    end
    object AdoQry_MainDeptflag: TStringField
      DisplayLabel = '销售部门标识'
      FieldName = 'Deptflag'
      Origin = '#dddd'
      ReadOnly = True
      Size = 49
    end
    object AdoQry_MainEmployeeflag: TStringField
      DisplayLabel = '营销业务员标识'
      FieldName = 'Employeeflag'
      Origin = '#dddd'
      ReadOnly = True
      Size = 91
    end
    object AdoQry_MainPayTermflag: TStringField
      DisplayLabel = '付款条款标识'
      FieldName = 'PayTermflag'
      Origin = '#dddd'
      ReadOnly = True
      Size = 34
    end
    object AdoQry_MainShipModeName: TStringField
      DisplayLabel = '发货方式名称'
      FieldName = 'ShipModeName'
      Origin = '#dddd'
      Size = 120
    end
    object AdoQry_MainShipModeflag: TStringField
      DisplayLabel = '发货方式标识'
      FieldName = 'ShipModeflag'
      Origin = '#dddd'
      ReadOnly = True
      Size = 127
    end
    object AdoQry_MainSaleTypeName: TStringField
      DisplayLabel = '销售类型名称'
      FieldName = 'SaleTypeName'
      Origin = '#dddd'
      Size = 30
    end
    object AdoQry_MainSaleTypeflag: TStringField
      DisplayLabel = '销售类型标识'
      FieldName = 'SaleTypeflag'
      Origin = '#dddd'
      ReadOnly = True
      Size = 37
    end
    object AdoQry_MainCreateDate: TDateTimeField
      DisplayLabel = '发货日期'
      FieldName = 'InvBillDate'
      Origin = '#dddd'
    end
    object AdoQry_MaInBillTypeCode: TStringField
      DisplayLabel = '单据类型'
      FieldName = 'BillTypeCode'
    end
  end
  inherited DataSource: TDataSource
    Left = 472
    Top = 73
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 120
    Top = 137
  end
  inherited PopuPmenu: TPopuPmenu
    Left = 208
    Top = 193
  end
end