department.dfm

来自「用户名:SYSTEM 密码:空 第一次运行请先恢复数据库 DATABAS」· DFM 代码 · 共 211 行

DFM
211
字号
inherited fDepartment: TfDepartment
  Left = 164
  Top = 166
  Caption = #37096#38272#36039#26009#32173#35703
  ClientHeight = 319
  PixelsPerInch = 96
  TextHeight = 13
  inherited Label1: TLabel
    Left = 49
    Width = 126
    Caption = #37096#38272#36039#26009#32173#35703
  end
  inherited Image1: TImage
    Left = 9
    Top = 7
    Width = 36
    Height = 36
    Picture.Data = {
      055449636F6E0000010001002020000001000800A80800001600000028000000
      2000000040000000010008000000000000000000000000000000000000010000
      0000000000000000000080000080000000808000800000008000800080800000
      C0C0C000C0DCC000F0CAA600D4F0FF00B1E2FF008ED4FF006BC6FF0048B8FF00
      25AAFF0000AAFF000092DC00007AB90000629600004A730000325000D4E3FF00
      B1C7FF008EABFF006B8FFF004873FF002557FF000055FF000049DC00003DB900
      003196000025730000195000D4D4FF00B1B1FF008E8EFF006B6BFF004848FF00
      2525FF000000FE000000DC000000B900000096000000730000005000E3D4FF00
      C7B1FF00AB8EFF008F6BFF007348FF005725FF005500FF004900DC003D00B900
      310096002500730019005000F0D4FF00E2B1FF00D48EFF00C66BFF00B848FF00
      AA25FF00AA00FF009200DC007A00B900620096004A00730032005000FFD4FF00
      FFB1FF00FF8EFF00FF6BFF00FF48FF00FF25FF00FE00FE00DC00DC00B900B900
      960096007300730050005000FFD4F000FFB1E200FF8ED400FF6BC600FF48B800
      FF25AA00FF00AA00DC009200B9007A009600620073004A0050003200FFD4E300
      FFB1C700FF8EAB00FF6B8F00FF487300FF255700FF005500DC004900B9003D00
      960031007300250050001900FFD4D400FFB1B100FF8E8E00FF6B6B00FF484800
      FF252500FE000000DC000000B9000000960000007300000050000000FFE3D400
      FFC7B100FFAB8E00FF8F6B00FF734800FF572500FF550000DC490000B93D0000
      963100007325000050190000FFF0D400FFE2B100FFD48E00FFC66B00FFB84800
      FFAA2500FFAA0000DC920000B97A000096620000734A000050320000FFFFD400
      FFFFB100FFFF8E00FFFF6B00FFFF4800FFFF2500FEFE0000DCDC0000B9B90000
      969600007373000050500000F0FFD400E2FFB100D4FF8E00C6FF6B00B8FF4800
      AAFF2500AAFF000092DC00007AB90000629600004A73000032500000E3FFD400
      C7FFB100ABFF8E008FFF6B0073FF480057FF250055FF000049DC00003DB90000
      319600002573000019500000D4FFD400B1FFB1008EFF8E006BFF6B0048FF4800
      25FF250000FE000000DC000000B90000009600000073000000500000D4FFE300
      B1FFC7008EFFAB006BFF8F0048FF730025FF570000FF550000DC490000B93D00
      009631000073250000501900D4FFF000B1FFE2008EFFD4006BFFC60048FFB800
      25FFAA0000FFAA0000DC920000B97A000096620000734A0000503200D4FFFF00
      B1FFFF008EFFFF006BFFFF0048FFFF0025FFFF0000FEFE0000DCDC0000B9B900
      009696000073730000505000F2F2F200E6E6E600DADADA00CECECE00C2C2C200
      B6B6B600AAAAAA009E9E9E0092929200868686007A7A7A006E6E6E0062626200
      565656004A4A4A003E3E3E0032323200262626001A1A1A000E0E0E00F0FBFF00
      A4A0A000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
      FFFFFF0015151515151515151515151515151515151515151515151515151515
      15151515150C0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E
      0E0E1115150A0B0B0C0C0C0C0C0C0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B
      0B0B0E15150A0B0B232424242424250C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B
      0B0B0E15150A0B0B222323232323240C0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B
      0B0B0E15150A0B0B222326262623240C0C0C0C0B0B0B0B0B0B0B0B0B0B0B0B0B
      0B0B0E15150A0B0B222323232323240C2D2D0C0B0B0B0B0B0B0B0B0B0B0B0B0B
      0B0B0E15150A0B0B222326262623240C0C2D0C0B0B0B0B0B0B0C0C0C0C0C0C0C
      0C0C0E15150A0B0B222323232323240C0C2D0C0B0B0C0C0C0B2C2D2D2D2D2D2D
      2D0C0E15150A0B0B222326262623240C0C2D0C0B0B2D2D0C0B2B2C2C2C2C2C2C
      2D0C0E15150A0B0B222323232323240C0C2D0C0B0B2D0C0B0B2B2C2C2C2C2C2C
      2D0C0E15150A0B0B2B2C2C2C2C2C2D0C0C2D0C0B0B2D0C0B0B2B2C2C2C2C2C2C
      2D0C0E15150A0B0B2A2B2B2B2B2B2C0C0B2D0C0B0B2D0C0B0B2B2C2C2C2B2B2B
      2C0C0E15150A0B0B0B0B0B0B0B0B0B0B0B2D0C0B0B2D0C0B0B2A2B2B2B0C0B0B
      0B0B0E15150A0B0B0B0B0B0B0B0B0B0B0B2D0C0B0B2D0C0B0B0B0B0B0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B0B0B0B0B2D0C0B0B2D0C0B0B0B0B0B0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D0C0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B272524252628292A2B2C2D2B290C0C0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B272524252628292A2B2C2D2B290C0B0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B272524252628292A2B2C2D2B290C0B0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B272524252628292A2B2C2D2B290C0B0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B272524252628292A2B2C2D2B290C0C0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B2D2D2D2D2D2D2D2D2D2D2D2D2D2D2D0C0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B0B0B0B252828282828282A0C0C0C0C0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B0B0B0B252828282828282A0C0B0B0B0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B0B0B0B252828282828282A0C0B0B0B0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B0B0B0B252828282828282A0C0B0B0B0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B0B0B0B24252525252525290C0B0B0B0B0B0B0B
      0B0B0E15150A0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B0B
      0B0B0E1515FF0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A
      0A0A0C1515151515151515151515151515151515151515151515151515151515
      1515151500000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000}
  end
  inherited PageControl: TPageControl
    Height = 277
    ActivePage = tbsBrowser
    TabIndex = 1
    inherited tbsEdit: TTabSheet
      inherited Panel2: TPanel
        Top = 202
      end
      inherited Panel1: TPanel
        Height = 202
        inherited pnlFieldsPanel: TPanel
          Height = 202
          object Label2: TLabel
            Left = 56
            Top = 40
            Width = 52
            Height = 13
            Caption = #37096#38272#32232#34399
            FocusControl = DBEdit1
          end
          object Label3: TLabel
            Left = 56
            Top = 88
            Width = 52
            Height = 13
            Caption = #37096#38272#21517#31281
            FocusControl = DBEdit2
          end
          object Label4: TLabel
            Left = 56
            Top = 136
            Width = 26
            Height = 13
            Caption = #20027#31649
            FocusControl = DBEdit3
          end
          object DBEdit1: TDBEdit
            Left = 112
            Top = 36
            Width = 134
            Height = 21
            CharCase = ecUpperCase
            DataField = 'cDepartmentNo'
            DataSource = DataSource
            TabOrder = 0
          end
          object DBEdit2: TDBEdit
            Left = 112
            Top = 84
            Width = 394
            Height = 21
            DataField = 'cDepartmentName'
            DataSource = DataSource
            TabOrder = 1
          end
          object DBEdit3: TDBEdit
            Left = 112
            Top = 132
            Width = 108
            Height = 21
            DataField = 'cManagerName'
            DataSource = DataSource
            TabOrder = 2
          end
        end
      end
    end
    inherited tbsBrowser: TTabSheet
      inherited wwDBGrid: TwwDBGrid
        Height = 240
        Selected.Strings = (
          'cDepartmentNo'#9'10'#9#37096#38272#32232#34399#9#9
          'cDepartmentName'#9'30'#9#37096#38272#21517#31281#9#9
          'cManagerName'#9'8'#9#20027#31649#9#9
          'cUser'#9'9'#9#29992#25142#9#9
          'tUpdateTime'#9'23'#9#26356#26032#26178#38291#9#9
          'cAction'#9'7'#9#21205#20316#9'F'#9)
        UseTFields = False
      end
    end
  end
  inherited DataSource: TDataSource
    DataSet = ADOQuery1
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = fDataMod.AdoCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From Department Order by cDepartMentNo')
    Left = 448
    Top = 136
    object ADOQuery1cDepartmentNo: TStringField
      FieldName = 'cDepartmentNo'
      Size = 10
    end
    object ADOQuery1cDepartmentName: TStringField
      FieldName = 'cDepartmentName'
      Size = 30
    end
    object ADOQuery1cManagerName: TStringField
      FieldName = 'cManagerName'
      Size = 8
    end
    object ADOQuery1cUser: TStringField
      Alignment = taCenter
      FieldName = 'cUser'
      Size = 8
    end
    object ADOQuery1tUpdateTime: TDateTimeField
      FieldName = 'tUpdateTime'
    end
    object ADOQuery1cAction: TStringField
      Alignment = taCenter
      FieldName = 'cAction'
      Size = 4
    end
  end
end

⌨️ 快捷键说明

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