unit1.dfm

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

object fmMain: TfmMain
  Left = 195
  Top = 109
  Width = 800
  Height = 486
  BorderIcons = [biMinimize, biMaximize]
  Caption = #30005#33041#33258#21160#21483#29677#31995#32479
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #26032#23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnShow = FormShow
  DesignSize = (
    792
    432)
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 0
    Top = 64
    Width = 673
    Height = 347
    ActivePage = tabAutoCall
    Anchors = [akLeft, akTop, akRight, akBottom]
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#23435#20307
    Font.Style = []
    ParentFont = False
    Style = tsFlatButtons
    TabOrder = 0
    object tabPlan: TTabSheet
      Caption = #21483#29677#35745#21010
      OnShow = tabPlanShow
      DesignSize = (
        665
        313)
      object Label1: 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 DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 471
        Height = 287
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -29
        Font.Name = #26032#23435#20307
        Font.Style = [fsBold]
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #26032#23435#20307
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid1DrawColumnCell
        Columns = <
          item
            Expanded = False
            FieldName = #24207#21495
            Visible = False
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #36710#27425
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #25151#38388#21495#30721
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #32852#21483#25151#21495
            Width = 104
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #24320#36710#26102#38388
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #35745#21010#21483#29677#26102#38388
            Title.Alignment = taCenter
            Width = 99
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = #26202#28857#26102#38388
            Title.Alignment = taCenter
            Visible = True
          end>
      end
      object Edit1: TEdit
        Left = 63
        Top = 292
        Width = 121
        Height = 24
        Anchors = [akLeft, akBottom]
        TabOrder = 1
        OnChange = Edit1Change
      end
      object ComboBox1: TComboBox
        Left = 191
        Top = 292
        Width = 105
        Height = 24
        Anchors = [akLeft, akBottom]
        ItemHeight = 16
        ItemIndex = 0
        TabOrder = 2
        Text = #36710#27425
        Items.Strings = (
          #36710#27425)
      end
      object Button1: TButton
        Left = 43
        Top = 293
        Width = 18
        Height = 20
        Anchors = [akLeft, akBottom]
        Caption = '='
        TabOrder = 3
      end
      object GroupBox2: TGroupBox
        Left = 472
        Top = 13
        Width = 194
        Height = 132
        Anchors = [akTop, akRight]
        Caption = #24403#21069#21483#29677#35745#21010
        TabOrder = 4
        object Label10: TLabel
          Left = 139
          Top = 62
          Width = 28
          Height = 14
          Caption = #20998#38047
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 11
          Top = 62
          Width = 28
          Height = 14
          Caption = #26202#28857
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #26032#23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBCheckBox1: TDBCheckBox
          Left = 9
          Top = 29
          Width = 157
          Height = 17
          Caption = #21551#29992#24403#21069#21483#29677#35745#21010
          DataField = #24320#21551
          DataSource = DataSource1
          TabOrder = 0
          ValueChecked = 'True'
          ValueUnchecked = 'False'
        end
        object DBEdit1: TDBEdit
          Left = 48
          Top = 59
          Width = 85
          Height = 24
          DataField = #26202#28857#26102#38388
          DataSource = DataSource1
          TabOrder = 1
          OnExit = DBEdit1Exit
        end
        object btnSticky: TBitBtn
          Left = 17
          Top = 96
          Width = 161
          Height = 25
          Caption = #32852#21483#25151#38388
          TabOrder = 2
          OnClick = btnStickyClick
        end
      end
      object BitBtn1: TBitBtn
        Left = 480
        Top = 248
        Width = 75
        Height = 25
        Caption = 'BitBtn1'
        TabOrder = 5
        Visible = False
        OnClick = BitBtn1Click
      end
      object Button6: TButton
        Left = 480
        Top = 264
        Width = 75
        Height = 25
        Caption = 'Button6'
        TabOrder = 6
        Visible = False
      end
      object GroupBox1: TGroupBox
        Left = 472
        Top = 160
        Width = 193
        Height = 81
        Anchors = [akTop, akRight]
        Caption = #31995#32479#35774#32622
        TabOrder = 7
        object CheckBox3: TCheckBox
          Left = 12
          Top = 24
          Width = 165
          Height = 17
          Caption = #21551#21160#33258#21160#21483#29677#21151#33021
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = CheckBox3Click
        end
        object CheckBox1: TCheckBox
          Left = 12
          Top = 53
          Width = 165
          Height = 17
          Caption = #21551#21160#19977#20652#21151#33021
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = CheckBox1Click
        end
      end
    end
    object tabAutoCall: TTabSheet
      Caption = #33258#21160#21483#29677#35760#24405
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #26032#23435#20307
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      OnShow = tabAutoCallShow
      DesignSize = (
        665
        313)
      object Label3: 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 DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 665
        Height = 287