p_gh.dfm

超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统超市系统

object f_gh: Tf_gh
  Left = 44
  Top = 63
  BorderStyle = bsSingle
  Caption = #23458#25143#20449#24687#35774#32622
  ClientHeight = 462
  ClientWidth = 714
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 4
    Top = 213
    Width = 705
    Height = 241
    ParentShowHint = False
    Shape = bsFrame
    ShowHint = False
    Style = bsRaised
  end
  object Bevel2: TBevel
    Left = 4
    Top = 170
    Width = 705
    Height = 39
    ParentShowHint = False
    Shape = bsFrame
    ShowHint = False
    Style = bsRaised
  end
  object Label16: TLabel
    Left = 218
    Top = 472
    Width = 344
    Height = 16
    Caption = #35828#26126#65306#35831'"'#21452#20987'"'#25110'"'#21333#20987#36873#25321'"'#36873#25321#23458#25143#21517#31216'                                        '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8388863
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object PAN: TPanel
    Left = 8
    Top = 217
    Width = 587
    Height = 231
    BevelOuter = bvNone
    Enabled = False
    TabOrder = 0
    object Label1: TLabel
      Left = 33
      Top = 12
      Width = 36
      Height = 13
      Caption = #32534#21495#65306
    end
    object Label2: TLabel
      Left = 33
      Top = 40
      Width = 36
      Height = 13
      Caption = #21517#31216#65306
    end
    object Label3: TLabel
      Left = 242
      Top = 14
      Width = 36
      Height = 13
      Caption = #37038#32534#65306
    end
    object Label4: TLabel
      Left = 29
      Top = 208
      Width = 40
      Height = 13
      Caption = 'QQ'#21495#65306
    end
    object Label5: TLabel
      Left = 21
      Top = 96
      Width = 48
      Height = 13
      Caption = #32852#31995#20154#65306
    end
    object Label6: TLabel
      Left = 33
      Top = 152
      Width = 36
      Height = 13
      Caption = #25163#26426#65306
    end
    object Label7: TLabel
      Left = 9
      Top = 124
      Width = 60
      Height = 13
      Caption = #32852#31995#30005#35805#65306
    end
    object Label8: TLabel
      Left = 33
      Top = 68
      Width = 36
      Height = 13
      Caption = #22320#22336#65306
    end
    object Label9: TLabel
      Left = 450
      Top = 15
      Width = 36
      Height = 13
      Caption = #22791#27880#65306
    end
    object Label11: TLabel
      Left = 216
      Top = 98
      Width = 60
      Height = 13
      Caption = #24320#25143#38134#34892#65306
    end
    object Label15: TLabel
      Left = 240
      Top = 208
      Width = 36
      Height = 13
      Caption = #32593#22336#65306
    end
    object Label10: TLabel
      Left = 33
      Top = 180
      Width = 36
      Height = 13
      Caption = #20256#30495#65306
    end
    object Label14: TLabel
      Left = 233
      Top = 180
      Width = 43
      Height = 13
      Caption = 'E_mail'#65306
    end
    object Label12: TLabel
      Left = 216
      Top = 125
      Width = 60
      Height = 13
      Caption = #38134#34892#36134#21495#65306
    end
    object Label13: TLabel
      Left = 240
      Top = 153
      Width = 36
      Height = 13
      Caption = #31246#21495#65306
    end
    object khh: TsuiDBEdit
      Left = 81
      Top = 10
      Width = 121
      Height = 23
      BorderStyle = bsNone
      DataField = 'khh'
      DataSource = dm.DS_KH
      Enabled = False
      TabOrder = 0
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object suiDBEdit2: TsuiDBEdit
      Left = 81
      Top = 66
      Width = 358
      Height = 23
      BorderStyle = bsNone
      DataField = 'addr'
      DataSource = dm.DS_KH
      TabOrder = 1
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object khm: TsuiDBEdit
      Left = 81
      Top = 38
      Width = 358
      Height = 23
      BorderStyle = bsNone
      DataField = 'khm'
      DataSource = dm.DS_KH
      TabOrder = 2
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object khyh: TsuiDBLookupComboBox
      Left = 285
      Top = 94
      Width = 153
      Height = 21
      DataField = 'khyh'
      DataSource = dm.DS_KH
      KeyField = 'YHM'
      ListField = 'YHM'
      ListSource = dm.DS_YH
      TabOrder = 3
      UIStyle = MacOS
      BorderColor = 8355711
      ArrowColor = clBlack
      ButtonColor = 15198183
    end
    object suiDBMemo1: TsuiDBMemo
      Left = 450
      Top = 38
      Width = 121
      Height = 186
      BorderStyle = bsNone
      DataField = 'bz'
      DataSource = dm.DS_KH
      TabOrder = 4
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object suiDBEdit4: TsuiDBEdit
      Left = 285
      Top = 120
      Width = 153
      Height = 23
      BorderStyle = bsNone
      DataField = 'yhzh'
      DataSource = dm.DS_KH
      TabOrder = 5
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object suiDBEdit5: TsuiDBEdit
      Left = 285
      Top = 147
      Width = 153
      Height = 23
      BorderStyle = bsNone
      DataField = 'sh'
      DataSource = dm.DS_KH
      TabOrder = 6
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object suiDBEdit1: TsuiDBEdit
      Left = 285
      Top = 174
      Width = 153
      Height = 23
      BorderStyle = bsNone
      DataField = 'email'
      DataSource = dm.DS_KH
      TabOrder = 7
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object suiDBEdit3: TsuiDBEdit
      Left = 285
      Top = 201
      Width = 153
      Height = 23
      BorderStyle = bsNone
      DataField = 'web'
      DataSource = dm.DS_KH
      TabOrder = 8
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object suiDBEdit6: TsuiDBEdit
      Left = 80
      Top = 93
      Width = 121
      Height = 23
      BorderStyle = bsNone
      DataField = 'lxr'
      DataSource = dm.DS_KH
      TabOrder = 9
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object tel: TsuiDBEdit
      Left = 80
      Top = 120
      Width = 121
      Height = 23
      BorderStyle = bsNone
      DataField = 'tel1'
      DataSource = dm.DS_KH
      TabOrder = 10
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object suiDBEdit8: TsuiDBEdit
      Left = 80
      Top = 147
      Width = 121
      Height = 23
      BorderStyle = bsNone
      DataField = 'tel2'
      DataSource = dm.DS_KH
      TabOrder = 11
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object suiDBEdit9: TsuiDBEdit
      Left = 80
      Top = 174
      Width = 121
      Height = 23
      BorderStyle = bsNone
      DataField = 'cz'
      DataSource = dm.DS_KH
      TabOrder = 12
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object suiDBEdit10: TsuiDBEdit
      Left = 80
      Top = 202
      Width = 121
      Height = 23
      BorderStyle = bsNone
      DataField = 'qq'
      DataSource = dm.DS_KH
      TabOrder = 13
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
    object suiDBEdit11: TsuiDBEdit
      Left = 286
      Top = 10
      Width = 153
      Height = 23
      BorderStyle = bsNone
      DataField = 'yb'
      DataSource = dm.DS_KH
      TabOrder = 14
      UIStyle = DeepBlue
      BorderColor = clBlack
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 714
    Height = 165
    Align = alTop
    Color = clWhite
    Ctl3D = False
    DataSource = dm.DS_QUERY
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'khh'
        Title.Caption = #23458#25143#32534#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'khm'
        Title.Caption = #23458#25143#21517#31216
        Width = 118
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'addr'
        Title.Caption = #22320#22336
        Width = 130
        Visible = True
      end
      item