unit3.dfm

这是一个火车站公寓的自动叫班程序源码

object fmAdd: TfmAdd
  Left = 192
  Top = 110
  AutoSize = True
  BorderStyle = bsDialog
  Caption = #28155#21152#21450#20462#25913#35760#24405#39033
  ClientHeight = 291
  ClientWidth = 385
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object BitBtn1: TBitBtn
    Left = 79
    Top = 266
    Width = 75
    Height = 25
    Caption = #20445#23384
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ModalResult = 1
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 223
    Top = 266
    Width = 75
    Height = 25
    Caption = #36864#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ModalResult = 7
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn2Click
  end
  object PageAdd: TPageControl
    Left = 0
    Top = 0
    Width = 385
    Height = 265
    ActivePage = tabCaller
    TabOrder = 2
    object tabPlan: TTabSheet
      Caption = 'tabPlan'
      TabVisible = False
      object Label6: TLabel
        Left = 19
        Top = 74
        Width = 84
        Height = 19
        Caption = #20986#20056#36710#27425
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label4: TLabel
        Left = 19
        Top = 26
        Width = 84
        Height = 19
        Caption = #25151#38388#21495#30721
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label7: TLabel
        Left = 19
        Top = 131
        Width = 84
        Height = 19
        Caption = #24320#36710#26102#38388
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label8: TLabel
        Left = 19
        Top = 197
        Width = 84
        Height = 19
        Caption = #19968#21483#26102#38388
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DateTimePicker6: TDateTimePicker
        Left = 120
        Top = 194
        Width = 184
        Height = 32
        Date = 39043.665730300930000000
        Time = 39043.665730300930000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Kind = dtkTime
        ParentFont = False
        TabOrder = 0
      end
      object DateTimePicker4: TDateTimePicker
        Left = 120
        Top = 127
        Width = 184
        Height = 32
        Date = 39043.665730300930000000
        Time = 39043.665730300930000000
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Kind = dtkTime
        ParentFont = False
        TabOrder = 1
      end
      object ComboBox3: TComboBox
        Left = 120
        Top = 25
        Width = 185
        Height = 32
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 24
        ParentFont = False
        TabOrder = 2
        Text = 'ComboBox3'
      end
      object ComboBox4: TComboBox
        Left = 120
        Top = 71
        Width = 185
        Height = 32
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 24
        ParentFont = False
        TabOrder = 3
        Text = 'ComboBox4'
      end
    end
    object tabLeave: TTabSheet
      Caption = 'tabLeave'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ImageIndex = 1
      ParentFont = False
      TabVisible = False
      object Label9: TLabel
        Left = 16
        Top = 16
        Width = 88
        Height = 19
        Caption = #21333#20301#21517#31216
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 16
        Top = 47
        Width = 46
        Height = 19
        Caption = #22995#21517
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label11: TLabel
        Left = 16
        Top = 74
        Width = 88
        Height = 19
        Caption = #20837#23507#26102#38388
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label12: TLabel
        Left = 16
        Top = 101
        Width = 88
        Height = 19
        Caption = #25151#38388#21495#30721
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label14: TLabel
        Left = 16
        Top = 130
        Width = 88
        Height = 19
        Caption = #20986#20056#36710#27425
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label15: TLabel
        Left = 16
        Top = 158
        Width = 88
        Height = 19
        Caption = #24320#36710#26102#38388
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label16: TLabel
        Left = 16
        Top = 184
        Width = 88
        Height = 19
        Caption = #19968#21483#26102#38388
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label17: TLabel
        Left = 16
        Top = 211
        Width = 88
        Height = 19
        Caption = #19977#20652#26102#38388
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DateTimePicker7: TDateTimePicker
        Left = 120
        Top = 72
        Width = 119
        Height = 32
        Date = 39043.665483645830000000
        Time = 39043.665483645830000000
        TabOrder = 0
      end
      object DateTimePicker8: TDateTimePicker
        Left = 241
        Top = 72
        Width = 116
        Height = 32
        Date = 39043.665730300930000000
        Time = 39043.665730300930000000
        Kind = dtkTime
        TabOrder = 1
      end
      object DateTimePicker9: TDateTimePicker
        Left = 120
        Top = 154
        Width = 119
        Height = 32
        Date = 39043.665483645830000000
        Time = 39043.665483645830000000
        TabOrder = 2
      end
      object DateTimePicker10: TDateTimePicker
        Left = 241
        Top = 154
        Width = 116
        Height = 32
        Date = 39043.665730300930000000
        Time = 39043.665730300930000000
        Kind = dtkTime
        TabOrder = 3
      end
      object DateTimePicker11: TDateTimePicker
        Left = 120
        Top = 181
        Width = 119
        Height = 32
        Date = 39043.665483645830000000
        Time = 39043.665483645830000000
        TabOrder = 4
      end
      object DateTimePicker12: TDateTimePicker
        Left = 241
        Top = 181
        Width = 116
        Height = 32
        Date = 39043.665730300930000000
        Time = 39043.665730300930000000
        Kind = dtkTime
        TabOrder = 5
      end
      object DateTimePicker13: TDateTimePicker
        Left = 120
        Top = 208
        Width = 119
        Height = 32
        Date = 39043.665483645830000000
        Time = 39043.665483645830000000
        Enabled = False
        TabOrder = 6
      end
      object DateTimePicker14: TDateTimePicker
        Left = 241
        Top = 208
        Width = 116
        Height = 32
        Date = 39043.665730300930000000
        Time = 39043.665730300930000000
        Enabled = False
        Kind = dtkTime
        TabOrder = 7
      end
      object ComboBox5: TComboBox
        Left = 120
        Top = 15
        Width = 237
        Height = 32
        ItemHeight = 24
        TabOrder = 8
        Text = 'ComboBox5'
      end
      object ComboBox6: TComboBox
        Left = 120
        Top = 44
        Width = 237
        Height = 32
        ItemHeight = 24
        TabOrder = 9
        Text = 'ComboBox6'
      end
      object ComboBox7: TComboBox
        Left = 120
        Top = 99
        Width = 237
        Height = 32
        ItemHeight = 24
        TabOrder = 10
        Text = 'ComboBox7'
      end
      object ComboBox8: TComboBox
        Left = 120
        Top = 126
        Width = 237
        Height = 32
        ItemHeight = 24
        TabOrder = 11
        Text = 'ComboBox8'
      end
    end
    object tabStuff: TTabSheet
      Caption = 'tabStuff'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ImageIndex = 2
      ParentFont = False
      TabVisible = False
      object Label18: TLabel
        Left = 13
        Top = 34
        Width = 84
        Height = 19
        Caption = #21333#20301#32534#21495
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label19: TLabel
        Left = 13
        Top = 73
        Width = 84
        Height = 19
        Caption = #21333#20301#21517#31216
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label20: TLabel
        Left = 13
        Top = 158
        Width = 105
        Height = 19
        Caption = #20056#21153#21592#22995#21517
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19