selmail.dfm

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

object Frm_SelMail: TFrm_SelMail
  Left = 242
  Top = 16
  BorderStyle = bsDialog
  Caption = #37038#20214#26597#35810'            '
  ClientHeight = 583
  ClientWidth = 714
  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 GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 714
    Height = 80
    Align = alTop
    Caption = #35831#36873#25321#26597#35810#20869#23481#21644#26085#26399#21306#38388
    TabOrder = 0
    object Label1: TLabel
      Left = 26
      Top = 22
      Width = 87
      Height = 13
      Caption = #36873#25321#23383#27573#65306'         '
    end
    object Label2: TLabel
      Left = 127
      Top = 22
      Width = 87
      Height = 13
      Caption = #26597#35810#26041#24335#65306'         '
    end
    object Label3: TLabel
      Left = 209
      Top = 22
      Width = 69
      Height = 13
      Caption = #20540#65306'               '
    end
    object Label4: TLabel
      Left = 543
      Top = 38
      Width = 39
      Height = 13
      Caption = #33267'         '
    end
    object ComboBox1: TComboBox
      Left = 26
      Top = 37
      Width = 93
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      ItemHeight = 13
      TabOrder = 0
    end
    object ComboBox2: TComboBox
      Left = 126
      Top = 37
      Width = 74
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 1
      Text = #31934#30830
      Items.Strings = (
        #31934#30830
        #27169#31946)
    end
    object Edit1: TEdit
      Left = 207
      Top = 37
      Width = 91
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 2
    end
    object CheckBox1: TCheckBox
      Left = 333
      Top = 39
      Width = 135
      Height = 17
      Caption = #26159#21542#25353#26085#26399#26597#35810'         '
      TabOrder = 3
    end
    object DateTimePicker1: TDateTimePicker
      Left = 441
      Top = 36
      Width = 94
      Height = 21
      Date = 38860.445775462960000000
      Time = 38860.445775462960000000
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 4
    end
    object DateTimePicker2: TDateTimePicker
      Left = 566
      Top = 36
      Width = 94
      Height = 21
      Date = 38860.445775462960000000
      Time = 38860.445775462960000000
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      TabOrder = 5
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 80
    Width = 714
    Height = 37
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label5: TLabel
      Left = 9
      Top = 17
      Width = 93
      Height = 13
      Caption = #37038#20214#21015#34920#65306'           '
    end
    object SpeedButton1: TSpeedButton
      Left = 397
      Top = 5
      Width = 69
      Height = 26
      Caption = #26597#35810
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 555
      Top = 5
      Width = 69
      Height = 26
      Caption = #36864#20986
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 476
      Top = 5
      Width = 69
      Height = 26
      Caption = #20840#37096
      OnClick = SpeedButton3Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 117
    Width = 714
    Height = 120
    Align = alTop
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
  end
  object Panel2: TPanel
    Left = 0
    Top = 237
    Width = 714
    Height = 92
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    object Label6: TLabel
      Left = 9
      Top = 10
      Width = 99
      Height = 13
      Caption = #37038#20214#20027#39064#65306'             '
    end
    object Label7: TLabel
      Left = 348
      Top = 11
      Width = 78
      Height = 13
      Caption = #21457#20214#20154#65306'          '
    end
    object Label8: TLabel
      Left = 525
      Top = 12
      Width = 96
      Height = 13
      Caption = #22320#21306#24402#31867#65306'            '
    end
    object Label9: TLabel
      Left = 8
      Top = 42
      Width = 87
      Height = 13
      Caption = #25910#20214#26085#26399#65306'         '
    end
    object Label10: TLabel
      Left = 165
      Top = 42
      Width = 108
      Height = 13
      Caption = #25910#20214#26102#38388#65306'                '
    end
    object Label11: TLabel
      Left = 348
      Top = 42
      Width = 84
      Height = 13
      Caption = #20445#23384#26085#26399#65306'        '
    end
    object Label12: TLabel
      Left = 525
      Top = 42
      Width = 99
      Height = 13
      Caption = #20445#23384#26102#38388#65306'             '
    end
    object Label13: TLabel
      Left = 8
      Top = 73
      Width = 102
      Height = 13
      Caption = #37038#20214#20869#23481#65306'              '
    end
    object Edit2: TEdit
      Left = 71
      Top = 39
      Width = 87
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      ReadOnly = True
      TabOrder = 0
    end
    object Edit3: TEdit
      Left = 228
      Top = 39
      Width = 112
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      ReadOnly = True
      TabOrder = 1
    end
    object Edit4: TEdit
      Left = 411
      Top = 39
      Width = 108
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      ReadOnly = True
      TabOrder = 2
    end
    object Edit5: TEdit
      Left = 587
      Top = 39
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      ReadOnly = True
      TabOrder = 3
    end
    object Edit6: TEdit
      Left = 73
      Top = 7
      Width = 267
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      ReadOnly = True
      TabOrder = 4
    end
    object Edit7: TEdit
      Left = 399
      Top = 7
      Width = 120
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      ReadOnly = True
      TabOrder = 5
    end
    object Edit8: TEdit
      Left = 587
      Top = 9
      Width = 121
      Height = 21
      ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
      ReadOnly = True
      TabOrder = 6
    end
  end
  object DBMemo1: TDBMemo
    Left = 0
    Top = 329
    Width = 714
    Height = 254
    Align = alClient
    DataField = 'MR_Memo'
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    ReadOnly = True
    TabOrder = 4
  end
  object ADODataSet1: TADODataSet
    Connection = FDM.ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from MR_Sel_View'
    Parameters = <>
    Left = 35
    Top = 415
    object ADODataSet1MR_ID: TAutoIncField
      FieldName = 'MR_ID'
      ReadOnly = True
      Visible = False
    end
    object ADODataSet1MR_Subject: TStringField
      DisplayLabel = #20027#39064
      DisplayWidth = 15
      FieldName = 'MR_Subject'
      Size = 50
    end
    object ADODataSet1MR_SendTo: TStringField
      DisplayLabel = #21457#20214#20154
      DisplayWidth = 20
      FieldName = 'MR_SendTo'
      Size = 50
    end
    object ADODataSet1MR_Date: TDateTimeField
      DisplayLabel = #25910#20214#26085#26399
      DisplayWidth = 20
      FieldName = 'MR_Date'
    end
    object ADODataSet1MR_Size: TIntegerField
      DisplayLabel = #37038#20214#22823#23567
      FieldName = 'MR_Size'
      Visible = False
    end
    object ADODataSet1MR_Affix: TStringField
      FieldName = 'MR_Affix'
      Visible = False
      Size = 50
    end
    object ADODataSet1MR_AffixPath: TStringField
      FieldName = 'MR_AffixPath'
      Visible = False
      Size = 50
    end
    object ADODataSet1MR_SaveDate: TDateTimeField
      DisplayLabel = #20445#23384#26085#26399
      DisplayWidth = 20
      FieldName = 'MR_SaveDate'
    end
    object ADODataSet1MR_area: TStringField
      DisplayLabel = #22320#21306
      DisplayWidth = 10
      FieldName = 'MR_area'
      FixedChar = True
      Size = 10
    end
    object ADODataSet1MR_Memo: TStringField
      DisplayLabel = #37038#20214#20869#23481
      DisplayWidth = 50
      FieldName = 'MR_Memo'
      Size = 255
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 64
    Top = 417
  end
end