carddm.dfm

高校餐饮银卡系统,源代码中有详细说明,如有问题请与我联系.

object DMMain: TDMMain
  OldCreateOrder = False
  Left = 296
  Top = 124
  Height = 375
  Width = 449
  object cnnMain: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ' +
      'ID=sa;Initial Catalog=master;Data Source=localhost;Use Procedure' +
      ' for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ' +
      'ID=BUAA-TAOCONG;Use Encryption for Data=False;Tag with column co' +
      'llation when possible=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 24
  end
  object tblCard: TADOTable
    Connection = cnnMain
    CursorType = ctStatic
    TableName = 'card'
    Left = 88
    Top = 32
    object tblCardcard_id: TStringField
      DisplayLabel = #21345#21495
      FieldName = 'card_id'
      FixedChar = True
      Size = 5
    end
    object tblCarduser_id: TStringField
      DisplayLabel = #23398#21495
      FieldName = 'user_id'
      FixedChar = True
      Size = 10
    end
    object tblCardcreate_date: TDateTimeField
      DisplayLabel = #21457#21345#26085#26399
      FieldName = 'create_date'
    end
    object tblCardmoney: TFloatField
      DisplayLabel = #37329#39069
      FieldName = 'money'
    end
    object tblCardstate: TStringField
      DisplayLabel = #29366#24577
      FieldName = 'state'
      OnGetText = tblCardstateGetText
      FixedChar = True
      Size = 1
    end
  end
  object tblEmployee: TADOTable
    Connection = cnnMain
    CursorType = ctStatic
    TableName = 'employee'
    Left = 104
    Top = 88
    object tblEmployeeaccount: TStringField
      FieldName = 'account'
      FixedChar = True
      Size = 10
    end
    object tblEmployeepassword: TStringField
      FieldName = 'password'
      FixedChar = True
      Size = 10
    end
    object tblEmployeename: TStringField
      FieldName = 'name'
    end
  end
  object tblStudent: TADOTable
    Connection = cnnMain
    CursorType = ctStatic
    TableName = 'student'
    Left = 32
    Top = 80
    object tblStudentuser_id: TStringField
      DisplayLabel = #23398#21495
      FieldName = 'user_id'
      Size = 10
    end
    object tblStudentname: TStringField
      DisplayLabel = #22995#21517
      FieldName = 'name'
    end
    object tblStudentage: TBCDField
      DisplayLabel = #24180#40836
      FieldName = 'age'
      Precision = 18
      Size = 0
    end
    object tblStudentaddress: TStringField
      DisplayLabel = #32852#31995#26041#24335
      FieldName = 'address'
      Size = 50
    end
  end
end