macinfo_unit.dfm

客户关系管理系统,可以进行一些简单的客户关系管理

object MacInfo_Form: TMacInfo_Form
  Left = 188
  Top = 145
  Width = 447
  Height = 293
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #26426#22120#22411#21495#20449#24687#32500#25252
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 439
    Height = 49
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object CoolBar1: TCoolBar
      Left = 2
      Top = 2
      Width = 435
      Height = 45
      Align = alClient
      Bands = <
        item
          Control = ToolBar1
          ImageIndex = -1
          MinHeight = 41
          Width = 431
        end>
      object ToolBar1: TToolBar
        Left = 9
        Top = 0
        Width = 418
        Height = 41
        Align = alClient
        ButtonHeight = 36
        ButtonWidth = 31
        Caption = 'ToolBar1'
        Images = ImageList1
        ShowCaptions = True
        TabOrder = 0
        object ToolButton1: TToolButton
          Left = 0
          Top = 2
          Caption = #28155#21152
          ImageIndex = 2
          OnClick = ToolButton1Click
        end
        object ToolButton2: TToolButton
          Left = 31
          Top = 2
          Caption = #21024#38500
          ImageIndex = 1
          OnClick = ToolButton2Click
        end
        object ToolButton5: TToolButton
          Left = 62
          Top = 2
          Caption = #20462#25913
          ImageIndex = 3
          OnClick = ToolButton5Click
        end
        object ToolButton6: TToolButton
          Left = 93
          Top = 2
          Caption = #20445#23384
          ImageIndex = 4
          OnClick = ToolButton6Click
        end
        object ToolButton4: TToolButton
          Left = 124
          Top = 2
          Width = 8
          Caption = 'ToolButton4'
          ImageIndex = 1
          Style = tbsSeparator
        end
        object ToolButton3: TToolButton
          Left = 132
          Top = 2
          Caption = #36864#20986
          ImageIndex = 0
          OnClick = ToolButton3Click
        end
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 104
    Width = 439
    Height = 162
    Align = alBottom
    BevelInner = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 2
      Top = 2
      Width = 435
      Height = 158
      Align = alClient
      DataSource = DM.Ds_MacInfo
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnDrawColumnCell = DBGrid1DrawColumnCell
      OnDblClick = DBGrid1DblClick
      Columns = <
        item
          Expanded = False
          Width = 100
          Visible = True
        end
        item
          Expanded = False
          Width = 150
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 49
    Width = 439
    Height = 56
    Align = alCustom
    BevelInner = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 14
      Top = 18
      Width = 80
      Height = 13
      AutoSize = False
      Caption = #26426#22120#22411#21495#32534#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 207
      Top = 16
      Width = 62
      Height = 13
      AutoSize = False
      Caption = #22411#21495#21517#31216#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 99
      Top = 16
      Width = 99
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      OnKeyDown = Edit1KeyDown
    end
    object Edit2: TEdit
      Left = 272
      Top = 13
      Width = 141
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      OnKeyDown = Edit2KeyDown
    end
  end
  object ImageList1: TImageList
    Left = 176
    Top = 8
    Bitmap = {
      494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001002000000000000030
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000