specifydayfrm.~dfm

delphi 编制的服务器程序

inherited SpecifyDaYForm: TSpecifyDaYForm
  Left = 140
  Top = 99
  Caption = #29305#27530#26085#26399#35774#23450
  ClientHeight = 334
  ClientWidth = 539
  PixelsPerInch = 96
  TextHeight = 15
  inherited Panel1: TPanel
    Top = 293
    Width = 539
    inherited sbquery: TSpeedButton
      Left = 616
    end
    inherited sbexit: TSpeedButton
      Left = 384
    end
  end
  inherited PageControl1: TPageControl
    Width = 539
    Height = 293
    inherited TabSheet1: TTabSheet
      inherited DBGrid1: TDBGrid
        Width = 531
        Height = 253
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'day'
            Title.Alignment = taCenter
            Width = 104
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'RoomCap'
            Title.Alignment = taCenter
            Width = 148
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Explain'
            Title.Alignment = taCenter
            Width = 372
            Visible = True
          end>
      end
    end
    inherited TabSheet2: TTabSheet
      inherited Panel2: TPanel
        Width = 531
        Height = 253
        object Label1: TLabel
          Left = 72
          Top = 8
          Width = 30
          Height = 15
          Caption = #26085#26399
        end
        object Label2: TLabel
          Left = 72
          Top = 64
          Width = 60
          Height = 15
          Caption = #35201#27714#26426#25151
          FocusControl = DBLookupComboBox1
        end
        object Label3: TLabel
          Left = 72
          Top = 128
          Width = 30
          Height = 15
          Caption = #29702#30001
        end
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 72
          Top = 88
          Width = 201
          Height = 23
          DataField = 'RoomCap'
          DataSource = DataSource1
          TabOrder = 0
        end
        object DBMemo1: TDBMemo
          Left = 72
          Top = 152
          Width = 313
          Height = 89
          DataField = 'Explain'
          DataSource = DataSource1
          TabOrder = 1
        end
        object DBDateTimePicker1: TDBDateTimePicker
          Left = 74
          Top = 32
          Width = 135
          Height = 23
          CalAlignment = dtaLeft
          Date = 38560.5344768056
          Time = 38560.5344768056
          DateFormat = dfLong
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 2
          DataField = 'day'
          DataSource = DataSource1
        end
      end
    end
  end
  inherited ADOQuery1: TADOQuery
    Connection = DmMain.ADOConnection1
    AfterInsert = ADOQuery1AfterInsert
    SQL.Strings = (
      'select * from SpecifyDay')
    object ADOQuery1day: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'day'
      DisplayFormat = 'yyyy.mm.dd'
      EditMask = '!0000/00/00;1;_'
    end
    object ADOQuery1RoomCap: TStringField
      DisplayLabel = #35201#27714#26426#25151
      FieldKind = fkLookup
      FieldName = 'RoomCap'
      LookupDataSet = ADOQuery2
      LookupKeyFields = 'RoomID'
      LookupResultField = 'RoomName'
      KeyFields = 'RoomID'
      Lookup = True
    end
    object ADOQuery1Explain: TWideStringField
      DisplayLabel = #29702#30001
      FieldName = 'Explain'
      Size = 50
    end
    object ADOQuery1RoomID: TIntegerField
      FieldName = 'RoomID'
    end
  end
  object ADOQuery2: TADOQuery
    Connection = DmMain.ADOConnection1
    BeforePost = ADOQuery1BeforePost
    AfterPost = ADOQuery1AfterPost
    OnPostError = ADOQuery1PostError
    Parameters = <>
    SQL.Strings = (
      'select * from Room')
    Left = 140
    Top = 56
  end
end