📄 un_companyselect.~dfm

📁 Delphi 开发的很好用的客户管理源代码
💻 ~DFM
字号:
object fm_companyselect: Tfm_companyselect
  Left = 201
  Top = 100
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = #23458#25143#26597#35810
  ClientHeight = 490
  ClientWidth = 583
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 82
    Top = 444
    Width = 95
    Height = 33
    Caption = #36873#23450
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 280
    Width = 537
    Height = 153
    Color = clInfoBk
    DataSource = DataSource1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -16
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 338
    Top = 444
    Width = 95
    Height = 33
    Caption = #36820#22238
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Kind = bkClose
  end
  object BitBtn3: TBitBtn
    Left = 210
    Top = 444
    Width = 95
    Height = 33
    Cancel = True
    Caption = #21024#38500
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn3Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333FFFFF333333000033333388888833333333333F888888FFF333
      000033338811111188333333338833FFF388FF33000033381119999111833333
      38F338888F338FF30000339119933331111833338F388333383338F300003391
      13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
      33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
      33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
      000039183811193333918338F8F833F83333838F000039118111933339118338
      F3833F83333833830000339111193333391833338F33F8333FF838F300003391
      11833338111833338F338FFFF883F83300003339111888811183333338FF3888
      83FF83330000333399111111993333333388FFFFFF8833330000333333999999
      3333333333338888883333330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 537
    Height = 265
    Caption = #26597#35810#26465#20214
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    object Label24: TLabel
      Left = 24
      Top = 27
      Width = 64
      Height = 16
      Caption = #21333#20301#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 24
      Top = 55
      Width = 64
      Height = 16
      Caption = #21333#20301#22320#22336
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 24
      Top = 84
      Width = 64
      Height = 16
      Caption = #37038'    '#32534
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 296
      Top = 84
      Width = 64
      Height = 16
      Caption = #20256'    '#30495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 296
      Top = 113
      Width = 64
      Height = 16
      Caption = #32852' '#31995' '#20154
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 24
      Top = 113
      Width = 64
      Height = 16
      Caption = #32852#31995#30005#35805
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 24
      Top = 173
      Width = 64
      Height = 16
      Caption = #24320#25143#38134#34892
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 24
      Top = 202
      Width = 64
      Height = 16
      Caption = #21333#20301#36134#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 24
      Top = 231
      Width = 64
      Height = 16
      Caption = #31246'    '#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 24
      Top = 145
      Width = 56
      Height = 16
      Caption = ' e-mail'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object ed_name: TEdit
      Left = 104
      Top = 24
      Width = 417
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
    end
    object ed_addr: TEdit
      Left = 104
      Top = 53
      Width = 417
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
    end
    object ed_code: TEdit
      Left = 104
      Top = 82
      Width = 169
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 6
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      OnKeyPress = ed_codeKeyPress
    end
    object ed_rep: TEdit
      Left = 368
      Top = 82
      Width = 153
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      OnKeyPress = ed_telKeyPress
    end
    object ed_relation: TEdit
      Left = 368
      Top = 112
      Width = 153
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 100
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
    end
    object ed_tel: TEdit
      Left = 104
      Top = 112
      Width = 169
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
      OnKeyPress = ed_telKeyPress
    end
    object ed_account_bank: TEdit
      Left = 104
      Top = 172
      Width = 225
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 7
    end
    object ed_account: TEdit
      Left = 104
      Top = 201
      Width = 225
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 8
      OnKeyPress = ed_accountKeyPress
    end
    object ed_tax_no: TEdit
      Left = 104
      Top = 231
      Width = 225
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 9
      OnKeyPress = ed_accountKeyPress
    end
    object BitBtn4: TBitBtn
      Left = 416
      Top = 176
      Width = 81
      Height = 33
      Caption = #26597#35810
      TabOrder = 10
      OnClick = BitBtn4Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object ed_mail: TEdit
      Left = 104
      Top = 142
      Width = 225
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 100
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 6
    end
  end
  object DataSource1: TDataSource
    DataSet = select_client
    Left = 16
    Top = 272
  end
  object select_client: TADOQuery
    Connection = fm_applicant.ADOConnection1
    Parameters = <>
    Left = 240
    Top = 256
  end
  object delete_company: TADOQuery
    Connection = fm_applicant.ADOConnection1
    Parameters = <>
    Left = 296
    Top = 264
  end
end
💿 文件大小 429 K
👤 上传用户 zwendong
📂 所属分类企业管理
🏷️ 相关标签

#Delphi #源代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -