termdefinefrm.dfm

delphi 编制的服务器程序

inherited TermDefineForm: TTermDefineForm
  Left = 124
  Top = 53
  Caption = #23398#26399#23450#20041
  ClientHeight = 414
  ClientWidth = 593
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    Top = 373
    Width = 593
    inherited sbquery: TSpeedButton
      Left = 608
    end
    inherited sbimport: TSpeedButton
      Visible = False
    end
    inherited sbexit: TSpeedButton
      Left = 384
    end
  end
  inherited PageControl1: TPageControl
    Width = 593
    Height = 373
    inherited TabSheet1: TTabSheet
      inherited DBGrid1: TDBGrid
        Width = 585
        Height = 333
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'TermCode'
            Title.Alignment = taCenter
            Width = 85
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'TermCaption'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ValidateB'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'ValidateE'
            Title.Alignment = taCenter
            Visible = True
          end>
      end
    end
    inherited TabSheet2: TTabSheet
      inherited Panel2: TPanel
        Width = 585
        Height = 333
        object Label1: TLabel
          Left = 69
          Top = 32
          Width = 187
          Height = 15
          Caption = #23398#26399#32534#21495'(200401'#12289'200402)'
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 69
          Top = 104
          Width = 60
          Height = 15
          Caption = #23398#26399#21517#31216
          FocusControl = DBEdit2
        end
        object Label3: TLabel
          Left = 69
          Top = 184
          Width = 60
          Height = 15
          Caption = #24320#23398#26085#26399
        end
        object Label4: TLabel
          Left = 69
          Top = 256
          Width = 60
          Height = 15
          Caption = #32467#26463#26085#26399
        end
        object DBEdit1: TDBEdit
          Left = 69
          Top = 51
          Width = 186
          Height = 23
          DataField = 'TermCode'
          DataSource = DataSource1
          TabOrder = 0
        end
        object DBEdit2: TDBEdit
          Left = 69
          Top = 124
          Width = 233
          Height = 23
          DataField = 'TermCaption'
          DataSource = DataSource1
          TabOrder = 1
        end
        object DBDateTimePicker1: TDBDateTimePicker
          Left = 69
          Top = 203
          Width = 138
          Height = 23
          CalAlignment = dtaLeft
          Date = 38560.4499240393
          Time = 38560.4499240393
          DateFormat = dfLong
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 2
          DataField = 'ValidateB'
          DataSource = DataSource1
        end
        object DBDateTimePicker2: TDBDateTimePicker
          Left = 69
          Top = 275
          Width = 137
          Height = 23
          CalAlignment = dtaLeft
          Date = 38560.4499240393
          Time = 38560.4499240393
          DateFormat = dfLong
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
          DataField = 'ValidateE'
          DataSource = DataSource1
        end
      end
    end
  end
  inherited ImageList1: TImageList
    Left = 108
    Top = 34
  end
  inherited ADOQuery1: TADOQuery
    Active = True
    Connection = DmMain.ADOConnection1
    CursorType = ctStatic
    AfterInsert = ADOQuery1AfterInsert
    SQL.Strings = (
      'select * from term order by TermCode')
    Top = 32
    object ADOQuery1TermCode: TWideStringField
      DisplayLabel = #23398#26399#32534#21495
      FieldName = 'TermCode'
      Size = 6
    end
    object ADOQuery1TermCaption: TWideStringField
      DisplayLabel = #23398#26399#21517#31216
      FieldName = 'TermCaption'
    end
    object ADOQuery1ValidateB: TDateTimeField
      DisplayLabel = #24320#23398#26085#26399
      FieldName = 'ValidateB'
    end
    object ADOQuery1ValidateE: TDateTimeField
      DisplayLabel = #32467#26463#26085#26399
      FieldName = 'ValidateE'
    end
  end
  inherited DataSource1: TDataSource
    Left = 60
    Top = 40
  end
end