wl61_p.dfm

delphi+SQLSERVER做的ERP适合初学者模仿之作简单的添加删除链接数据可以用BDE技术链接数据库

object wl61: Twl61
  Left = 154
  Top = 130
  Width = 870
  Height = 516
  Caption = #21407#26009#20837#24211#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 862
    Height = 81
    Align = alTop
    Caption = #21407#26009#20837#24211#26597#35810
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -32
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 81
    Width = 862
    Height = 319
    Align = alClient
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 860
      Height = 317
      Align = alClient
      DataSource = DataSource1
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'rkrq'
          Title.Caption = #20837#24211#26085#26399
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Width = 86
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'rkbh'
          Title.Caption = #20837#24211#32534#21495
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ylzl'
          Title.Caption = #21407#26009#31181#31867
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ylmc'
          Title.Caption = #21407#26009#21517#31216
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ylgg'
          Title.Caption = #21407#26009#35268#26684
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'fk'
          Title.Caption = #24133#23485
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ys'
          Title.Caption = #39068#33394
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jldw'
          Title.Caption = #21333#20301
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dj'
          Title.Caption = #21333#20215
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sl'
          Title.Caption = #25968#37327
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sczg'
          Title.Caption = #29983#20135#20027#31649
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'cgr'
          Title.Caption = #37319#36141#21592
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'bgy'
          Title.Caption = #20445#31649#21592
          Title.Font.Charset = DEFAULT_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -16
          Title.Font.Name = 'MS Sans Serif'
          Title.Font.Style = []
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 400
    Width = 862
    Height = 82
    Align = alBottom
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 80
      Height = 16
      Caption = #20837#24211#32534#21495#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 104
      Top = 8
      Width = 31
      Height = 28
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
      OnClick = SpeedButton1Click
    end
    object Label2: TLabel
      Left = 216
      Top = 8
      Width = 80
      Height = 16
      Caption = #20837#24211#26085#26399#20174
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 280
      Top = 40
      Width = 16
      Height = 16
      Caption = #21040
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton2: TSpeedButton
      Left = 416
      Top = 40
      Width = 31
      Height = 28
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
      OnClick = SpeedButton2Click
    end
    object Label4: TLabel
      Left = 528
      Top = 16
      Width = 64
      Height = 16
      Caption = #21407#26009#31181#31867
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 528
      Top = 48
      Width = 64
      Height = 16
      Caption = #21407#26009#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 16
      Top = 38
      Width = 121
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object BitBtn2: TBitBtn
      Left = 1136
      Top = 8
      Width = 97
      Height = 41
      Caption = #36864#20986
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn2Click
      Glyph.Data = {
        76020000424D7602000000000000760000002800000020000000200000000100
        0400000000000002000000000000000000001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888FFF88F
        FF88FFF000FF88FF8888888FFF88FFF88FFF88F0EE0FFF88FF888FF88FFF88FF
        F88FFF80EE608FFF88F888FFF88FFF88FFF88FF0EE66088FFF88FF88FFF88FFF
        88FFF880EE6660F88FFF8FFF88FFF88FFF88FFF0EE66660FF88F000000000000
        0FFF88F0EE6666600000FFFFFFFFFFFF088FFF80EE66666078FFFFFFFFFFFFFF
        0FF88FF0EE66666078FFFFFFFFFFFF8F00000000EE66666078FFFFFFFFFFF088
        07777770EE66666078FFFFFFFFFFF00807777770EE66666078FFFFFFFFFFF060
        07777770EE66666078FFFFFFFFFFF06607777770EE60066078FFFFFF888880E6
        60777770EE07066078FFFFF8888880EE66077770EE0F066078FFFF00000000EE
        E6607770EE60066078FFF066666666EEEE660770EE66666078FFF0EEEEEEEEEE
        EEE66070EE66666078FFF0EEFFFFFFFFFFEE6070EE66666078FFF0EEEEEEEEEE
        FEE60770EE66666078FFFF00000000EFEE607770EE66666078FFFFFFFFFFF0EE
        E6077770EE66666078FFFFFFFFFFF0EE60777770EE66666078FFFFFFFFFFF0E6
        07777770EE66666078FFFFFFFFFFF060077777770EE6666078FFFFFFFFFFF00F
        0777777770EE666078FFFFFFFFFFFFFF07777777770EE66078FFFFFFFFFFFFFF
        077777777770EE6078FFFFFFFFFFFFFF0777777777770EE07FFFFFFFFFFFFFFF
        0000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
    end
    object DateTimePicker1: TDateTimePicker
      Left = 304
      Top = 8
      Width = 105
      Height = 28
      Date = 39814.657232164350000000
      Time = 39814.657232164350000000
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object DateTimePicker2: TDateTimePicker
      Left = 304
      Top = 40
      Width = 105
      Height = 28
      Date = 39921.657301423620000000
      Time = 39921.657301423620000000
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object ComboBox1: TComboBox
      Left = 600
      Top = 15
      Width = 145
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 4
      OnChange = ComboBox1Change
      Items.Strings = (
        #38754#26009
        #37324#26009
        #34924#26009)
    end
    object ComboBox2: TComboBox
      Left = 600
      Top = 47
      Width = 257
      Height = 24
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 16
      ParentFont = False
      TabOrder = 5
      OnChange = ComboBox2Change
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'yxfz'
    SQL.Strings = (
      'select * from wl_ylrk')
    Left = 24
    Top = 105
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 72
    Top = 105
  end
  object Query2: TQuery
    DatabaseName = 'yxfz'
    Left = 504
    Top = 440
  end
end