fnedcashoutin.dfm

详细的ERP设计资料

inherited FNEdCashOutInForm: TFNEdCashOutInForm
  Left = 52
  Top = 77
  Width = 712
  Height = 461
  Caption = #36164#37329#35843#21160#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 = 195
    Width = 704
    Height = 196
    Columns = <
      item
        Expanded = False
        FieldName = 'Poclear'
        Title.Alignment = taCenter
        Width = 140
        Visible = True
        ControlType = ctCustomControl
        CustomControl = PoclearLookup
      end
      item
        Expanded = False
        FieldName = 'Amount'
        Title.Alignment = taCenter
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CheckNo'
        Title.Alignment = taCenter
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BillCode'
        Title.Alignment = taCenter
        Width = 140
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Memo'
        Title.Alignment = taCenter
        Width = 200
        Visible = True
      end>
  end
  inherited ToolBar: TToolBar
    Width = 704
  end
  inherited TopPanel: TPanel
    Width = 704
    Height = 166
    inherited RemarkLabel: TLabel
      Left = 17
      Top = 120
      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 = 45
      Width = 48
      Height = 12
      Caption = #35843#20986#24080#25143
    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 Label6: TLabel [6]
      Left = 18
      Top = 5
      Width = 48
      Height = 12
      Caption = #19994#21153#25688#35201
    end
    object Label7: TLabel [7]
      Left = 361
      Top = 82
      Width = 48
      Height = 12
      Caption = #35843#21160#37329#39069
      FocusControl = DBEdit2
    end
    object Label9: TLabel [8]
      Left = 17
      Top = 82
      Width = 48
      Height = 12
      Caption = #35843#20837#24080#25143
      FocusControl = DBEdit2
    end
    inherited RemarkDBEdit: TDBEdit
      Left = 17
      Top = 134
      Width = 328
      DataField = 'Memo'
      TabOrder = 8
    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 = 96
      Width = 140
      Height = 20
      DataField = 'AmountD'
      DataSource = MasterDataSource
      TabOrder = 7
    end
    object ClientQLDBLookup: TQLDBLookupComboBox
      Left = 18
      Top = 58
      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
      ParentCtl3D = False
      TabOrder = 3
      ButtonHeight = 22
      SearchMode = smLocate
      SearchType = stAuto
      VisibleButtons = [lbSetNull]
    end
    object EmployeeLookup: TQLDBLookupComboBox
      Left = 361
      Top = 58
      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 = 58
      Width = 140
      Height = 20
      DataField = 'BillMode'
      DataSource = MasterDataSource
      ReadOnly = True
      TabOrder = 5
    end
    object LookUpAccount: TQLDBLookupComboBox
      Left = 17
      Top = 96
      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
      ParentCtl3D = False
      TabOrder = 6
      ButtonHeight = 22
      SearchMode = smLocate
      SearchType = stAuto
      VisibleButtons = [lbSetNull]
    end
    object BriefComboBox: TDBComboBox
      Left = 18
      Top = 20
      Width = 328
      Height = 20
      DataField = 'Brief'
      DataSource = MasterDataSource
      ItemHeight = 12
      TabOrder = 0
    end
  end
  inherited StatusBar1: TStatusBar
    Top = 391
    Width = 704
    Height = 24
  end
  object PoclearLookup: TQLDBLookupComboBox [5]
    Left = 21
    Top = 208
    Width = 132
    Height = 18
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    Ctl3D = False
    DataField = 'PoClearID'
    DataSource = DetailDataSource
    DropDownRows = 10
    KeyField = 'ID'
    ListField = 'Name'
    ListSource = dsPoclear
    ParentCtl3D = False
    TabOrder = 4
    Visible = False
    ButtonHeight = 22
    SearchMode = smLocate
    SearchType = stAuto
    VisibleButtons = [lbSetNull]
  end
  inherited MasterDataSource: TDataSource
    DataSet = adsMaster
    Left = 197
    Top = 31
  end
  inherited DetailDataSource: TDataSource
    DataSet = adsDetail
    Left = 18
    Top = 290
  end
  inherited ActionList: TActionList
    Left = 443
    Top = 2
  end
  inherited MainMenu: TMainMenu
    Left = 390
    Top = 2
  end
  inherited DetailsPopupMenu: TPopupMenu
    Left = 328
    Top = 2
  end
  object ClientName: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 
      'select  a.ID, a.Name  from dbo.FNAccounts a'#13#10'left outer join dbo' +
      '.MSCurrency b on b.ID=a.CurrencyID'#13#10'where b.IsLocation=1'#13#10'and  a' +
      '.Recordstate<>'#39#21024#38500#39
    Parameters = <>
    Left = 307
    Top = 65535
  end
  object EmployeeName: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select ID, Name'#13#10'from MSEmployee'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 263
    Top = 65535
  end
  object GoodName: TADODataSet