fnedexpensefrg.dfm

详细的ERP设计资料

inherited FNEdExpenseFRGForm: TFNEdExpenseFRGForm
  Left = 7
  Top = 111
  Width = 801
  Height = 527
  Caption = #25253#38144#30003#35831#21333
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label8: TLabel [0]
    Left = 124
    Top = 121
    Width = 36
    Height = 12
    Caption = #25240#25187#29575
    FocusControl = DBEdit2
  end
  inherited DBGrid: TQLDBGrid
    Top = 219
    Width = 793
    Height = 238
    Columns = <
      item
        Expanded = False
        FieldName = 'Expense'
        Title.Alignment = taCenter
        Width = 160
        Visible = True
        ControlType = ctCustomControl
        CustomControl = LookExpenseID
      end
      item
        Expanded = False
        FieldName = 'Amount'
        Title.Alignment = taCenter
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BillCode'
        Title.Alignment = taCenter
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'AmountB'
        Title.Alignment = taCenter
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Client'
        Title.Alignment = taCenter
        Visible = True
        ControlType = ctCustomControl
        CustomControl = ClientLKUP
      end
      item
        Expanded = False
        FieldName = 'Project'
        Title.Alignment = taCenter
        Visible = True
        ControlType = ctCustomControl
        CustomControl = ProjectLKUP
      end
      item
        Expanded = False
        FieldName = 'Assets'
        Title.Alignment = taCenter
        Visible = True
        ControlType = ctCustomControl
        CustomControl = AssetsLKUP
      end
      item
        Expanded = False
        FieldName = 'ApportionMode'
        Title.Alignment = taCenter
        Width = 60
        Visible = True
        ControlType = ctCustomControl
        CustomControl = ApportionModeQLLkup
      end
      item
        Expanded = False
        FieldName = 'Memo'
        Title.Alignment = taCenter
        Width = 160
        Visible = True
      end>
  end
  inherited ToolBar: TToolBar
    Width = 793
  end
  inherited TopPanel: TPanel
    Width = 793
    Height = 190
    inherited RemarkLabel: TLabel
      Left = 18
      Top = 127
      Width = 24
      Caption = #22791#27880
    end
    inherited VoucherNoLabel: TLabel
      Left = 361
      Top = 5
      Width = 24
      Caption = #32534#21495
    end
    inherited VoucherDateLabel: TLabel
      Left = 516
      Top = 5
      Width = 24
      Caption = #26085#26399
    end
    object Label1: TLabel [3]
      Left = 18
      Top = 5
      Width = 60
      Height = 12
      Caption = #25253#38144#21463#27454#20154
    end
    object Label2: TLabel [4]
      Left = 361
      Top = 45
      Width = 36
      Height = 12
      Caption = #32463#25163#20154
    end
    object Label3: TLabel [5]
      Left = 516
      Top = 45
      Width = 48
      Height = 12
      Caption = #19994#21153#31867#21035
    end
    object Label5: TLabel [6]
      Left = 440
      Top = 169
      Width = 72
      Height = 12
      Caption = #20854#23427#24212#20184#20313#39069
    end
    object Label6: TLabel [7]
      Left = 18
      Top = 45
      Width = 48
      Height = 12
      Caption = #19994#21153#25688#35201
    end
    object Label7: TLabel [8]
      Left = 361
      Top = 88
      Width = 48
      Height = 12
      Caption = #20184#27454#37329#39069
      FocusControl = DBEdit2
    end
    object Label9: TLabel [9]
      Left = 18
      Top = 88
      Width = 48
      Height = 12
      Caption = #20184#27454#24080#25143
      FocusControl = DBEdit2
    end
    object Label4: TLabel [10]
      Left = 516
      Top = 88
      Width = 48
      Height = 12
      Hint = #25269#28040#20197#21069#30340#24080#27454#20313#39069#25968#25110#32773#35843#25972#24080#39033#12290
      Caption = #20914#24080#37329#39069
      FocusControl = DBEdit2
    end
    object Label10: TLabel [11]
      Left = 363
      Top = 127
      Width = 48
      Height = 12
      Caption = #22806#24065#37329#39069
      FocusControl = DBEdit2
    end
    object Label11: TLabel [12]
      Left = 518
      Top = 127
      Width = 48
      Height = 12
      Hint = #25269#28040#20197#21069#30340#24080#27454#20313#39069#25968#25110#32773#35843#25972#24080#39033#12290
      Caption = #22806#24065#27719#29575
      FocusControl = DBEdit2
    end
    inherited RemarkDBEdit: TDBEdit
      Left = 18
      Top = 142
      Width = 328
      DataField = 'Memo'
      TabOrder = 10
    end
    inherited VocherNoDBEdit: TDBEdit
      Left = 361
      Top = 20
      Width = 140
      DataField = 'Code'
    end
    inherited DateDBEdit: TDBEdit
      Left = 516
      Top = 20
      Width = 140
      DataField = 'Date'
    end
    object DBEdit2: TDBEdit
      Left = 361
      Top = 103
      Width = 120
      Height = 20
      DataField = 'AmountC'
      DataSource = MasterDataSource
      TabOrder = 7
    end
    object ClientQLDBLookup: TQLDBLookupComboBox
      Left = 18
      Top = 21
      Width = 328
      Height = 18
      BevelEdges = []
      BevelInner = bvSpace
      BevelKind = bkTile
      BevelOuter = bvSpace
      Ctl3D = False
      DataField = 'ClientID'
      DataSource = MasterDataSource
      DropDownRows = 10
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DSClientName
      OnEnter = ClientQLDBLookupEnter
      OnExit = ClientQLDBLookupExit
      ParentCtl3D = False
      TabOrder = 0
      ButtonHeight = 22
      SearchMode = smLocate
      SearchType = stAuto
      VisibleButtons = [lbSetNull]
    end
    object EmployeeLookup: TQLDBLookupComboBox
      Left = 361
      Top = 61
      Width = 140
      Height = 18
      BevelEdges = []
      BevelInner = bvSpace
      BevelKind = bkTile
      BevelOuter = bvSpace
      Ctl3D = False
      DataField = 'EmployeeID'
      DataSource = MasterDataSource
      DropDownRows = 10
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DSEmployeeName
      ParentCtl3D = False
      TabOrder = 4
      ButtonHeight = 22
      SearchMode = smLocate
      SearchType = stAuto
      VisibleButtons = [lbSetNull]
    end
    object DBEdit1: TDBEdit
      Left = 516
      Top = 60
      Width = 140
      Height = 20
      DataField = 'BillMode'
      DataSource = MasterDataSource
      ReadOnly = True
      TabOrder = 5
    end
    object LookUpAccount: TQLDBLookupComboBox
      Left = 18
      Top = 103
      Width = 328
      Height = 18
      BevelEdges = []
      BevelInner = bvSpace
      BevelKind = bkTile
      BevelOuter = bvSpace
      Ctl3D = False
      DataField = 'AccountsID'
      DataSource = MasterDataSource
      DropDownRows = 10
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = dsAccounts
      OnExit = LookUpAccountExit
      ParentCtl3D = False
      TabOrder = 6
      ButtonHeight = 22
      SearchMode = smLocate
      SearchType = stAuto
      VisibleButtons = [lbSetNull]
    end
    object BitBtn1: TBitBtn
      Left = 483
      Top = 103
      Width = 18
      Height = 20
      Hint = #28857#20987#21487#20197#33719#21462#21407#21333#25454#32467#31639#30340#37329#39069#12290
      Caption = '....'
      TabOrder = 8
      OnClick = BitBtn1Click
    end
    object DBEdit3: TDBEdit
      Left = 516
      Top = 103
      Width = 140
      Height = 20
      DataField = 'AmountRed'
      DataSource = MasterDataSource
      TabOrder = 9
    end
    object BriefComboBox: TDBComboBox
      Left = 18
      Top = 60
      Width = 328
      Height = 20
      DataField = 'Brief'
      DataSource = MasterDataSource
      ItemHeight = 12
      TabOrder = 3
    end
    object DBEdit4: TDBEdit
      Left = 361
      Top = 142
      Width = 140
      Height = 20
      DataField = 'AmountOrigin'
      DataSource = MasterDataSource
      ReadOnly = True
      TabOrder = 11
      OnExit = DBEdit4Exit
    end
    object DBEdit5: TDBEdit
      Left = 516
      Top = 142
      Width = 140
      Height = 20
      DataField = 'AmountRate'
      DataSource = MasterDataSource
      ReadOnly = True
      TabOrder = 12
    end
  end
  inherited StatusBar1: TStatusBar
    Top = 457
    Width = 793
    Height = 24
  end
  object GEdit1: TGEdit [5]
    Left = 516
    Top = 194
    Width = 140
    Height = 20
    AutoSelect = True
    Enabled = False
    TabOrder = 4
    Text = '0.00'
    Alignment = taRightJustify
    Currency = False
    Warning = #36755#20837#30340#25968#23383#38169#35823#65292#35831#37325#26032#36755#20837#25968#25454
    NeedWarning = True
    WarningFocus = True
  end
  object ClientLKUP: TQLDBLookupComboBox [6]
    Left = 240
    Top = 256
    Width = 121
    Height = 18
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    Ctl3D = False
    DataField = 'ClientID'
    DataSource = DetailDataSource
    DropDownRows = 10
    KeyField = 'ID'
    ListField = 'Name'
    ListSource = ClientDS
    ParentCtl3D = False
    TabOrder = 5
    Visible = False
    ButtonHeight = 22
    SearchMode = smLocate
    SearchType = stAuto
    VisibleButtons = [lbSetNull]
  end
  object LookExpenseID: TQLDBLookupComboBox [7]
    Left = 16
    Top = 249
    Width = 161
    Height = 18
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    Ctl3D = False
    DataField = 'ExpenseID'
    DataSource = DetailDataSource
    DropDownRows = 10
    KeyField = 'ID'
    ListField = 'Name'
    ListSource = ExpenseDS
    ParentCtl3D = False
    TabOrder = 6
    Visible = False
    ButtonHeight = 22
    SearchMode = smLocate
    SearchType = stAuto
    VisibleButtons = [lbSetNull]
  end
  object AssetsLKUP: TQLDBLookupComboBox [8]
    Left = 576
    Top = 272
    Width = 121
    Height = 18
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    Ctl3D = False
    DataField = 'GoodsID'
    DataSource = DetailDataSource
    DropDownRows = 10
    KeyField = 'ID'
    ListField = 'Name'
    ListSource = AssetsDS
    ParentCtl3D = False
    TabOrder = 7
    Visible = False
    ButtonHeight = 22
    SearchMode = smLocate
    SearchType = stAuto
    VisibleButtons = [lbSetNull]
  end
  object ProjectLKUP: TQLDBLookupComboBox [9]
    Left = 368
    Top = 256
    Width = 121
    Height = 18
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    Ctl3D = False
    DataField = 'ProjectID'
    DataSource = DetailDataSource
    DropDownRows = 10
    KeyField = 'ID'
    ListField = 'Name'
    ListSource = ProjectDS
    ParentCtl3D = False
    TabOrder = 8
    Visible = False
    ButtonHeight = 22
    SearchMode = smLocate
    SearchType = stAuto
    VisibleButtons = [lbSetNull]
  end
  object ApportionModeQLLkup: TQLDBLookupComboBox [10]
    Left = 480
    Top = 312
    Width = 121