unit1.dfm

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

        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = DataSource3
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #26032#23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #25151#38388#21495#30721
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #20986#20056#36710#27425
            Title.Alignment = taCenter
            Width = 67
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #24320#36710#26102#38388
            Title.Alignment = taCenter
            Width = 100
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #35745#21010#19968#21483#26102#38388
            Title.Alignment = taCenter
            Title.Caption = #35745#21010#21483#29677#26102#38388
            Width = 160
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #23454#38469#19968#21483#26102#38388
            Title.Alignment = taCenter
            Title.Caption = #23454#38469#21483#29677#26102#38388
            Width = 160
            Visible = True
          end
          item
            Expanded = False
            FieldName = #31867#22411
            Title.Alignment = taCenter
            Visible = True
          end>
      end
      object Button7: TButton
        Left = 43
        Top = 293
        Width = 18
        Height = 20
        Anchors = [akLeft, akBottom]
        Caption = '='
        TabOrder = 1
      end
      object Edit3: TEdit
        Left = 63
        Top = 291
        Width = 121
        Height = 24
        Anchors = [akLeft, akBottom]
        TabOrder = 2
        OnChange = Edit3Change
      end
      object ComboBox3: TComboBox
        Left = 191
        Top = 292
        Width = 105
        Height = 24
        Anchors = [akLeft, akBottom]
        ItemHeight = 16
        ItemIndex = 0
        TabOrder = 3
        Text = #20986#20056#36710#27425
        Items.Strings = (
          #20986#20056#36710#27425)
      end
    end
    object tabVoice: TTabSheet
      Caption = #20154#24037#21483#29677#35760#24405
      ImageIndex = 2
      OnShow = tabVoiceShow
      DesignSize = (
        665
        313)
      object Label4: TLabel
        Left = 8
        Top = 293
        Width = 80
        Height = 16
        Anchors = [akLeft, akBottom]
        Caption = #36215#22987#26102#38388#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object DBGrid4: TDBGrid
        Left = 0
        Top = 0
        Width = 664
        Height = 287
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = DataSource4
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #26032#23435#20307
        TitleFont.Style = []
        OnTitleClick = DBGrid4TitleClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #25151#38388#21495
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #21483#29677#26102#38388
            Title.Alignment = taCenter
            Title.Caption = #21483#29677#26102#38388#8595
            Width = 160
            Visible = True
          end
          item
            Expanded = False
            FieldName = #21483#29677#21592
            Title.Alignment = taCenter
            Width = 100
            Visible = True
          end>
      end
      object MediaPlayer2: TMediaPlayer
        Left = 320
        Top = 240
        Width = 253
        Height = 30
        Visible = False
        TabOrder = 1
      end
      object DateTimePicker3: TDateTimePicker
        Left = 87
        Top = 293
        Width = 89
        Height = 24
        Anchors = [akLeft, akBottom]
        Date = 39050.881650092590000000
        Time = 39050.881650092590000000
        TabOrder = 2
      end
      object DateTimePicker4: TDateTimePicker
        Left = 181
        Top = 292
        Width = 89
        Height = 24
        Anchors = [akLeft, akBottom]
        Date = 39050.881650092590000000
        Time = 39050.881650092590000000
        Kind = dtkTime
        TabOrder = 3
      end
      object BitBtn8: TBitBtn
        Left = 280
        Top = 291
        Width = 75
        Height = 22
        Anchors = [akLeft, akBottom]
        Caption = #24320#22987#26597#35810
        TabOrder = 4
        OnClick = BitBtn8Click
      end
    end
    object tabPhone: TTabSheet
      Caption = #30005#35805#24405#38899
      ImageIndex = 4
      OnShow = tabPhoneShow
      DesignSize = (
        665
        313)
      object Label5: TLabel
        Left = 8
        Top = 293
        Width = 80
        Height = 16
        Anchors = [akLeft, akBottom]
        Caption = #36215#22987#26102#38388#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object DBGrid5: TDBGrid
        Left = 0
        Top = 0
        Width = 667
        Height = 287
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = DataSource5
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #26032#23435#20307
        TitleFont.Style = []
        OnTitleClick = DBGrid5TitleClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #32447#36335
            Title.Alignment = taCenter
            Title.Caption = #31471#21475#21495
            Width = 40
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #24320#22987#26102#38388
            Title.Alignment = taCenter
            Title.Caption = #24320#22987#26102#38388#8595
            Width = 160
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #32467#26463#26102#38388
            Title.Alignment = taCenter
            Width = 160
            Visible = True
          end>
      end
      object DateTimePicker1: TDateTimePicker
        Left = 84
        Top = 293
        Width = 89
        Height = 24
        Anchors = [akLeft, akBottom]
        Date = 39050.881650092590000000
        Time = 39050.881650092590000000
        TabOrder = 1
      end
      object DateTimePicker2: TDateTimePicker
        Left = 178
        Top = 292
        Width = 89
        Height = 24
        Anchors = [akLeft, akBottom]
        Date = 39050.881650092590000000
        Time = 39050.881650092590000000
        Kind = dtkTime
        TabOrder = 2
      end
      object BitBtn7: TBitBtn
        Left = 279
        Top = 291
        Width = 75
        Height = 22
        Anchors = [akLeft, akBottom]
        Caption = #24320#22987#26597#35810
        TabOrder = 3
        OnClick = BitBtn7Click
      end
    end
    object tabLogInOff: TTabSheet
      Caption = #30331#38470#20449#24687
      ImageIndex = 5
      OnShow = tabLogInOffShow
      DesignSize = (
        665
        313)
      object Label6: TLabel
        Left = 8
        Top = 292
        Width = 32
        Height = 16
        Anchors = [akLeft, akBottom]
        Caption = #26597#35810
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object DBGrid6: TDBGrid
        Left = 0