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

📄 urkdj.~dfm

📁 我的毕业设计
💻 ~DFM
字号:
object frmrkdj: Tfrmrkdj
  Left = 287
  Top = 222
  AutoScroll = False
  Caption = #20837#24211#30331#35760
  ClientHeight = 437
  ClientWidth = 607
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object TPanel
    Left = -8
    Top = 0
    Width = 609
    Height = 217
    Color = clGradientActiveCaption
    TabOrder = 0
    object Label1: TLabel
      Left = 40
      Top = 48
      Width = 64
      Height = 20
      Caption = #36135#29289#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 40
      Top = 88
      Width = 64
      Height = 20
      Caption = #36135#29289#21517#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 40
      Top = 128
      Width = 64
      Height = 20
      Caption = #36135#29289#25968#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 328
      Top = 88
      Width = 96
      Height = 20
      Caption = #20379#24212#21830#21495#65306'    '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 40
      Top = 176
      Width = 64
      Height = 20
      Caption = #20179#24211#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object edhwjg: TLabel
      Left = 328
      Top = 48
      Width = 100
      Height = 20
      Caption = #36135#29289#20215#26684#65306'     '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 328
      Top = 128
      Width = 96
      Height = 20
      Caption = #20837#24211#26085#26399#65306'    '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 328
      Top = 168
      Width = 288
      Height = 13
      Caption = ' '#22791#27880#65306#20179#24211'1'#20026#23478#30005#24211'  '#20179#24211'2'#20026#26085#24120#29992#21697' '#24211'                    '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 376
      Top = 184
      Width = 210
      Height = 13
      Caption = #20179#24211'3'#20026#30005#33041#24211'  '#20179#24211'4'#20026#27773#36710#24211'                '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 376
      Top = 200
      Width = 96
      Height = 13
      Caption = #20179#24211'5'#20026#22791#29992#24211'      '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object edhum: TEdit
      Tag = 1
      Left = 136
      Top = 88
      Width = 153
      Height = 21
      TabOrder = 0
      OnKeyDown = edhumKeyDown
    end
    object edgysm: TEdit
      Left = 448
      Top = 88
      Width = 137
      Height = 21
      TabOrder = 1
      OnKeyDown = edgysmKeyDown
    end
    object edhujg: TEdit
      Left = 448
      Top = 48
      Width = 137
      Height = 21
      TabOrder = 2
      OnKeyDown = edhujgKeyDown
    end
    object edrkdate: TDateTimePicker
      Left = 448
      Top = 128
      Width = 137
      Height = 25
      Date = 38461.689438946800000000
      Time = 38461.689438946800000000
      TabOrder = 3
      OnKeyDown = edrkdateKeyDown
    end
    object edhus: TEdit
      Tag = 2
      Left = 136
      Top = 128
      Width = 153
      Height = 21
      TabOrder = 4
      OnKeyDown = edhusKeyDown
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = -8
      Width = 609
      Height = 41
      TabOrder = 5
      object Label4: TLabel
        Left = 160
        Top = 16
        Width = 264
        Height = 22
        Caption = #20179#24211#36135#29289#31649#29702#31995#32479#20837#24211#30331#35760
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -21
        Font.Name = #21326#25991#34892#26999
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object Comckh: TComboBox
      Left = 136
      Top = 176
      Width = 153
      Height = 21
      ItemHeight = 13
      TabOrder = 6
      OnKeyDown = ComckhKeyDown
    end
    object Comhwh: TComboBox
      Left = 136
      Top = 48
      Width = 153
      Height = 21
      ItemHeight = 13
      TabOrder = 7
      OnClick = ComhwhClick
      OnKeyDown = ComhwhKeyDown
      OnSelect = ComhwhSelect
    end
  end
  object DBGrid1: TDBGrid
    Left = -8
    Top = 216
    Width = 609
    Height = 161
    DataSource = DataSource1
    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 = #36135#29289#21495
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#29289#21517
        Width = 107
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#29289#25968
        Visible = True
      end
      item
        Expanded = False
        FieldName = #36135#29289#20215#26684
        Width = 82
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20379#24212#21830#21495
        Width = 130
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20179#24211#21495
        Width = 87
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 376
    Width = 625
    Height = 33
    Color = clSkyBlue
    TabOrder = 2
    object sbtnsave: TSpeedButton
      Left = 264
      Top = 0
      Width = 89
      Height = 33
      Caption = #20445#23384
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAAD0000000000000DD03300000088030AA03300000088030DD03300000088
        030AA03300000000030DD03333333333330AA03300000000330DD03088888888
        030AA03088888888030DD03088888888030AA03088888888030DD03088888888
        000AA03088888888080DD00000000000000AADADADADADADADAD}
      OnClick = sbtnsaveClick
    end
    object sbtnxg: TSpeedButton
      Left = 144
      Top = 0
      Width = 89
      Height = 33
      Caption = #20462#25913
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
        00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
        F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
        0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
        FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
        FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
        0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
        00333377737FFFFF773333303300000003333337337777777333}
      NumGlyphs = 2
      OnClick = sbtnxgClick
    end
    object sbtndel: TSpeedButton
      Left = 384
      Top = 0
      Width = 89
      Height = 33
      Caption = #21024#38500
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000CE0E0000D80E00001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777777777777777777777777777770F77770F7777777777777000F777777
        0F7777000F777770F777777000F77700F7777777000F700F77777777700000F7
        7777777777000F7777777777700000F777777777000F70F77777770000F77700
        F77770000F7777700F77700F7777777700F77777777777777777}
      OnClick = sbtndelClick
    end
    object sbtnxz: TSpeedButton
      Left = 24
      Top = 0
      Width = 89
      Height = 33
      Caption = #26032#22686
      Flat = True
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        04000000000080000000120B0000120B00001000000010000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
        DADAADADADADADADADAD444444444444DADA477777777774ADAD488888888084
        DADA480080080004ADAD488888888000DADA4800800800B70DAD4888888880B8
        0ADA44444444440B70AD4F44F44F440B80DA444444444440B70DDADADADADAD0
        B70AADADADADADAD0050DADADADADADA0550ADADADADADADA00D}
      OnClick = sbtnxzClick
    end
    object sbtnexit: TSpeedButton
      Left = 504
      Top = 0
      Width = 89
      Height = 33
      Caption = #36864#20986
      Flat = True
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FF00FF00FF00
        FF00FFFFFF00FFFFFF000000000000000000FFFFFF000000000000000000FFFF
        FF000000000000000000FF00FF00FF00FF0000000000FF00FF00FF00FF00FF00
        FF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000
        0000000000008080800000000000000000008080800000000000FF00FF00FF00
        FF000000000000000000FFFFFF00FFFFFF0000000000FFFFFF00FFFFFF000000
        0000FF00FF008080800000000000000000008080800000000000FF00FF00FF00
        FF0000000000000000000000000000000000000000000000000000000000FF00
        FF00FF00FF008080800080808000000000000000000000000000FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000FF00FF00FF00FF000000
        0000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000000000000000000000
        0000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
        8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF000000000000000000000000000000000000000000000000008080
        8000FF00FF00000000008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00000000000000FF000000FF000000FF000000FF00000000008080
        8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00000000000000FF000000FF000000FF000000FF0000000000808080008080
        8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF000000000000000000000000000000FF000000000080808000808080008080
        8000FF00FF00808080008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF0000000000000000000000000080808000808080008080
        800000000000FF00FF008080800080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
        80008080800000000000FF00FF0080808000FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF000000000080808000808080008080
        8000808080008080800000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
      OnClick = sbtnexitClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 412
    Width = 607
    Height = 25
    Panels = <
      item
        Text = #26412#30028#38754#21487#20197#30331#35760#36135#29289#20449#24687
        Width = 500
      end
      item
        Width = 50
      end>
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 296
    Top = 256
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DefaultDD'
    TableName = 'hwb'
    TableType = ttParadox
    Left = 128
    Top = 272
    object Table1BDEDesigner: TStringField
      FieldName = #36135#29289#21495
      Size = 10
    end
    object Table1BDEDesigner2: TStringField
      FieldName = #36135#29289#21517
      Size = 16
    end
    object Table1BDEDesigner3: TStringField
      FieldName = #36135#29289#25968
      Size = 10
    end
    object Table1BDEDesigner4: TCurrencyField
      FieldName = #36135#29289#20215#26684
    end
    object Table1BDEDesigner5: TStringField
      FieldName = #20379#24212#21830#21495
      Size = 16
    end
    object Table1BDEDesigner6: TStringField
      FieldName = #20179#24211#21495
      Size = 16
    end
  end
  object Query1: TQuery
    DatabaseName = 'DefaultDD'
    DataSource = DataSource1
    SQL.Strings = (
      'select * from hwb')
    Left = 208
    Top = 328
  end
  object Table2: TTable
    Active = True
    DatabaseName = 'DefaultDD'
    TableName = 'crkb.db'
    TableType = ttParadox
    Left = 344
    Top = 168
  end
end

⌨️ 快捷键说明

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