userviww.dfm

一个用Delphi编写的简单售票系统,有查询,修改.增加.删除等功能.

object userview: Tuserview
  Left = 203
  Top = 194
  Width = 721
  Height = 478
  BorderIcons = [biSystemMenu]
  Caption = #36873#25321#29992#25143
  Color = clCream
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 37
    Top = 421
    Width = 196
    Height = 13
    Caption = #25552#31034#65306#30452#25509#21452#20987#21363#21487#36873#25321#29992#25143#21517
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object DBGridw: TDBGrid
    Left = 0
    Top = 0
    Width = 705
    Height = 409
    DataSource = DataSourcew
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDblClick = DBGridwDblClick
    OnTitleClick = DBGridwTitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'yname'
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yadd'
        Title.Alignment = taCenter
        Title.Caption = #22320#22336
        Width = 138
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shnegfengzhen'
        Title.Alignment = taCenter
        Title.Caption = #35777#20214#21495
        Width = 128
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ytel1'
        Title.Alignment = taCenter
        Title.Caption = #25163#26426
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ytel2'
        Title.Alignment = taCenter
        Title.Caption = #24231#26426
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ysex'
        Title.Alignment = taCenter
        Title.Caption = #24615#21035
        Width = 31
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ydate'
        Title.Alignment = taCenter
        Title.Caption = #28155#21152#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yther'
        Title.Alignment = taCenter
        Title.Caption = #22791#27880
        Width = 101
        Visible = True
      end>
  end
  object ADOConnectionw: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 368
    Top = 160
  end
  object ADOTablew: TADOTable
    Connection = ADOConnectionw
    CursorType = ctStatic
    TableName = 'xinxi'
    Left = 312
    Top = 160
  end
  object DataSourcew: TDataSource
    DataSet = ADOTablew
    Left = 264
    Top = 160
  end
end