ar_enter_saleinvoice4_c1.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_SaleInvoice4_C1: TFrm_Ar_Enter_SaleInvoice4_C1
  Left = 107
  Top = 148
  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 = 311
      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 = 220
      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.Caption = '标记'
          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
          Title.Caption = '退货日期'
          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 = (
            '材料销售发货'
            '产品销售发货')
          Title.Caption = '单据类型'
          Width = 88
          KeyList.Strings = (
            '0205'
            '0206')
        end
        Item
          FieldName = 'currencyflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '货币标识'
          Width = 60
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInvBillAmount'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '含税金额'
          Width = 72
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalInvBillNoTaxAmount'
          PickList.Strings = ()
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '未税金额'
          Width = 61
          KeyList.Strings = ()
        end
        Item
          FieldName = 'SaleTypeflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '销售类型标识'
          Width = 83
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Deptflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '部门标识'
          Width = 117
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Employeeflag'
          PickList.Strings = ()
          Title.Caption = '营销业务员标识'
          Width = 91
          KeyList.Strings = ()
        end
        Item
          FieldName = 'InvBilltaxrate'
          PickList.Strings = ()
          ReadOnly = True
          Title.Caption = '税率'
          Width = 58
          KeyList.Strings = ()
        end
        Item
          FieldName = 'PayTermflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '付款条款标识'
          Width = 87
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ShipModeflag'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.Caption = '发货方式标识'
          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=Mrpii_kelong;Data Source=192.168' +
      '.0.100;Use procedure for Prepare=1;Auto Translate=True;Packet Si' +
      'ze=4096;Workstation ID=XYB'
    CurSorType = ctStatic
    SQL.Strings = (
      ''
      'Select checkflag=1,  '
      '                       InvOutBill.* ,           '
      '                       currency.currencyName,      '
      
        '                       InvOutBill.currencyCode+'#39' '#39'+currency.curr' +
        'encyName as currencyflag, '
      '                       Dept.DeptName,  '
      
        '                       InvOutBill.DeptCode+'#39' '#39'+Dept.DeptName as ' +
        'Deptflag,  '
      
        '                       Employee.EmployeeName,                   ' +
        '                   '
      
        '                       InvOutBill.SaleEmployeeCode+'#39' '#39'+Employee.' +
        'EmployeeName as Employeeflag, '
      '                       PayTerm.PayTermName,'
      
        '                       InvOutBill.PayTermCode+'#39' '#39'+PayTerm.Payter' +
        'mName as PayTermflag, '
      '                       ShipMode.ShipModeName,      '
      
        '                       InvOutBill.ShipModeCode+'#39' '#39'+ShipMode.Ship' +
        'modeName as ShipModeflag, '
      '                       SaleType.SaleTypeName,    '
      
        '                       InvOutBill.SaleType+'#39' '#39'+SaleType.SaleType' +
        'Name as SaleTypeflag  '
      '--                  into #rddd  '
      '                From InvOutBill              '
      '                left Join Dept                      '
      '                  On Dept.DeptCode=InvOutBill.DeptCode  '
      
        '                left Join Employee                              ' +
        '   '
      
        '                  On Employee.EmployeeCode=InvOutBill.SaleEmploy' +
        'eeCode  '
      
        '                left Join PayTerm                               ' +
        '      '
      '                  On PayTerm.PayTermCode=InvOutBill.PayTermCode '
      
        '                left join ShipMode                              ' +
        '       '
      
        '                  on InvOutBill.ShipModeCode=ShipMode.ShipModeco' +
        'de '
      
        '                left join currency                              ' +
        '          '
      
        '                  on InvOutBill.currencyCode=currency.currencyco' +
        'de '