ar_enter_noinvoiceshiporder_d.dfm

一个MRPII系统源代码版本

inherited Frm_Ar_Enter_NoInvoiceShipOrder_D: TFrm_Ar_Enter_NoInvoiceShipOrder_D
  Left = 137
  Top = 112
  Caption = '未开发票销售出库单'
  ClientHeight = 373
  ClientWidth = 545
  PixelsPerInch = 96
  TextHeight = 12
  object Label4: TLabel [0]
    Left = 212
    Top = 63
    Width = 60
    Height = 12
    Caption = '单据日期：'
    TransParent = True
  end
  object Label5: TLabel [1]
    Left = 44
    Top = 37
    Width = 60
    Height = 12
    Caption = '销售客户：'
    TransParent = True
  end
  object Label6: TLabel [2]
    Left = 299
    Top = 179
    Width = 36
    Height = 12
    Caption = '货币：'
    TransParent = True
  end
  object Label7: TLabel [3]
    Left = 299
    Top = 156
    Width = 36
    Height = 12
    Caption = '税率：'
    TransParent = True
  end
  object Label8: TLabel [4]
    Left = 56
    Top = 60
    Width = 48
    Height = 12
    Caption = '单据号：'
    TransParent = True
  end
  object Label11: TLabel [5]
    Left = 275
    Top = 201
    Width = 60
    Height = 12
    Caption = '含税金额：'
    TransParent = True
  end
  object Label12: TLabel [6]
    Left = 43
    Top = 132
    Width = 60
    Height = 12
    Caption = '销售部门：'
    TransParent = True
  end
  object Label13: TLabel [7]
    Left = 31
    Top = 178
    Width = 72
    Height = 12
    Caption = '营销业务员：'
    TransParent = True
  end
  object Label14: TLabel [8]
    Left = 42
    Top = 224
    Width = 60
    Height = 12
    Caption = '建档人员：'
    TransParent = True
  end
  object Label15: TLabel [9]
    Left = 275
    Top = 226
    Width = 60
    Height = 12
    Caption = '建档日期：'
    TransParent = True
  end
  object Label16: TLabel [10]
    Left = 66
    Top = 247
    Width = 36
    Height = 12
    Caption = '备注：'
    TransParent = True
  end
  object Label1: TLabel [11]
    Left = 356
    Top = 63
    Width = 60
    Height = 12
    Caption = '单据月份：'
    TransParent = True
  end
  object Label17: TLabel [12]
    Left = 42
    Top = 85
    Width = 60
    Height = 12
    Caption = '仓库标识：'
    TransParent = True
  end
  object Label18: TLabel [13]
    Left = 42
    Top = 109
    Width = 60
    Height = 12
    Caption = '货位标识：'
    TransParent = True
  end
  object Label19: TLabel [14]
    Left = 43
    Top = 156
    Width = 60
    Height = 12
    Caption = '销售类型：'
    TransParent = True
  end
  object Label20: TLabel [15]
    Left = 275
    Top = 84
    Width = 60
    Height = 12
    Caption = '发货地址：'
    TransParent = True
  end
  object Label21: TLabel [16]
    Left = 275
    Top = 108
    Width = 60
    Height = 12
    Caption = '发货方式：'
    TransParent = True
  end
  object Label22: TLabel [17]
    Left = 275
    Top = 132
    Width = 60
    Height = 12
    Caption = '付款条款：'
    TransParent = True
  end
  object Label2: TLabel [18]
    Left = 42
    Top = 201
    Width = 60
    Height = 12
    Caption = '未税金额：'
    TransParent = True
  end
  object Label3: TLabel [19]
    Left = -48
    Top = 408
    Width = 96
    Height = 12
    Caption = '本位币含税金额：'
    TransParent = True
    Visible = False
  end
  object Label9: TLabel [20]
    Left = -48
    Top = 385
    Width = 96
    Height = 12
    Caption = '本位币未税金额：'
    TransParent = True
    Visible = False
  end
  object Label10: TLabel [21]
    Left = 60
    Top = 271
    Width = 42
    Height = 12
    Caption = '备注1：'
    TransParent = True
  end
  object Label23: TLabel [22]
    Left = 60
    Top = 295
    Width = 42
    Height = 12
    Caption = '备注2：'
    TransParent = True
  end
  inherited btn_ok: TButton
    Left = 190
    Top = 341
    TabOrder = 32
  end
  inherited btn_Cancel: TButton
    Left = 283
    Top = 341
    TabOrder = 33
  end
  inherited Pnl_Add: TPanel
    Left = 422
    Top = 7
    TabOrder = 36
  end
  object medt_InvBillDate: TMaskEdit [26]
    Left = 272
    Top = 56
    Width = 73
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 3
    Text = '    .  .  '
    OnExit = medt_InvBillDateExit
  end
  object edt_rate: TEdit [27]
    Left = 336
    Top = 150
    Width = 130
    Height = 20
    TabOrder = 21
    OnExit = FloatCheck
  end
  object edt_InvBillNo: TEdit [28]
    Left = 104
    Top = 55
    Width = 101
    Height = 20
    TabOrder = 2
  end
  object Edt_InvBillAmount: TEdit [29]
    Left = 336
    Top = 197
    Width = 130
    Height = 20
    Enabled = False
    TabOrder = 25
    OnExit = FloatCheck
  end
  object medt_Createdate: TMaskEdit [30]
    Left = 336
    Top = 220
    Width = 130
    Height = 20
    Enabled = False
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 28
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object edt_remArk: TEdit [31]
    Left = 104
    Top = 244
    Width = 361
    Height = 20
    TabOrder = 29
    Text = '系统初始化'
  end
  object edt_CustomerName: TEdit [32]
    Left = 156
    Top = 31
    Width = 310
    Height = 20
    Enabled = False
    TabOrder = 1
  end
  object edt_CurrencyName: TEdit [33]
    Left = 388
    Top = 173
    Width = 78
    Height = 20
    Enabled = False
    TabOrder = 23
  end
  object edt_DeptName: TEdit [34]
    Left = 156
    Top = 127
    Width = 95
    Height = 20
    Enabled = False
    TabOrder = 10
  end
  object edt_SaleEmployeeName: TEdit [35]
    Left = 156
    Top = 174
    Width = 95
    Height = 20
    Enabled = False
    TabOrder = 14
  end
  object edt_CreateEmployeeName: TEdit [36]
    Left = 156
    Top = 221
    Width = 69
    Height = 20
    Enabled = False
    TabOrder = 27
  end
  object edt_CustomerCode: TLinkEdit [37]
    Left = 104
    Top = 31
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 0
    OnButtonClick = CustomerHint1
    OnExit = edt_CustomerCodeExit
    OnKeyDown = CustomerHint
  end
  object edt_CurrencyCode: TLinkEdit [38]
    Left = 336
    Top = 173
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 22
    OnButtonClick = CurrencyHint1
    OnExit = edt_CurrencyCodeExit
    OnKeyDown = CurrencyHint
  end
  object edt_DeptCode: TLinkEdit [39]
    Left = 104
    Top = 127
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 9
    OnButtonClick = DeptHint1
    OnExit = edt_DeptCodeExit
    OnKeyDown = DeptHint
  end
  object edt_SaleEmployeeCode: TLinkEdit [40]
    Left = 104
    Top = 174
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 13
    OnButtonClick = EmployeeHint1
    OnExit = edt_SaleEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object edt_CreateEmployeeCode: TLinkEdit [41]
    Left = 104
    Top = 221
    Width = 50
    Height = 20
    Enabled = False
    LinkStyle = lsEllipsis
    TabOrder = 26
    OnButtonClick = EmployeeHint1
    OnExit = edt_CreateEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object Medt_InvBillMonth: TMaskEdit [42]
    Left = 416
    Top = 56
    Width = 50
    Height = 20
    EditMask = '9999.99;1;_'
    MaxLength = 7
    TabOrder = 4
    Text = '    .  '
  end
  object Edt_WhCode: TLinkEdit [43]
    Left = 104
    Top = 80
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 5
    Text = ' '
    OnButtonClick = Edt_WhCodeButtonClick
    OnExit = Edt_WhCodeExit
    OnKeyDown = Edt_WhCodeKeyDown
  end
  object Edt_WhName: TEdit [44]
    Left = 156
    Top = 80
    Width = 95
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 6
    Text = ' '
  end
  object Edt_WhPositionCode: TLinkEdit [45]
    Left = 104
    Top = 103
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 7
    Text = ' '
    OnButtonClick = Edt_WhPositionCodeButtonClick
    OnExit = Edt_WhPositionCodeExit
    OnKeyDown = Edt_WhPositionCodeKeyDown
  end
  object Edt_WhPositionName: TEdit [46]
    Left = 156
    Top = 103
    Width = 95
    Height = 20
    Enabled = False
    ReadOnly = True
    TabOrder = 8
    Text = ' '
  end
  object Edt_SaleTypeName: TEdit [47]
    Left = 156
    Top = 151
    Width = 95
    Height = 20
    Enabled = False
    TabOrder = 12
  end
  object Edt_SaleTypeCode: TLinkEdit [48]
    Left = 104
    Top = 151
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 11
    OnButtonClick = Edt_SaleTypeCodeButtonClick
    OnExit = Edt_SaleTypeCodeExit
    OnKeyDown = Edt_SaleTypeCodeKeyDown
  end
  object Edt_ShipAddressName: TEdit [49]
    Left = 388
    Top = 79
    Width = 78
    Height = 20
    Enabled = False
    TabOrder = 16
  end
  object Edt_ShipAddresSCode: TLinkEdit [50]
    Left = 336
    Top = 79
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 15
    OnButtonClick = Edt_ShipAddresSCodeButtonClick
    OnExit = Edt_ShipAddresSCodeExit
    OnKeyDown = Edt_ShipAddresSCodeKeyDown
  end
  object Edt_ShipModeName: TEdit [51]
    Left = 388
    Top = 103
    Width = 78
    Height = 20
    Enabled = False
    TabOrder = 18
  end
  object Edt_ShipModeCode: TLinkEdit [52]
    Left = 336
    Top = 103
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 17
    OnButtonClick = Edt_ShipModeCodeButtonClick
    OnExit = Edt_ShipModeCodeExit
    OnKeyDown = Edt_ShipModeCodeKeyDown
  end
  object Edt_PayTermName: TEdit [53]
    Left = 388
    Top = 127
    Width = 78
    Height = 20
    Enabled = False
    TabOrder = 20
  end
  object Edt_PayTermCode: TLinkEdit [54]
    Left = 336
    Top = 127
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 19
    OnButtonClick = Edt_PayTermCodeButtonClick
    OnExit = Edt_PayTermCodeExit
    OnKeyDown = Edt_PayTermCodeKeyDown
  end
  object Edt_InvBillNoTaxAmount: TEdit [55]
    Left = 104
    Top = 198
    Width = 121
    Height = 20
    TabOrder = 24
    OnExit = Edt_InvBillNoTaxAmountExit
  end
  object Edt_InvBillAmountC: TEdit [56]
    Left = 48
    Top = 404
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 35
    Visible = False
    OnExit = FloatCheck
  end
  object Edt_InvBillNoTaxAmountC: TEdit [57]
    Left = 48
    Top = 381
    Width = 121
    Height = 20
    TabOrder = 34
    Visible = False
    OnExit = Edt_InvBillNoTaxAmountCExit
  end
  object Edt_RemArk1: TEdit [58]
    Left = 104
    Top = 268
    Width = 361
    Height = 20
    TabOrder = 30
  end
  object Edt_RemArk2: TEdit [59]
    Left = 104
    Top = 292
    Width = 361
    Height = 20
    TabOrder = 31
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 528
    Top = 64
  end
end