unit5.~dfm

一个简单的旅游管理系统

object Form5: TForm5
  Left = 224
  Top = 132
  Width = 778
  Height = 498
  Caption = #20462#25913#26053#28216#26223#28857#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 369
    Height = 466
    Align = alLeft
    Caption = #20462#25913#26223#28857#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 48
      Top = 40
      Width = 60
      Height = 13
      Caption = #26223#28857#21517#31216#65306
    end
    object Label2: TLabel
      Left = 48
      Top = 81
      Width = 60
      Height = 13
      Caption = #22320#29702#20301#32622#65306
    end
    object Label3: TLabel
      Left = 48
      Top = 123
      Width = 60
      Height = 13
      Caption = #24320#25918#26102#38388#65306
    end
    object Label4: TLabel
      Left = 48
      Top = 164
      Width = 60
      Height = 13
      Caption = #20215'        '#20301#65306
    end
    object Label5: TLabel
      Left = 48
      Top = 198
      Width = 60
      Height = 13
      Caption = #21382#21490#24773#20917#65306
    end
    object Label6: TLabel
      Left = 48
      Top = 288
      Width = 60
      Height = 13
      Caption = #27010#20917#31616#20171#65306
    end
    object Button2: TButton
      Left = 264
      Top = 416
      Width = 65
      Height = 25
      Caption = #21462#28040
      TabOrder = 0
      OnClick = Button2Click
    end
    object DBEdit1: TDBEdit
      Left = 112
      Top = 36
      Width = 193
      Height = 21
      DataField = #26223#28857#21517#31216
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 112
      Top = 77
      Width = 193
      Height = 21
      DataField = #22320#29702#20301#32622
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 112
      Top = 119
      Width = 193
      Height = 21
      DataField = #24320#25918#26102#38388
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit4: TDBEdit
      Left = 112
      Top = 160
      Width = 193
      Height = 21
      DataField = #20215#20301
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBMemo1: TDBMemo
      Left = 112
      Top = 198
      Width = 193
      Height = 73
      DataField = #21382#21490#24773#20917
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBMemo2: TDBMemo
      Left = 112
      Top = 288
      Width = 193
      Height = 105
      DataField = #27010#20917#31616#20171
      DataSource = DataSource1
      TabOrder = 6
    end
    object Button4: TButton
      Left = 40
      Top = 416
      Width = 65
      Height = 25
      Action = DataSetPrior1
      Caption = #19978#19968#26465
      TabOrder = 7
    end
    object Button5: TButton
      Left = 152
      Top = 416
      Width = 65
      Height = 25
      Action = DataSetNext1
      Caption = #19979#19968#26465
      TabOrder = 8
    end
  end
  object DBGrid1: TDBGrid
    Left = 369
    Top = 0
    Width = 400
    Height = 466
    Align = alLeft
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #26223#28857#21517#31216
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24320#25918#26102#38388
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22320#29702#20301#32622
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20215#20301
        Width = 50
        Visible = True
      end>
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=lygl.mdb;Persist Se' +
      'curity Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 568
    Top = 168
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #26053#28216#26223#28857#20449#24687#34920
    Left = 552
    Top = 224
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 464
    Top = 152
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 440
    Top = 280
  end
  object ActionList1: TActionList
    Left = 568
    Top = 336
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = 'DataSetFirst1'
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = 'DataSetPrior1'
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = 'DataSetNext1'
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = 'DataSetLast1'
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = 'DataSetInsert1'
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = 'DataSetDelete1'
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = 'DataSetEdit1'
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = 'DataSetPost1'
    end
    object DataSetCancel1: TDataSetCancel
      Category = 'Dataset'
      Caption = 'DataSetCancel1'
    end
    object DataSetRefresh1: TDataSetRefresh
      Category = 'Dataset'
      Caption = 'DataSetRefresh1'
    end
    object ClientDataSetApply1: TClientDataSetApply
      Category = 'Dataset'
      Caption = 'Apply Updates'
      ImageIndex = 2
      DisplayErrorDlg = False
    end
    object ClientDataSetRevert1: TClientDataSetRevert
      Category = 'Dataset'
      Caption = 'Revert'
      ImageIndex = 1
    end
    object ClientDataSetUndo1: TClientDataSetUndo
      Category = 'Dataset'
      Caption = 'Undo'
      ImageIndex = 0
      FollowChange = False
    end
  end
end