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

📄 qing_gou_re_ku.~dfm

📁 采购管理系统:delphi+sql实现了企业采购自动化作业流程
💻 ~DFM
字号:
object qing_gou_re_k: Tqing_gou_re_k
  Left = 4
  Top = 102
  Width = 788
  Height = 512
  Caption = #35531#36092#21934#20837#24235#24773#27841#26597#35426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    780
    485)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 1
    Top = 21
    Width = 86
    Height = 13
    AutoSize = False
    Caption = #35531#36092#26085#26399#38283#22987
  end
  object Label2: TLabel
    Left = 221
    Top = 21
    Width = 86
    Height = 13
    AutoSize = False
    Caption = #35531#36092#26085#26399#32080#26463
  end
  object Label3: TLabel
    Left = 720
    Top = 56
    Width = 32
    Height = 13
    Caption = 'Label3'
  end
  object Label4: TLabel
    Left = 413
    Top = 21
    Width = 57
    Height = 13
    AutoSize = False
    Caption = #35531#36092#37096#38272
  end
  object DBGrid1: TDBGrid
    Left = 6
    Top = 82
    Width = 769
    Height = 185
    Anchors = [akLeft, akTop, akRight]
    Color = clLime
    DataSource = DataSource1
    ReadOnly = True
    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 = 'qing_gou_computerno'
        Title.Caption = #35531#36092#27969#27700#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qing_gou_no'
        Title.Caption = #35531#36092#21934#32232#34399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qing_gou_date'
        Title.Caption = #35531#36092#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yes_or_re_chang'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = #26159#21542#20837#24235
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clRed
        Title.Font.Height = -11
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = []
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qing_gou_bumen'
        Title.Caption = #35531#36092#37096#38272
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qing_gou_ren'
        Title.Caption = #35531#36092#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yes_or_shen_he'
        Title.Caption = #26159#21542#23529#26680
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shen_he_ren'
        Title.Caption = #23529#26680#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yes_or_no'
        Title.Caption = #26159#21542#25209#20934
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pi_zhen_ren'
        Title.Caption = #25209#20934#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yes_or_shou'
        Title.Caption = #26159#21542#37782#23450
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shou_di_ren'
        Title.Caption = #37782#23450#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shu_dan_ren'
        Title.Caption = #36664#21934#20154
        Visible = True
      end>
  end
  object t2: TMaskEdit
    Left = 309
    Top = 18
    Width = 99
    Height = 21
    EditMask = '9999/99/99;1;_'
    MaxLength = 10
    TabOrder = 1
    Text = '    /  /  '
    OnKeyPress = t2KeyPress
  end
  object t1: TMaskEdit
    Left = 87
    Top = 18
    Width = 99
    Height = 21
    EditMask = '9999/99/99;1;_'
    MaxLength = 10
    TabOrder = 2
    Text = '    /  /  '
    OnKeyPress = t1KeyPress
  end
  object RadioButton1: TRadioButton
    Left = 586
    Top = 16
    Width = 66
    Height = 25
    Caption = #26410#20837#24235
    TabOrder = 3
    OnKeyPress = RadioButton1KeyPress
  end
  object RadioButton2: TRadioButton
    Left = 644
    Top = 16
    Width = 59
    Height = 25
    Caption = #24050#20837#24235
    TabOrder = 4
    OnKeyPress = RadioButton2KeyPress
  end
  object RadioButton3: TRadioButton
    Left = 706
    Top = 16
    Width = 56
    Height = 25
    Caption = #20840#37096
    TabOrder = 5
    OnKeyPress = RadioButton3KeyPress
  end
  object DBGrid2: TDBGrid
    Left = 7
    Top = 269
    Width = 769
    Height = 194
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clCream
    DataSource = DataSource2
    ReadOnly = True
    TabOrder = 6
    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
      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 = 'qing_shu_liang'
        Title.Caption = #35531#36092#25976#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'need_date'
        Title.Caption = #38656#27714#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'need_why'
        Title.Caption = #38656#27714#21407#22240
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bei_zhu'
        Title.Caption = #20633#27880
        Visible = True
      end>
  end
  object Button1: TButton
    Left = 301
    Top = 49
    Width = 50
    Height = 28
    Caption = #26597#35426
    TabOrder = 7
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 351
    Top = 49
    Width = 50
    Height = 28
    Caption = #21015#21360
    TabOrder = 8
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 401
    Top = 49
    Width = 50
    Height = 28
    Caption = #21462#28040
    TabOrder = 9
    OnClick = Button3Click
  end
  object DBNavigator1: TDBNavigator
    Left = 77
    Top = 49
    Width = 224
    Height = 28
    DataSource = DataSource1
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    TabOrder = 10
  end
  object ComboBox1: TComboBox
    Left = 471
    Top = 19
    Width = 99
    Height = 21
    ItemHeight = 13
    TabOrder = 11
    Text = 'ComboBox1'
    OnKeyPress = ComboBox1KeyPress
  end
  object Query1: TQuery
    Active = True
    AfterScroll = Query1AfterScroll
    DatabaseName = 'vvv'
    SQL.Strings = (
      'select * from qing_gou_wei_zhu')
    Left = 256
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 384
    Top = 136
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'vvv'
    SQL.Strings = (
      'select * from qing_gou_wei_chong')
    Left = 224
    Top = 304
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 320
    Top = 288
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'vvv'
    TableName = 'dbo.shu_ju_weifu'
    Left = 480
    Top = 48
  end
end

⌨️ 快捷键说明

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