editstorefrm.dfm

相关的销售服务管理行业的一个软件

object EditStoreForm: TEditStoreForm
  Left = 211
  Top = 129
  BorderStyle = bsDialog
  Caption = '分销店编辑窗体'
  ClientHeight = 295
  ClientWidth = 297
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 8
    Top = 8
    Width = 281
    Height = 242
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 64
      Top = 168
      Width = 24
      Height = 12
      Caption = '类型'
    end
    object Label2: TLabel
      Left = 28
      Top = 24
      Width = 60
      Height = 12
      Caption = '分销店编码'
    end
    object Label3: TLabel
      Left = 28
      Top = 53
      Width = 60
      Height = 12
      Caption = '分销店名称'
    end
    object Label4: TLabel
      Left = 64
      Top = 81
      Width = 24
      Height = 12
      Caption = '地址'
    end
    object Label5: TLabel
      Left = 40
      Top = 110
      Width = 48
      Height = 12
      Caption = '联系方式'
    end
    object Label6: TLabel
      Left = 64
      Top = 199
      Width = 24
      Height = 12
      Caption = '备注'
    end
    object Label7: TLabel
      Left = 52
      Top = 139
      Width = 36
      Height = 12
      Caption = '联系人'
    end
    object Label8: TLabel
      Left = 253
      Top = 23
      Width = 6
      Height = 12
      Caption = '*'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 253
      Top = 51
      Width = 6
      Height = 12
      Caption = '*'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object DBEdit1: TDBEdit
      Left = 96
      Top = 23
      Width = 153
      Height = 20
      DataField = '分销店编码'
      DataSource = DataSource1
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 96
      Top = 52
      Width = 153
      Height = 20
      DataField = '商店名称'
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 96
      Top = 81
      Width = 153
      Height = 20
      DataField = '地址'
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 96
      Top = 110
      Width = 153
      Height = 20
      DataField = '联系方式'
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit6: TDBEdit
      Left = 96
      Top = 200
      Width = 153
      Height = 20
      DataField = '备注'
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBComboBox1: TDBComboBox
      Left = 96
      Top = 169
      Width = 153
      Height = 20
      DataField = '类型'
      DataSource = DataSource1
      ItemHeight = 12
      Items.Strings = (
        '代理'
        '自销')
      TabOrder = 5
    end
    object DBEdit5: TDBEdit
      Left = 96
      Top = 139
      Width = 153
      Height = 20
      DataField = '联系人'
      DataSource = DataSource1
      TabOrder = 6
    end
  end
  object BitBtn1: TBitBtn
    Left = 49
    Top = 261
    Width = 79
    Height = 26
    Caption = '保存'
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      5555557777777FF5555557990599905555555777757777F55555790555599055
      55557775555777FF5555555555599905555555555557777F5555555555559905
      555555555555777FF5555555555559905555555555555777FF55555555555579
      05555555555555777FF5555555555557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 161
    Top = 262
    Width = 79
    Height = 26
    Caption = '退出'
    TabOrder = 2
    OnClick = BitBtn2Click
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 8
    Top = 208
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT     StoreCode AS 分销店编码, '
      '           StoreName AS 商店名称, '
      '             Address AS 地址, '
      '      RelationMethod AS 联系方式, '
      '      RelationPerson AS 联系人, '
      '                type AS 类型,'
      '                Memo AS 备注'
      'FROM  xs_store')
    Left = 24
    Top = 176
  end
end