开源的网站整站程序,功能强大带采集系统.

源代码在线查看: hwsearch.dfm.svn-base

软件大小: 2475 K
上传用户: a83133937
关键词: 开源 网站 程序 采集系统
下载地址: 免注册下载 普通下载 VIP

相关代码

				object HwSearchForm: THwSearchForm
				  Left = 192
				  Top = 107
				  BorderIcons = [biSystemMenu]
				  BorderStyle = bsSingle
				  Caption = #26597#35810
				  ClientHeight = 348
				  ClientWidth = 536
				  Color = clBtnFace
				  Font.Charset = DEFAULT_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -12
				  Font.Name = #23435#20307
				  Font.Pitch = fpFixed
				  Font.Style = []
				  KeyPreview = True
				  OldCreateOrder = False
				  Position = poMainFormCenter
				  ShowHint = True
				  OnClose = FormClose
				  OnCreate = FormCreate
				  PixelsPerInch = 96
				  TextHeight = 12
				  object Panel1: TPanel
				    Left = 0
				    Top = 0
				    Width = 536
				    Height = 41
				    Align = alTop
				    BevelInner = bvRaised
				    BevelOuter = bvLowered
				    TabOrder = 0
				    object Label1: TLabel
				      Left = 8
				      Top = 14
				      Width = 42
				      Height = 12
				      Caption = #23383#27573'(&F)'
				    end
				    object Label2: TLabel
				      Left = 200
				      Top = 14
				      Width = 54
				      Height = 12
				      Caption = #27604#36739#31526'(&C)'
				    end
				    object Label3: TLabel
				      Left = 344
				      Top = 14
				      Width = 54
				      Height = 12
				      Caption = #23383#27573#20540'(&V)'
				    end
				    object cbFieldName: TComboBox
				      Left = 56
				      Top = 10
				      Width = 137
				      Height = 20
				      Style = csDropDownList
				      ItemHeight = 12
				      TabOrder = 0
				      OnChange = cbFieldNameChange
				    end
				    object cbOperator: TComboBox
				      Left = 260
				      Top = 10
				      Width = 73
				      Height = 20
				      Style = csDropDownList
				      ItemHeight = 12
				      TabOrder = 1
				      Items.Strings = (
				        '='
				        '>'
				        '>='
				        '				        '				        ''
				        'like')
				    end
				    object edtFieldValue: TEdit
				      Left = 404
				      Top = 10
				      Width = 125
				      Height = 20
				      TabOrder = 2
				      OnKeyPress = edtFieldValueKeyPress
				    end
				  end
				  object dxDateEdit1: TdxDateEdit
				    Left = 404
				    Top = 10
				    Width = 124
				    TabOrder = 3
				    Visible = False
				    Date = -700000
				    DateValidation = True
				    UseEditMask = True
				    StoredValues = 4
				  end
				  object Panel2: TPanel
				    Left = 0
				    Top = 41
				    Width = 121
				    Height = 307
				    Align = alLeft
				    BevelOuter = bvLowered
				    TabOrder = 1
				    object bbtnSearch: TBitBtn
				      Left = 24
				      Top = 24
				      Width = 75
				      Height = 25
				      Caption = #25191#34892#26597#35810'(&S)'
				      TabOrder = 0
				      OnClick = bbtnSearchClick
				    end
				    object bbtnAdd: TBitBtn
				      Left = 24
				      Top = 72
				      Width = 75
				      Height = 25
				      Caption = #21152#20837#26465#20214'(&A)'
				      Default = True
				      TabOrder = 1
				      OnClick = bbtnAddClick
				    end
				    object bbtnDelete: TBitBtn
				      Left = 24
				      Top = 120
				      Width = 75
				      Height = 25
				      Caption = #31227#38500#26465#20214'(&D)'
				      Enabled = False
				      TabOrder = 2
				      OnClick = bbtnDeleteClick
				    end
				    object bbtnExit: TBitBtn
				      Left = 24
				      Top = 256
				      Width = 75
				      Height = 25
				      Caption = #36864#20986'(&X)'
				      TabOrder = 3
				      OnClick = bbtnExitClick
				    end
				    object bbtnDelAll: TBitBtn
				      Left = 24
				      Top = 168
				      Width = 75
				      Height = 25
				      Caption = #28165#38500#26465#20214'(&L)'
				      Enabled = False
				      TabOrder = 4
				      OnClick = bbtnDelAllClick
				    end
				  end
				  object DBGrid1: TDBGrid
				    Left = 121
				    Top = 41
				    Width = 415
				    Height = 307
				    Align = alClient
				    DataSource = DataSource1
				    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
				    ReadOnly = True
				    TabOrder = 2
				    TitleFont.Charset = DEFAULT_CHARSET
				    TitleFont.Color = clWindowText
				    TitleFont.Height = -12
				    TitleFont.Name = #23435#20307
				    TitleFont.Pitch = fpFixed
				    TitleFont.Style = []
				    Columns = <
				      item
				        Expanded = False
				        FieldName = 'DisplayLabel'
				        Title.Alignment = taCenter
				        Width = 135
				        Visible = True
				      end
				      item
				        Expanded = False
				        FieldName = 'Operator'
				        Title.Alignment = taCenter
				        Visible = True
				      end
				      item
				        Expanded = False
				        FieldName = 'FieldValue'
				        Title.Alignment = taCenter
				        Width = 173
				        Visible = True
				      end>
				  end
				  object ADODataSet1: TADODataSet
				    CursorType = ctStatic
				    LockType = ltBatchOptimistic
				    FieldDefs = <
				      item
				        Name = 'FieldName'
				        DataType = ftString
				        Size = 20
				      end
				      item
				        Name = 'DisplayLabel'
				        DataType = ftString
				        Size = 50
				      end
				      item
				        Name = 'Operator'
				        DataType = ftString
				        Size = 10
				      end
				      item
				        Name = 'FieldValue'
				        DataType = ftString
				        Size = 50
				      end>
				    Parameters = 
				    StoreDefs = True
				    Left = 176
				    Top = 120
				    object ADODataSet1FieldName: TStringField
				      FieldName = 'FieldName'
				    end
				    object ADODataSet1DisplayLabel: TStringField
				      DisplayLabel = #23383#27573
				      FieldName = 'DisplayLabel'
				      Size = 50
				    end
				    object ADODataSet1Operator: TStringField
				      DisplayLabel = #27604#36739#31526
				      FieldName = 'Operator'
				      Size = 10
				    end
				    object ADODataSet1FieldValue: TStringField
				      DisplayLabel = #23383#27573#20540
				      FieldName = 'FieldValue'
				      Size = 50
				    end
				  end
				  object DataSource1: TDataSource
				    DataSet = ADODataSet1
				    Left = 168
				    Top = 112
				  end
				end
							

相关资源