ar_enter_arap.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_ArAp: TFrm_Ar_Enter_ArAp
  Left = 47
  Top = 115
  Caption = '应收帐款--应付帐款对冲'
  ClientWidth = 750
  PixelsPerInch = 96
  TextHeight = 12
  inherited ControlBar: TControlBar
    Width = 750
  end
  inherited Pnl_Title: TPanel
    Width = 750
    Caption = '应收帐款--应付帐款对冲'
    inherited Image2: TImage
      Width = 750
    end
  end
  inherited Pnl_Head: TPanel
    Width = 750
    Height = 110
    inherited Image1: TImage
      Width = 750
      Height = 110
    end
    object Label1: TLabel
      Left = 11
      Top = 15
      Width = 60
      Height = 12
      Caption = '对冲序号：'
      TransParent = True
    end
    object Label2: TLabel
      Left = 527
      Top = 15
      Width = 84
      Height = 12
      Caption = '销售发票单号：'
      TransParent = True
    end
    object Label3: TLabel
      Left = 11
      Top = 38
      Width = 60
      Height = 12
      Caption = '对冲日期：'
      TransParent = True
    end
    object Label4: TLabel
      Left = 29
      Top = 83
      Width = 42
      Height = 12
      Caption = '备 注：'
      TransParent = True
    end
    object Lbl_DeptName: TLabel
      Left = 285
      Top = 15
      Width = 6
      Height = 12
      Visible = False
    end
    object Label6: TLabel
      Left = 385
      Top = 38
      Width = 60
      Height = 12
      Caption = '对冲金额：'
      TransParent = True
    end
    object Lbl_SaleType: TLabel
      Left = 245
      Top = 50
      Width = 6
      Height = 12
      TransParent = True
      Visible = False
    end
    object Label8: TLabel
      Left = 204
      Top = 15
      Width = 60
      Height = 12
      Caption = '销售客户：'
      TransParent = True
    end
    object Label5: TLabel
      Left = 204
      Top = 38
      Width = 60
      Height = 12
      Caption = '发票金额：'
      TransParent = True
    end
    object Label11: TLabel
      Left = 35
      Top = 60
      Width = 36
      Height = 12
      Caption = '货币：'
      TransParent = True
    end
    object Label12: TLabel
      Left = 575
      Top = 38
      Width = 36
      Height = 12
      Caption = '汇率：'
      TransParent = True
    end
    object Edt_ArApno: TEdit
      Left = 70
      Top = 10
      Width = 108
      Height = 20
      TabOrder = 0
    end
    object Medt_Createdate: TMaskEdit
      Left = 70
      Top = 33
      Width = 108
      Height = 20
      EditMask = '!9999.99.99;1;'
      MaxLength = 10
      TabOrder = 4
      Text = '    .  .  '
      OnExit = DateCheck
    end
    object Edt_MoRemArk: TEdit
      Left = 70
      Top = 79
      Width = 448
      Height = 20
      MaxLength = 150
      TabOrder = 10
    end
    object edt_CancelAmount: TEdit
      Left = 447
      Top = 33
      Width = 70
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 6
      OnExit = FloatCheck
    end
    object edt_TotalAmount: TExtEdit
      Left = 264
      Top = 33
      Width = 96
      Height = 20
      Enabled = False
      TabOrder = 5
      OnExit = FloatCheck
      DispLabel = Lbl_SaleType
    end
    object edt_CustomerName: TEdit
      Left = 316
      Top = 10
      Width = 201
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 2
    end
    object edt_CurrencyName: TEdit
      Left = 122
      Top = 56
      Width = 56
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 9
    end
    object edt_rate: TEdit
      Left = 609
      Top = 33
      Width = 96
      Height = 20
      Enabled = False
      MaxLength = 150
      TabOrder = 7
      OnExit = FloatCheck
    end
    object edt_CustomerCode: TLinkEdit
      Left = 264
      Top = 10
      Width = 50
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 1
      OnButtonClick = CustomerHint1
      OnExit = edt_CustomerCodeExit
      OnKeyDown = CustomerHint
    end
    object edt_CurrencyCode: TLinkEdit
      Left = 70
      Top = 56
      Width = 50
      Height = 20
      Enabled = False
      LinkStyle = lsEllipsis
      TabOrder = 8
      OnButtonClick = CurrencyHint1
      OnExit = edt_CurrencyCodeExit
      OnKeyDown = CurrencyHint
    end
    object cmb_Invoiceno: TLinkEdit
      Left = 609
      Top = 10
      Width = 97
      Height = 20
      LinkStyle = lsEllipsis
      TabOrder = 3
      OnButtonClick = cmb_InvoicenoButtonClick
      OnExit = cmb_InvoicenoExit
      OnKeyDown = cmb_InvoicenoKeyDown
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 441
    Width = 750
    Height = 27
    inherited Image4: TImage
      Width = 750
      Height = 27
    end
  end
  inherited Pnl_Body: TPanel
    Top = 167
    Width = 750
    Height = 274
    inherited Image3: TImage
      Width = 750
      Height = 274
    end
    inherited DBGridEh: TDBGridEh
      Width = 750
      Height = 274
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      Columns = <
        Item
          FieldName = 'ApInvOICENO'
          PickList.Strings = ()
          Width = 69
          KeyList.Strings = ()
        end
        Item
          FieldName = 'TotalAmount'
          PickList.Strings = ()
          Width = 53
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ReMainTotalAmount'
          PickList.Strings = ()
          Width = 41
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ThiSCancelAmount'
          PickList.Strings = ()
          Width = 86
          KeyList.Strings = ()
        end
        Item
          FieldName = 'ApInvoicedate'
          PickList.Strings = ()
          Width = 69
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 373
    Top = 259
  end
  inherited ActionList: TActionList
    Left = 261
    Top = 288
  end
  inherited AdoQry_Body: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=mdysjmrm;Data Source=ZHENGJIArON' +
      'G'
    SQL.Strings = (
      'select sa_ArApline.*,'
      '       ApInvoice.ApInvoicedate'
      'from sa_ArApline'
      'join  ApInvoice on sa_ArApline.ApInvoiceno=ApInvoice.ApInvoiceno')
    Left = 232
    Top = 217
    object AdoQry_BodyArApNo: TStringField
      DisplayLabel = '对冲序号'
      FieldName = 'ArApNo'
      Size = 16
    end
    object AdoQry_BodyApInvOICENO: TStringField
      DisplayLabel = '采购发票号'
      FieldName = 'ApInvOICENO'
    end
    object AdoQry_BodyTotalAmount: TFloatField
      DisplayLabel = '金额'
      FieldName = 'TotalAmount'
    end
    object AdoQry_BodyReMainTotalAmount: TFloatField
      DisplayLabel = '余额'
      FieldName = 'ReMainTotalAmount'
    end
    object AdoQry_BodyThiSCancelAmount: TFloatField
      DisplayLabel = '本次对冲金额'
      FieldName = 'ThiSCancelAmount'
    end
    object AdoQry_BodyApInvoicedate: TDateTimeField
      DisplayLabel = '发票日期'
      FieldName = 'ApInvoicedate'
    end
  end
  inherited DataSource: TDataSource
    Left = 296
    Top = 225
  end
  inherited ExtPrintReport: TExtPrintReport
    Left = 176
    Top = 265
  end
end