ap_invoice.dfm

一个MRPII系统源代码版本

      TabOrder = 10
      OnExit = Edt_ApInvoiceTaxExit
    end
    object Edt_ApInvoiceAmount: TEdit
      Left = 629
      Top = 62
      Width = 73
      Height = 20
      TabOrder = 11
      OnExit = Edt_ApInvoiceAmountExit
    end
    object Lbl_EmployeeCode: TEdit
      Left = 108
      Top = 88
      Width = 29
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 12
    end
    object Lbl_EmployeeName: TEdit
      Left = 139
      Top = 88
      Width = 69
      Height = 20
      TabStop = False
      ReadOnly = True
      TabOrder = 13
    end
    object Edt_ApInvoiceRemArk: TEdit
      Left = 299
      Top = 88
      Width = 404
      Height = 20
      MaxLength = 158
      TabOrder = 14
    end
  end
  inherited Pnl_Hint: TPanel
    Top = 459
    Width = 791
    Height = 21
    BevelOuter = bvRaised
    inherited Image4: TImage
      Left = 1
      Top = 1
      Width = 789
      Height = 19
    end
  end
  inherited Pnl_Body: TPanel
    Top = 171
    Width = 791
    Height = 288
    BevelOuter = bvRaised
    inherited Image3: TImage
      Left = 417
      Top = 29
      Width = 373
      Height = 258
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 789
      Height = 28
      Align = alTop
      Alignment = taLeftJustify
      BevelOuter = bvSpace
      Caption = '   '#21457#31080#23545#24212#30340#20837#24211#21333#65306
      TabOrder = 0
      object Label10: TLabel
        Left = 530
        Top = 8
        Width = 60
        Height = 12
        Caption = #20837#24211#21333#21495#65306
      end
      object Edit2: TEdit
        Left = 588
        Top = 4
        Width = 81
        Height = 20
        TabOrder = 0
        OnExit = Edit2Exit
      end
    end
    object Panel2: TPanel
      Left = 1
      Top = 29
      Width = 416
      Height = 258
      Align = alLeft
      Caption = 'Panel2'
      TabOrder = 1
      object DBGridEh1: TDBGridEh
        Left = 1
        Top = 1
        Width = 414
        Height = 256
        Align = alClient
        Ctl3D = False
        DataSource = DS_AdoQry_Main
        Flat = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        ParentCtl3D = False
        ParentFont = False
        RowHeight = 19
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        TitleHeight = 19
        VTitleMargin = 3
        OnDblClick = DBGridEh1DblClick
        OnDrawDataCell = DBGridEhDrawDataCell
        OnEnter = DBGridEh1Enter
        OnGetCellParams = DBGridEhGetCellParams
        OnMouseUp = DBGridEh1MouseUp
        Columns = <
          item
            EditButtons = <>
            FieldName = 'whCodeName'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #20179#24211#26631#35782
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'InvBilldate'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21333#25454#26085#26399
            Width = 69
          end
          item
            EditButtons = <>
            FieldName = 'InvBillno'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #20837#24211#21333#25454#21495
            Width = 81
          end
          item
            EditButtons = <>
            FieldName = 'InvBillNoTaxAmount'
            Footers = <>
            Title.Alignment = taCenter
            Title.Caption = #21333#25454#26410#31246#37329#39069
            Width = 90
          end
          item
            Checkboxes = True
            EditButtons = <>
            FieldName = 'InvBillfinchck'
            Footers = <>
            KeyList.Strings = (
              '1'
              '0')
            Title.Alignment = taCenter
            Title.Caption = #21305#37197
            Width = 62
          end>
      end
    end
    object Panel3: TPanel
      Left = 417
      Top = 29
      Width = 373
      Height = 258
      Align = alClient
      Caption = 'Panel3'
      TabOrder = 2
      object Panel4: TPanel
        Left = 1
        Top = 226
        Width = 371
        Height = 31
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 0
        object Label15: TLabel
          Left = 12
          Top = 9
          Width = 96
          Height = 12
          Caption = #20837#24211#21333#36135#27454#37329#39069#65306
        end
        object Label17: TLabel
          Left = 186
          Top = 9
          Width = 84
          Height = 12
          Caption = #36135#27454#37329#39069#24046#24322#65306
        end
        object Lbl_Diff: TLabel
          Left = 269
          Top = 6
          Width = 8
          Height = 16
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label18: TLabel
          Left = 104
          Top = 7
          Width = 8
          Height = 16
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
      end
      object ListBox1: TListBox
        Left = 1
        Top = 1
        Width = 371
        Height = 225
        Align = alClient
        ItemHeight = 12
        TabOrder = 1
      end
    end
  end
  inherited AdoQry_Tmp: TADOQuery
    CursorType = ctDynamic
    LockType = ltBatchOptimistic
    Prepared = True
    SQL.Strings = (
      'select * from ApInvoice')
    Left = 344
    Top = 0
  end
  inherited ActionList: TActionList
    Left = 400
    Top = 0
    inherited Act_New: TAction
      OnExecute = TlBtn_NewClick
    end
    inherited Act_Modify: TAction
      OnExecute = Act_ModifyExecute
    end
    inherited Act_Delete: TAction
      OnExecute = TlBtn_DeleteClick
    end
    inherited Act_Save: TAction
      OnExecute = TlBtn_SaveClick
    end
    inherited Act_Locate: TAction
      OnExecute = TlBtn_QuryClick
    end
    inherited Act_Cancel: TAction
      OnExecute = Act_CancelExecute
    end
    inherited Act_Look: TAction
      OnExecute = tlbtn_lookClick
    end
    inherited Action3: TAction
      Caption = #26242#23384
      Hint = #26242#23384
      OnExecute = TlBtn_PerSaveClick
    end
    object Action4: TAction
      Caption = 'Action4'
      ShortCut = 120
      OnExecute = Action4Execute
    end
  end
  object AdoQry_ApInvoice: TADOQuery
    CursorType = ctDynamic
    LockType = ltBatchOptimistic
    EnableBCD = False
    ParamCheck = False
    Parameters = <>
    Prepared = True
    Left = 610
    Top = 7
  end
  object DS_AdoQry_Main: TDataSource
    DataSet = AdoQry_Main
    Left = 490
    Top = 2
  end
  object AdoQry_ApInvoiceLine: TADOQuery
    CursorType = ctDynamic
    LockType = ltBatchOptimistic
    EnableBCD = False
    Parameters = <>
    Prepared = True
    Left = 434
    Top = 65535
  end
  object AdoQry_Main: TADOQuery
    CacheSize = 1000
    CursorType = ctDynamic
    LockType = ltBatchOptimistic
    BeforeOpen = AdoQry_MainBeforeOpen
    EnableBCD = False
    Parameters = <>
    Prepared = True
    Left = 522
    Top = 2
    object AdoQry_MainwhCodeName: TStringField
      FieldName = 'whCodeName'
      Size = 45
    end
    object AdoQry_MainInvBillid: TBCDField
      FieldName = 'InvBillid'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object AdoQry_MainInvBilldate: TDateTimeField
      FieldName = 'InvBilldate'
    end
    object AdoQry_MainInvBillno: TStringField
      FieldName = 'InvBillno'
      Size = 10
    end
    object AdoQry_MainInvBillNoTaxAmount: TBCDField
      FieldName = 'InvBillNoTaxAmount'
      ReadOnly = True
      Precision = 32
      Size = 2
    end
    object AdoQry_MainInvBillfinchck: TIntegerField
      FieldName = 'InvBillfinchck'
      OnChange = AdoQry_MainInvBillFinChckChange
    end
  end
end