unitdbconnect.dfm

来自「这是我做的一个大学院系成绩管理系统」· DFM 代码 · 共 321 行

object FMDBConnect: TFMDBConnect
  Left = 410
  Top = 194
  Width = 305
  Height = 433
  Caption = 'FMDBConnect'
  Color = clBtnFace
  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 = 16
    Top = 8
    Width = 60
    Height = 13
    Caption = #36830#21040#25968#25454#24211
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 16
    Top = 40
    Width = 48
    Height = 13
    Caption = #30331#38470#31383#21475
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 16
    Top = 80
    Width = 48
    Height = 13
    Caption = #29992#25143#31649#29702
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 16
    Top = 120
    Width = 48
    Height = 13
    Caption = #23398#29983#31649#29702
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 16
    Top = 160
    Width = 48
    Height = 13
    Caption = #35838#31243#31649#29702
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 16
    Top = 192
    Width = 48
    Height = 13
    Caption = #29677#32423#31649#29702
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 16
    Top = 232
    Width = 51
    Height = 13
    Caption = ' '#26234#32946#25104#32489
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 16
    Top = 272
    Width = 48
    Height = 13
    Caption = #24503#32946#25104#32489
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 16
    Top = 304
    Width = 48
    Height = 13
    Caption = #26597#25214#27169#22359
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 16
    Top = 336
    Width = 48
    Height = 13
    Caption = #32479#35745#27169#22359
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 184
    Top = 40
    Width = 24
    Height = 13
    Caption = #22791#20221
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object DBADOConnection: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=DBScoreMS;Data Source=KEJINLU;Use Proce' +
      'dure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstat' +
      'ion ID=KEJINLU;Use Encryption for Data=False;Tag with column col' +
      'lation when possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 96
  end
  object DataSourceUsers: TDataSource
    DataSet = ADOQueryUMan
    Left = 128
    Top = 72
  end
  object UserADOQuery: TADOQuery
    Connection = DBADOConnection
    Parameters = <>
    Left = 96
    Top = 32
  end
  object ADOQueryUMan: TADOQuery
    Connection = DBADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *  from Users')
    Left = 96
    Top = 72
  end
  object ADOQueryStu: TADOQuery
    Connection = DBADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Student')
    Left = 96
    Top = 112
  end
  object DataSourceStu: TDataSource
    DataSet = ADOQueryStu
    Left = 128
    Top = 112
  end
  object ADOQueryCourse: TADOQuery
    Connection = DBADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  *  from   Course')
    Left = 96
    Top = 152
  end
  object DataSourceCourse: TDataSource
    DataSet = ADOQueryCourse
    Left = 128
    Top = 152
  end
  object ADOQueryClass: TADOQuery
    Connection = DBADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from class')
    Left = 96
    Top = 184
  end
  object DataSourceClass: TDataSource
    DataSet = ADOQueryClass
    Left = 128
    Top = 184
  end
  object ADOQueryIScore: TADOQuery
    Connection = DBADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from IScore')
    Left = 96
    Top = 224
  end
  object DataSourceIScore: TDataSource
    DataSet = ADOQueryIScore
    Left = 128
    Top = 224
  end
  object ADOQueryMScore: TADOQuery
    Connection = DBADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from MScore')
    Left = 96
    Top = 264
  end
  object DataSourceMScore: TDataSource
    DataSet = ADOQueryMScore
    Left = 128
    Top = 264
  end
  object ADOQueryScore: TADOQuery
    Connection = DBADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from dbo.ViewIScore')
    Left = 96
    Top = 296
  end
  object DataSourceQuery: TDataSource
    DataSet = ADOQueryScore
    Left = 128
    Top = 296
  end
  object ADOQueryStat: TADOQuery
    Connection = DBADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from  dbo.ViewAvgScore order by AvgScore desc')
    Left = 96
    Top = 328
  end
  object DataSourceStat: TDataSource
    DataSet = ADOQueryStat
    Left = 128
    Top = 328
  end
  object ADOQuery1: TADOQuery
    Connection = DBADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select  SClassNo ,SUM(Score)/COUNT(SNo) as ClAvg from  dbo.ViewC' +
        'lScore group by SClassNo')
    Left = 136
    Top = 368
  end
  object ADOConnectionMaster: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=master'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 152
  end
  object ADOQueryBak: TADOQuery
    Parameters = <>
    Left = 216
    Top = 32
  end
  object ADOQueryExcel: TADOQuery
    Connection = DBADOConnection
    Parameters = <>
    Left = 208
    Top = 72
  end
end