uform_m.dfm

在打沙场用的最简单

inherited frmform_m: Tfrmform_m
  Left = 259
  Top = 175
  Caption = #34920#21934#36039#26009
  ClientHeight = 191
  ClientWidth = 332
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  inherited GroupBox: TGroupBox
    Height = 178
    TabOrder = 3
    inherited Label1: TLabel
      Top = 17
      Caption = #34920#21333#21517#31216
    end
    object Label2: TLabel [1]
      Left = 7
      Top = 43
      Width = 53
      Height = 16
      AutoSize = False
      Caption = #25551#36848
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel [2]
      Left = 7
      Top = 151
      Width = 53
      Height = 16
      AutoSize = False
      Caption = #22791#27880
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel [3]
      Left = 7
      Top = 97
      Width = 53
      Height = 16
      AutoSize = False
      Caption = #21019#24314#20154
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel [4]
      Left = 7
      Top = 70
      Width = 53
      Height = 16
      AutoSize = False
      Caption = #25152#23646#31867#21035
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel [5]
      Left = 7
      Top = 124
      Width = 53
      Height = 15
      AutoSize = False
      Caption = #21019#24314#26085#26399
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    inherited Edit1: TwwDBEdit
      CharCase = ecLowerCase
      DataField = 'fcode'
      DataSource = frmform.DSbaseinfo
      Font.Name = #23435#20307
      ParentFont = False
    end
    object wwDBEdit1: TwwDBEdit
      Left = 59
      Top = 41
      Width = 112
      Height = 20
      DataField = 'fname'
      DataSource = frmform.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit2: TwwDBEdit
      Left = 59
      Top = 148
      Width = 163
      Height = 20
      DataField = 'fnote'
      DataSource = frmform.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBEdit3: TwwDBEdit
      Left = 59
      Top = 94
      Width = 112
      Height = 20
      DataField = 'fcreateuser'
      DataSource = frmform.DSbaseinfo
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      UnboundDataType = wwDefault
      WantReturns = False
      WordWrap = False
    end
    object wwDBLookupCombo1: TwwDBLookupCombo
      Left = 59
      Top = 67
      Width = 112
      Height = 20
      DropDownAlignment = taLeftJustify
      Selected.Strings = (
        '????'#9'8'#9'????'#9#9)
      DataField = 'ftype'
      DataSource = frmform.DSbaseinfo
      LookupTable = CDStype
      LookupField = #31867#21035
      Options = [loColLines, loRowLines, loTitles, loFixedDropDownHeight, loSearchOnBackspace]
      TabOrder = 2
      AutoDropDown = False
      ShowButton = True
      PreciseEditRegion = False
      AllowClearKey = False
    end
    object wwDBDateTimePicker1: TwwDBDateTimePicker
      Left = 59
      Top = 121
      Width = 112
      Height = 20
      CalendarAttributes.Font.Charset = DEFAULT_CHARSET
      CalendarAttributes.Font.Color = clWindowText
      CalendarAttributes.Font.Height = -11
      CalendarAttributes.Font.Name = 'MS Sans Serif'
      CalendarAttributes.Font.Style = []
      DataField = 'fcreatedate'
      DataSource = frmform.DSbaseinfo
      Epoch = 1950
      ShowButton = True
      TabOrder = 4
    end
  end
  inherited Button1: TButton
    Left = 255
    Top = 13
    TabOrder = 0
  end
  inherited Button2: TButton
    Left = 255
    Top = 42
    TabOrder = 1
  end
  inherited Button3: TButton
    Left = 255
    Top = 161
    TabOrder = 2
  end
  object CDStype: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 200
    Top = 88
    object CDStypeField: TStringField
      FieldName = #31867#21035
    end
  end
end