sledreturn.dfm

详细的ERP设计资料

inherited SLReturnEditForm: TSLReturnEditForm
  Left = 51
  Top = 167
  Width = 719
  Height = 465
  Caption = #38144#21806#36864#36135
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited DBGrid: TQLDBGrid
    Top = 187
    Width = 711
    Height = 210
    TabOrder = 3
  end
  inherited ToolBar: TToolBar
    Width = 711
    TabOrder = 0
  end
  inherited TopPanel: TPanel
    Width = 711
    Height = 158
    TabOrder = 1
    inherited RemarkLabel: TLabel
      Top = 110
    end
    inherited VoucherNoLabel: TLabel
      Left = 173
    end
    inherited VoucherDateLabel: TLabel
      Left = 285
    end
    object Label1: TLabel [3]
      Left = 8
      Top = 8
      Width = 24
      Height = 12
      Caption = #23458#25143
    end
    object Label2: TLabel [4]
      Left = 411
      Top = 50
      Width = 48
      Height = 12
      Caption = #35745#31639#31246#29575
      FocusControl = DBEdit2
    end
    object Label3: TLabel [5]
      Left = 285
      Top = 47
      Width = 48
      Height = 12
      Caption = #25240#25187#27604#29575
      FocusControl = DBEdit3
    end
    object Label4: TLabel [6]
      Left = 173
      Top = 48
      Width = 48
      Height = 12
      Caption = #38144#21806#31867#22411
    end
    object Label5: TLabel [7]
      Left = 8
      Top = 48
      Width = 24
      Height = 12
      Caption = #21592#24037
    end
    object Label6: TLabel [8]
      Left = 411
      Top = 11
      Width = 48
      Height = 12
      Caption = #32467#31639#26085#26399
      FocusControl = DBEdit1
    end
    object Label7: TLabel [9]
      Left = 229
      Top = 94
      Width = 48
      Height = 12
      Caption = #20998#25674#37329#39069
      FocusControl = DBEdit4
    end
    inherited RemarkDBEdit: TDBEdit
      Left = 8
      Top = 126
      Width = 396
      DataField = 'Memo'
      TabOrder = 12
    end
    inherited VocherNoDBEdit: TDBEdit
      Left = 173
      Top = 24
      DataField = 'Code'
    end
    inherited DateDBEdit: TDBEdit
      Left = 285
      Top = 24
      DataField = 'Date'
    end
    object DBCheckBox1: TDBCheckBox
      Left = 144
      Top = 90
      Width = 54
      Height = 17
      Caption = #36865#36135
      DataField = 'IsDeliver'
      DataSource = MasterDataSource
      TabOrder = 10
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object DBCheckBox2: TDBCheckBox
      Left = 76
      Top = 90
      Width = 50
      Height = 17
      Caption = #21547#31246
      DataField = 'IsTax'
      DataSource = MasterDataSource
      TabOrder = 9
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object DBEdit2: TDBEdit
      Left = 411
      Top = 64
      Width = 136
      Height = 20
      DataField = 'TaxRate'
      DataSource = MasterDataSource
      TabOrder = 7
    end
    object DBCheckBox3: TDBCheckBox
      Left = 9
      Top = 90
      Width = 48
      Height = 17
      Caption = #25240#25187
      DataField = 'IsDiscount'
      DataSource = MasterDataSource
      TabOrder = 8
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object DBEdit3: TDBEdit
      Left = 285
      Top = 64
      Width = 120
      Height = 20
      DataField = 'DiscountRate'
      DataSource = MasterDataSource
      TabOrder = 6
    end
    object DBCheckBox4: TDBCheckBox
      Left = 92
      Top = 110
      Width = 57
      Height = 17
      Caption = #24320#21457#31080
      TabOrder = 11
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      Visible = False
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 8
      Top = 24
      Width = 154
      Height = 20
      DataField = 'ClientID'
      DataSource = MasterDataSource
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DataSource1
      TabOrder = 0
    end
    object DBComboBox1: TDBComboBox
      Left = 173
      Top = 64
      Width = 105
      Height = 20
      Style = csDropDownList
      DataField = 'SaleMode'
      DataSource = MasterDataSource
      ItemHeight = 12
      Items.Strings = (
        #38144#21806
        #36864#36135)
      TabOrder = 5
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 8
      Top = 64
      Width = 154
      Height = 20
      DataField = 'EmployeID'
      DataSource = MasterDataSource
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DataSource2
      TabOrder = 4
    end
    object DBEdit1: TDBEdit
      Left = 411
      Top = 24
      Width = 136
      Height = 20
      DataField = 'ClearDate'
      DataSource = MasterDataSource
      TabOrder = 3
    end
    object DBEdit4: TDBEdit
      Left = 287
      Top = 90
      Width = 117
      Height = 20
      DataField = 'SundryFee'
      DataSource = MasterDataSource
      TabOrder = 13
    end
    object DBComboBox2: TDBComboBox
      Left = 412
      Top = 90
      Width = 77
      Height = 20
      DataField = 'IsApportion'
      DataSource = MasterDataSource
      ItemHeight = 12
      Items.Strings = (
        #19981#20998#25674
        #25353#37329#39069
        #25353#25968#37327)
      TabOrder = 14
    end
  end
  inherited StatusBar1: TStatusBar
    Top = 397
    Width = 711
  end
  inherited MasterDataSource: TDataSource
    DataSet = adsSalesMaster
    Left = 137
    Top = 202
  end
  inherited DetailDataSource: TDataSource
    DataSet = adsSalesDetail
    Left = 94
    Top = 242
  end
  inherited ActionList: TActionList
    Left = 211
    Top = 207
    inherited ImportAction: TAction
      OnExecute = ImportActionExecute
    end
  end
  inherited MainMenu: TMainMenu
    Left = 363
    Top = 65528
    inherited A3: TMenuItem
      object N7: TMenuItem
        Caption = '-'
      end
      object N13: TMenuItem
        Caption = #29983#25104#32467#31639#21333
        Visible = False
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = #23458#25143#20215#26684#26597#35810
        OnClick = N14Click
      end
    end
  end
  object adsSalesMaster: TADODataSet
    Tag = 11
    Connection = CommonData.acnConnection
    CursorType = ctStatic
    AfterInsert = adsSalesMasterAfterInsert
    BeforePost = adsSalesMasterBeforePost
    OnFilterRecord = adsSalesMasterFilterRecord
    CommandText = 
      'SELECT * FROM SLSaleMaster WHERE ID = :ID '#13#10'and RecordState<>'#39#21024#38500 +
      #39' and  SaleMode='#39#36864#36135#39
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 34
    Top = 221
    object adsSalesMasterID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object adsSalesMasterCreateDate: TDateTimeField
      FieldName = 'CreateDate'
    end
    object adsSalesMasterCreateUserID: TIntegerField
      FieldName = 'CreateUserID'
    end
    object adsSalesMasterRecordState: TStringField
      FieldName = 'RecordState'
      Size = 12
    end
    object adsSalesMasterDate: TDateTimeField
      FieldName = 'Date'
    end
    object adsSalesMasterCode: TStringField
      FieldName = 'Code'
    end
    object adsSalesMasterClientID: TIntegerField
      FieldName = 'ClientID'
    end
    object adsSalesMasterEmployeID: TIntegerField
      FieldName = 'EmployeID'
    end
    object adsSalesMasterIsDiscount: TStringField
      FieldName = 'IsDiscount'
    end
    object adsSalesMasterDiscountRate: TBCDField
      FieldName = 'DiscountRate'
      DisplayFormat = '00%'
      EditFormat = '00'