📄 data.dfm

📁 delphi的一个开发实例
💻 DFM
字号:
object frm_Data: Tfrm_Data
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 154
  Top = 108
  Height = 673
  Width = 914
  object Socket_Connection: TSocketConnection
    SupportCallbacks = False
    ObjectBroker = Simple_ObjectBroker
    Left = 64
    Top = 16
  end
  object Simple_ObjectBroker: TSimpleObjectBroker
    LoadBalanced = True
    Left = 248
    Top = 16
  end
  object ClientDataSet_Add: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 56
    Top = 80
  end
  object DataSource1: TDataSource
    Left = 160
    Top = 16
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 408
    Top = 80
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 152
    Top = 80
  end
  object ClientDataSet3: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 240
    Top = 80
  end
  object ClientDataSet4: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 320
    Top = 80
  end
  object ClientDataSet_Goods: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 64
    Top = 144
  end
  object Client_Temp: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'Data_Temp'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 152
    Top = 144
  end
  object DataSource_Search: TDataSource
    Left = 240
    Top = 144
  end
  object ClientDataSet_Select: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 360
    Top = 136
  end
  object ClientDataSet_Stock_States: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 64
    Top = 200
  end
  object DataSource_Stock_States: TDataSource
    DataSet = ClientDataSet_Stock_States
    Left = 64
    Top = 256
  end
  object DataSource_Stock_States_detail: TDataSource
    DataSet = ClientDataSet_Stock_States_detail
    Left = 224
    Top = 256
  end
  object ClientDataSet_Stock_States_detail: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 232
    Top = 200
  end
  object ClientDataSet_Stock_States_Total: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 440
    Top = 192
  end
  object DataSource_Stock_States_Total: TDataSource
    DataSet = ClientDataSet_Stock_States_Total
    Left = 432
    Top = 256
  end
  object ClientDataSet_Goods_Information: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 528
    Top = 24
  end
  object DataSource_Goods_Information: TDataSource
    DataSet = ClientDataSet_Goods_Information
    Left = 528
    Top = 80
  end
  object DataSource_StoreProdc: TDataSource
    Left = 600
    Top = 192
  end
  object StoredProc1: TStoredProc
    Left = 600
    Top = 256
  end
  object ClientDataSet_Stock_Jion_Search: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 224
    Top = 320
  end
  object DataSource_Stock_Jion_Search: TDataSource
    DataSet = ClientDataSet_Stock_Jion_Search
    Left = 224
    Top = 376
  end
  object ClientDataSet_Submit_adopt: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 432
    Top = 328
  end
  object DataSource_Submit_adopt: TDataSource
    DataSet = ClientDataSet_Submit_adopt
    Left = 432
    Top = 384
  end
  object ClientDataSet_Submit_adopt_detail: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 624
    Top = 320
  end
  object DataSource_Submit_adopt_detail: TDataSource
    DataSet = ClientDataSet_Submit_adopt_detail
    Left = 624
    Top = 376
  end
  object ClientDataSet_Receipt: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 224
    Top = 432
  end
  object DataSource_Receipt: TDataSource
    DataSet = ClientDataSet_Receipt
    Left = 224
    Top = 480
  end
  object ClientDataSet_Submit_quit_detail: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 432
    Top = 456
  end
  object DataSource_Submit_quit_detail: TDataSource
    DataSet = ClientDataSet_Submit_quit_detail
    Left = 432
    Top = 512
  end
  object ClientDataSet_Submit_quit: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 648
    Top = 456
  end
  object DataSource_Submit_quit: TDataSource
    DataSet = ClientDataSet_Submit_quit
    Left = 648
    Top = 512
  end
  object ClientDataSet_Storage_Warn: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 712
    Top = 88
  end
  object DataSource_Storage_Warn: TDataSource
    Left = 712
    Top = 24
  end
  object ClientDataSet_Company: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 728
    Top = 152
  end
  object DataSource_Company: TDataSource
    DataSet = ClientDataSet_Company
    Left = 728
    Top = 208
  end
  object ClientDataSet_TMP: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Company_Name'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_NO'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_address'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_ZIP'
        Attributes = [faFixed]
        DataType = ftString
        Size = 6
      end
      item
        Name = 'Company_TEL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_TAX'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_WWW'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_Email'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Sign_Flag'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'Use_Flag'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Store_Prodc'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 760
    Top = 328
  end
  object DataSource_TMP: TDataSource
    DataSet = ClientDataSet_TMP
    Left = 760
    Top = 384
  end
  object Data_SP_Part_Set: TDataSource
    Left = 64
    Top = 312
  end
  object Data_Goods: TDataSource
    Left = 65
    Top = 375
  end
  object Client_Goods: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 67
    Top = 373
  end
  object Data_Part_Set: TDataSource
    DataSet = Client_Part_Set
    Left = 56
    Top = 432
  end
  object Client_Part_Set: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 56
    Top = 432
  end
  object Client_SP_Part_Set: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faReadonly]
        DataType = ftAutoInc
      end
      item
        Name = 'Company_Name'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_NO'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_address'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_ZIP'
        Attributes = [faFixed]
        DataType = ftString
        Size = 6
      end
      item
        Name = 'Company_TEL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_TAX'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_WWW'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Company_Email'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Sign_Flag'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end
      item
        Name = 'Use_Flag'
        Attributes = [faFixed]
        DataType = ftString
        Size = 2
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'Data_Sp_Part_set'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 64
    Top = 312
  end
  object Data_Stock_States: TDataSource
    DataSet = Client_Stock_States
    Left = 56
    Top = 480
  end
  object Client_Stock_States: TClientDataSet
    Aggregates = <>
    FieldDefs = <>
    IndexDefs = <>
    Params = <>
    ProviderName = 'DataSetProvider_Server'
    RemoteServer = Socket_Connection
    StoreDefs = True
    Left = 56
    Top = 480
  end
end
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -