kxianmain.~dfm

该系统将温度数据以类似股票K线显示方式进行分析

object FormKXianMain: TFormKXianMain
  Left = 411
  Top = 113
  Width = 577
  Height = 535
  Align = alCustom
  BorderWidth = 2
  Caption = #25209#35760#24405#20998#26512
  Color = clBlack
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF
    0000000000FFFFFFFFFF00000000F999F000000000F9999999F000000000F999
    F00000000F99999999F000000000F9999F0000000F9999999F0000000000F999
    9F000000F99999999F0000000000F99999F00000F9999999F00000000000F999
    99F0000F99999999F00000000000F999999F000F9999999F000000000000F999
    999F00F9999999F0000000000000F9999999F0F9999999F0000000000000F999
    9999FF9999999F000000000000000F9999999F9999999F000000000000000F99
    999999999999F00000000000000000F9999999999999F00000000000000000F9
    9999999999FF0000000000000000000F999999999999FF000000000000000000
    F9999999999999FFF000000000000000F9999999999999999FF0000000000000
    0F99999999999999999FF000000000000F9999999999999999999FFF00000000
    00F999999999999999999999FF00000000F99999999999999999999999FF0000
    000F99999999999999999999999F00000000F9999999FFF999999999999F0000
    0000F9999999F00FF9999999999F000000000F9999999F000FF99999999F0000
    00000F9999999F00000FF999999F0000000000F9999999F000000FF9999F0000
    000000F9999999F00000000FF99F00000000000F9999999F000000000FFF0000
    0000000F9999999F000000000000000000000000FFFFFFFFF000000000000FFC
    00FF07FC01FF07F801FF03F803FF03F003FF01F007FF01E007FF00E00FFF00C0
    1FFF00401FFF00003FFF80003FFF80007FFFC0007FFFC000FFFFE0003FFFF000
    07FFF00001FFF800007FF800000FFC000003FC000000FE000000FF000000FF00
    6000FF803800FF803E00FFC01F80FFC01FE0FFE00FF8FFE00FFFFFF007FF}
  KeyPreview = True
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 11
  object PaintBoxMain: TPaintBox
    Left = 0
    Top = 0
    Width = 565
    Height = 217
    Align = alCustom
    Color = clBlack
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
  end
  object ImageSec: TImage
    Left = 0
    Top = 216
    Width = 449
    Height = 225
    OnDblClick = ImageSecDblClick
    OnMouseDown = ImageSecMouseDown
  end
  object ImageWork: TImage
    Left = 8
    Top = 8
    Width = 433
    Height = 193
    OnDblClick = ImageWorkDblClick
    OnMouseDown = ImageworkMouseDown
  end
  object PanelMain: TPanel
    Left = 0
    Top = 459
    Width = 565
    Height = 38
    Align = alBottom
    TabOrder = 0
    DesignSize = (
      565
      38)
    object LabelCode: TLabel
      Left = 387
      Top = 12
      Width = 22
      Height = 11
      Anchors = [akRight, akBottom]
      Caption = #25209#21495
    end
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 44
      Height = 11
      Caption = #23545#29031#25209#21495
    end
    object SecBatch: TEdit
      Left = 72
      Top = 8
      Width = 161
      Height = 21
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ImeName = #20013#25991' ('#31616#20307') - '#21152#21152#36755#20837#27861'4.1'
      MaxLength = 20
      ParentFont = False
      TabOrder = 0
      OnDblClick = SecBatchDblClick
      OnKeyDown = SecBatchKeyDown
    end
    object editcode: TEdit
      Left = 416
      Top = 8
      Width = 145
      Height = 19
      ImeName = #20013#25991' ('#31616#20307') - '#21152#21152#36755#20837#27861'4.1'
      TabOrder = 1
      OnChange = editcodeChange
      OnDblClick = EDITCODEDblClick
      OnKeyDown = EditCode1KeyDown
    end
  end
  object ADODtest: TADODataSet
    Parameters = <>
    Left = 32
    Top = 16
  end
  object ADOQwdjl: TADOQuery
    Parameters = <>
    Left = 168
    Top = 96
  end
  object ADOQbatch: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'SELECT DISTINCT BATCHNO FROM BAT_DETAIL ')
    Left = 72
    Top = 200
  end
  object PrintDialog1: TPrintDialog
    Left = 88
    Top = 80
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 296
    Top = 72
  end
  object SavePictureDialog1: TSavePictureDialog
    Left = 216
    Top = 296
  end
  object ADODbatch: TADODataSet
    Parameters = <>
    Left = 304
    Top = 224
  end
end