u_zgda.~dfm

这是一个Delphi--仓库管理信息系统代码

object frmZgda: TfrmZgda
  Left = 334
  Top = 248
  BorderStyle = bsSingle
  Caption = #32844#24037#26723#26696
  ClientHeight = 409
  ClientWidth = 619
  Color = 4013343
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -20
  Font.Name = #26999#20307'_GB2312'
  Font.Style = [fsBold]
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 20
  object btnCancel: TSpeedButton
    Left = 471
    Top = 367
    Width = 105
    Height = 33
    Caption = #36864' '#20986
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
    OnClick = btnCancelClick
  end
  object Label13: TLabel
    Left = 22
    Top = 11
    Width = 139
    Height = 24
    Caption = #32844#24037#26723#26696'...'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -24
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Panel2: TPanel
    Left = -8
    Top = 40
    Width = 633
    Height = 321
    BevelInner = bvLowered
    TabOrder = 0
    object Panel1: TPanel
      Left = 2
      Top = 287
      Width = 629
      Height = 32
      Align = alBottom
      BevelInner = bvLowered
      TabOrder = 0
      object Panel3: TPanel
        Left = 187
        Top = 2
        Width = 440
        Height = 28
        Align = alRight
        BevelOuter = bvNone
        TabOrder = 0
        object SpeedButton1: TSpeedButton
          Left = 77
          Top = 3
          Width = 78
          Height = 21
          Caption = #28155#21152
          Flat = True
          Glyph.Data = {
            E6000000424DE60000000000000076000000280000000F0000000E0000000100
            04000000000070000000130B0000130B00001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
            8880888888888888888088888888888888808888880008888880888888070888
            8880888888070888888088800007000088808880777777708880888000070000
            8880888888070888888088888807088888808888880008888880888888888888
            88808888888888888880}
          OnClick = SpeedButton1Click
        end
        object SpeedButton2: TSpeedButton
          Left = 152
          Top = 3
          Width = 76
          Height = 21
          Caption = #21024#38500
          Flat = True
          Glyph.Data = {
            DE000000424DDE0000000000000076000000280000000D0000000D0000000100
            0400000000006800000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
            F000FF000000000FF000FF0FFFFFFF0FF000FF000000000FF000FFFFFFFFFFFF
            F000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFFF000FFFFFFFFFFFF
            F000}
          OnClick = SpeedButton2Click
        end
        object SpeedButton3: TSpeedButton
          Left = 229
          Top = 3
          Width = 81
          Height = 21
          Caption = #32534#36753
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
            000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
            00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
            F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
            0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
            FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
            FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
            0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
            00333377737FFFFF773333303300000003333337337777777333}
          NumGlyphs = 2
          OnClick = SpeedButton3Click
        end
        object SpeedButton5: TSpeedButton
          Left = 309
          Top = 3
          Width = 81
          Height = 21
          Caption = #21047#26032
          Flat = True
          Glyph.Data = {
            26050000424D26050000000000003604000028000000100000000F0000000100
            080000000000F000000000000000000000000001000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
            A400000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFF07
            070707070707070707070707070707FFFF070707070707070707070707070707
            00000007070707070707070707070700FFFFFF000707070707070707070700FF
            10FFFFFF00070707070707070700FF10FF0710FFFF0007070707070700FF10FF
            0710FFFFFF10000707070700FF10FF0710FFFFFF100707000707000000FF0710
            FFFFFF100707070007070707070000FFFFFF1007070700070707070707070700
            FF10070707100000070707070707070700070707000000000007070707070707
            0700000007000000000007070707070707070707070700000000070707070707
            07070707070707000007}
          OnClick = SpeedButton5Click
        end
        object DBNavigator1: TDBNavigator
          Left = -27
          Top = 3
          Width = 104
          Height = 21
          DataSource = dsZGDA
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
          Flat = True
          TabOrder = 0
        end
      end
    end
    object PageControl1: TPageControl
      Left = 26
      Top = 8
      Width = 575
      Height = 273
      ActivePage = TabSheet2
      TabOrder = 1
      object TabSheet1: TTabSheet
        Caption = #21015#34920#35270#22270
        object DBGrid1: TDBGrid
          Left = 0
          Top = 0
          Width = 567
          Height = 238
          Align = alClient
          DataSource = dsZGDA
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
          PopupMenu = PopupMenu2
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -20
          TitleFont.Name = #26999#20307'_GB2312'
          TitleFont.Style = [fsBold]
          OnTitleClick = DBGrid1TitleClick
          Columns = <
            item
              Expanded = False
              FieldName = 'EmpID'
              Title.Alignment = taCenter
              Title.Caption = #32844#24037#32534#21495
              Title.Color = clGray
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'EmpName'
              Title.Alignment = taCenter
              Title.Caption = #32844#24037#22995#21517
              Title.Color = clGray
              Width = 120
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'BirthDate'
              Title.Alignment = taCenter
              Title.Caption = #20986#29983#24180#26376
              Title.Color = clGray
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DepCode'
              Title.Alignment = taCenter
              Title.Caption = #25152#23646#37096#38376#32534#30721
              Title.Color = clGray
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Politics'
              Title.Alignment = taCenter
              Title.Caption = #25919#27835#38754#35980
              Title.Color = clGray
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Level'
              Title.Alignment = taCenter
              Title.Caption = #32844#31216
              Title.Color = clGray
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'Caption'
              Title.Alignment = taCenter
              Title.Caption = #32844#21153
              Title.Color = clGray
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'EmpAttr'
              Title.Alignment = taCenter
              Title.Caption = #32844#24037#23646#24615
              Title.Color = clGray
              Visible = True