cha_qing_gou_dan.dfm

采购管理系统：delphi+sql实现了企业采购自动化作业流程

object cha_qing_gou_da: Tcha_qing_gou_da
  Left = -62
  Top = 139
  Width = 796
  Height = 438
  Caption = #35531#36092#21934#36039#26009#26597#35426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    788
    411)
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 769
    Height = 121
    Anchors = [akLeft, akTop, akRight]
    Caption = #35531#36092#21934#26597#35426
    TabOrder = 0
    object Label2: TLabel
      Left = 39
      Top = 26
      Width = 24
      Height = 13
      AutoSize = False
      Caption = #38917#30446
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 237
      Top = 27
      Width = 24
      Height = 13
      AutoSize = False
      Caption = #20839#23481
    end
    object Label7: TLabel
      Left = 91
      Top = 46
      Width = 17
      Height = 13
      AutoSize = False
      Caption = #24478
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 292
      Top = 46
      Width = 17
      Height = 13
      AutoSize = False
      Caption = #21040
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 40
      Top = 96
      Width = 369
      Height = 13
      AutoSize = False
      Caption = #36984#25799#20379#25033#21830#21517#31281#26178','#36664#20837#26085#26399#21487#26597#19968#27573#26178#38291#20839#30340#35531#36092#36039#26009'.'
    end
    object Edit1: TEdit
      Left = 263
      Top = 24
      Width = 85
      Height = 21
      ImeName = #20013#25991' ('#32321#39636') - '#26032#27880#38899
      TabOrder = 0
      Text = 'Edit1'
      OnKeyPress = Edit1KeyPress
    end
    object BitBtn1: TBitBtn
      Left = 448
      Top = 25
      Width = 70
      Height = 21
      Hint = #26597#35426
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
        300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
        330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
        333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
        339977FF777777773377000BFB03333333337773FF733333333F333000333333
        3300333777333333337733333333333333003333333333333377333333333333
        333333333333333333FF33333333333330003333333333333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 651
      Top = 25
      Width = 70
      Height = 21
      Hint = #21462#28040
      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 t1: TMaskEdit
      Left = 66
      Top = 61
      Width = 85
      Height = 21
      EditMask = '9999/99/99;1;_'
      ImeName = #20013#25991' ('#32321#39636') - '#26032#27880#38899
      MaxLength = 10
      TabOrder = 3
      Text = '    /  /  '
      OnKeyPress = t1KeyPress
    end
    object t2: TMaskEdit
      Left = 263
      Top = 61
      Width = 85
      Height = 21
      EditMask = '9999/99/99;1;_'
      ImeName = #20013#25991' ('#32321#39636') - '#26032#27880#38899
      MaxLength = 10
      TabOrder = 4
      Text = '    /  /  '
      OnKeyPress = t2KeyPress
    end
    object ComboBox2: TComboBox
      Left = 263
      Top = 24
      Width = 85
      Height = 21
      ImeName = #20013#25991' ('#32321#39636') - '#26032#27880#38899
      ItemHeight = 13
      TabOrder = 5
      Text = 'ComboBox2'
      OnKeyPress = ComboBox2KeyPress
    end
    object BitBtn3: TBitBtn
      Left = 549
      Top = 25
      Width = 70
      Height = 21
      Caption = #36681'EXCEL'
      TabOrder = 6
      OnClick = BitBtn3Click
    end
  end
  object DBGrid1: TDBGrid
    Left = 9
    Top = 131
    Width = 767
    Height = 134
    Anchors = [akLeft, akTop, akRight]
    Color = clLime
    DataSource = DataSource1
    ImeName = #20013#25991' ('#32321#39636') - '#26032#27880#38899
    ReadOnly = True
    TabOrder = 1
    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 = #38651#33126#32232#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 = 'qing_gou_ren'
        Title.Caption = #35531#36092#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'qing_gou_bumen'
        Title.Caption = #35531#36092#37096#38272
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yes_or_no'
        Title.Caption = #25209#28310#29376#24907
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'pi_zhen_ren'
        Title.Caption = #25209#20934#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'yes_or_re_chang'
        Title.Caption = #26159#21542#20837#24235
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shen_he_ren'
        Title.Caption = #23529#26680#20154
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'shu_dan_ren'
        Title.Caption = #36664#21934#20154
        Visible = True
      end>
  end
  object ComboBox1: TComboBox
    Left = 75
    Top = 31
    Width = 85
    Height = 21
    ImeName = #20013#25991' ('#32321#39636') - '#26032#27880#38899
    ItemHeight = 13
    TabOrder = 2
    Text = 'ComboBox1'
    OnClick = ComboBox1Click
    OnKeyPress = ComboBox1KeyPress
    Items.Strings = (
      #35531#36092#21934#32232#34399
      #35531#36092#26085#26399
      #35531#36092#37096#38272
      #25209#28310#29376#24907
      #29289#26009#32232#34399)
  end
  object DBGrid2: TDBGrid
    Left = 8
    Top = 268
    Width = 769
    Height = 139
    Anchors = [akLeft, akTop, akRight, akBottom]
    Color = clYellow
    DataSource = DataSource2
    ImeName = #20013#25991' ('#32321#39636') - '#26032#27880#38899
    ReadOnly = True
    TabOrder = 3
    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 = 'qing_shu_liang'
        Title.Caption = #35531#36092#25976#37327
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'dan_wei'
        Title.Caption = #21934#20301
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'need_date'
        Title.Caption = #38656#27714#26085#26399
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'bei_zhu'
        Title.Caption = #20633#27880
        Visible = True
      end>
  end
  object Query1: TQuery
    DatabaseName = 'vvv'
    SQL.Strings = (
      'select * from qing_gou_wei_zhu')
    Left = 64
    Top = 184
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 448
    Top = 200
  end
  object Query2: TQuery
    DatabaseName = 'vvv'
    SQL.Strings = (
      'select * from qing_gou_wei_chong')
    Left = 168
    Top = 304
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 280
    Top = 304
  end
  object Table3: TTable
    DatabaseName = 'vvv'
    TableName = 'dbo.shu_ju_weifu'
    Left = 296
    Top = 192
  end
end