📄 datamodule.~dfm
字号:
object DM: TDM
OldCreateOrder = False
Left = 320
Top = 169
Height = 249
Width = 396
object Database: TDatabase
AliasName = 'Maintenance'
Connected = True
DatabaseName = 'DB_Main'
LoginPrompt = False
SessionName = 'Default'
Left = 24
Top = 16
end
object T_News: TTable
Active = True
DatabaseName = 'DB_Main'
TableName = 'dbo.Maintenance_News'
Left = 25
Top = 79
object T_NewsNews_ID: TIntegerField
FieldName = 'News_ID'
Required = True
end
object T_NewsNews_Block: TStringField
FieldName = 'News_Block'
FixedChar = True
end
object T_NewsNews_Topic: TStringField
FieldName = 'News_Topic'
FixedChar = True
Size = 50
end
object T_NewsNews_Text: TMemoField
FieldName = 'News_Text'
BlobType = ftMemo
Size = 1
end
object T_NewsNews_PTime: TDateTimeField
FieldName = 'News_PTime'
end
end
object T_Bulletin: TTable
Active = True
DatabaseName = 'DB_Main'
TableName = 'dbo.Maintenance_Bulletin'
Left = 103
Top = 79
object T_BulletinBulletin_ID: TIntegerField
Alignment = taCenter
DisplayLabel = #24207#21495
FieldName = 'Bulletin_ID'
Required = True
end
object T_BulletinBulletin_Flag: TStringField
Alignment = taCenter
DisplayLabel = #29366#24577
FieldName = 'Bulletin_Flag'
FixedChar = True
Size = 10
end
object T_BulletinBulletin_Text: TStringField
Alignment = taCenter
DisplayLabel = #27491#25991
FieldName = 'Bulletin_Text'
FixedChar = True
Size = 100
end
end
object T_Forecast: TTable
Active = True
DatabaseName = 'DB_Main'
TableName = 'dbo.Maintenance_Forecast'
Left = 181
Top = 79
object T_ForecastForecast_ID: TIntegerField
FieldName = 'Forecast_ID'
Required = True
end
object T_ForecastForecast_Weather: TStringField
FieldName = 'Forecast_Weather'
FixedChar = True
end
object T_ForecastForecast_Temp: TStringField
FieldName = 'Forecast_Temp'
FixedChar = True
Size = 10
end
object T_ForecastForecast_WindP: TStringField
FieldName = 'Forecast_WindP'
FixedChar = True
Size = 10
end
object T_ForecastForecast_WindD: TStringField
FieldName = 'Forecast_WindD'
FixedChar = True
Size = 10
end
object T_ForecastForecast_Memo: TStringField
FieldName = 'Forecast_Memo'
FixedChar = True
Size = 50
end
object T_ForecastCount_BNews: TIntegerField
DisplayLabel = #32508#21512#28040#24687#65306
FieldName = 'Count_BNews'
end
object T_ForecastCount_HNews: TIntegerField
FieldName = 'Count_HNews'
end
object T_ForecastCount_CNews: TIntegerField
FieldName = 'Count_CNews'
end
object T_ForecastCount_PTime: TDateTimeField
FieldName = 'Count_PTime'
end
end
object T_PicNews: TTable
Active = True
DatabaseName = 'DB_Main'
TableName = 'dbo.Maintenance_PicNews'
Left = 259
Top = 79
end
object DS_News: TDataSource
DataSet = T_News
OnStateChange = DS_NewsStateChange
OnDataChange = DS_NewsDataChange
Left = 24
Top = 136
end
object DS_Bulletin: TDataSource
DataSet = T_Bulletin
OnStateChange = DS_BulletinStateChange
OnDataChange = DS_BulletinDataChange
Left = 102
Top = 136
end
object DS_Forecast: TDataSource
DataSet = T_Forecast
OnStateChange = DS_ForecastStateChange
Left = 181
Top = 136
end
object DS_PicNews: TDataSource
DataSet = T_PicNews
OnStateChange = DS_PicNewsStateChange
Left = 260
Top = 136
end
object T_Count: TTable
Active = True
DatabaseName = 'DB_Main'
TableName = 'dbo.Maintenance_Count'
Left = 323
Top = 79
end
object DS_Count: TDataSource
DataSet = T_Count
Left = 324
Top = 136
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -