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

📄 qing_jue_dan.~dfm

📁 采购管理系统:delphi+sql实现了企业采购自动化作业流程
💻 ~DFM
字号:
object qing_jue_da: Tqing_jue_da
  Left = 189
  Top = 79
  Width = 314
  Height = 375
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #35531#36092#21934#32080#21934
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 16
    Width = 97
    Height = 289
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'qing_gou_no'
        Title.Caption = #35531#36092#21934#32232#34399
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 154
    Top = 72
    Width = 115
    Height = 25
    Hint = #32080#21934
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333333333C3333333333333337F3333333333333C0C3333
      333333333777F33333333333C0F0C3333333333377377F333333333C0FFF0C33
      3333333777F377F3333333CCC0FFF0C333333373377F377F33333CCCCC0FFF0C
      333337333377F377F3334CCCCCC0FFF0C3337F3333377F377F33C4CCCCCC0FFF
      0C3377F333F377F377F33C4CC0CCC0FFF0C3377F3733F77F377333C4CCC0CC0F
      0C333377F337F3777733333C4C00CCC0333333377F773337F3333333C4CCCCCC
      3333333377F333F7333333333C4CCCC333333333377F37733333333333C4C333
      3333333333777333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 154
    Top = 176
    Width = 115
    Height = 25
    Hint = #36864#20986
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333FF3333333333333003333333333333F77F33333333333009033
      333333333F7737F333333333009990333333333F773337FFFFFF330099999000
      00003F773333377777770099999999999990773FF33333FFFFF7330099999000
      000033773FF33777777733330099903333333333773FF7F33333333333009033
      33333333337737F3333333333333003333333333333377333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'vvv'
    SQL.Strings = (
      'select * from qing_gou_wei_zhu')
    Left = 136
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 184
    Top = 24
  end
  object Database1: TDatabase
    AliasName = 'ding_jue'
    Connected = True
    DatabaseName = 'bgtzak'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa')
    SessionName = 'Default'
    Left = 264
    Top = 32
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'vvv'
    TableName = 'dbo.qing_gou_wei_zhu'
    Left = 232
    Top = 32
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'bgtzak'
    TableName = 'dbo.qing_gou_wei_zhu'
    Left = 216
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = Table1
    Left = 184
    Top = 232
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'vvv'
    SQL.Strings = (
      'select * from ding_gou_chong')
    Left = 120
    Top = 176
  end
  object Table3: TTable
    Active = True
    DatabaseName = 'vvv'
    TableName = 'dbo.qing_gou_wei_chong'
    Left = 136
    Top = 240
  end
  object Table4: TTable
    Active = True
    DatabaseName = 'bgtzak'
    TableName = 'dbo.qing_gou_wei_chong'
    Left = 128
    Top = 120
  end
end

⌨️ 快捷键说明

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