untguangzhou.dfm

一个简单的火车售票系统

        end
      end
      object GroupBox4: TGroupBox
        Left = 464
        Top = 400
        Width = 241
        Height = 161
        Caption = #24050#20080#36710#31080#21015#34920
        TabOrder = 11
        object ListBox5: TListBox
          Left = 8
          Top = 16
          Width = 225
          Height = 137
          ItemHeight = 16
          TabOrder = 0
        end
      end
      object BitBtn12: TBitBtn
        Left = 710
        Top = 504
        Width = 40
        Height = 33
        Caption = #32467#26463
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #38582#20070
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 12
        Visible = False
        OnClick = BitBtn12Click
      end
      object BitBtn16: TBitBtn
        Left = 710
        Top = 480
        Width = 40
        Height = 33
        Caption = #28165#38500
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        TabOrder = 13
        Visible = False
        OnClick = BitBtn16Click
      end
      object BitBtn18: TBitBtn
        Left = 710
        Top = 416
        Width = 41
        Height = 129
        Caption = #25171#21360
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -16
        Font.Name = #38582#20070
        Font.Style = []
        ParentFont = False
        TabOrder = 14
        OnClick = BitBtn18Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #31649#29702#30028#38754
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImageIndex = 1
      ParentFont = False
      OnShow = TabSheet2Show
      object GroupBox5: TGroupBox
        Left = 0
        Top = 0
        Width = 241
        Height = 561
        TabOrder = 0
        object Label19: TLabel
          Left = 70
          Top = 11
          Width = 64
          Height = 16
          Caption = #21015#36710#21015#34920
        end
        object ListBox2: TListBox
          Left = 8
          Top = 32
          Width = 193
          Height = 177
          ItemHeight = 16
          TabOrder = 0
        end
        object BitBtn13: TBitBtn
          Left = 109
          Top = 216
          Width = 92
          Height = 25
          Caption = #26174#31034#22987#21457#21015#36710
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = BitBtn13Click
        end
        object BitBtn14: TBitBtn
          Left = 9
          Top = 244
          Width = 120
          Height = 25
          Caption = #26597#38405#21015#36710#35814#24773
          TabOrder = 2
        end
        object Memo4: TMemo
          Left = 8
          Top = 272
          Width = 193
          Height = 281
          TabOrder = 3
        end
        object Button3: TButton
          Left = 200
          Top = 32
          Width = 33
          Height = 33
          Caption = #12299
          Enabled = False
          TabOrder = 4
          OnClick = Button3Click
        end
        object BitBtn15: TBitBtn
          Left = 9
          Top = 216
          Width = 92
          Height = 25
          Caption = #26174#31034#36807#31449#21015#36710
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnClick = BitBtn15Click
        end
        object BitBtn20: TBitBtn
          Left = 136
          Top = 244
          Width = 65
          Height = 25
          Caption = #28165#38500
          TabOrder = 6
          OnClick = BitBtn20Click
        end
      end
      object GroupBox6: TGroupBox
        Left = 232
        Top = 0
        Width = 513
        Height = 561
        Caption = #31080#25454#22788#29702
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 1
        object Label20: TLabel
          Left = 8
          Top = 40
          Width = 64
          Height = 16
          Caption = #21015#36710#32534#21495
        end
        object Edit1: TEdit
          Left = 80
          Top = 35
          Width = 153
          Height = 24
          Enabled = False
          TabOrder = 0
          Text = '1'
        end
        object GroupBox7: TGroupBox
          Left = 0
          Top = 64
          Width = 513
          Height = 161
          Caption = #25209#22788#29702#20840#31243#31080
          TabOrder = 1
          object Label21: TLabel
            Left = 8
            Top = 48
            Width = 64
            Height = 16
            Caption = #36215#22987#31080#21495
          end
          object Label22: TLabel
            Left = 8
            Top = 96
            Width = 64
            Height = 16
            Caption = #31080#25454#24352#25968
          end
          object Label23: TLabel
            Left = 240
            Top = 48
            Width = 80
            Height = 16
            Caption = #30446#30340#31449#28857#21495
          end
          object MaskEdit1: TMaskEdit
            Left = 80
            Top = 40
            Width = 89
            Height = 24
            EditMask = '99999;0;_'
            MaxLength = 5
            TabOrder = 0
          end
          object SpinEdit1: TSpinEdit
            Left = 80
            Top = 88
            Width = 89
            Height = 26
            Hint = #26368#22823#20540#20026'118'
            AutoSize = False
            EditorEnabled = False
            MaxValue = 118
            MinValue = 1
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            Value = 1
          end
          object Button4: TButton
            Left = 216
            Top = 128
            Width = 75
            Height = 25
            Caption = #21152#20837
            TabOrder = 2
            OnClick = Button4Click
          end
          object ComboBox1: TComboBox
            Left = 336
            Top = 40
            Width = 121
            Height = 24
            ItemHeight = 16
            TabOrder = 3
            Text = #25104#37117
            Items.Strings = (
              #25104#37117
              #37325#24198
              #21271#20140
              #27494#27721
              #38271#27801
              #26666#27954
              #24191#24030)
          end
        end
        object GroupBox9: TGroupBox
          Left = 0
          Top = 216
          Width = 513
          Height = 345
          Caption = #25805#20316#26412#31449#31080#25454
          TabOrder = 2
          object DBGrid1: TDBGrid
            Left = 8
            Top = 16
            Width = 497
            Height = 273
            DataSource = DataSource1
            TabOrder = 0
            TitleFont.Charset = GB2312_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -16
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'TicketNo'
                Title.Alignment = taCenter
                Title.Caption = #36710#31080#21495
                Width = 105
                Visible = True
              end
              item
                Alignment = taCenter
                Expanded = False
                FieldName = 'SNo'
                Title.Alignment = taCenter
                Title.Caption = #36215#22987#31449#24207#21495
                Width = 104
                Visible = True
              end
              item
                Alignment = taCenter
                Expanded = False
                FieldName = 'DNor'
                Title.Alignment = taCenter
                Title.Caption = #21040#36798#31449#24207#21495
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'TrainNo'
                Title.Alignment = taCenter
                Title.Caption = #21015#36710#32534#21495
                Visible = True
              end
              item
                Alignment = taCenter
                Expanded = False
                FieldName = 'Flag'
                PickList.Strings = (
                  'True'
                  'False')
                Title.Alignment = taCenter
                Title.Caption = #36710#31080#26631#24535
                Width = 94
                Visible = True
              end>
          end
          object DBNavigator1: TDBNavigator
            Left = 8
            Top = 296
            Width = 490
            Height = 33
            DataSource = DataSource1
            Hints.Strings = (
              #31532#19968#26465#35760#24405
              #21069#19968#26465#35760#24405
              #21518#19968#26465#35760#24405
              #26368#26411#19968#26465#35760#24405
              #25554#20837#19968#26465#32426#24405
              #21024#38500#19968#26465#35760#24405
              #26356#25913#32426#24405
              #25552#20132#20462#25913
              #25764#38144#20462#25913
              #21047#26032#25968#25454)
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
          end
        end
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 712
    Top = 24
    object N1: TMenuItem
      Caption = #21152#20837#31449#28857#26694
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #26174#31034#30452#36798#31449#28857
      OnClick = N2Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #20316#20026#36215#28857
      OnClick = N3Click
    end
    object N5: TMenuItem
      Caption = #20316#20026#32456#28857
      Enabled = False
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #26174#31034#20004#28857#21015#36710
      Enabled = False
      OnClick = N6Click
    end
    object N13: TMenuItem
      Caption = #25764#38144#36873#25321
      OnClick = N13Click
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object N8: TMenuItem
      Caption = #25764#38144#26174#31034
      OnClick = N8Click
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 128
    Top = 104
    object N9: TMenuItem
      Caption = #20316#20026#20986#21457#31449
      OnClick = N9Click
    end
    object N10: TMenuItem
      Caption = #20316#20026#21040#36798#31449
      OnClick = N10Click
    end
    object N11: TMenuItem
      Caption = '-'
    end
    object N12: TMenuItem
      Caption = #21024#38500#27492#31449#28857
      OnClick = N12Click
    end
  end
  object qstation: TQuery
    DatabaseName = 'hall'
    Left = 160
    Top = 72
  end
  object qtrain: TQuery
    DatabaseName = 'hall'
    Left = 144
    Top = 152
  end
  object qticket: TQuery
    DatabaseName = 'hall'
    Left = 168
    Top = 112
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 344
    Top = 328
  end
  object Table1: TTable
    Active = True
    AutoRefresh = True
    DatabaseName = 'hall'
    TableName = 'ticket7.DB'
    Left = 384
    Top = 328
  end
end