sledsaleback.dfm

详细的ERP设计资料

inherited SLEdSaleBackForm: TSLEdSaleBackForm
  Left = 97
  Top = 132
  Width = 679
  Height = 461
  Caption = #38144#21806#36864#36135#24320#21333#32534#36753
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  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 = 166
    Width = 671
    Height = 225
    Columns = <
      item
        Expanded = False
        FieldName = 'GoodsName'
        Title.Alignment = taCenter
        Width = 184
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Quantity'
        Title.Alignment = taCenter
        Width = 91
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PackUnit'
        Title.Alignment = taCenter
        Width = 85
        Visible = True
        ControlType = ctCustomControl
        CustomControl = QLDBLookuppACKUNIT
      end
      item
        Expanded = False
        FieldName = 'PriceBase'
        Title.Alignment = taCenter
        Width = 84
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Amount'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GoalQuantity'
        Title.Alignment = taCenter
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GoallUnit'
        Title.Alignment = taCenter
        Width = 55
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Discount'
        ReadOnly = True
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'NetAmount'
        ReadOnly = True
        Title.Alignment = taCenter
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'SundryFee'
        Title.Alignment = taCenter
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SalesMode'
        Title.Alignment = taCenter
        Visible = True
      end>
  end
  inherited ToolBar: TToolBar
    Width = 671
  end
  inherited TopPanel: TPanel
    Width = 671
    Height = 137
    inherited RemarkLabel: TLabel
      Left = 12
      Top = 116
      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 Label1: TLabel [3]
      Left = 12
      Top = 5
      Width = 48
      Height = 12
      Caption = #23458#25143#21517#31216
    end
    object Label2: TLabel [4]
      Left = 12
      Top = 44
      Width = 36
      Height = 12
      Caption = #32463#25163#20154
    end
    object Label3: TLabel [5]
      Left = 355
      Top = 45
      Width = 48
      Height = 12
      Caption = #19994#21153#31867#22411
    end
    object Label4: TLabel [6]
      Left = 510
      Top = 45
      Width = 48
      Height = 12
      Caption = #38468#21152#36153#29992
      FocusControl = DBEdit2
    end
    object Label5: TLabel [7]
      Left = 431
      Top = 118
      Width = 72
      Height = 12
      Caption = #24212#25910#24080#27454#20313#39069
    end
    object Label6: TLabel [8]
      Left = 510
      Top = 89
      Width = 48
      Height = 12
      Caption = #20998#25674#26041#24335
      FocusControl = DBEdit2
    end
    object Label7: TLabel [9]
      Left = 12
      Top = 89
      Width = 48
      Height = 12
      Caption = #32467#31639#26085#26399
      FocusControl = DBEdit2
    end
    inherited RemarkDBEdit: TDBEdit
      Top = 114
      Width = 385
      DataField = 'Memo'
      TabOrder = 11
    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 DBEdit2: TDBEdit
      Left = 510
      Top = 59
      Width = 140
      Height = 20
      DataField = 'SundryFee'
      DataSource = MasterDataSource
      TabOrder = 5
    end
    object ClientQLDBLookup: TQLDBLookupComboBox
      Left = 12
      Top = 21
      Width = 327
      Height = 18
      BevelEdges = []
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      DataField = 'ClientID'
      DataSource = MasterDataSource
      DropDownRows = 10
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DSClientName
      OnEnter = ClientQLDBLookupEnter
      OnExit = ClientQLDBLookupExit
      ParentCtl3D = False
      TabOrder = 0
      ButtonHeight = 22
      VisibleButtons = [lbSetNull]
    end
    object QLDBLookupEmployee: TQLDBLookupComboBox
      Left = 12
      Top = 61
      Width = 327
      Height = 18
      BevelEdges = []
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      DataField = 'EmployeID'
      DataSource = MasterDataSource
      DropDownRows = 10
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DSEmployeeName
      ParentCtl3D = False
      TabOrder = 3
      ButtonHeight = 22
      VisibleButtons = [lbSetNull]
    end
    object DBEdit1: TDBEdit
      Left = 355
      Top = 59
      Width = 140
      Height = 20
      DataField = 'BillMode'
      DataSource = MasterDataSource
      TabOrder = 4
    end
    object DBEdit4: TDBEdit
      Left = 249
      Top = 85
      Width = 90
      Height = 20
      DataField = 'TaxRate'
      DataSource = MasterDataSource
      Enabled = False
      TabOrder = 8
    end
    object DBComboBox1: TDBComboBox
      Left = 561
      Top = 85
      Width = 89
      Height = 20
      Style = csDropDownList
      DataField = 'IsApportion'
      DataSource = MasterDataSource
      ItemHeight = 12
      Items.Strings = (
        #19981#20998#25674
        #25353#37329#39069#20998#25674
        #25353#25968#37327#20998#25674)
      TabOrder = 10
    end
    object DBComboBox3: TDBComboBox
      Left = 158
      Top = 85
      Width = 90
      Height = 20
      Style = csDropDownList
      DataField = 'IsTax'
      DataSource = MasterDataSource
      ItemHeight = 12
      Items.Strings = (
        #24050#21547#31246
        #19981#21547#31246)
      TabOrder = 7
      OnChange = DBComboBox3Change
    end
    object DBComboBox4: TDBComboBox
      Left = 355
      Top = 85
      Width = 140
      Height = 20
      Style = csDropDownList
      DataField = 'IsDeliver'
      DataSource = MasterDataSource
      ItemHeight = 12
      Items.Strings = (
        #19981#36865#36135
        #38656#36865#36135)
      TabOrder = 9
      OnChange = DBComboBox3Change
    end
    object DBEdit5: TDBEdit
      Left = 62
      Top = 85
      Width = 90
      Height = 20
      DataField = 'ClearDate'
      DataSource = MasterDataSource
      TabOrder = 6
    end
  end
  inherited StatusBar1: TStatusBar
    Top = 391
    Width = 671
    Height = 24
  end
  inherited GoodsLookup: TQLDBLookupComboBox
    Left = 24
    Top = 184
    Width = 89
  end
  object GEdit1: TGEdit [6]
    Left = 509
    Top = 141
    Width = 140
    Height = 20
    AutoSelect = True
    Enabled = False
    TabOrder = 5
    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 QLDBLookuppACKUNIT: TQLDBLookupComboBox [7]
    Left = 296
    Top = 184
    Width = 57
    Height = 18
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    Ctl3D = False
    DataField = 'PackUnitID'
    DataSource = DetailDataSource
    DropDownRows = 10
    KeyField = 'ID'
    ListField = 'Name'
    ListSource = DSMSUnit
    ParentCtl3D = False
    TabOrder = 6
    Visible = False
    ButtonHeight = 22
    VisibleButtons = [lbSetNull]
  end
  inherited MasterDataSource: TDataSource
    DataSet = adsSalesMaster
    Left = 77
    Top = 214
  end
  inherited DetailDataSource: TDataSource
    DataSet = adsSalesDetail
    Left = 53
    Top = 282
  end
  inherited ActionList: TActionList
    Left = 275
    Top = 31
    inherited DeleteDetailAction: TAction
      ImageIndex = -1
    end
    inherited SaveAsAction: TAction
      ImageIndex = 11
    end
    inherited SubmitAction: TAction
      ImageIndex = 8
    end
    inherited SendAsMailAction: TAction
      ImageIndex = 8
    end