ufrm_sql.dfm

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

object frm_sql: Tfrm_sql
  Left = 182
  Top = 120
  Width = 538
  Height = 426
  Caption = 'Please input conditions'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = -2
    Top = 28
    Width = 507
    Height = 4
  end
  object Label1: TLabel
    Left = 308
    Top = 37
    Width = 132
    Height = 13
    Caption = 'Value (double click or enter)'
  end
  object cmd_sub: TSpeedButton
    Left = 162
    Top = 301
    Width = 21
    Height = 23
    Enabled = False
    Flat = True
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888888888888888888888888888888888888888888888888888888888888888
      8888888888888887488888444448888847888844448888888488884448888888
      8488884484888888848888488844888847888888888844447888888888888888
      8888888888888888888888888888888888888888888888888888}
    Visible = False
    OnClick = cmd_subClick
  end
  object Label4: TLabel
    Left = 138
    Top = 307
    Width = 20
    Height = 13
    Caption = 'byte'
    Visible = False
  end
  object Label3: TLabel
    Left = 58
    Top = 307
    Width = 42
    Height = 13
    Caption = 'Intercept'
    Visible = False
  end
  object Label2: TLabel
    Left = -1
    Top = 307
    Width = 23
    Height = 13
    Caption = 'From'
    Visible = False
  end
  object listcz1: TListBox
    Left = 187
    Top = 35
    Width = 118
    Height = 158
    ItemHeight = 13
    TabOrder = 16
    OnClick = listcz1Click
  end
  object listtj1: TListBox
    Left = 306
    Top = 113
    Width = 220
    Height = 181
    ItemHeight = 13
    TabOrder = 17
  end
  object listzd1: TListBox
    Left = 0
    Top = 34
    Width = 185
    Height = 264
    ItemHeight = 13
    TabOrder = 14
    OnClick = listzd1Click
  end
  object ed_show: TEdit
    Left = -1
    Top = 0
    Width = 506
    Height = 21
    Enabled = False
    TabOrder = 0
  end
  object listzd2: TListBox
    Left = 33
    Top = 145
    Width = 111
    Height = 68
    ItemHeight = 13
    TabOrder = 1
    Visible = False
  end
  object listcz2: TListBox
    Left = 200
    Top = 57
    Width = 82
    Height = 50
    ItemHeight = 13
    TabOrder = 2
    Visible = False
  end
  object RadioGroup1: TRadioGroup
    Left = 191
    Top = 198
    Width = 115
    Height = 126
    Caption = 'Assembled'
    ItemIndex = 0
    Items.Strings = (
      'AND'
      'OR'
      'USER DEFINE')
    TabOrder = 3
    OnClick = RadioGroup1Click
  end
  object listtj2: TListBox
    Left = 330
    Top = 147
    Width = 149
    Height = 100
    ItemHeight = 13
    TabOrder = 4
    Visible = False
  end
  object date1: TDateTimePicker
    Left = 307
    Top = 84
    Width = 220
    Height = 20
    CalAlignment = dtaLeft
    Date = 36645.84733125
    Time = 36645.84733125
    Color = clInfoBk
    DateFormat = dfShort
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 5
    Visible = False
    OnChange = date1Change
  end
  object ed_value: TEdit
    Left = 306
    Top = 56
    Width = 220
    Height = 21
    TabOrder = 6
    OnDblClick = ed_valueDblClick
    OnKeyPress = ed_valueKeyPress
  end
  object cmd_del1: TBitBtn
    Left = 308
    Top = 297
    Width = 107
    Height = 27
    Caption = 'Delete selected '
    TabOrder = 7
    OnClick = cmd_del1Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888888844888888888888848848844888888884884848848888888488484884
      8888888844484884888888888848444888888888884048888888888888808888
      8888888888000888888888888808088888888888800800888888888880888088
      8888888880888088888888888088808888888888888888888888}
  end
  object cmd_del2: TBitBtn
    Left = 420
    Top = 297
    Width = 107
    Height = 27
    Caption = 'Delete all'
    TabOrder = 8
    OnClick = cmd_del2Click
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      8888888888888888888888808888888888088800088888888888880000888888
      8088888000888888088888880008888008888888800088008888888888000008
      8888888888800088888888888800000888888888800088008888888000088880
      0888880000888888008888000888888888088888888888888888}
  end
  object cmd_qd: TBitBtn
    Left = 441
    Top = 333
    Width = 87
    Height = 29
    Caption = 'Yes'
    TabOrder = 9
    OnClick = cmd_qdClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      555555555555555555555555555555555555555555FF55555555555559055555
      55555555577FF5555555555599905555555555557777F5555555555599905555
      555555557777FF5555555559999905555555555777777F555555559999990555
      5555557777777FF5555557990599905555555777757777F55555790555599055
      55557775555777FF5555555555599905555555555557777F5555555555559905
      555555555555777FF5555555555559905555555555555777FF55555555555579
      05555555555555777FF5555555555557905555555555555777FF555555555555
      5990555555555555577755555555555555555555555555555555}
    NumGlyphs = 2
  end
  object cmd_qx: TBitBtn
    Left = 441
    Top = 365
    Width = 87
    Height = 29
    Caption = 'Cancel'
    TabOrder = 10
    OnClick = cmd_qxClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000}
    NumGlyphs = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 335
    Width = 433
    Height = 60
    BevelOuter = bvLowered
    TabOrder = 11
    object Label5: TLabel
      Left = 28
      Top = 9
      Width = 206
      Height = 13
      Caption = '* AND;   + OR; You can use ( . Exp. (0+1)*2'
    end
    object Edit5: TEdit
      Left = 1
      Top = 34
      Width = 425
      Height = 21
      Color = clBtnFace
      Enabled = False
      TabOrder = 0
      OnKeyPress = Edit5KeyPress
    end
  end
  object ed_count: TEdit
    Left = 105
    Top = 303
    Width = 30
    Height = 21
    Enabled = False
    MaxLength = 2
    TabOrder = 12
    Visible = False
    OnKeyPress = ed_countKeyPress
  end
  object ed_start: TEdit
    Left = 26
    Top = 303
    Width = 30
    Height = 21
    Enabled = False
    MaxLength = 2
    TabOrder = 13
    Visible = False
    OnKeyPress = ed_startKeyPress
  end
  object listzd3: TListBox
    Left = 33
    Top = 67
    Width = 112
    Height = 70
    ItemHeight = 13
    TabOrder = 15
    Visible = False
  end
  object Query1: TQuery
    DatabaseName = 'DT2MPSS'
    SQL.Strings = (
      'select * from a000 where a000_date like #1999-04-05#')
  end
end