incept.dfm

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

object Frm_Incept: TFrm_Incept
  Left = 139
  Top = 11
  BorderStyle = bsDialog
  Caption = #37038#20214#25509#25910#31649#29702
  ClientHeight = 587
  ClientWidth = 849
  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 = 849
    Height = 42
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 38
        Width = 845
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 832
      Height = 38
      AutoSize = True
      ButtonHeight = 36
      ButtonWidth = 67
      Caption = 'ToolBar1'
      Flat = True
      Images = ImageList1
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Caption = #36830#25509
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 67
        Top = 0
        Caption = #26029#24320
        ImageIndex = 6
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 134
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object ToolButton4: TToolButton
        Left = 142
        Top = 0
        Caption = #26174#31034#20449#24687
        ImageIndex = 1
        OnClick = StringGrid1DblClick
      end
      object ToolButton5: TToolButton
        Left = 209
        Top = 0
        Caption = #21024#38500#37038#20214
        ImageIndex = 3
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 276
        Top = 0
        Caption = #24674#22797#21024#38500
        ImageIndex = 2
        OnClick = ToolButton1Click
      end
      object ToolButton7: TToolButton
        Left = 343
        Top = 0
        Width = 8
        Caption = 'ToolButton7'
        ImageIndex = 5
        Style = tbsSeparator
      end
      object ToolButton8: TToolButton
        Left = 351
        Top = 0
        Caption = #23384#20837#25968#25454#24211
        ImageIndex = 4
        OnClick = ToolButton8Click
      end
      object ToolButton9: TToolButton
        Left = 418
        Top = 0
        Caption = #36864#20986
        ImageIndex = 5
        OnClick = ToolButton9Click
      end
    end
  end
  object StringGrid1: TStringGrid
    Left = 0
    Top = 42
    Width = 849
    Height = 109
    Align = alTop
    ColCount = 4
    DefaultRowHeight = 20
    FixedCols = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
    TabOrder = 1
    OnDblClick = StringGrid1DblClick
    ColWidths = (
      114
      132
      128
      142)
  end
  object GroupBox1: TGroupBox
    Left = 568
    Top = 151
    Width = 281
    Height = 417
    Align = alRight
    Caption = #38468#20214
    TabOrder = 2
    object StringGrid2: TStringGrid
      Left = 2
      Top = 15
      Width = 277
      Height = 400
      Align = alClient
      ColCount = 3
      DefaultRowHeight = 20
      FixedCols = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
      TabOrder = 0
      OnDblClick = StringGrid2DblClick
      ColWidths = (
        100
        92
        90)
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 151
    Width = 568
    Height = 417
    Align = alClient
    Caption = #20869#23481
    TabOrder = 3
    object Memo1: TMemo
      Left = 2
      Top = 15
      Width = 564
      Height = 400
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 0
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 568
    Width = 849
    Height = 19
    Panels = <
      item
        Width = 300
      end
      item
        Width = 50
      end>
  end
  object IdPOP31: TIdPOP3
    MaxLineAction = maException
    ReadTimeout = 0
    Left = 8
    Top = 193
  end
  object IdMessage1: TIdMessage
    AttachmentEncoding = 'MIME'
    BccList = <>
    CCList = <>
    Encoding = meMIME
    Recipients = <>
    ReplyTo = <>
    Left = 39
    Top = 194
  end
  object ADOIncept: TADODataSet
    Connection = FDM.ADOConnection1
    CommandText = 'select * from MR_InCept_Tab'
    Parameters = <>
    Left = 16
    Top = 276
  end
  object SaveDialog1: TSaveDialog
    Left = 383
    Top = 279
  end
  object ADOPOP3: TADODataSet
    Connection = FDM.ADOConnection1
    LockType = ltBatchOptimistic
    CommandText = 'select * from MR_MailSetup_tab Where MR_SeverType='#39'POP3'#39
    FieldDefs = <
      item
        Name = 'MR_ServerName'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'MR_Port'
        Attributes = [faFixed]
        DataType = ftInteger
      end
      item
        Name = 'MR_Name'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'MR_Pwd'