unit1.dfm

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

        Top = 0
        Width = 665
        Height = 287
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = DataSource6
        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 = #22995#21517
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #31867#22411
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #30331#38470#26102#38388
            Title.Alignment = taCenter
            Width = 160
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #36864#20986#26102#38388
            Title.Alignment = taCenter
            Width = 160
            Visible = True
          end>
      end
      object Button10: TButton
        Left = 43
        Top = 292
        Width = 18
        Height = 20
        Anchors = [akLeft, akBottom]
        Caption = '='
        TabOrder = 1
      end
      object Edit6: TEdit
        Left = 63
        Top = 292
        Width = 121
        Height = 24
        Anchors = [akLeft, akBottom]
        TabOrder = 2
        OnChange = Edit6Change
      end
      object ComboBox6: TComboBox
        Left = 191
        Top = 292
        Width = 105
        Height = 24
        Anchors = [akLeft, akBottom]
        ItemHeight = 16
        ItemIndex = 0
        TabOrder = 3
        Text = #22995#21517
        Items.Strings = (
          #22995#21517)
      end
    end
    object tabLeave: TTabSheet
      Caption = #20303#31163#23507#34920
      ImageIndex = 6
      OnShow = tabLeaveShow
      DesignSize = (
        665
        313)
      object Label7: TLabel
        Left = 8
        Top = 293
        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 DBGrid7: TDBGrid
        Left = 0
        Top = 0
        Width = 665
        Height = 289
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = DataSource7
        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 = #21333#20301#21517#31216
            Title.Alignment = taCenter
            Width = 130
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #22995#21517
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #25151#38388#21495
            Title.Alignment = taCenter
            Width = 50
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #20837#23507#26102#38388
            Title.Alignment = taCenter
            Width = 160
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #20986#20056#36710#27425
            Title.Alignment = taCenter
            Width = 80
            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 = #19968#21483#26102#38388
            Title.Alignment = taCenter
            Width = 160
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #19977#20652#26102#38388
            Title.Alignment = taCenter
            Width = 160
            Visible = True
          end>
      end
      object Button11: TButton
        Left = 43
        Top = 293
        Width = 18
        Height = 20
        Anchors = [akLeft, akBottom]
        Caption = '='
        TabOrder = 1
      end
      object Edit7: TEdit
        Left = 63
        Top = 290
        Width = 121
        Height = 24
        Anchors = [akLeft, akBottom]
        TabOrder = 2
        OnChange = Edit7Change
      end
      object ComboBox7: TComboBox
        Left = 191
        Top = 292
        Width = 105
        Height = 24
        Anchors = [akLeft, akBottom]
        ItemHeight = 16
        ItemIndex = 0
        TabOrder = 3
        Text = #22995#21517
        Items.Strings = (
          #22995#21517)
      end
    end
    object tabStuff: TTabSheet
      Caption = #20303#23507#20154#21592
      ImageIndex = 7
      OnShow = tabStuffShow
      DesignSize = (
        665
        313)
      object Label8: TLabel
        Left = 8
        Top = 293
        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 DBGrid8: TDBGrid
        Left = 0
        Top = 0
        Width = 665
        Height = 287
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = DataSource8
        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 = #21333#20301#32534#21495
            Title.Alignment = taCenter
            Width = 60
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #21333#20301#21517#31216
            Title.Alignment = taCenter
            Width = 160
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #20056#21153#21592#32534#21495
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #20056#21153#21592#22995#21517
            Title.Alignment = taCenter
            Visible = True
          end>
      end
      object Button12: TButton
        Left = 43
        Top = 293
        Width = 18
        Height = 20
        Anchors = [akLeft, akBottom]
        Caption = '='
        TabOrder = 1
      end
      object Edit8: TEdit
        Left = 63
        Top = 294
        Width = 121
        Height = 24
        Anchors = [akLeft, akBottom]
        TabOrder = 2
        OnChange = Edit8Change
      end
      object ComboBox8: TComboBox
        Left = 191
        Top = 292
        Width = 122
        Height = 24
        Anchors = [akLeft, akBottom]
        ItemHeight = 16
        ItemIndex = 0
        TabOrder = 3
        Text = #21333#20301#21517#31216
        Items.Strings = (
          #21333#20301#21517#31216
          #20056#21153#21592#22995#21517)
      end
    end
    object tabRoom: TTabSheet
      Caption = #25151#38388