pcedpurchasecloth.dfm

详细的ERP设计资料

inherited PCEDPurchaseClothForm: TPCEDPurchaseClothForm
  Left = -4
  Top = -4
  Width = 808
  Height = 580
  Caption = #37319#36141#24320#21333
  WindowState = wsMaximized
  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 = 200
    Width = 800
    Height = 310
    Columns = <
      item
        Expanded = False
        FieldName = 'GoodsName'
        Title.Alignment = taCenter
        Width = 228
        Visible = True
        ControlType = ctCustomControl
        CustomControl = GoodsLookup
      end
      item
        Expanded = False
        FieldName = 'GoalUnit'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GoodsSpec'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
        ControlType = ctCustomControl
        CustomControl = GoodsSpecLKUP
      end
      item
        Expanded = False
        FieldName = 'CapStyle'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
        ControlType = ctCustomControl
        CustomControl = CapStyleLKup
      end
      item
        Expanded = False
        FieldName = 'SizeA'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SizeB'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SizeC'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SizeD'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SizeE'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SizeF'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QuantityPcs'
        Title.Alignment = taCenter
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GoalQuantity'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PriceGoal'
        Title.Alignment = taCenter
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Amount'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Memo'
        Title.Alignment = taCenter
        Width = 160
        Visible = True
      end>
  end
  inherited ToolBar: TToolBar
    Width = 800
    object ToolButton11: TToolButton
      Left = 185
      Top = 2
      Action = FilePrintAction
    end
  end
  inherited TopPanel: TPanel
    Width = 800
    Height = 171
    inherited RemarkLabel: TLabel
      Left = 12
      Top = 124
      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 = #21378#21830#21517#31216
    end
    object Label2: TLabel [4]
      Left = 355
      Top = 43
      Width = 36
      Height = 12
      Caption = #32463#25163#20154
    end
    object Label3: TLabel [5]
      Left = 510
      Top = 44
      Width = 48
      Height = 12
      Caption = #19994#21153#31867#22411
    end
    object Label5: TLabel [6]
      Left = 510
      Top = 124
      Width = 72
      Height = 12
      Caption = #24212#20184#24080#27454#20313#39069
    end
    object Label6: TLabel [7]
      Left = 12
      Top = 85
      Width = 48
      Height = 12
      Caption = #20837#36135#20179#24211
    end
    object Label7: TLabel [8]
      Left = 510
      Top = 85
      Width = 48
      Height = 12
      Caption = #32467#31639#26085#26399
    end
    object Label9: TLabel [9]
      Left = 12
      Top = 44
      Width = 48
      Height = 12
      Caption = #19994#21153#25688#35201
    end
    object Label10: TLabel [10]
      Left = 219
      Top = 85
      Width = 48
      Height = 12
      Caption = #38468#21152#36153#29992
    end
    object Label4: TLabel [11]
      Left = 355
      Top = 85
      Width = 48
      Height = 12
      Caption = #36865#36135#35201#27714
    end
    inherited RemarkDBEdit: TDBEdit
      Left = 12
      Top = 139
      Width = 328
      DataField = 'Memo'
      TabOrder = 9
    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 ClientQLDBLookup: TQLDBLookupComboBox
      Left = 12
      Top = 21
      Width = 328
      Height = 20
      BevelEdges = []
      BevelOuter = bvRaised
      Ctl3D = True
      DataField = 'ClientID'
      DataSource = MasterDataSource
      DropDownRows = 10
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = DSClientName
      OnEnter = ClientQLDBLookupEnter
      OnExit = ClientQLDBLookupExit
      ParentCtl3D = False
      TabOrder = 0
      ButtonHeight = 22
      SearchMode = smLocate
      SearchType = stAuto
      VisibleButtons = [lbSetNull]
    end
    object LookupEmployee: TQLDBLookupComboBox
      Left = 355
      Top = 60
      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 = 60
      Width = 328
      Height = 20
      DataField = 'Brief'
      DataSource = MasterDataSource
      ItemHeight = 12
      TabOrder = 3
    end
    object DBEdit1: TDBEdit
      Left = 510
      Top = 63
      Width = 140
      Height = 20
      DataField = 'BillMode'
      DataSource = MasterDataSource
      ReadOnly = True
      TabOrder = 5
    end
    object DBEdit3: TDBEdit
      Left = 219
      Top = 100
      Width = 121
      Height = 20
      DataField = 'SundryFee'
      DataSource = MasterDataSource
      TabOrder = 6
    end
    object DBEdit4: TDBEdit
      Left = 355
      Top = 100
      Width = 140
      Height = 20
      DataField = 'Deliver'
      DataSource = MasterDataSource
      TabOrder = 7
    end
    object DBEdit5: TDBEdit
      Left = 510
      Top = 101
      Width = 140
      Height = 20
      DataField = 'ClearDate'
      DataSource = MasterDataSource
      TabOrder = 8
    end
    object NoCreditSale: TCheckBox
      Left = 355
      Top = 122
      Width = 118
      Height = 17
      Caption = #20184#29616#27454#21450#29616#27454#25240#25187
      TabOrder = 10
      OnClick = NoCreditSaleClick
    end
    object DBEdit6: TDBEdit
      Left = 355
      Top = 139
      Width = 140
      Height = 20
      DataField = 'CashDiscount'
      DataSource = MasterDataSource
      ReadOnly = True
      TabOrder = 11
      OnEnter = DBEdit6Enter
    end
    object QLDBLookupComboBox1: TQLDBLookupComboBox
      Left = 12
      Top = 100
      Width = 203
      Height = 20
      DataField = 'WarehouseID'
      DataSource = MasterDataSource
      KeyField = 'ID'
      ListField = 'Name'
      ListSource = WareHouseIDDS
      TabOrder = 12
      ButtonHeight = 22
      SearchMode = smLocate
      SearchType = stAuto
      VisibleButtons = [lbSetNull]
    end
  end
  inherited StatusBar1: TStatusBar
    Top = 510
    Width = 800
    Height = 24
  end
  inherited GoodsLookup: TQLDBLookupComboBox
    Left = 16
    Top = 218
    Width = 225
  end
  object GoodsSpecLKUP: TQLDBLookupComboBox [6]
    Left = 240
    Top = 321
    Width = 105
    Height = 18
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    Ctl3D = False
    DataField = 'GoodsSpec'
    DataSource = DetailDataSource
    DropDownRows = 10
    KeyField = 'Name'
    ListField = 'Name'
    ListSource = GoodsSpecDs
    ParentCtl3D = False
    TabOrder = 5
    Visible = False
    ButtonHeight = 22
    SearchMode = smLocate
    SearchType = stAuto
    VisibleButtons = [lbSetNull]
  end
  object GEdit1: TGEdit [7]
    Left = 510
    Top = 171
    Width = 140
    Height = 20
    AutoSelect = True
    TabOrder = 6
    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 CapStyleLKup: TQLDBLookupComboBox [8]
    Left = 392
    Top = 321
    Width = 105
    Height = 18
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    Ctl3D = False
    DataField = 'CapStyle'
    DataSource = DetailDataSource
    DropDownRows = 10
    KeyField = 'Name'
    ListField = 'Name'
    ListSource = CapStyleDs
    ParentCtl3D = False
    TabOrder = 7
    Visible = False
    ButtonHeight = 22
    SearchMode = smLocate
    SearchType = stAuto
    VisibleButtons = [lbSetNull]
  end
  inherited MasterDataSource: TDataSource
    DataSet = adsMaster
    Left = 101
    Top = 65
  end
  inherited DetailDataSource: TDataSource
    DataSet = adsDetail
    Left = 50
    Top = 274
  end
  inherited ActionList: TActionList
    Left = 307
    Top = 65535
    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
    inherited FindAction: TAction [16]
    end
    inherited CloseAction: TAction [17]
    end
    object FilePrintAction: TAction
      Caption = #22871#25171#21333#25454
      Hint = #25353#27492#38190#22871#25171#24403#21069#21333#25454#65292#35831#27880#24847#25171#21360#26426#21644#25171#21360#32440#20934#22791#22949#24403#12290
      ImageIndex = 4
      OnExecute = FilePrintActionExecute
    end
    object SameQuantityAct: TAction