📄 bas_customer.dfm
字号:
inherited Frm_Bas_Customer: TFrm_Bas_Customer
Left = 16
Top = 42
Caption = '客户主文件'
ClientHeight = 487
ClientWidth = 773
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 12
inherited ControlBar: TControlBar
Width = 773
end
inherited Pnl_Title: TPanel
Width = 773
Caption = '客户主文件'
inherited Image2: TImage
Width = 773
end
end
inherited Pnl_Head: TPanel
Width = 773
inherited Image1: TImage
Width = 773
end
inherited Lbl_Condition: TLabel
Width = 24
Caption = '全部'
end
inherited Lbl_Order: TLabel
Width = 6
Caption = ''
end
object Btn_CustAdrs: TButton
Left = 624
Top = 8
Width = 75
Height = 25
Caption = '客户收货地址'
TabOrder = 0
OnClick = Btn_CustAdrSclick
end
end
inherited Pnl_Hint: TPanel
Top = 461
Width = 773
inherited Image4: TImage
Width = 773
end
object Label1: TLabel
Left = 27
Top = 8
Width = 96
Height = 12
Caption = '当前行客户名称：'
end
object DBText1: TDBText
Left = 122
Top = 8
Width = 42
Height = 12
AutoSize = True
DataField = 'CUSTOMERName'
DataSource = DataSource
end
end
inherited Pnl_Body: TPanel
Width = 773
Height = 364
inherited Image3: TImage
Width = 773
Height = 364
end
inherited DBGridEh: TDBGridEh
Width = 773
Height = 364
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
FrozenCols = 2
Columns = <
Item
FieldName = 'CUSTOMERCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '客户代码'
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '客户名称'
Width = 168
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERSHORTName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '客户简称'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'AreaCode'
PickList.Strings = ()
Width = 60
KeyList.Strings = ()
end
Item
FieldName = 'AreaName'
PickList.Strings = ()
Width = 70
KeyList.Strings = ()
end
Item
FieldName = 'customerShipModeCode'
PickList.Strings = ()
Width = 78
KeyList.Strings = ()
end
Item
FieldName = 'ShipModeName'
PickList.Strings = ()
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'customercurrencyCode'
PickList.Strings = ()
Width = 54
KeyList.Strings = ()
end
Item
FieldName = 'currencyName'
PickList.Strings = ()
Width = 68
KeyList.Strings = ()
end
Item
FieldName = 'customerPayTermCode'
PickList.Strings = ()
Width = 81
KeyList.Strings = ()
end
Item
FieldName = 'PayTermName'
PickList.Strings = ()
Width = 83
KeyList.Strings = ()
end
Item
FieldName = 'customerSaleTypeCode'
PickList.Strings = ()
Width = 79
KeyList.Strings = ()
end
Item
FieldName = 'SaleTypeName'
PickList.Strings = ()
Width = 93
KeyList.Strings = ()
end
Item
FieldName = 'customerSaleDeptCode'
PickList.Strings = ()
Width = 77
KeyList.Strings = ()
end
Item
FieldName = 'DeptName'
PickList.Strings = ()
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'customerSaleEmployeeCode'
PickList.Strings = ()
Width = 89
KeyList.Strings = ()
end
Item
FieldName = 'EmployeeName'
PickList.Strings = ()
Width = 100
KeyList.Strings = ()
end
Item
Alignment = taLeftJustify
FieldName = 'SalePricecontrl'
PickList.Strings = (
'0 可从销售合同引入或手工输入'
'1 只可从销售合同引入')
Width = 117
KeyList.Strings = (
'0'
'1')
end
Item
FieldName = 'CUSTOMERCREDITCtrl'
PickList.Strings = (
'是'
'否')
Title.Alignment = taCenter
Title.Caption = '是否控制信用额'
KeyList.Strings = (
'1'
'0')
end
Item
FieldName = 'CUSTOMERCREDIT'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '信用额'
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERAdDRESS'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '地址'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMEREMAIL'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = 'E_mail'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERTEL'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '电话'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERFAX'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '传真'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERBANK'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '开户银行'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERBANKACCNO'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '银行帐号'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERTAXRATE_PERCENT'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '缺省税率'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERTAXNO'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '税务登记号'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERCONTACT'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '联系人'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMEROWNER'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '法人代表'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'DisableShip'
PickList.Strings = (
'否'
'是')
Title.Alignment = taCenter
Title.Caption = '是否冻结发货'
Width = 80
KeyList.Strings = (
'0'
'1')
end
Item
FieldName = 'SalInvoiceCancelmode'
PickList.Strings = (
'1 余额承前法'
'2 逐票核销法')
Width = 109
KeyList.Strings = (
'1'
'2')
end
Item
FieldName = 'CUSTOMERCEO'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '负责人'
Width = 100
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERCREATETIME'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '建立日期'
Width = 100
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'CUSTOMERMODIFYTIME'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '最近修改日期'
Width = 100
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'InvoiceArKmCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '应收帐款科目代码'
Width = 109
KeyList.Strings = ()
end
Item
FieldName = 'KmName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '应收帐款科目名称'
Width = 103
KeyList.Strings = ()
end
Item
FieldName = 'InvoiceArKmCodeName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '应收帐款科目'
Width = 88
Visible = False
KeyList.Strings = ()
end
Item
FieldName = 'GenerallyInvoiceArKmCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '主营业收入科目代码'
Width = 114
KeyList.Strings = ()
end
Item
FieldName = 'GenerallyInvoiceArKmName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '主营业收入科目名称'
Width = 168
KeyList.Strings = ()
end
Item
FieldName = 'SepcialInvoiceArKmCode'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '其它业务收入科目代码'
Width = 142
KeyList.Strings = ()
end
Item
FieldName = 'SepcialInvoiceArKmName'
PickList.Strings = ()
Title.Alignment = taCenter
Title.Caption = '其它业务收入科目名称'
Width = 180
KeyList.Strings = ()
end
Item
FieldName = 'SaleCoStkMCode'
PickList.Strings = ()
Title.Caption = '主营业务成本科目代码'
Width = 131
KeyList.Strings = ()
end
Item
FieldName = 'SaleCoStkMName'
PickList.Strings = ()
Title.Caption = '主营业务成本科目名称'
Width = 216
KeyList.Strings = ()
end
Item
FieldName = 'OtherSaleCoStkmCode'
PickList.Strings = ()
Width = 133
KeyList.Strings = ()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -