classtype.dfm

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

          object DBMemo1: TDBMemo
            Left = 339
            Top = 152
            Width = 254
            Height = 65
            DataField = 'cDescription'
            DataSource = DataSource
            TabOrder = 5
          end
          object GroupBox2: TGroupBox
            Left = 19
            Top = 143
            Width = 281
            Height = 73
            Caption = #29677#20108
            TabOrder = 4
            object Label9: TLabel
              Left = 22
              Top = 20
              Width = 26
              Height = 13
              Caption = #19978#29677
            end
            object Label10: TLabel
              Left = 134
              Top = 20
              Width = 52
              Height = 13
              Caption = #25171#21345#24310#26178
            end
            object Label11: TLabel
              Left = 22
              Top = 47
              Width = 26
              Height = 13
              Caption = #19979#29677
            end
            object Label12: TLabel
              Left = 134
              Top = 47
              Width = 52
              Height = 13
              Caption = #25171#21345#24310#26178
            end
            object Label13: TLabel
              Left = 251
              Top = 20
              Width = 26
              Height = 13
              Caption = #20998#37912
            end
            object Label21: TLabel
              Left = 251
              Top = 44
              Width = 26
              Height = 13
              Caption = #20998#37912
            end
            object wwDBEdit3: TwwDBEdit
              Left = 48
              Top = 16
              Width = 70
              Height = 21
              DataField = 'cIn2'
              DataSource = DataSource
              Picture.PictureMask = '##:##'
              TabOrder = 0
              UnboundDataType = wwDefault
              WantReturns = False
              WordWrap = False
              OnExit = wwDBEdit1Exit
            end
            object wwDBSpinEdit3: TwwDBSpinEdit
              Left = 190
              Top = 16
              Width = 57
              Height = 21
              Increment = 1
              Value = 15
              DataField = 'iInRange2'
              DataSource = DataSource
              TabOrder = 1
              UnboundDataType = wwDefault
            end
            object wwDBEdit4: TwwDBEdit
              Left = 48
              Top = 43
              Width = 70
              Height = 21
              DataField = 'cOut2'
              DataSource = DataSource
              Picture.PictureMask = '##:##'
              TabOrder = 2
              UnboundDataType = wwDefault
              WantReturns = False
              WordWrap = False
              OnExit = wwDBEdit1Exit
            end
            object wwDBSpinEdit4: TwwDBSpinEdit
              Left = 190
              Top = 43
              Width = 57
              Height = 21
              Increment = 1
              Value = 30
              DataField = 'iOutRange2'
              DataSource = DataSource
              TabOrder = 3
              UnboundDataType = wwDefault
            end
          end
          object DBRadioGroup1: TDBRadioGroup
            Left = 342
            Top = 21
            Width = 185
            Height = 41
            Columns = 2
            DataField = 'cDayNight'
            DataSource = DataSource
            Items.Strings = (
              #30333#29677
              #22812#29677)
            TabOrder = 2
          end
          object DBEdit3: TDBEdit
            Left = 392
            Top = 68
            Width = 89
            Height = 21
            DataField = 'iStdTime'
            DataSource = DataSource
            TabOrder = 6
          end
          object DBEdit4: TDBEdit
            Left = 392
            Top = 92
            Width = 89
            Height = 21
            DataField = 'iFreeTime'
            DataSource = DataSource
            TabOrder = 7
          end
          object DBEdit5: TDBEdit
            Left = 392
            Top = 116
            Width = 89
            Height = 21
            DataField = 'StdOvertime'
            DataSource = DataSource
            Enabled = False
            TabOrder = 8
          end
          object wwDBEdit5: TwwDBEdit
            Left = 104
            Top = 219
            Width = 70
            Height = 21
            DataField = 'cIn3'
            DataSource = DataSource
            Picture.PictureMask = '##:##'
            TabOrder = 9
            UnboundDataType = wwDefault
            WantReturns = False
            WordWrap = False
            OnExit = wwDBEdit1Exit
          end
        end
      end
    end
    inherited tbsBrowser: TTabSheet
      inherited wwDBGrid: TwwDBGrid
        Width = 614
        Height = 315
        Selected.Strings = (
          'cClassNo'#9'5'#9#20195#30908#9#9
          'cClassName'#9'11'#9#29677#21029#9#9
          'cDayNight'#9'6'#9#29677#21029#39006#22411#9'F'
          'cIn1'#9'8'#9#26178#38291#9'F'#9#19978#29677#19968
          'iInRange1'#9'10'#9#24310#26178#9'F'#9#19978#29677#19968
          'cOut1'#9'8'#9#26178#38291#9'F'#9#19979#29677#19968
          'iOutRange1'#9'10'#9#24310#26178#9'F'#9#19979#29677#19968
          'cIn2'#9'8'#9#26178#38291#9'F'#9#19978#29677#20108
          'iInRange2'#9'10'#9#24310#26178#9'F'#9#19978#29677#20108
          'cOut2'#9'8'#9#26178#38291#9'F'#9#19979#29677#20108
          'iOutRange2'#9'10'#9#24310#26178#9'F'#9#19979#29677#20108
          'iStdTime'#9'10'#9#27161#20934#26178#38291#9'F'
          'iFreeTime'#9'10'#9#20241#24687#26178#38291#9'F'
          'StdOvertime'#9'10'#9#21152#29677#26178#38291#9'F'
          'iCardTimes'#9'10'#9#25171#21345#27425#25976#9'F'
          'cDescription'#9'27'#9#27880#37323#9#9
          'cUser'#9'9'#9#29992#25142#9'F'
          'tUpdateTime'#9'22'#9#26356#26032#26178#38291#9'F'
          'cAction'#9'6'#9#21205#20316#9'F')
        TitleLines = 2
        UseTFields = False
      end
    end
  end
  inherited DataSource: TDataSource
    DataSet = ADOQuery1
    Left = 432
    Top = 288
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    BeforePost = ADOQuery1BeforePost
    OnCalcFields = ADOQuery1CalcFields
    Parameters = <>
    SQL.Strings = (
      'Select * From Class Order by cClassNO')
    Left = 488
    Top = 296
    object ADOQuery1cClassNo: TStringField
      FieldName = 'cClassNo'
      Size = 5
    end
    object ADOQuery1cClassName: TStringField
      FieldName = 'cClassName'
      Size = 10
    end
    object ADOQuery1cDescription: TStringField
      FieldName = 'cDescription'
      Size = 50
    end
    object ADOQuery1cIn1: TStringField
      FieldName = 'cIn1'
      Size = 8
    end
    object ADOQuery1iInRange1: TIntegerField
      FieldName = 'iInRange1'
    end
    object ADOQuery1cOut1: TStringField
      FieldName = 'cOut1'
      Size = 8
    end
    object ADOQuery1iOutRange1: TIntegerField
      FieldName = 'iOutRange1'
    end
    object ADOQuery1cIn2: TStringField
      FieldName = 'cIn2'
      Size = 8
    end
    object ADOQuery1iInRange2: TIntegerField
      FieldName = 'iInRange2'
    end
    object ADOQuery1cOut2: TStringField
      FieldName = 'cOut2'
      Size = 8
    end
    object ADOQuery1iOutRange2: TIntegerField
      FieldName = 'iOutRange2'
    end
    object ADOQuery1cUser: TStringField
      Alignment = taCenter
      FieldName = 'cUser'
      Size = 8
    end
    object ADOQuery1tUpdateTime: TDateTimeField
      FieldName = 'tUpdateTime'
    end
    object ADOQuery1cAction: TStringField
      Alignment = taCenter
      FieldName = 'cAction'
      Size = 4
    end
    object ADOQuery1iCardTimes: TIntegerField
      FieldName = 'iCardTimes'
    end
    object ADOQuery1cDayNight: TStringField
      Alignment = taCenter
      FieldName = 'cDayNight'
      Size = 4
    end
    object ADOQuery1iFreeTime: TIntegerField
      FieldName = 'iFreeTime'
    end
    object ADOQuery1iStdTime: TIntegerField
      FieldName = 'iStdTime'
    end
    object ADOQuery1StdOvertime: TIntegerField
      FieldKind = fkCalculated
      FieldName = 'StdOvertime'
      Calculated = True
    end
    object ADOQuery1iOverTime: TIntegerField
      FieldName = 'iOverTime'
    end
    object ADOQuery1cIn3: TStringField
      FieldName = 'cIn3'
      Size = 5
    end
  end
end