frm_txl.dfm

一个背单词程序。是我闲着没事做的。 给大家看看

object MAIN: TMAIN
  Left = 280
  Top = 127
  Width = 447
  Height = 600
  BorderIcons = []
  Caption = 'Limen_'#36890#35759#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 104
    Top = 16
    Width = 105
    Height = 140
  end
  object Image3: TImage
    Left = 40
    Top = 16
    Width = 105
    Height = 140
  end
  object Image2: TImage
    Left = 144
    Top = 16
    Width = 105
    Height = 140
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 439
    Height = 156
    Hint = #26161#21697#21451#22909#22320#20851#29031#24744'----'#21035#24536#20102#26379#21451#12290
    TabStop = False
    Align = alClient
    DataSource = Data_TXL
    ImeMode = imDisable
    ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'name'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #22995#21517
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zongjigou'
        Title.Alignment = taCenter
        Title.Caption = #20844#21496#21517#31216
        Width = 173
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gongsi'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #34917#20805#35828#26126
        Width = 114
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'keshi'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = #31185#23460
        Width = 70
        Visible = True
      end>
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 156
    Width = 439
    Height = 391
    Hint = #19978#28023#26161#21697#36890#35759#31185#25216#26377#38480#20844#21496
    Align = alBottom
    Caption = #35814#32454#20449#24687#32500#25252#21306
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object Label1: TLabel
      Left = 120
      Top = 20
      Width = 24
      Height = 12
      Caption = #22995#21517
    end
    object Label2: TLabel
      Left = 280
      Top = 20
      Width = 24
      Height = 12
      Caption = #32844#21153
    end
    object Label3: TLabel
      Left = 120
      Top = 44
      Width = 24
      Height = 12
      Caption = #20844#21496
    end
    object Label4: TLabel
      Left = 120
      Top = 68
      Width = 24
      Height = 12
      Caption = #35828#26126
    end
    object Label5: TLabel
      Left = 120
      Top = 92
      Width = 24
      Height = 12
      Caption = #31185#23460
    end
    object Label6: TLabel
      Left = 280
      Top = 92
      Width = 24
      Height = 12
      Caption = #25151#21495
    end
    object Label7: TLabel
      Left = 280
      Top = 140
      Width = 24
      Height = 12
      Caption = #21306#21495
    end
    object Label8: TLabel
      Left = 120
      Top = 116
      Width = 24
      Height = 12
      Caption = #22320#22336
    end
    object Label9: TLabel
      Left = 120
      Top = 140
      Width = 24
      Height = 12
      Caption = #37038#32534
    end
    object Label10: TLabel
      Left = 10
      Top = 212
      Width = 48
      Height = 12
      Caption = #23478#24237#20303#22336
    end
    object Label11: TLabel
      Left = 10
      Top = 236
      Width = 24
      Height = 12
      Caption = #37038#32534
    end
    object Label12: TLabel
      Left = 170
      Top = 236
      Width = 48
      Height = 12
      Caption = #20303#23429#30005#35805
    end
    object Label13: TLabel
      Left = 10
      Top = 164
      Width = 48
      Height = 12
      Caption = #21150#20844#30005#35805
    end
    object Label14: TLabel
      Left = 170
      Top = 164
      Width = 48
      Height = 12
      Caption = #20415#25658#30005#35805
    end
    object Label15: TLabel
      Left = 10
      Top = 188
      Width = 24
      Height = 12
      Caption = #20256#30495
    end
    object Label16: TLabel
      Left = 10
      Top = 260
      Width = 36
      Height = 12
      Caption = 'E_Mail'
    end
    object Label17: TLabel
      Left = 10
      Top = 284
      Width = 48
      Height = 12
      Caption = #24320#25143#38134#34892
    end
    object Label18: TLabel
      Left = 10
      Top = 308
      Width = 48
      Height = 12
      Caption = #38134#34892#24080#21495
    end
    object Label19: TLabel
      Left = 10
      Top = 332
      Width = 48
      Height = 12
      Caption = #31246#21153#35777#21495
    end
    object Label20: TLabel
      Left = 170
      Top = 188
      Width = 24
      Height = 12
      Caption = #29983#26085
    end
    object DB_photo: TDBImage
      Left = 6
      Top = 16
      Width = 105
      Height = 140
      Hint = #26032#22686#25110#20462#25913#29366#24577#19979#21491#38190#21333#20987#21487#25918#32622#29031#29255
      DataField = 'Photo'
      DataSource = Data_TXL
      ParentShowHint = False
      PopupMenu = Popup_photo
      ShowHint = True
      TabOrder = 0
    end
    object DBEdit1: TDBEdit
      Left = 150
      Top = 14
      Width = 121
      Height = 20
      DataField = 'name'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 310
      Top = 14
      Width = 121
      Height = 20
      DataField = 'zhiwu'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 150
      Top = 38
      Width = 281
      Height = 20
      DataField = 'zongjigou'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 3
    end
    object DBEdit4: TDBEdit
      Left = 150
      Top = 62
      Width = 281
      Height = 20
      DataField = 'gongsi'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 4
    end
    object DBEdit5: TDBEdit
      Left = 150
      Top = 86
      Width = 121
      Height = 20
      DataField = 'keshi'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 5
    end
    object DBEdit6: TDBEdit
      Left = 310
      Top = 86
      Width = 121
      Height = 20
      DataField = 'bangs'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 6
    end
    object DBEdit7: TDBEdit
      Left = 150
      Top = 110
      Width = 281
      Height = 20
      DataField = 'Addr'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 7
    end
    object DBEdit8: TDBEdit
      Left = 150
      Top = 134
      Width = 121
      Height = 20
      DataField = 'youb'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 8
    end
    object DBEdit9: TDBEdit
      Left = 310
      Top = 134
      Width = 121
      Height = 20
      DataField = 'quhao'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 9
    end
    object DBEdit10: TDBEdit
      Left = 64
      Top = 158
      Width = 97
      Height = 20
      DataField = 'O_tele'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 10
    end
    object DBEdit11: TDBEdit
      Left = 224
      Top = 158
      Width = 207
      Height = 20
      DataField = 'B_tele'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 11
    end
    object DBEdit12: TDBEdit
      Left = 64
      Top = 182
      Width = 97
      Height = 20
      DataField = 'P_tele'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 12
    end
    object DBEdit13: TDBEdit
      Left = 224
      Top = 182
      Width = 97
      Height = 20
      DataField = 'B_shengri'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 13
    end
    object DBEdit14: TDBEdit
      Left = 64
      Top = 206
      Width = 257
      Height = 20
      DataField = 'homeAddr'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 14
    end
    object DBEdit15: TDBEdit
      Left = 64
      Top = 230
      Width = 97
      Height = 20
      DataField = 'homeyoub'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 15
    end
    object DBEdit16: TDBEdit
      Left = 224
      Top = 230
      Width = 97
      Height = 20
      DataField = 'H_tele'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 16
    end
    object DBEdit17: TDBEdit
      Left = 64
      Top = 254
      Width = 257
      Height = 20
      DataField = 'E_mail'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 17
    end
    object DBEdit18: TDBEdit
      Left = 64
      Top = 278
      Width = 257
      Height = 20
      DataField = 'Bank_name'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 18
    end
    object DBEdit19: TDBEdit
      Left = 64
      Top = 302
      Width = 257
      Height = 20
      DataField = 'Bank_no'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 19
    end
    object DBEdit20: TDBEdit
      Left = 64
      Top = 326
      Width = 257
      Height = 20
      DataField = 'Tax_no'
      DataSource = Data_TXL
      Enabled = False
      ImeName = #24494#36719#25340#38899#36755#20837#27861' 2007'
      TabOrder = 20
    end
    object BitBtn1: TBitBtn
      Left = 327
      Top = 184
      Width = 104
      Height = 25
      Caption = #26032#22686
      TabOrder = 21
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 327
      Top = 220
      Width = 104
      Height = 25
      Caption = #20462#25913
      TabOrder = 22
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 327
      Top = 256
      Width = 104
      Height = 25
      Caption = #21024#38500
      TabOrder = 23
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 327
      Top = 289
      Width = 104
      Height = 25
      Caption = #20445#23384
      Enabled = False
      TabOrder = 24
      OnClick = BitBtn4Click
    end
    object BitBtn5: TBitBtn
      Left = 327
      Top = 323
      Width = 104
      Height = 25
      Caption = #25918#24323
      Enabled = False
      TabOrder = 25
      OnClick = BitBtn5Click
    end
    object quest: TButton
      Left = 327
      Top = 357
      Width = 104
      Height = 25
      Hint = #25163#26426#12289#21306#21495#12289#36523#20221#35777#26597#35810
      Caption = #26597#35810
      ParentShowHint = False
      ShowHint = True
      TabOrder = 26
      OnClick = questClick
    end
    object quit: TButton
      Left = 15
      Top = 357
      Width = 104
      Height = 25
      Caption = #36864#20986
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 27
      OnClick = quitClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 547
    Width = 439
    Height = 19
    Panels = <
      item
        Text = #19978#28023#26161#21697#36890#35759#31185#25216#26377#38480#20844#21496#65288#20869#37096#29256#26412#65289'      Limen   Tele'#65306'13482631908'
        Width = 50
      end>
  end
  object ADOCon: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 15
  end
  object ADO_TXL: TADOQuery
    Connection = ADOCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TXL')
    Left = 88
    Top = 15
  end
  object Data_TXL: TDataSource
    DataSet = ADO_TXL
    Left = 136
    Top = 15
  end
  object Popup_photo: TPopupMenu
    AutoPopup = False
    Left = 184
    Top = 15
    object N1: TMenuItem
      Caption = #35013#20837#30456#29255
      OnClick = N1Click
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 224
    Top = 15
  end
end