wsedsales.dfm

详细的ERP设计资料

inherited WSSalesEditForm: TWSSalesEditForm
  Left = 46
  Top = 62
  Width = 717
  Height = 486
  Caption = #38144#21806#24320#21333
  KeyPreview = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  inherited DBGrid: TQLDBGrid
    Top = 187
    Width = 709
    Height = 231
    TabOrder = 3
  end
  inherited ToolBar: TToolBar
    Width = 709
    TabOrder = 0
  end
  inherited TopPanel: TPanel
    Width = 709
    Height = 158
    TabOrder = 1
    inherited RemarkLabel: TLabel
      Top = 102
    end
    inherited VoucherNoLabel: TLabel
      Left = 328
      Width = 54
      Caption = #20973#21333#32534#21495':'
    end
    inherited VoucherDateLabel: TLabel
      Left = 447
      Width = 54
      Caption = #24320#21333#26085#26399':'
    end
    object Label1: TLabel [3]
      Left = 8
      Top = 8
      Width = 48
      Height = 12
      Caption = #23458#25143#21517#31216
    end
    object Label2: TLabel [4]
      Left = 566
      Top = 50
      Width = 48
      Height = 12
      Caption = #35745#31639#31246#29575
      FocusControl = DBEdit2
    end
    object Label3: TLabel [5]
      Left = 447
      Top = 47
      Width = 48
      Height = 12
      Caption = #25240#25187#27604#29575
      FocusControl = DBEdit3
    end
    object Label4: TLabel [6]
      Left = 328
      Top = 48
      Width = 48
      Height = 12
      Caption = #38144#21806#31867#22411
    end
    object Label5: TLabel [7]
      Left = 8
      Top = 48
      Width = 48
      Height = 12
      Caption = #32463#21150#21592#24037
    end
    object Label6: TLabel [8]
      Left = 566
      Top = 11
      Width = 48
      Height = 12
      Caption = #32467#31639#26085#26399
      FocusControl = DBEdit1
    end
    object Label7: TLabel [9]
      Left = 391
      Top = 96
      Width = 48
      Height = 12
      Caption = #38468#21152#36153#29992
      FocusControl = DBEdit4
    end
    inherited RemarkDBEdit: TDBEdit
      Left = 8
      Top = 115
      Width = 417
      DataField = 'Memo'
      TabOrder = 12
    end
    inherited VocherNoDBEdit: TDBEdit
      Left = 328
      Top = 24
      Width = 112
      DataField = 'Code'
    end
    inherited DateDBEdit: TDBEdit
      Left = 447
      Top = 24
      Width = 112
      DataField = 'Date'
    end
    object DBCheckBox1: TDBCheckBox
      Left = 235
      Top = 94
      Width = 56
      Height = 17
      Caption = #36865#36135
      DataField = 'IsDeliver'
      DataSource = MasterDataSource
      TabOrder = 10
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object DBCheckBox2: TDBCheckBox
      Left = 154
      Top = 94
      Width = 51
      Height = 17
      Caption = #21547#31246
      DataField = 'IsTax'
      DataSource = MasterDataSource
      TabOrder = 9
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object DBEdit2: TDBEdit
      Left = 566
      Top = 64
      Width = 112
      Height = 20
      DataField = 'TaxRate'
      DataSource = MasterDataSource
      TabOrder = 7
    end
    object DBCheckBox3: TDBCheckBox
      Left = 73
      Top = 94
      Width = 48
      Height = 17
      Caption = #25240#25187
      DataField = 'IsDiscount'
      DataSource = MasterDataSource
      TabOrder = 8
      ValueChecked = 'True'
      ValueUnchecked = 'False'
    end
    object DBEdit3: TDBEdit
      Left = 447
      Top = 64
      Width = 112
      Height = 20
      DataField = 'DiscountRate'
      DataSource = MasterDataSource
      TabOrder = 6
    end
    object DBCheckBox4: TDBCheckBox
      Left = 318
      Top = 94
      Width = 61
      Height = 17
      Caption = #24320#21457#31080
      TabOrder = 11
      ValueChecked = 'True'
      ValueUnchecked = 'False'
      Visible = False
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 8
      Top = 24
      Width = 306
      Height = 20
      DataField = 'ClientID'
      DataSource = MasterDataSource
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DataSource1
      TabOrder = 0
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 8
      Top = 64
      Width = 306
      Height = 20
      DataField = 'EmployeID'
      DataSource = MasterDataSource
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DataSource2
      TabOrder = 4
    end
    object DBEdit1: TDBEdit
      Left = 566
      Top = 24
      Width = 112
      Height = 20
      DataField = 'ClearDate'
      DataSource = MasterDataSource
      TabOrder = 3
    end
    object DBEdit4: TDBEdit
      Left = 447
      Top = 92
      Width = 112
      Height = 20
      DataField = 'SundryFee'
      DataSource = MasterDataSource
      TabOrder = 13
    end
    object DBComboBox3: TDBComboBox
      Left = 566
      Top = 90
      Width = 112
      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 = 14
    end
    object DBEdit5: TDBEdit
      Left = 328
      Top = 64
      Width = 112
      Height = 20
      DataField = 'BillMode'
      DataSource = MasterDataSource
      TabOrder = 5
    end
  end
  inherited StatusBar1: TStatusBar
    Top = 418
    Width = 709
    SimpleText = #25353'F7'#20026#19978#19968#24352#21333', F8'#20026#19979#19968#24352#21333', Ctrl+A'#20026#26032#22686#26126#32454',Ctrl+Z'#20026#29983#25104#32467#31639#21333
  end
  inherited MasterDataSource: TDataSource
    DataSet = adsSalesMaster
    Left = 153
    Top = 226
  end
  inherited DetailDataSource: TDataSource
    DataSet = adsSalesDetail
    Left = 94
    Top = 218
  end
  inherited ActionList: TActionList
    Left = 211
    Top = 207
    inherited ImportAction: TAction
      OnExecute = ImportActionExecute
    end
  end
  inherited MainMenu: TMainMenu
    Left = 275
    Top = 0
    inherited A3: TMenuItem
      object N7: TMenuItem
        Caption = '-'
      end
      object N13: TMenuItem
        Caption = #29983#25104#32467#31639#21333
        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
    Filtered = True
    AfterInsert = adsSalesMasterAfterInsert
    BeforePost = adsSalesMasterBeforePost
    OnFilterRecord = adsSalesMasterFilterRecord
    CommandText = 
      'SELECT * FROM SLSaleMaster '#13#10'WHERE RecordState<>'#39#21024#38500#39' and  ID = :' +
      'ID '
    Parameters = <
      item
        Name = 'ID'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 40
    Top = 216
    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%'