📄 ding_dan_re_ku_cha.~dfm

📁 采购管理系统：delphi+sql实现了企业采购自动化作业流程
💻 ~DFM
字号:
object ding_dan_re_ku_ch: Tding_dan_re_ku_ch
  Left = -2
  Top = 103
  Width = 801
  Height = 387
  Caption = #35330#36092#29289#26009#20837#24235#28687#35261
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  DesignSize = (
    793
    360)
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 695
    Top = 320
    Width = 42
    Height = 33
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333FF3333333333333003333333333333F77F33333333333009033
      333333333F7737F333333333009990333333333F773337FFFFFF330099999000
      00003F773333377777770099999999999990773FF33333FFFFF7330099999000
      000033773FF33777777733330099903333333333773FF7F33333333333009033
      33333333337737F3333333333333003333333333333377333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 608
    Top = 320
    Width = 42
    Height = 33
    Hint = #28687#35261#20840#37096
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
      333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
      C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
      F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
      F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
      00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
      3333333373FF7333333333333000333333333333377733333333333333333333
      3333333333333333333333333333333333333333333333333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 652
    Top = 320
    Width = 42
    Height = 33
    Hint = #26597#25214
    Flat = True
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
      300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
      330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
      333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
      339977FF777777773377000BFB03333333337773FF733333333F333000333333
      3300333777333333337733333333333333003333333333333377333333333333
      333333333333333333FF33333333333330003333333333333777333333333333
      3000333333333333377733333333333333333333333333333333}
    NumGlyphs = 2
    ParentShowHint = False
    ShowHint = True
    OnClick = SpeedButton3Click
  end
  object Label1: TLabel
    Left = 64
    Top = 328
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #36229#36865#25976#37327':'
  end
  object Label2: TLabel
    Left = 122
    Top = 328
    Width = 71
    Height = 13
    AutoSize = False
    Caption = 'Label2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 198
    Top = 328
    Width = 209
    Height = 13
    AutoSize = False
    Caption = '('#27880#24847':'#20813#36027#25976#37327#21253#25324#22312#36229#36865#25976#37327#20013')'
  end
  object DBGrid1: TDBGrid
    Left = 6
    Top = 5
    Width = 785
    Height = 144
    Anchors = [akLeft, akTop, akRight]
    Color = clAqua
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'jiao_computerno'
        Title.Caption = #20837#24235#27969#27700#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'jiao_yi_no'
        Title.Caption = #20837#24235#32232#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ding_gou_no'
        Title.Caption = #35330#36092#21934#32232#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'nian_shou_no'
        Title.Caption = #39511#25910#21934#32232#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 're_chang_re'
        Title.Caption = #20837#24235#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gong_yi_no'
        Title.Caption = #20379#25033#21830#32232#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'gong_yi_name'
        Title.Caption = #20379#25033#21830#21517#31281
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bumen_manager'
        Title.Caption = #37096#38272#36000#36012#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ke_zhang'
        Title.Caption = #35506#38263
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shou_di_ren'
        Title.Caption = #37782#23450#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shou_huo_ren'
        Title.Caption = #25910#36008#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shu_dan_ren'
        Title.Caption = #36664#21934#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yes_or_no'
        Title.Caption = #26159#21542#37782#23450
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yes_or_no_qi'
        Title.Caption = #26159#21542#20837#40778
        Visible = True
      end>
  end
  object DBNavigator1: TDBNavigator
    Left = 424
    Top = 320
    Width = 184
    Height = 33
    DataSource = DataSource2
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    TabOrder = 1
  end
  object DBGrid2: TDBGrid
    Left = 6
    Top = 151
    Width = 787
    Height = 162
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clYellow
    DataSource = DataSource2
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid2CellClick
    Columns = <
      item
        Expanded = False
        FieldName = 'jiao_yi_no'
        Title.Caption = #20837#24235#32232#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zi_hao'
        Title.Caption = #23376#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'wu_no'
        Title.Caption = #29289#26009#32232#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'wu_name'
        Title.Caption = #29289#26009#21517#31281
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'wu_gui'
        Title.Caption = #35215#26684
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dan_wei'
        Title.Caption = #21934#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ding_shu'
        Title.Caption = #35330#36092#25976#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shong_huo_shu'
        Title.Caption = #36865#36008#25976#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'no_money_fmount'
        Title.Caption = #20813#36027#25976#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'si_shu'
        Title.Caption = #20837#24235#25976#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dian_jia'
        Title.Caption = #21934#20215
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bi_bue'
        Title.Caption = #24163#21029
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'zhong_jia'
        Title.Caption = #32317#20215'('#23458#24163')'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ren_ming_bi'
        Title.Caption = #37329#38989#25240#20154#27665#24163
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'cang_qu'
        Title.Caption = #20489#21312
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bei_zhu'
        Title.Caption = #20633#27880
        Visible = True
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 312
    Top = 64
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'vvv'
    SQL.Strings = (
      'select * from re_chang_zhu')
    Left = 192
    Top = 72
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'vvv'
    SQL.Strings = (
      'Select * from re_chang_chong')
    Left = 168
    Top = 200
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 312
    Top = 192
  end
end
⌨️ 快捷键说明

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