carddm.~dfm

求是科技出版的《Delphi串口通信工程开发实例导航》所有的源代码。是一本很好的书。拿出来与大家共享。

object DMMain: TDMMain
  OldCreateOrder = False
  Left = 191
  Top = 115
  Height = 375
  Width = 544
  object cnnMain: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=taocong;Persist Security Info=True;' +
      'User ID=sa;Initial Catalog=Card;Data Source=localhost;Use Proced' +
      'ure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstati' +
      'on ID=BUAA-TAOCONG;Use Encryption for Data=False;Tag with column' +
      ' collation when possible=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 24
  end
  object tblCard: TADOTable
    Active = True
    Connection = cnnMain
    CursorType = ctStatic
    TableName = 'card'
    Left = 88
    Top = 32
    object tblCardcard_id: TStringField
      DisplayLabel = '卡号'
      FieldName = 'card_id'
      FixedChar = True
      Size = 5
    end
    object tblCarduser_id: TStringField
      DisplayLabel = '学号'
      FieldName = 'user_id'
      FixedChar = True
      Size = 10
    end
    object tblCardcreate_date: TDateTimeField
      DisplayLabel = '发卡日期'
      FieldName = 'create_date'
    end
    object tblCardmoney: TFloatField
      DisplayLabel = '金额'
      FieldName = 'money'
    end
    object tblCardstate: TStringField
      DisplayLabel = '状态'
      FieldName = 'state'
      OnGetText = tblCardstateGetText
      FixedChar = True
      Size = 1
    end
  end
  object tblEmployee: TADOTable
    Active = True
    Connection = cnnMain
    CursorType = ctStatic
    TableName = 'employee'
    Left = 56
    Top = 160
    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
    Active = True
    Connection = cnnMain
    CursorType = ctStatic
    TableName = 'student'
    Left = 32
    Top = 80
    object tblStudentuser_id: TStringField
      DisplayLabel = '学号'
      FieldName = 'user_id'
      Size = 10
    end
    object tblStudentname: TStringField
      DisplayLabel = '姓名'
      FieldName = 'name'
    end
    object tblStudentage: TBCDField
      DisplayLabel = '年龄'
      FieldName = 'age'
      Precision = 18
      Size = 0
    end
    object tblStudentaddress: TStringField
      DisplayLabel = '联系方式'
      FieldName = 'address'
      Size = 50
    end
  end
end