comp.dfm

本系统为演示Delphi的功能而开发设计

object FormCompSetup: TFormCompSetup
  Left = 246
  Top = 156
  ActiveControl = EditCompCode
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = '租赁公司管理'
  ClientHeight = 254
  ClientWidth = 487
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    0000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000003888738337700000000000000000038FBFFFB788B8837700000000000
    0788FBFFFBFFF7FF8B8883700000000007FBFFFBFFFBFF7BFFFB888700000000
    007FFBFFFBFFFB7FFBFFFBF3700000000007FFFBFFFBFFF7FFFBFF7777000000
    0007FBFFFBFFFBF7FB7777FFF800000000007FFBFFFBFFF777FBFFFBF8000000
    00007BFFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFBFFFBF8000000
    0000066660FFFBFFFBFFFBFFF80000666000066660FBFFFBFFFBFFFBF8000666
    66000006660FFBFFFBFFFBFFF8000E6666066660660FFFFFFFFBFFFBF8000E66
    66066660660000000FFFFBFFF8000EE6660666606607777777FBFFFBF8000EE6
    660EEEE6660FFBFFFBFFFBFFF80000EEE0770E6660FBFFFBFFFBFFFBF8000000
    00000EEE60FFFBFFFBFFFBFFF8000000000000000FFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    000007FFFBFFFBFFFBFFFBFFF8000000000007FBFFFBFFFBFFFBFFFBF8000000
    0000077777777777777777777700000000000000000000000000000000000000
    0000000000000000000000000000FFFFFFFFFFFFFFFFFFE003FFFF00007FFC00
    001FF800000FF8000007FC000003FE000001FE000001FF000001FF000001FF80
    0001FF800001FF800001C7000001830000010000000100000001000000010000
    00010000000180000001C7000001FF800001FF800001FF800001FF800001FF80
    0001FF800001FFFFFFFFFFFFFFFF280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000000000000000000
    00000000000000087B77088800000008FFFBF0B7880000008BFFFB0FB7800000
    8FFBFF0F0080000008FFFB80FB700000000BFFFBFF7000000660FBFFFB700660
    0060FFFBFF700E60E06000FFFB700EE00EE0FFFBFF700000000FFBFFFB700000
    08FBFFFBFF7000000888888888800000000000000000FFFF0000F00F0000E003
    0000E0010000F0000000F0000000F8000000F800000090000000000000000000
    00000000000098000000F8000000F8000000FFFF0000}
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 16
    Top = 103
    Width = 56
    Height = 14
    Caption = '开户银行'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 41
    Width = 56
    Height = 14
    Caption = '单位名称'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 16
    Top = 74
    Width = 56
    Height = 14
    Caption = '单位地址'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 256
    Top = 70
    Width = 56
    Height = 14
    Caption = '邮政编码'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 258
    Top = 102
    Width = 42
    Height = 14
    Caption = '联系人'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 16
    Top = 192
    Width = 28
    Height = 14
    Caption = '备注'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 5
    Top = 162
    Width = 70
    Height = 14
    Caption = '税务登记号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 16
    Top = 134
    Width = 56
    Height = 14
    Caption = '银行帐号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 256
    Top = 130
    Width = 56
    Height = 14
    Caption = '联系电话'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 245
    Top = 161
    Width = 84
    Height = 14
    Caption = '许可证到期日'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 16
    Top = 9
    Width = 56
    Height = 14
    Caption = '单位代码'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 256
    Top = 38
    Width = 56
    Height = 14
    Caption = '工行帐号'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object ButtonOk: TButton
    Left = 252
    Top = 222
    Width = 74
    Height = 25
    Caption = '保存(&S)'
    TabOrder = 17
    OnClick = ButtonOkClick
  end
  object ButtonReturn: TButton
    Left = 409
    Top = 222
    Width = 67
    Height = 25
    Caption = '关闭(&C)'
    ModalResult = 2
    TabOrder = 19
    OnClick = ButtonReturnClick
  end
  object ButtonSetUp: TButton
    Left = 326
    Top = 222
    Width = 84
    Height = 25
    Caption = '网点设置(&S)'
    TabOrder = 18
    OnClick = ButtonSetUpClick
  end
  object DBEdit1: TDBEdit
    Left = 80
    Top = 33
    Width = 161
    Height = 22
    DataField = 'comp_name'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 1
  end
  object DBEdit2: TDBEdit
    Left = 80
    Top = 65
    Width = 161
    Height = 22
    DataField = 'comp_address'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 4
  end
  object DBEdit3: TDBEdit
    Left = 80
    Top = 93
    Width = 161
    Height = 22
    DataField = 'open_bank'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 6
  end
  object DBEdit4: TDBEdit
    Left = 80
    Top = 122
    Width = 161
    Height = 22
    DataField = 'bank_acct'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 8
  end
  object DBEdit5: TDBEdit
    Left = 80
    Top = 153
    Width = 161
    Height = 22
    DataField = 'tax_register'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 10
  end
  object DBEdit6: TDBEdit
    Left = 328
    Top = 2
    Width = 151
    Height = 22
    TabStop = False
    DataField = 'comp_code'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 3
    Visible = False
    OnExit = DBEdit6Exit
  end
  object DBEdit7: TDBEdit
    Left = 326
    Top = 65
    Width = 155
    Height = 22
    DataField = 'postcode'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 5
  end
  object DBEdit8: TDBEdit
    Left = 326
    Top = 95
    Width = 155
    Height = 22
    DataField = 'contact_person'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 7
  end
  object DBEdit9: TDBEdit
    Left = 326
    Top = 123
    Width = 155
    Height = 22
    DataField = 'contact_phone'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 9
  end
  object DBEdit11: TDBEdit
    Left = 79
    Top = 185
    Width = 402
    Height = 22
    DataField = 'note'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 12
  end
  object DateTimePickerLicence: TDateTimePicker
    Left = 326
    Top = 153
    Width = 155
    Height = 22
    CalAlignment = dtaLeft
    Date = 36472.8182607639
    Time = 36472.8182607639
    DateFormat = dfLong
    DateMode = dmComboBox
    ImeName = '中文 (简体) - 微软拼音'
    Kind = dtkDate
    ParseInput = False
    TabOrder = 11
    OnChange = DateTimePickerLicenceChange
  end
  object EditCompCode: TEdit
    Left = 80
    Top = 3
    Width = 159
    Height = 22
    ImeName = '中文 (简体) - 微软拼音'
    MaxLength = 4
    TabOrder = 0
    Text = 'EditCompCode'
    OnExit = EditCompCodeExit
  end
  object ButtonPrior: TButton
    Left = 10
    Top = 222
    Width = 66
    Height = 25
    Caption = '上一条(&F)'
    TabOrder = 13
    OnClick = ButtonPriorClick
  end
  object ButtonNext: TButton
    Left = 76
    Top = 222
    Width = 64
    Height = 25
    Caption = '下一条(&N)'
    TabOrder = 14
    OnClick = ButtonNextClick
  end
  object ButtonAdd: TButton
    Left = 140
    Top = 222
    Width = 58
    Height = 25
    Caption = '增加(&A)'
    TabOrder = 15
    OnClick = ButtonAddClick
  end
  object ButtonDelete: TButton
    Left = 198
    Top = 222
    Width = 55
    Height = 25
    Caption = '删除(&D)'
    TabOrder = 16
    OnClick = ButtonDeleteClick
  end
  object DBEdit10: TDBEdit
    Left = 327
    Top = 33
    Width = 155
    Height = 22
    DataField = 'commercial_acct'
    DataSource = HuaXiaData.DataSourceCompSet
    ImeName = '中文 (简体) - 微软拼音'
    TabOrder = 2
  end
end