database.~dfm

原创的,数据库的前台应用程序,实现对数据库的查询,删除,修改,更新,生成报表等功能, 使用C++ BUIDER 和SQLSERVER开发平台.

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 673
    Height = 169
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 184
    Width = 640
    Height = 25
    DataSource = DataSource1
    Hints.Strings = (
      'First record'#31532#19968#26465#35760#24405
      'Prior record'#19978#19968#26465#35760#24405
      'Next record'#19979#19968#26465#35760#24405
      'Last record'#26368#21518#19968#26465#35760#24405
      'Insert record'#25554#20837
      'Delete record'#21024#38500
      'Edit record'#26356#26032
      'Post edit'#20445#23384
      'Cancel edit'#21462#28040#32534#36753
      'Refresh data'#21047#26032)
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
  end
  object eid: TEdit
    Left = 112
    Top = 232
    Width = 121
    Height = 21
    TabOrder = 2
    OnClick = eidClick
  end
  object ename: TEdit
    Left = 112
    Top = 272
    Width = 121
    Height = 21
    TabOrder = 3
  end
  object sex: TComboBox
    Left = 112
    Top = 312
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    Items.Strings = (
      ''
      'M'
      'F')
  end
  object marriage: TComboBox
    Left = 112
    Top = 352
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 5
    Items.Strings = (
      ''
      'married'
      'divorce'
      'single')
  end
  object jobname: TComboBox
    Left = 328
    Top = 272
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 6
    Items.Strings = (
      ''
      'CEO'
      'general manager'
      'account'
      'market'
      'promoter'
      'worker')
  end
  object pattern: TComboBox
    Left = 328
    Top = 312
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 7
    Items.Strings = (
      ''
      'full_time'
      'part_time')
  end
  object apname: TComboBox
    Left = 328
    Top = 352
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 8
    Items.Strings = (
      ''
      'market'
      'account'
      'manage')
  end
  object salary: TEdit
    Left = 328
    Top = 232
    Width = 121
    Height = 21
    TabOrder = 9
    OnClick = salaryClick
  end
  object manager: TEdit
    Left = 552
    Top = 232
    Width = 121
    Height = 21
    TabOrder = 10
  end
  object certification: TComboBox
    Left = 552
    Top = 272
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 11
    Items.Strings = (
      ''
      #26412#31185
      #30805#22763
      #21338#22763)
  end
  object major: TComboBox
    Left = 552
    Top = 312
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 12
    Items.Strings = (
      ''
      'management'
      'market'
      'account')
  end
  object query: TButton
    Left = 56
    Top = 392
    Width = 75
    Height = 25
    Hint = #26597#35810
    Caption = 'Query'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 13
    OnClick = queryClick
  end
  object update: TButton
    Left = 400
    Top = 392
    Width = 75
    Height = 25
    Hint = #36873#25321#38656#35201#20462#25913#30340#23646#24615
    Caption = 'Update'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 14
    OnClick = updateClick
  end
  object checkeid: TCheckBox
    Left = 32
    Top = 232
    Width = 57
    Height = 17
    Hint = #35831#20197'e'#25171#22836#22635#20889#21592#24037#32534#21495
    Caption = 'eid'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 15
    OnClick = checkeidClick
  end
  object checkename: TCheckBox
    Left = 32
    Top = 272
    Width = 57
    Height = 17
    Hint = #21592#24037#22995#21517
    Caption = 'ename'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 16
    OnClick = checkenameClick
  end
  object checksex: TCheckBox
    Left = 32
    Top = 312
    Width = 57
    Height = 17
    Hint = #24615#21035
    Caption = 'sex'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 17
    OnClick = checksexClick
  end
  object checkmarriage: TCheckBox
    Left = 32
    Top = 352
    Width = 73
    Height = 17
    Hint = #23478#24237#24773#20917
    Caption = 'marriage'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 18
    OnClick = checkmarriageClick
  end
  object checksalary: TCheckBox
    Left = 256
    Top = 232
    Width = 57
    Height = 17
    Hint = #24037#36164
    Caption = 'salary'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 19
    OnClick = checksalaryClick
  end
  object checkjobname: TCheckBox
    Left = 256
    Top = 272
    Width = 65
    Height = 17
    Hint = #24037#20316#21517#31216
    Caption = 'jobname'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 20
    OnClick = checkjobnameClick
  end
  object checkpattern: TCheckBox
    Left = 256
    Top = 312
    Width = 65
    Height = 17
    Hint = #24037#20316#24418#24335
    Caption = 'pattern'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 21
    OnClick = checkpatternClick
  end
  object checkapname: TCheckBox
    Left = 256
    Top = 352
    Width = 65
    Height = 17
    Hint = #37096#38376#21517#31216
    Caption = 'apname'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 22
    OnClick = checkapnameClick
  end
  object checkmanager: TCheckBox
    Left = 472
    Top = 232
    Width = 65
    Height = 17
    Hint = #32463#29702#22995#21517
    Caption = 'manager'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 23
    OnClick = checkmanagerClick
  end
  object checkcertification: TCheckBox
    Left = 472
    Top = 272
    Width = 81
    Height = 17
    Hint = #23398#21382
    Caption = 'certification'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 24
    OnClick = checkcertificationClick
  end
  object checkmajoy: TCheckBox
    Left = 472
    Top = 312
    Width = 57
    Height = 17
    Hint = #19987#19994
    Caption = 'major'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 25
    OnClick = checkmajoyClick
  end
  object account: TButton
    Left = 208
    Top = 392
    Width = 75
    Height = 25
    Hint = #32479#35745
    Caption = 'Account'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 26
    OnClick = accountClick
  end
  object formpreview: TButton
    Left = 552
    Top = 392
    Width = 75
    Height = 25
    Caption = 'Formpreview'
    TabOrder = 27
    OnClick = formpreviewClick
  end
  object checkcourse: TCheckBox
    Left = 472
    Top = 352
    Width = 81
    Height = 17
    Caption = 'coursename'
    TabOrder = 28
    OnClick = checkcourseClick
  end
  object coursename: TComboBox
    Left = 552
    Top = 352
    Width = 121
    Height = 21
    ItemHeight = 13
    TabOrder = 29
    Items.Strings = (
      ''
      'marketing'
      'accounting'
      'management')
  end
  object MainMenu1: TMainMenu
    Left = 448
    Top = 16
    object control1: TMenuItem
      Caption = 'control'
      object connect1: TMenuItem
        Caption = 'connect'
        OnClick = connect1Click
      end
      object disconnect1: TMenuItem
        Caption = 'disconnect'
        OnClick = disconnect1Click
      end
    end
    object edit1: TMenuItem
      Caption = 'edit'
      object account1: TMenuItem
        Caption = 'account'
        OnClick = account1Click
      end
      object preview: TMenuItem
        Caption = 'preview'
        OnClick = previewClick
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 40
    Top = 144
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'managerSQL'
    TableName = 'dbo.qualification'
    Left = 96
    Top = 120
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'managerSQL'
    SQL.Strings = (
      'select * from job')
    Left = 256
    Top = 128
  end
end