?? datamodule.~dfm
字號:
object ADOQuery1S_Materiel_Num: TIntegerField
FieldName = 'S_Materiel_Num'
end
object ADOQuery1S_Materiel_Price: TIntegerField
FieldName = 'S_Materiel_Price'
end
object ADOQuery1S_Materiel_Memo: TWideStringField
FieldName = 'S_Materiel_Memo'
Size = 50
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 392
Top = 136
end
object AT_Materiel_Stock: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'Materiel_Stock'
Left = 184
Top = 72
object AT_Materiel_StockS_Materiel_No: TAutoIncField
FieldName = 'S_Materiel_No'
ReadOnly = True
end
object AT_Materiel_StockS_Materiel_Time: TDateTimeField
FieldName = 'S_Materiel_Time'
end
object AT_Materiel_StockS_Materiel_ID: TIntegerField
FieldName = 'S_Materiel_ID'
end
object AT_Materiel_StockS_Credence_ID: TWideStringField
FieldName = 'S_Credence_ID'
Size = 15
end
object AT_Materiel_StockS_Credence_OID: TWideStringField
FieldName = 'S_Credence_OID'
Size = 15
end
object AT_Materiel_StockMateriel_Name: TWideStringField
FieldName = 'Materiel_Name'
end
object AT_Materiel_StockMateriel_Standard: TWideStringField
FieldName = 'Materiel_Standard'
end
object AT_Materiel_StockMateriel_ID: TIntegerField
FieldName = 'Materiel_ID'
end
object AT_Materiel_StockMateriel_Unit: TWideStringField
FieldName = 'Materiel_Unit'
end
object AT_Materiel_StockMateriel_Price: TIntegerField
FieldName = 'Materiel_Price'
end
object AT_Materiel_StockS_Materiel_Num: TIntegerField
FieldName = 'S_Materiel_Num'
end
object AT_Materiel_StockS_Materiel_Price: TIntegerField
FieldName = 'S_Materiel_Price'
end
object AT_Materiel_StockS_Materiel_Memo: TWideStringField
FieldName = 'S_Materiel_Memo'
Size = 50
end
object AT_Materiel_StockS_Materiel_ALLPrice: TFloatField
FieldName = 'S_Materiel_ALLPrice'
end
end
object Materiel_StockDS: TDataSource
DataSet = AT_Materiel_Stock
Left = 184
Top = 136
end
object AQ_Materiel: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'Select * from Materiel')
Left = 331
Top = 72
object AQ_MaterielMateriel_ID: TIntegerField
FieldName = 'Materiel_ID'
end
object AQ_MaterielMateriel_Name: TWideStringField
FieldName = 'Materiel_Name'
end
object AQ_MaterielMateriel_Class: TWideStringField
FieldName = 'Materiel_Class'
Size = 10
end
object AQ_MaterielMateriel_Standard: TWideStringField
FieldName = 'Materiel_Standard'
Size = 10
end
object AQ_MaterielMateriel_Pirce: TIntegerField
FieldName = 'Materiel_Pirce'
end
object AQ_MaterielMateriel_Unit: TWideStringField
FieldName = 'Materiel_Unit'
Size = 10
end
object AQ_MaterielMateriel_Describe: TWideStringField
FieldName = 'Materiel_Describe'
end
object AQ_MaterielMateriel_Memo: TMemoField
FieldName = 'Materiel_Memo'
BlobType = ftMemo
end
object AQ_MaterielMateriel_Bill: TWideStringField
FieldName = 'Materiel_Bill'
end
object AQ_MaterielMateriel_No: TIntegerField
FieldName = 'Materiel_No'
end
end
object MaterialDS: TDataSource
DataSet = AQ_Materiel
Left = 331
Top = 136
end
object RP_Scheme: TRvProject
Engine = RvSystem1
ProjectFile = '.\Scheme.rav'
Left = 392
Top = 192
end
object SchemeRDS: TRvDataSetConnection
RuntimeVisibility = rtDeveloper
DataSet = AQ_Scheme
Left = 392
Top = 256
end
object UserDS: TDataSource
DataSet = AQ_User
Left = 264
Top = 136
end
object AQ_User: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'Select * from Scheme_User')
Left = 264
Top = 72
object AQ_UserUser_ID: TIntegerField
FieldName = 'User_ID'
end
object AQ_UserUser_Name: TWideStringField
FieldName = 'User_Name'
Size = 10
end
object AQ_UserUser_Password: TWideStringField
FieldName = 'User_Password'
end
object AQ_UserUser_Popedom: TWideStringField
FieldName = 'User_Popedom'
end
end
object AQ_Materiel_Need: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'Select * from Materiel_Need')
Left = 96
Top = 192
object AQ_Materiel_NeedS_Materiel_No: TAutoIncField
FieldName = 'S_Materiel_No'
ReadOnly = True
end
object AQ_Materiel_NeedS_Materiel_Time: TDateTimeField
FieldName = 'S_Materiel_Time'
end
object AQ_Materiel_NeedM_Credence_ID: TWideStringField
FieldName = 'M_Credence_ID'
Size = 15
end
object AQ_Materiel_NeedM_Credence_OID: TWideStringField
FieldName = 'M_Credence_OID'
Size = 15
end
object AQ_Materiel_NeedMateriel_Name: TWideStringField
FieldName = 'Materiel_Name'
end
object AQ_Materiel_NeedMateriel_Standard: TWideStringField
FieldName = 'Materiel_Standard'
end
object AQ_Materiel_NeedMateriel_ID: TIntegerField
FieldName = 'Materiel_ID'
end
object AQ_Materiel_NeedMateriel_Unit: TWideStringField
FieldName = 'Materiel_Unit'
end
object AQ_Materiel_NeedS_Materiel_Num: TIntegerField
FieldName = 'S_Materiel_Num'
end
object AQ_Materiel_NeedS_Materiel_Memo: TWideStringField
FieldName = 'S_Materiel_Memo'
Size = 50
end
end
object AQ_Materiel_NeedDS: TDataSource
DataSet = AQ_Materiel_Need
Left = 96
Top = 256
end
object AQ_Materiel_StockDS: TDataSource
DataSet = AQ_Materiel_Stock
Left = 184
Top = 256
end
object AQ_Materiel_Stock: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'Select * from Materiel_Stock')
Left = 184
Top = 192
object AQ_Materiel_StockS_Materiel_No: TAutoIncField
FieldName = 'S_Materiel_No'
ReadOnly = True
end
object AQ_Materiel_StockS_Materiel_Time: TDateTimeField
FieldName = 'S_Materiel_Time'
end
object AQ_Materiel_StockS_Materiel_ID: TIntegerField
FieldName = 'S_Materiel_ID'
end
object AQ_Materiel_StockS_Credence_ID: TWideStringField
FieldName = 'S_Credence_ID'
Size = 15
end
object AQ_Materiel_StockS_Credence_OID: TWideStringField
FieldName = 'S_Credence_OID'
Size = 15
end
object AQ_Materiel_StockMateriel_Name: TWideStringField
FieldName = 'Materiel_Name'
end
object AQ_Materiel_StockMateriel_Standard: TWideStringField
FieldName = 'Materiel_Standard'
end
object AQ_Materiel_StockMateriel_ID: TIntegerField
FieldName = 'Materiel_ID'
end
object AQ_Materiel_StockMateriel_Unit: TWideStringField
FieldName = 'Materiel_Unit'
end
object AQ_Materiel_StockMateriel_Price: TIntegerField
FieldName = 'Materiel_Price'
end
object AQ_Materiel_StockS_Materiel_Num: TIntegerField
FieldName = 'S_Materiel_Num'
end
object AQ_Materiel_StockS_Materiel_Price: TIntegerField
FieldName = 'S_Materiel_Price'
end
object AQ_Materiel_StockS_Materiel_Memo: TWideStringField
FieldName = 'S_Materiel_Memo'
Size = 50
end
object AQ_Materiel_StockS_Materiel_ALLPrice: TFloatField
FieldName = 'S_Materiel_ALLPrice'
end
end
object RvSystem1: TRvSystem
TitleSetup = 'Output Options'
TitleStatus = 'Report Status'
TitlePreview = 'Report Preview'
SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup, ssAllowPreviewSetup]
SystemFiler.StatusFormat = 'Generating page %p'
SystemPreview.ZoomFactor = 100.000000000000000000
SystemPrinter.ScaleX = 100.000000000000000000
SystemPrinter.ScaleY = 100.000000000000000000
SystemPrinter.StatusFormat = 'Printing page %p'
SystemPrinter.Title = 'ReportPrinter Report'
SystemPrinter.UnitsFactor = 1.000000000000000000
Left = 320
Top = 8
end
object RP_Material_Need: TRvProject
Engine = RvSystem1
ProjectFile = '.\Materiel_need.rav'
Left = 472
Top = 72
end
object RP_Material_NeedRDS: TRvDataSetConnection
RuntimeVisibility = rtDeveloper
DataSet = AQ_Materiel_Need
Left = 472
Top = 136
end
object RP_Material_Stock: TRvProject
Engine = RvSystem1
ProjectFile = '.\Materiel_Stock.rav'
Left = 472
Top = 192
end
object Material_StockRDS: TRvDataSetConnection
RuntimeVisibility = rtDeveloper
DataSet = AQ_Materiel_Stock
Left = 472
Top = 256
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -