⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unitprodstock.dfm

📁 此代码为企业原料管理代码
💻 DFM
📖 第 1 页 / 共 2 页
字号:
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 465
        Top = 176
        Width = 70
        Height = 14
        Caption = '收款日期:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 485
        Top = 202
        Width = 49
        Height = 14
        Caption = '金 额:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 478
        Top = 230
        Width = 56
        Height = 14
        Caption = '经办人:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 26
        Top = 282
        Width = 60
        Height = 12
        Caption = '客户名称:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 244
        Top = 284
        Width = 48
        Height = 12
        Caption = '日期从:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 384
        Top = 284
        Width = 24
        Height = 12
        Caption = '到:'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 601
        Top = 207
        Width = 42
        Height = 14
        Caption = '(元)'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object DBGrid2: TDBGrid
        Left = 28
        Top = 60
        Width = 413
        Height = 205
        DataSource = DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentFont = False
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnCellClick = DBGrid2CellClick
        Columns = <
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Khmc'
            Title.Alignment = taCenter
            Title.Caption = '客户名称'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 148
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Skrq'
            Title.Alignment = taCenter
            Title.Caption = '收款日期'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 81
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Je'
            Title.Alignment = taCenter
            Title.Caption = '金  额'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 62
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'Jsr'
            Title.Alignment = taCenter
            Title.Caption = '经办人'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clWindowText
            Title.Font.Height = -12
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 65
            Visible = True
          end>
      end
      object DBEdit3: TDBEdit
        Left = 539
        Top = 203
        Width = 66
        Height = 22
        DataField = 'Je'
        DataSource = DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnEnter = DBEdit3Enter
      end
      object DBEdit4: TDBEdit
        Left = 540
        Top = 234
        Width = 65
        Height = 22
        DataField = 'Jsr'
        DataSource = DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        OnEnter = DBEdit4Enter
      end
      object Button3: TButton
        Left = 465
        Top = 60
        Width = 75
        Height = 25
        Caption = '开始填单'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 11
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 560
        Top = 92
        Width = 71
        Height = 25
        Caption = '提 交'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        OnClick = Button4Click
      end
      object BitBtn5: TBitBtn
        Left = 467
        Top = 94
        Width = 74
        Height = 23
        Caption = '返回'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BitBtn5Click
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
          F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
          000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
          338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
          45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
          3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
          F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
          000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
          338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
          4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
          8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
          333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
          0000}
        NumGlyphs = 2
      end
      object Button5: TButton
        Left = 559
        Top = 59
        Width = 72
        Height = 25
        Caption = '查询帐目'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = Button5Click
      end
      object Panel2: TPanel
        Left = 44
        Top = 15
        Width = 366
        Height = 41
        Caption = '客 户 缴 款 登 记 、 查 询'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -20
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object Button6: TButton
        Left = 466
        Top = 27
        Width = 72
        Height = 25
        Caption = '修改记录'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = Button6Click
      end
      object Button7: TButton
        Left = 557
        Top = 28
        Width = 73
        Height = 24
        Caption = '删除'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = Button7Click
      end
      object DBEdit2: TDBEdit
        Left = 463
        Top = 144
        Width = 167
        Height = 20
        DataField = 'Khmc'
        DataSource = DataSource2
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnEnter = DBEdit2Click
      end
      object DateTimePicker3: TDateTimePicker
        Left = 538
        Top = 173
        Width = 86
        Height = 20
        CalAlignment = dtaLeft
        Date = 37519.7257150463
        Time = 37519.7257150463
        DateFormat = dfShort
        DateMode = dmComboBox
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Kind = dtkDate
        ParseInput = False
        ParentFont = False
        TabOrder = 7
      end
      object Edit3: TEdit
        Left = 85
        Top = 279
        Width = 148
        Height = 20
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 12
        OnClick = Edit3Click
      end
      object Button8: TButton
        Left = 500
        Top = 278
        Width = 75
        Height = 25
        Caption = '开始查询'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 13
        OnClick = Button8Click
      end
      object DateTimePicker4: TDateTimePicker
        Left = 289
        Top = 280
        Width = 85
        Height = 20
        CalAlignment = dtaLeft
        Date = 37581.7071268518
        Time = 37581.7071268518
        DateFormat = dfShort
        DateMode = dmComboBox
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Kind = dtkDate
        ParseInput = False
        ParentFont = False
        TabOrder = 14
      end
      object DateTimePicker5: TDateTimePicker
        Left = 406
        Top = 280
        Width = 84
        Height = 20
        CalAlignment = dtaLeft
        Date = 37581.7079876157
        Time = 37581.7079876157
        DateFormat = dfShort
        DateMode = dmComboBox
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        Kind = dtkDate
        ParseInput = False
        ParentFont = False
        TabOrder = 15
      end
    end
  end
  object Panel1: TPanel
    Left = 233
    Top = 2
    Width = 185
    Height = 25
    Caption = '成品仓库一览表'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -21
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object Query1: TQuery
    DatabaseName = 'JL2000'
    Left = 416
    Top = 24
  end
  object Table1: TTable
    DatabaseName = 'JL2000'
    TableName = 'ProdStock2.db'
    Left = 472
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = Table2
    Left = 537
    Top = 22
  end
  object Query2: TQuery
    DatabaseName = 'JL2000'
    SQL.Strings = (
      'select * from ProdOutCard')
    Left = 569
    Top = 22
  end
  object Table2: TTable
    DatabaseName = 'JL2000'
    TableName = 'kehu.DB'
    Left = 603
    Top = 22
  end
  object Query3: TQuery
    DatabaseName = 'JL2000'
    Left = 505
    Top = 26
  end
  object Query4: TQuery
    Left = 441
    Top = 298
  end
  object DataSource2: TDataSource
    DataSet = Query5
    Left = 425
    Top = 58
  end
  object Table3: TTable
    DatabaseName = 'JL2000'
    OnFilterRecord = Table3FilterRecord
    TableName = 'Prodzmb.DB'
    Left = 465
    Top = 58
  end
  object Query5: TQuery
    DatabaseName = 'JL2000'
    Left = 385
    Top = 58
  end
end

⌨️ 快捷键说明

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