selinceptper.dfm

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

object Frm_SelIncept: TFrm_SelIncept
  Left = 385
  Top = 230
  BorderStyle = bsDialog
  Caption = #36873#25321#22995#21517
  ClientHeight = 319
  ClientWidth = 307
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 307
    Height = 62
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 12
      Width = 213
      Height = 13
      Caption = #38190#20837#21517#31216#25110#30452#25509#20174#21015#34920#20013#36873#25321#65306'               '
    end
    object Edit1: TEdit
      Left = 12
      Top = 29
      Width = 185
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 0
      OnChange = Edit1Change
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 62
    Width = 307
    Height = 156
    Align = alClient
    DataSource = DSLinkMain
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    Columns = <
      item
        Expanded = False
        FieldName = 'MR_Name'
        Title.Caption = #32852#31995#20154
        Width = 142
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MR_Mail'
        Title.Caption = #30005#37038
        Width = 142
        Visible = True
      end>
  end
  object Panel2: TPanel
    Left = 0
    Top = 218
    Width = 307
    Height = 101
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object Label2: TLabel
      Left = 6
      Top = 12
      Width = 72
      Height = 13
      Caption = #25910#20214#20154#65306'        '
    end
    object Label3: TLabel
      Left = 6
      Top = 42
      Width = 66
      Height = 13
      Caption = #25220#36865#65306'          '
    end
    object SpeedButton1: TSpeedButton
      Left = 145
      Top = 71
      Width = 54
      Height = 23
      Caption = #30830#23450
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 219
      Top = 71
      Width = 54
      Height = 23
      Caption = #21462#28040
      OnClick = SpeedButton2Click
    end
    object Edit2: TEdit
      Left = 60
      Top = 9
      Width = 236
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 0
    end
    object Edit3: TEdit
      Left = 60
      Top = 39
      Width = 236
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 1
    end
  end
  object ADOLinkMain: TADODataSet
    Connection = FDM.ADOConnection1
    CommandText = 'select * from MR_InceptPerson_Tab'
    Parameters = <>
    Left = 11
    Top = 154
  end
  object DSLinkMain: TDataSource
    DataSet = ADOLinkMain
    Left = 43
    Top = 155
  end
end