feedbackedit.dfm

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

object Frm_FeedBackEdit: TFrm_FeedBackEdit
  Left = 236
  Top = 198
  BorderStyle = bsDialog
  Caption = #32852#31995#20449#24687
  ClientHeight = 236
  ClientWidth = 438
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 221
    Top = 14
    Width = 87
    Height = 13
    Caption = #32852#31995#26041#24335#65306'         '
    Transparent = True
  end
  object Label5: TLabel
    Left = 13
    Top = 51
    Width = 81
    Height = 13
    Caption = #32852#31995#24615#36136#65306'       '
    Transparent = True
  end
  object Label6: TLabel
    Left = 13
    Top = 14
    Width = 81
    Height = 13
    Caption = #32852#31995#26085#26399#65306'       '
    Transparent = True
  end
  object Label7: TLabel
    Left = 13
    Top = 89
    Width = 90
    Height = 13
    Caption = #32852#31995#20869#23481#65306'          '
    Transparent = True
  end
  object Label8: TLabel
    Left = 13
    Top = 145
    Width = 99
    Height = 13
    Caption = #21453#39304#20449#24687#65306'             '
    Transparent = True
  end
  object SpeedButton1: TSpeedButton
    Left = 126
    Top = 198
    Width = 73
    Height = 25
    Caption = #20445#23384
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 238
    Top = 198
    Width = 73
    Height = 25
    Caption = #21462#28040
    OnClick = SpeedButton2Click
  end
  object DateTimePicker1: TDateTimePicker
    Left = 80
    Top = 10
    Width = 134
    Height = 21
    Date = 38856.595983969910000000
    Time = 38856.595983969910000000
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    TabOrder = 0
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 290
    Top = 10
    Width = 134
    Height = 21
    DataField = 'MR_Mode'
    DataSource = Frm_Buyers.DSFeedback
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    KeyField = 'MR_Name'
    ListField = 'MR_Name'
    ListSource = DSRelat
    TabOrder = 1
  end
  object DBComboBox1: TDBComboBox
    Left = 80
    Top = 48
    Width = 134
    Height = 21
    DataField = 'MR_Kind'
    DataSource = Frm_Buyers.DSFeedback
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    ItemHeight = 13
    Items.Strings = (
      #25105#26041#32852#31995
      #23545#26041#32852#31995
      #26085#24120#35760#24405)
    TabOrder = 2
  end
  object DBMemo1: TDBMemo
    Left = 80
    Top = 85
    Width = 345
    Height = 41
    DataField = 'MR_Matter'
    DataSource = Frm_Buyers.DSFeedback
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    TabOrder = 3
  end
  object DBMemo2: TDBMemo
    Left = 80
    Top = 141
    Width = 345
    Height = 41
    DataField = 'MR_FeedBack'
    DataSource = Frm_Buyers.DSFeedback
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    TabOrder = 4
  end
  object ADORelat: TADODataSet
    Connection = FDM.ADOConnection1
    CommandText = 'select * from MR_Relat_Tab'
    Parameters = <>
    Left = 24
    Top = 200
  end
  object DSRelat: TDataSource
    DataSet = ADORelat
    Left = 56
    Top = 200
  end
end