linkmain.dfm

一款不错的商务程序商品管理系统,有简易的窗体皮肤

object Frm_LinkMain: TFrm_LinkMain
  Left = 170
  Top = 160
  BorderStyle = bsDialog
  Caption = #32852#31995#20154
  ClientHeight = 451
  ClientWidth = 707
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 707
    Height = 47
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 38
        Width = 703
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 690
      Height = 38
      ButtonHeight = 36
      ButtonWidth = 49
      Caption = 'ToolBar1'
      Flat = True
      Images = FDM.ImageList1
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Caption = '   '#28155#21152'   '
        ImageIndex = 4
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 49
        Top = 0
        Caption = #21024#38500
        ImageIndex = 2
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 98
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 106
        Top = 0
        Caption = #21462#28040
        ImageIndex = 5
        OnClick = ToolButton4Click
      end
      object ToolButton5: TToolButton
        Left = 155
        Top = 0
        Caption = #20445#23384
        ImageIndex = 1
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 204
        Top = 0
        Width = 8
        Caption = 'ToolButton6'
        ImageIndex = 4
        Style = tbsSeparator
      end
      object ToolButton7: TToolButton
        Left = 212
        Top = 0
        Caption = #36864#20986
        ImageIndex = 3
        OnClick = ToolButton7Click
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 47
    Width = 707
    Height = 404
    Align = alClient
    DataSource = DSLinkMain
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'MR_Name'
        Title.Caption = #32852#31995#20154#22995#21517
        Width = 102
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MR_Mail'
        Title.Caption = #30005#37038
        Width = 124
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MR_area'
        Title.Caption = #22320#21306
        Width = 78
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MR_Tel'
        Title.Caption = #32852#31995#30005#35805
        Width = 126
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MR_Unit'
        Title.Caption = #32852#31995#21333#20301
        Width = 152
        Visible = True
      end>
  end
  object ADOLinkMain: TADODataSet
    Connection = FDM.ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from MR_InceptPerson_Tab'
    Parameters = <>
    Left = 26
    Top = 224
  end
  object DSLinkMain: TDataSource
    DataSet = ADOLinkMain
    Left = 58
    Top = 223
  end
end