main.dfm

来自「在SQLSERVER数据库查找任一表中的任意数据」· DFM 代码 · 共 361 行

DFM
361 行
字号 
object FrmMain: TFrmMain
  Left = 120
  Top = 130
  Width = 544
  Height = 375
  Caption = #25968#25454#24211#26597#25214#22120
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Grp1: TAutoGrpBox
    Left = 0
    Top = 0
    Width = 536
    Height = 46
    Align = alTop
    Caption = #36830#25509#35774#32622
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 19
      Width = 54
      Height = 12
      Caption = #36830#25509#31867#22411':'
    end
    object SetBtn: TSpeedButton
      Left = 402
      Top = 15
      Width = 22
      Height = 20
      Cursor = crHandPoint
      Hint = #37197#32622#25968#25454#24211#36830#25509
      Glyph.Data = {
        4E000000424D4E000000000000003E000000280000000F000000040000000100
        010000000000100000000000000000000000020000000200000000000000FFFF
        FF00FFFE00009CE600009CE60000FFFE0000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SetBtnClick
    end
    object LinkBtn: TSpeedButton
      Left = 436
      Top = 13
      Width = 94
      Height = 23
      Cursor = crHandPoint
      Caption = #31435#21363#36830#25509
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777000000070000000000777777000000070FFFFFFFF0777777000000070FF
        FFFFFF0777777000000070F000000F0777777000000070F0FBFB000777777000
        000070F0BFBF0F0007777000000070F000000F0770077000000070FF0FF44444
        44444000000070FF0FF4FBFBFBFB4000000070FFF0F4BFBFBFBF4000000070FF
        F0F4FBFBFBFB4000000070000004BFBFBFBF4000000077777704444444444000
        000077777774F444444440000000777777744444444440000000777777777777
        777770000000}
      OnClick = LinkBtnClick
    end
    object LinkBox: TcxTextEdit
      Left = 64
      Top = 15
      Width = 337
      Height = 20
      TabOrder = 0
    end
  end
  object Grp2: TAutoGrpBox
    Left = 0
    Top = 46
    Width = 536
    Height = 39
    Align = alTop
    TabOrder = 1
    object Label2: TLabel
      Left = 8
      Top = 15
      Width = 54
      Height = 12
      Caption = #26597#25214#20869#23481':'
    end
    object SeeBtn: TSpeedButton
      Left = 436
      Top = 10
      Width = 94
      Height = 23
      Cursor = crHandPoint
      Caption = #31435#21363#26597#25214
      Enabled = False
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000010000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        77777000000070000000000777777000000070FFFFFFFF0777777000000070FF
        FFFFFF0777777000000070F000000F0777777000000070F0FBFB000777777000
        000070F0BFBF0F0007777000000070F000000F0770077000000070FF0FF44444
        44444000000070FF0FF4FBFBFBFB4000000070FFF0F4BFBFBFBF4000000070FF
        F0F4FBFBFBFB4000000070000004BFBFBFBF4000000077777704444444444000
        000077777774F444444440000000777777744444444440000000777777777777
        777770000000}
      OnClick = SeeBtnClick
    end
    object TxtBox: TcxTextEdit
      Left = 64
      Top = 12
      Width = 337
      Height = 20
      Properties.OnChange = TxtBoxPropertiesChange
      Properties.OnValidate = TxtBoxPropertiesValidate
      TabOrder = 0
    end
  end
  object Pnl1: TAutoPanel
    Left = 0
    Top = 85
    Width = 536
    Height = 244
    Align = alClient
    BevelInner = bvLowered
    TabOrder = 2
    object ListGrp: TAutoGrpBox
      Left = 2
      Top = 2
      Width = 203
      Height = 240
      Align = alLeft
      Caption = #25968#25454#34920#21015#34920
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object ChkTblList: TCheckListBox
        Left = 2
        Top = 14
        Width = 199
        Height = 224
        Align = alClient
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 0
      end
    end
    object AutoGrpBox4: TAutoGrpBox
      Left = 205
      Top = 2
      Width = 329
      Height = 240
      Align = alClient
      Caption = #26597#25214#32467#26524#20869#21015#34920
      TabOrder = 1
      object Memo1: TMemo
        Tag = 99
        Left = 2
        Top = 112
        Width = 325
        Height = 145
        BorderStyle = bsNone
        Color = clBtnFace
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        Lines.Strings = (
          ''
          '    '#26377#27809#26377#32463#21382#36807#20320#19968#20010#19981#29087#24713#30340#25968#25454#24211','#20320#21482#30693#36947#26576#20123#20869#23481','
          #32780#19981#30693#20301#20110#21738#20010#25968#25454#34920#26102#32780#28902#24700'?'#29616#22312#19981#29992#20102','#26377#20102#12298#25968#25454#24211#20869
          #23481#26597#25214#22120#12299','#20320#23601#33021#36731#26494#22320#25214#21040#38656#35201#30340#34920'.'
          ''
          ''
          ''
          #25968#25454#24211#20869#23481#26597#25214#22120':'
          ''
          #30446#26631':'
          '     '#26597#25214#21253#21547#25351#23450#20869#23481#30340#25968#25454#34920'('#22914#26524#26377#26174#31034#31532#19968#20010#25214#21040#30340#23383
          '     '#27573')'
          ''
          #27880#24847':'
          '     '#21482#33021#26597#25214#25991#26412#22411#25110#25968#23383#22411#23383#27573','#26597#25214#20197#19981#23436#20840#21305#37197#20026#20934'.'
          ''
          ''
          #35774#35745':'
          '         '#24429#22269#29805'          amirery@163.net ')
        ParentFont = False
        TabOrder = 1
      end
      object ListBox1: TListBox
        Left = 2
        Top = 14
        Width = 325
        Height = 224
        Align = alClient
        ItemHeight = 12
        TabOrder = 0
        Visible = False
        OnDblClick = ListBox1DblClick
      end
    end
  end
  object MsgPnl: TAutoPanel
    Left = 128
    Top = 136
    Width = 265
    Height = 94
    BevelInner = bvLowered
    Color = clYellow
    TabOrder = 4
    Visible = False
    object Bevel1: TBevel
      Left = 2
      Top = 2
      Width = 261
      Height = 58
      Align = alTop
      Shape = bsBottomLine
    end
    object Lbl3: TLabel
      Left = 8
      Top = 24
      Width = 42
      Height = 12
      Caption = #20449'  '#24687':'
    end
    object Msg3: TLabel
      Left = 52
      Top = 24
      Width = 144
      Height = 12
      Caption = #27491#22312#36830#25509#25968#25454#24211','#35831#31561#24453'...'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Lbl1: TLabel
      Left = 8
      Top = 6
      Width = 42
      Height = 12
      Caption = #24635#36827#24230':'
    end
    object Lbl2: TLabel
      Left = 8
      Top = 42
      Width = 42
      Height = 12
      Caption = #23376#36827#24230':'
    end
    object StopBtn: TSpeedButton
      Left = 99
      Top = 64
      Width = 67
      Height = 24
      Cursor = crHandPoint
      Caption = #32456#27490
      Glyph.Data = {
        66010000424D6601000000000000760000002800000014000000140000000100
        040000000000F000000000000000000000001000000000000000000000000000
        BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
        7777777700007777711111111177777700007777199999999917777700007771
        9999999999917777000077199999999999991777000071999999999999999177
        000019999999999999999917000019FFF99F99FFF9F9991700001999F99F99F9
        F9F99917000019FFF99F99F9F9FFF917000019F9999F99F9F9F9F917000019FF
        F9FFF9FFF9FFF917000019999999999999999917000019999999999999999917
        0000719999999999999991770000771999999999999917770000777199999999
        9991777700007777199999999917777700007777711111111177777700007777
        77777777777777770000}
      OnClick = StopBtnClick
    end
    object Bar1: TProgressBar
      Left = 52
      Top = 6
      Width = 206
      Height = 13
      TabOrder = 0
    end
    object Bar2: TProgressBar
      Left = 52
      Top = 42
      Width = 206
      Height = 13
      TabOrder = 1
    end
  end
  object SBar1: TStatusBar
    Left = 0
    Top = 329
    Width = 536
    Height = 19
    Panels = <
      item
        Text = #26381#21153#22120':'
        Width = 42
      end
      item
        Alignment = taCenter
        Text = 'PGT'
        Width = 50
      end
      item
        Alignment = taCenter
        Text = #26410#30693
        Width = 50
      end
      item
        Alignment = taCenter
        Text = #26410#30693
        Width = 50
      end
      item
        Alignment = taCenter
        Text = #25968#25454#24211
        Width = 50
      end
      item
        Alignment = taCenter
        Text = #29366#24577':'
        Width = 36
      end
      item
        Text = #36830#25509#25552#31034
        Width = 50
      end>
  end
  object ADOC: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=amirery;Persist Security Info=True;' +
      'User ID=SA;Initial Catalog=DZDQ;Data Source=PGT'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    AfterConnect = ADOCAfterConnect
    BeforeConnect = ADOCBeforeConnect
    AfterDisconnect = ADOCAfterDisconnect
    OnConnectComplete = ADOCConnectComplete
    Left = 37
    Top = 127
  end
end

main.dfm - 源码说明

本页面展示了「在SQLSERVER数据库查找任一表中的任意数据」中的 main.dfm 源码文件，采用 DFM 编程语言编写，共 361 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与SQLSERVER相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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