ps_comcustomer.dfm

DELPHI5加SQL SERVER2000完成的进销存系统,具体哪些内容记不清了,六七年前写的,希望还能有点贡献

object F_comcustomer: TF_comcustomer
  Left = 204
  Top = 144
  BorderStyle = bsSingle
  Caption = '客户/厂商表'
  ClientHeight = 285
  ClientWidth = 512
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 512
    Height = 285
    Align = alClient
    TabOrder = 0
    object L_id: TLabel
      Left = 208
      Top = 54
      Width = 29
      Height = 16
      Caption = '编号:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_name: TLabel
      Left = 184
      Top = 81
      Width = 55
      Height = 16
      Caption = '公司全称:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_shortname: TLabel
      Left = 184
      Top = 112
      Width = 55
      Height = 16
      Caption = '公司简称:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_address: TLabel
      Left = 16
      Top = 24
      Width = 55
      Height = 16
      Caption = '公司地址:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_telephone1: TLabel
      Left = 16
      Top = 54
      Width = 62
      Height = 16
      Caption = '联络电话1:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_telephone2: TLabel
      Left = 16
      Top = 81
      Width = 62
      Height = 16
      Caption = '联络电话2:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_boss: TLabel
      Left = 16
      Top = 110
      Width = 42
      Height = 16
      Caption = '负责人:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_bosstitle: TLabel
      Left = 16
      Top = 138
      Width = 68
      Height = 16
      Caption = '负责人职称:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_limitcredit: TLabel
      Left = 16
      Top = 167
      Width = 55
      Height = 16
      Caption = '帐款额度:'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_earlyfunds: TLabel
      Left = 16
      Top = 195
      Width = 85
      Height = 16
      Caption = '期初应收/付款:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_earlyfundspaid: TLabel
      Left = 16
      Top = 224
      Width = 85
      Height = 16
      Caption = '期初已收/付款:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_presentfunds: TLabel
      Left = 16
      Top = 252
      Width = 59
      Height = 16
      Caption = '应收/付款:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object L_memo: TLabel
      Left = 208
      Top = 138
      Width = 29
      Height = 16
      Caption = '备注:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object E_address: TDBEdit
      Left = 88
      Top = 22
      Width = 321
      Height = 24
      DataField = 'address'
      DataSource = comdatabase.DS_comcustomer
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = E_addressClick
    end
    object E_id: TDBEdit
      Left = 248
      Top = 52
      Width = 65
      Height = 21
      DataField = 'id'
      DataSource = comdatabase.DS_comcustomer
      TabOrder = 0
      OnClick = E_addressClick
    end
    object E_name: TDBEdit
      Left = 248
      Top = 79
      Width = 249
      Height = 24
      DataField = 'name'
      DataSource = comdatabase.DS_comcustomer
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = E_addressClick
    end
    object E_shortname: TDBEdit
      Left = 248
      Top = 110
      Width = 65
      Height = 21
      DataField = 'shortname'
      DataSource = comdatabase.DS_comcustomer
      TabOrder = 2
      OnClick = E_addressClick
    end
    object E_telephone1: TDBEdit
      Left = 88
      Top = 52
      Width = 81
      Height = 21
      DataField = 'telephone1'
      DataSource = comdatabase.DS_comcustomer
      TabOrder = 4
      OnClick = E_addressClick
    end
    object E_telephone2: TDBEdit
      Left = 88
      Top = 79
      Width = 81
      Height = 21
      DataField = 'telephone2'
      DataSource = comdatabase.DS_comcustomer
      TabOrder = 5
      OnClick = E_addressClick
    end
    object E_boss: TDBEdit
      Left = 88
      Top = 107
      Width = 81
      Height = 21
      DataField = 'boss'
      DataSource = comdatabase.DS_comcustomer
      TabOrder = 6
      OnClick = E_addressClick
    end
    object E_bosstitle: TDBEdit
      Left = 88
      Top = 135
      Width = 81
      Height = 21
      DataField = 'bosstitle'
      DataSource = comdatabase.DS_comcustomer
      TabOrder = 7
      OnClick = E_addressClick
    end
    object E_limitcredit: TDBEdit
      Left = 88
      Top = 163
      Width = 81
      Height = 21
      DataField = 'limitcredit'
      DataSource = comdatabase.DS_comcustomer
      Enabled = False
      TabOrder = 8
      OnClick = E_addressClick
    end
    object E_earlyfunds: TDBEdit
      Left = 104
      Top = 192
      Width = 89
      Height = 21
      DataField = 'earlyfunds'
      DataSource = comdatabase.DS_comcustomer
      TabOrder = 9
      OnClick = E_addressClick
    end
    object E_earlyfundspaid: TDBEdit
      Left = 104
      Top = 220
      Width = 89
      Height = 21
      TabStop = False
      DataField = 'earlyfundspaid'
      DataSource = comdatabase.DS_comcustomer
      ReadOnly = True
      TabOrder = 10
      OnClick = E_addressClick
    end
    object E_presentfunds: TDBEdit
      Left = 104
      Top = 248
      Width = 89
      Height = 21
      TabStop = False
      DataField = 'presentfunds'
      DataSource = comdatabase.DS_comcustomer
      ReadOnly = True
      TabOrder = 11
      OnClick = E_addressClick
    end
    object M_memo: TDBMemo
      Left = 248
      Top = 138
      Width = 249
      Height = 131
      DataField = 'memo'
      DataSource = comdatabase.DS_comcustomer
      TabOrder = 12
      OnClick = E_addressClick
    end
    object GB_flag: TGroupBox
      Left = 415
      Top = 18
      Width = 82
      Height = 55
      Caption = '显示内容'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 13
      object CB_flag1: TCheckBox
        Left = 2
        Top = 15
        Width = 73
        Height = 17
        Caption = '客户信息'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnClick = CB_flag1Click
      end
      object CB_flag2: TCheckBox
        Left = 2
        Top = 35
        Width = 73
        Height = 17
        Caption = '厂商信息'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = CB_flag1Click
      end
    end
  end
end