交通/航空行业

开发平台：
Delphi

UntWuhan.dfm：源码内容
							object frmWuhan: TfrmWuhan
  Left = 146
  Top = 129
  AutoScroll = False
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #27494#27721#31449#21806#31080#31383#21475
  ClientHeight = 576
  ClientWidth = 792
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 785
    Height = 573
    ActivePage = TabSheet2
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '@'#38582#20070
    Font.Style = []
    MultiLine = True
    ParentFont = False
    TabIndex = 1
    TabOrder = 0
    TabPosition = tpRight
    object TabSheet1: TTabSheet
      Caption = #21806#31080#30028#38754
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      object Image1: TImage
        Left = 216
        Top = 0
        Width = 537
        Height = 401
        Stretch = True
      end
      object BitBtn1: TBitBtn
        Left = 336
        Top = 208
        Width = 75
        Height = 25
        Caption = #25104#37117
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnMouseUp = BitBtn1MouseUp
      end
      object BitBtn2: TBitBtn
        Left = 544
        Top = 40
        Width = 75
        Height = 25
        Caption = #21271#20140
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnMouseUp = BitBtn2MouseUp
      end
      object BitBtn3: TBitBtn
        Left = 552
        Top = 112
        Width = 75
        Height = 25
        Caption = #27494#27721
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnMouseUp = BitBtn3MouseUp
      end
      object BitBtn4: TBitBtn
        Left = 544
        Top = 200
        Width = 75
        Height = 25
        Caption = #38271#27801
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnMouseUp = BitBtn4MouseUp
      end
      object BitBtn5: TBitBtn
        Left = 536
        Top = 240
        Width = 75
        Height = 25
        Caption = #26666#27954
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnMouseUp = BitBtn5MouseUp
      end
      object BitBtn6: TBitBtn
        Left = 520
        Top = 328
        Width = 75
        Height = 25
        Caption = #24191#24030
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnMouseUp = BitBtn6MouseUp
      end
      object BitBtn7: TBitBtn
        Left = 336
        Top = 256
        Width = 75
        Height = 25
        Caption = #37325#24198
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        OnMouseUp = BitBtn7MouseUp
      end
      object Panel1: TPanel
        Left = 0
        Top = 8
        Width = 209
        Height = 225
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 7
        object Label1: TLabel
          Left = 16
          Top = 32
          Width = 48
          Height = 16
          Caption = #20986#21457#31449
        end
        object Label2: TLabel
          Left = 8
          Top = 56
          Width = 65
          Height = 16
          Hint = #21452#20987#28165#38500
          Alignment = taCenter
          AutoSize = False
          Color = clBtnHighlight
          ParentColor = False
          ParentShowHint = False
          ShowHint = True
        end
        object Label3: TLabel
          Left = 16
          Top = 144
          Width = 48
          Height = 16
          Caption = #21040#36798#31449
        end
        object Label4: TLabel
          Left = 8
          Top = 176
          Width = 65
          Height = 16
          Hint = #21452#20987#28165#38500
          Alignment = taCenter
          AutoSize = False
          Color = clBtnHighlight
          ParentColor = False
          ParentShowHint = False
          ShowHint = True
        end
        object Label18: TLabel
          Left = 120
          Top = 8
          Width = 80
          Height = 16
          Caption = #31449#28857#21015#34920#26694
        end
        object Button1: TButton
          Left = 80
          Top = 48
          Width = 25
          Height = 33
          Caption = #12298
          TabOrder = 0
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 80
          Top = 168
          Width = 25
          Height = 33
          Caption = #12298
          TabOrder = 1
          OnClick = Button2Click
        end
        object BitBtn8: TBitBtn
          Left = 6
          Top = 108
          Width = 65
          Height = 25
          Caption = #26174#31034#21015#36710
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = BitBtn8Click
        end
        object ListBox3: TListBox
          Left = 112
          Top = 32
          Width = 89
          Height = 185
          ItemHeight = 16
          PopupMenu = PopupMenu2
          TabOrder = 3
        end
        object BitBtn19: TBitBtn
          Left = 74
          Top = 96
          Width = 35
          Height = 55
          Caption = #28165#38500
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #38582#20070
          Font.Style = []
          ParentFont = False
          TabOrder = 4
          OnClick = BitBtn19Click
        end
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 240
        Width = 209
        Height = 161
        Caption = #21015#36710#21015#34920
        TabOrder = 8
        object ListBox1: TListBox
          Left = 8
          Top = 16
          Width = 193
          Height = 113
          ItemHeight = 16
          TabOrder = 0
        end
        object BitBtn9: TBitBtn
          Left = 32
          Top = 132
          Width = 57
          Height = 25
          Caption = #26597#38405
          Font.Charset = GB2312_CHARSET
          Font.Color = clMaroon
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = BitBtn9Click
        end
        object BitBtn11: TBitBtn
          Left = 120
          Top = 132
          Width = 49
          Height = 25
          Caption = #30475#31080
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = BitBtn11Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 0
        Top = 400
        Width = 209
        Height = 161
        Caption = #21015#36710#35814#32454#24773#20917
        TabOrder = 9
        object ListBox4: TListBox
          Left = 8
          Top = 16
          Width = 193
          Height = 137
          ItemHeight = 16
          TabOrder = 0
        end
      end
      object GroupBox3: TGroupBox
        Left = 216
        Top = 400
        Width = 241
        Height = 161
        Caption = #36710#31080#39044#35272
        TabOrder = 10
        object Label5: TLabel
          Left = 88
          Top = 32
          Width = 40
          Height = 16
          Caption = #31449' '#21040
        end
        object Label6: TLabel
          Left = 16
          Top = 32
          Width = 65
          Height = 16
          Alignment = taCenter
          AutoSize = False
          Color = clBtnHighlight
          ParentColor = False
        end
        object Label7: TLabel
          Left = 136
          Top = 32
          Width = 65
          Height = 16
          Alignment = taCenter
          AutoSize = False
          Color = clBtnHighlight
          ParentColor = False
        end
        object Label8: TLabel
          Left = 200
          Top = 32
          Width = 16
          Height = 16
          Caption = #31449
        end
        object Label9: TLabel
          Left = 8
          Top = 96
          Width = 57
          Height = 16
          Alignment = taRightJustify
          AutoSize = False
          Color = clCream
          ParentColor = False
        end
        object Label10: TLabel
          Left = 32
          Top = 64
          Width = 8
          Height = 16
        end
        object Label11: TLabel
          Left = 136
          Top = 64
          Width = 8
          Height = 16
        end
        object Label12: TLabel
          Left = 88
          Top = 64
          Width = 48
          Height = 16
          Caption = '----'#12297
        end
        object Label13: TLabel
          Left = 64
          Top = 96
          Width = 16
          Height = 16
          Caption = #27425
        end
        object Label14: TLabel
          Left = 120
          Top = 96
          Width = 32
          Height = 16
          Caption = #36710#21410
        end
        object Label15: TLabel
          Left = 208
          Top = 96
          Width = 16
          Height = 16
          Caption = #24231
        end
        object Label16: TLabel
          Left = 80
          Top = 96
          Width = 41
          Height = 16
          Alignment = taRightJustify
          AutoSize = False
          Color = clCream
          ParentColor = False
        end
        object Label17: TLabel
          Left = 152
          Top = 96
          Width = 57
          Height = 16
          Alignment = taRightJustify
          AutoSize = False
          Color = clCream
          ParentColor = False
        end
        object BitBtn10: TBitBtn
          Left = 48
          Top = 124
          Width = 57
          Height = 25
          Caption = #36141#31080
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          OnClick = BitBtn10Click
        end
        object BitBtn17: TBitBtn
          Left = 144
          Top = 124
          Width = 57
          Height = 25
          Caption = #25918#24323
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = BitBtn17Click
        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 = 'ticket4.DB'
    Left = 384
    Top = 328
  end
end

						