unit4.dfm

来自「玉龙飞雪进销存管理系统,可以帮您管理进销存的软件」· DFM 代码 · 共 1,457 行 · 第 1/3 页

DFM
1,457 行
字号
123
          Top = 110
          Width = 721
          Height = 269
          TabOrder = 1
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -13
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
        end
        object Panel7: TPanel
          Left = 8
          Top = 408
          Width = 721
          Height = 41
          BevelOuter = bvNone
          BorderStyle = bsSingle
          TabOrder = 2
          object SpeedButton13: TSpeedButton
            Left = 619
            Top = 9
            Width = 61
            Height = 25
            Caption = #36864'   '#20986
            Flat = True
            OnClick = SpeedButton4Click
          end
          object SpeedButton14: TSpeedButton
            Left = 505
            Top = 9
            Width = 61
            Height = 25
            Caption = #25171#21360#32467#26524
            Flat = True
          end
          object SpeedButton15: TSpeedButton
            Left = 404
            Top = 9
            Width = 61
            Height = 25
            Caption = #37325#32622#36873#39033
            Flat = True
            OnClick = SpeedButton10Click
          end
          object SpeedButton16: TSpeedButton
            Left = 295
            Top = 9
            Width = 61
            Height = 25
            Caption = #24320#22987#26597#30475
            Flat = True
            OnClick = SpeedButton16Click
          end
          object DBNavigator4: TDBNavigator
            Left = 27
            Top = 9
            Width = 224
            Height = 25
            VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
            Flat = True
            TabOrder = 0
          end
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 64
    Top = 56
  end
  object Query1: TQuery
    OnCalcFields = Query1CalcFields
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select * from jin'
      '')
    Left = 32
    Top = 56
    object Query1BDEDesigner: TIntegerField
      FieldName = #36827#36135#32534#21495
      Origin = 'MYDB."jin.DB".'#36827#36135#32534#21495
    end
    object Query1BDEDesigner2: TStringField
      FieldName = #36135#21697#31867#22411
      Origin = 'MYDB."jin.DB".'#36135#21697#31867#22411
      Size = 10
    end
    object Query1BDEDesigner3: TStringField
      FieldName = #36827#36135#26041#24335
      Origin = 'MYDB."jin.DB".'#36827#36135#26041#24335
      Size = 10
    end
    object Query1BDEDesigner4: TDateField
      FieldName = #36827#36135#26102#38388
      Origin = 'MYDB."jin.DB".'#36827#36135#26102#38388
    end
    object Query1BDEDesigner5: TFloatField
      FieldName = #36827#36135#25968#37327
      Origin = 'MYDB."jin.DB".'#36827#36135#25968#37327
    end
    object Query1BDEDesigner6: TFloatField
      FieldName = #36192#36865#25968#37327
      Origin = 'MYDB."jin.DB".'#36192#36865#25968#37327
    end
    object Query1BDEDesigner7: TCurrencyField
      FieldName = #36135#21697#21333#20215
      Origin = 'MYDB."jin.DB".'#36135#21697#21333#20215
    end
    object Query1BDEDesigner8: TStringField
      FieldName = #21333#20301
      Origin = 'MYDB."jin.DB".'#21333#20301
      Size = 4
    end
    object Query1Field: TCurrencyField
      FieldKind = fkCalculated
      FieldName = #24212#20184#27454#25968
      Calculated = True
    end
    object Query1BDEDesigner9: TCurrencyField
      FieldName = #27424#27454#25968#30446
      Origin = 'MYDB."jin.DB".'#27424#27454#25968#30446
    end
    object Query1BDEDesigner10: TMemoField
      FieldName = #20449#24687#22791#27880
      Origin = 'MYDB."jin.DB".'#20449#24687#22791#27880
      BlobType = ftMemo
      Size = 60
    end
  end
  object Query2: TQuery
    OnCalcFields = Query2CalcFields
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select * from xiao')
    Left = 128
    Top = 56
    object Query2BDEDesigner: TIntegerField
      FieldName = #38144#21806#32534#21495
      Origin = 'MYDB."xiao.DB".'#38144#21806#32534#21495
    end
    object Query2BDEDesigner2: TStringField
      FieldName = #36135#21697#31867#22411
      Origin = 'MYDB."xiao.DB".'#36135#21697#31867#22411
      Size = 10
    end
    object Query2BDEDesigner3: TStringField
      FieldName = #38144#21806#26041#24335
      Origin = 'MYDB."xiao.DB".'#38144#21806#26041#24335
      Size = 10
    end
    object Query2BDEDesigner4: TDateField
      FieldName = #38144#21806#26102#38388
      Origin = 'MYDB."xiao.DB".'#38144#21806#26102#38388
    end
    object Query2BDEDesigner6: TFloatField
      FieldName = #38144#21806#25968#37327
      Origin = 'MYDB."xiao.DB".'#38144#21806#25968#37327
    end
    object Query2BDEDesigner7: TFloatField
      FieldName = #36192#36865#25968#37327
      Origin = 'MYDB."xiao.DB".'#36192#36865#25968#37327
    end
    object Query2BDEDesigner8: TCurrencyField
      FieldName = #38144#21806#21333#20215
      Origin = 'MYDB."xiao.DB".'#38144#21806#21333#20215
    end
    object Query2BDEDesigner9: TStringField
      FieldName = #21333#20301
      Origin = 'MYDB."xiao.DB".'#21333#20301
      Size = 4
    end
    object Query2Field: TCurrencyField
      FieldKind = fkCalculated
      FieldName = #24212#20184#27454#25968
      Calculated = True
    end
    object Query2BDEDesigner10: TCurrencyField
      FieldName = #27424#27454#25968#30446
      Origin = 'MYDB."xiao.DB".'#27424#27454#25968#30446
    end
    object Query2BDEDesigner11: TMemoField
      FieldName = #20449#24687#22791#27880
      Origin = 'MYDB."xiao.DB".'#20449#24687#22791#27880
      BlobType = ftMemo
      Size = 60
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 160
    Top = 56
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 224
    Top = 56
  end
  object Query3: TQuery
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select * from kehu')
    Left = 264
    Top = 56
  end
  object Query4: TQuery
    OnCalcFields = Query4CalcFields
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select '#36827#36135#32534#21495','#36135#21697#31867#22411','#36827#36135#26041#24335','#36827#36135#26102#38388','#36827#36135#25968#37327','#36192#36865#25968#37327','#36135#21697#21333#20215','#21333#20301','#27424#27454#25968#30446','#20449#24687#22791#27880
      'from jin')
    Left = 80
    Top = 144
    object Query4BDEDesigner: TIntegerField
      FieldName = #36827#36135#32534#21495
      Origin = 'MYDB."jin.DB".'#36827#36135#32534#21495
    end
    object Query4BDEDesigner2: TStringField
      FieldName = #36135#21697#31867#22411
      Origin = 'MYDB."jin.DB".'#36135#21697#31867#22411
      Size = 10
    end
    object Query4BDEDesigner3: TStringField
      FieldName = #36827#36135#26041#24335
      Origin = 'MYDB."jin.DB".'#36827#36135#26041#24335
      Size = 10
    end
    object Query4BDEDesigner4: TDateField
      FieldName = #36827#36135#26102#38388
      Origin = 'MYDB."jin.DB".'#36827#36135#26102#38388
    end
    object Query4BDEDesigner5: TFloatField
      FieldName = #36827#36135#25968#37327
      Origin = 'MYDB."jin.DB".'#36827#36135#25968#37327
    end
    object Query4BDEDesigner6: TFloatField
      FieldName = #36192#36865#25968#37327
      Origin = 'MYDB."jin.DB".'#36192#36865#25968#37327
    end
    object Query4BDEDesigner7: TCurrencyField
      FieldName = #36135#21697#21333#20215
      Origin = 'MYDB."jin.DB".'#36135#21697#21333#20215
    end
    object Query4BDEDesigner8: TStringField
      FieldName = #21333#20301
      Origin = 'MYDB."jin.DB".'#21333#20301
      Size = 4
    end
    object Query4Field: TCurrencyField
      FieldKind = fkCalculated
      FieldName = #24212#20184#27454#25968
      Calculated = True
    end
    object Query4BDEDesigner9: TCurrencyField
      FieldName = #27424#27454#25968#30446
      Origin = 'MYDB."jin.DB".'#27424#27454#25968#30446
    end
    object Query4BDEDesigner10: TMemoField
      FieldName = #20449#24687#22791#27880
      Origin = 'MYDB."jin.DB".'#20449#24687#22791#27880
      BlobType = ftMemo
      Size = 60
    end
  end
  object Query5: TQuery
    OnCalcFields = Query5CalcFields
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select '#38144#21806#32534#21495','#36135#21697#31867#22411','#38144#21806#26041#24335','#38144#21806#26102#38388','#38144#21806#25968#37327','#36192#36865#25968#37327','#21333#20301','#38144#21806#21333#20215','#27424#27454#25968#30446','#20449#24687#22791#27880
      'from xiao')
    Left = 168
    Top = 128
    object Query5BDEDesigner: TIntegerField
      FieldName = #38144#21806#32534#21495
      Origin = 'MYDB."xiao.DB".'#38144#21806#32534#21495
    end
    object Query5BDEDesigner2: TStringField
      FieldName = #36135#21697#31867#22411
      Origin = 'MYDB."xiao.DB".'#36135#21697#31867#22411
      Size = 10
    end
    object Query5BDEDesigner3: TStringField
      FieldName = #38144#21806#26041#24335
      Origin = 'MYDB."xiao.DB".'#38144#21806#26041#24335
      Size = 10
    end
    object Query5BDEDesigner4: TDateField
      FieldName = #38144#21806#26102#38388
      Origin = 'MYDB."xiao.DB".'#38144#21806#26102#38388
    end
    object Query5BDEDesigner5: TFloatField
      FieldName = #38144#21806#25968#37327
      Origin = 'MYDB."xiao.DB".'#38144#21806#25968#37327
    end
    object Query5BDEDesigner6: TFloatField
      FieldName = #36192#36865#25968#37327
      Origin = 'MYDB."xiao.DB".'#36192#36865#25968#37327
    end
    object Query5BDEDesigner7: TStringField
      FieldName = #21333#20301
      Origin = 'MYDB."xiao.DB".'#21333#20301
      Size = 4
    end
    object Query5BDEDesigner8: TCurrencyField
      FieldName = #38144#21806#21333#20215
      Origin = 'MYDB."xiao.DB".'#38144#21806#21333#20215
    end
    object Query5BDEDesigner9: TCurrencyField
      FieldName = #27424#27454#25968#30446
      Origin = 'MYDB."xiao.DB".'#27424#27454#25968#30446
    end
    object Query5Field: TCurrencyField
      FieldKind = fkCalculated
      FieldName = #24212#20184#27454#25968
      Calculated = True
    end
    object Query5BDEDesigner10: TMemoField
      FieldName = #20449#24687#22791#27880
      Origin = 'MYDB."xiao.DB".'#20449#24687#22791#27880
      BlobType = ftMemo
      Size = 60
    end
  end
  object Query6: TQuery
    DatabaseName = 'mydb'
    Left = 320
    Top = 144
  end
  object DataSource4: TDataSource
    DataSet = Query4
    Left = 80
    Top = 176
  end
  object DataSource5: TDataSource
    DataSet = Query5
    Left = 200
    Top = 128
  end
  object DataSource6: TDataSource
    DataSet = Query6
    Left = 328
    Top = 184
  end
  object Query7: TQuery
    Active = True
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select '#36827#36135#32534#21495','#36827#36135#26102#38388','#36135#21697#31867#22411','#36827#36135#25968#37327','#36192#36865#25968#37327
      'from jin'
      ''
      '')
    Left = 40
    Top = 120
  end
  object DataSource7: TDataSource
    DataSet = Query7
    Left = 72
    Top = 120
  end
  object DataSource8: TDataSource
    DataSet = Query8
    Left = 72
    Top = 288
  end
  object Query8: TQuery
    Active = True
    DatabaseName = 'mydb'
    SQL.Strings = (
      'select '#38144#21806#32534#21495','#38144#21806#26102#38388','#36135#21697#31867#22411','#38144#21806#25968#37327','#36192#36865#25968#37327
      'from xiao')
    Left = 40
    Top = 288
  end
  object Query9: TQuery
    DatabaseName = 'mydb'
    Left = 136
    Top = 480
  end
  object Query10: TQuery
    DatabaseName = 'mydb'
    Left = 328
    Top = 480
  end
  object DataSource9: TDataSource
    DataSet = Query11
    Left = 480
    Top = 256
  end
  object DataSource10: TDataSource
    DataSet = Query12
    Left = 488
    Top = 432
  end
  object Query11: TQuery
    Active = True
    OnCalcFields = Query11CalcFields
    DatabaseName = 'mydb'
    SQL.Strings = (
      
        'select '#36827#36135#32534#21495','#36827#36135#26102#38388','#36135#21697#21333#20215','#36827#36135#25968#37327','#21333#20301','#27424#27454#25968#30446',(select sum('#36135#21697#21333#20215'*'#36827#36135#25968#37327') as '#24635#24212#20184 +
        #27454#25968' from jin) '
      'from jin '
      'group by '#36827#36135#32534#21495','#36827#36135#26102#38388','#36135#21697#21333#20215','#36827#36135#25968#37327','#21333#20301','#27424#27454#25968#30446)
    Left = 512
    Top = 256
    object Query11BDEDesigner: TIntegerField
      FieldName = #36827#36135#32534#21495
    end
    object Query11BDEDesigner2: TDateField
      FieldName = #36827#36135#26102#38388
    end
    object Query11BDEDesigner3: TCurrencyField
      FieldName = #36135#21697#21333#20215
    end
    object Query11BDEDesigner4: TFloatField
      FieldName = #36827#36135#25968#37327
    end
    object Query11BDEDesigner5: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object Query11Field: TCurrencyField
      FieldKind = fkCalculated
      FieldName = #24212#20184#27454#25968
      Calculated = True
    end
    object Query11BDEDesigner6: TCurrencyField
      FieldName = #27424#27454#25968#30446
    end
    object Query11F: TCurrencyField
      FieldName = 'F'
    end
  end
  object Query12: TQuery
    Active = True
    OnCalcFields = Query12CalcFields
    DatabaseName = 'mydb'
    SQL.Strings = (
      
        'select '#38144#21806#32534#21495','#38144#21806#26102#38388','#38144#21806#21333#20215','#38144#21806#25968#37327','#21333#20301','#27424#27454#25968#30446',(select sum('#38144#21806#21333#20215'*'#38144#21806#25968#37327') as '#24635#24212#20184 +
        #27454#25968' from xiao) '
      'from xiao '
      'group by '#38144#21806#32534#21495','#38144#21806#26102#38388','#38144#21806#21333#20215','#38144#21806#25968#37327','#21333#20301','#27424#27454#25968#30446)
    Left = 520
    Top = 432
    object Query12BDEDesigner: TIntegerField
      FieldName = #38144#21806#32534#21495
    end
    object Query12BDEDesigner2: TDateField
      FieldName = #38144#21806#26102#38388
    end
    object Query12BDEDesigner3: TCurrencyField
      FieldName = #38144#21806#21333#20215
    end
    object Query12BDEDesigner4: TFloatField
      FieldName = #38144#21806#25968#37327
    end
    object Query12BDEDesigner5: TStringField
      FieldName = #21333#20301
      Size = 4
    end
    object Query12Field: TCurrencyField
      FieldKind = fkCalculated
      FieldName = #24212#20184#27454#25968
      Calculated = True
    end
    object Query12BDEDesigner6: TCurrencyField
      FieldName = #27424#27454#25968#30446
    end
    object Query12F: TCurrencyField
      FieldName = 'F'
    end
  end
  object Query13: TQuery
    DatabaseName = 'mydb'
    Left = 264
    Top = 512
  end
  object Query14: TQuery
    DatabaseName = 'mydb'
    Left = 561
    Top = 516
  end
end
123

unit4.dfm - 源码说明

本页面展示了「玉龙飞雪进销存管理系统,可以帮您管理进销存的软件」中的 unit4.dfm 源码文件，采用 DFM 编程语言编写，共 1,457 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与进销存管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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