fnedvouchtran.dfm

详细的ERP设计资料

inherited FNEdVouchTranForm: TFNEdVouchTranForm
  Left = 124
  Top = 146
  Width = 808
  Height = 580
  Caption = #20973#35777#36716#25442
  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
  end
  inherited DBGrid: TQLDBGrid
    Top = 187
    Width = 800
    Height = 323
    Columns = <
      item
        Expanded = False
        FieldName = 'GoodsName'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 231
        Visible = True
        ControlType = ctCustomControl
      end
      item
        Expanded = False
        FieldName = 'GoodsSpec'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 112
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GoalUnit'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GoalQuantity'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PriceBase'
        Title.Alignment = taCenter
        Width = 110
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Amount'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #25104#26412#37329#39069
        Width = 110
        Visible = True
      end>
  end
  inherited ToolBar: TToolBar
    Width = 800
  end
  inherited TopPanel: TPanel
    Width = 800
    Height = 158
    inherited RemarkLabel: TLabel
      Left = 12
      Top = 136
      Width = 24
      Caption = #22791#27880
    end
    inherited VoucherNoLabel: TLabel
      Left = 355
      Top = 5
      Width = 24
      Caption = #32534#21495
    end
    inherited VoucherDateLabel: TLabel
      Left = 510
      Top = 5
      Width = 24
      Caption = #26085#26399
    end
    object Label2: TLabel [3]
      Left = 355
      Top = 44
      Width = 36
      Height = 12
      Caption = #32463#25163#20154
    end
    object Label3: TLabel [4]
      Left = 510
      Top = 45
      Width = 48
      Height = 12
      Caption = #19994#21153#31867#22411
    end
    object Label5: TLabel [5]
      Left = 12
      Top = 5
      Width = 48
      Height = 12
      Caption = #20179#24211#31649#29702
    end
    object Label9: TLabel [6]
      Left = 12
      Top = 45
      Width = 48
      Height = 12
      Caption = #19994#21153#25688#35201
    end
    object Label1: TLabel [7]
      Left = 12
      Top = 86
      Width = 48
      Height = 12
      Caption = #26680#31639#26085#26399
    end
    object Label4: TLabel [8]
      Left = 510
      Top = 86
      Width = 48
      Height = 12
      Caption = #26680#31639#26041#24335
    end
    object Label7: TLabel [9]
      Left = 188
      Top = 86
      Width = 48
      Height = 12
      Caption = #38468#21152#36153#29992
    end
    object Label6: TLabel [10]
      Left = 355
      Top = 86
      Width = 48
      Height = 12
      Caption = #38388#25509#36153#29992
    end
    object SpeedButton1: TSpeedButton [11]
      Left = 283
      Top = 132
      Width = 65
      Height = 20
      Caption = #25552#21462#25968#25454
      OnClick = SpeedButton1Click
    end
    object SpeedButton3: TSpeedButton [12]
      Left = 363
      Top = 132
      Width = 65
      Height = 20
      Caption = #26356#26032#25104#26412
      OnClick = SpeedButton3Click
    end
    inherited RemarkDBEdit: TDBEdit
      Top = 132
      Width = 229
      DataField = 'Memo'
      TabOrder = 10
    end
    inherited VocherNoDBEdit: TDBEdit
      Left = 355
      Top = 20
      Width = 140
      DataField = 'Code'
    end
    inherited DateDBEdit: TDBEdit
      Left = 510
      Top = 20
      Width = 140
      DataField = 'Date'
    end
    object LookupEmployee: TQLDBLookupComboBox
      Left = 355
      Top = 61
      Width = 140
      Height = 20
      BevelEdges = []
      BevelOuter = bvRaised
      Ctl3D = True
      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 BriefComboBox: TDBComboBox
      Left = 12
      Top = 61
      Width = 328
      Height = 20
      DataField = 'Brief'
      DataSource = MasterDataSource
      ItemHeight = 12
      TabOrder = 3
    end
    object ClientQLDBLookup: TQLDBLookupComboBox
      Left = 12
      Top = 20
      Width = 328
      Height = 20
      BevelEdges = []
      BevelOuter = bvRaised
      Ctl3D = True
      DataField = 'ClientID'
      DataSource = MasterDataSource
      DropDownRows = 10
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DSClientName
      ParentCtl3D = False
      TabOrder = 0
      ButtonHeight = 22
      SearchMode = smLocate
      SearchType = stAuto
      VisibleButtons = [lbSetNull]
    end
    object DBEdit2: TDBEdit
      Left = 12
      Top = 105
      Width = 152
      Height = 20
      DataField = 'ClearDate'
      DataSource = MasterDataSource
      TabOrder = 6
    end
    object DBEdit3: TDBEdit
      Left = 510
      Top = 105
      Width = 140
      Height = 20
      DataField = 'Apportion'
      DataSource = MasterDataSource
      TabOrder = 9
    end
    object DBEdit5: TDBEdit
      Left = 188
      Top = 105
      Width = 152
      Height = 20
      DataField = 'SundryFee'
      DataSource = MasterDataSource
      ReadOnly = True
      TabOrder = 7
    end
    object DBEdit4: TDBEdit
      Left = 355
      Top = 105
      Width = 140
      Height = 20
      DataField = 'IndirectFee'
      DataSource = MasterDataSource
      TabOrder = 8
    end
    object DBComboBox1: TDBComboBox
      Left = 510
      Top = 61
      Width = 140
      Height = 20
      Style = csDropDownList
      DataField = 'BillMode'
      DataSource = MasterDataSource
      ItemHeight = 12
      Items.Strings = (
        #37319#36141#25104#26412#26680#31639
        #29983#20135#39046#26009#26680#31639
        #29983#20135#20837#24211#26680#31639)
      TabOrder = 5
      OnChange = DBComboBox1Change
    end
  end
  inherited StatusBar1: TStatusBar
    Top = 510
    Width = 800
    Height = 24
  end
  object TpcPanel: TPanel [5]
    Left = 272
    Top = 304
    Width = 261
    Height = 53
    Caption = #27491#22312#25552#21462#25968#25454','#35831#31245#21518'....'
    Color = cl3DLight
    TabOrder = 4
    Visible = False
  end
  inherited MasterDataSource: TDataSource
    DataSet = adsMaster
    Left = 115
    Top = 78
  end
  inherited DetailDataSource: TDataSource
    DataSet = adsDetail
    Left = 34
    Top = 298
  end
  inherited ActionList: TActionList
    Left = 339
    Top = 1
    inherited DeleteDetailAction: TAction [9]
      ImageIndex = -1
    end
    inherited NewDetailAction: TAction [10]
    end
    inherited SaveAsAction: TAction [11]
      ImageIndex = 11
    end
    inherited SubmitAction: TAction [12]
      ImageIndex = 8
    end
    inherited SendAsMailAction: TAction [13]
      ImageIndex = 8
    end
    inherited ImportAction: TAction [14]
      ImageIndex = 13
    end
    object DiscountMode: TAction [15]
      Caption = #25240#25187#26041#24335'(&D)'
      Hint = #35774#32622#24403#21069#21333#25454#30340#25240#25187#26041#24335
      ImageIndex = 7
    end
    object StockQuerry: TAction [16]
      Caption = #24211#23384#26597#35810'(&S)'
      Hint = #24211#23384#21830#21697#26597#35810#65292#24182#19988#21487#36827#34892#22810#27425#26597#35810
      ImageIndex = 3
    end
    inherited FindAction: TAction [17]
    end
    inherited CloseAction: TAction [18]
    end
  end
  inherited MainMenu: TMainMenu
    Left = 392
    Top = 1
  end
  inherited DetailsPopupMenu: TPopupMenu
    Left = 456
    Top = 1
  end
  object ClientName: TADODataSet
    Active = True
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select ID, Name'#13#10'from MSEmployee'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 153
    Top = 38
  end
  object EmployeeName: TADODataSet
    Active = True
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select ID, Name'#13#10'from MSEmployee'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>
    Left = 192
    Top = 38
  end
  object GoodName: TADODataSet
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    CommandText = 'select *'#13#10'from DAGoods'#13#10'where RecordState<>'#39#21024#38500#39
    Parameters = <>