yxxx_pas.dfm

delphi6.0电子寻更源程序,用来计算保安有无查抄

object yxxx_form: Tyxxx_form
  Left = 189
  Top = 119
  Width = 820
  Height = 452
  Caption = '有效資訊查詢'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 812
    Height = 41
    Align = alTop
    TabOrder = 0
    object RxLabel1: TRxLabel
      Left = 194
      Top = 5
      Width = 384
      Height = 24
      Caption = '巡  更  有  效  信  息  查  詢'
      Font.Charset = GB2312_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -24
      Font.Name = '宋体'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 41
    Width = 812
    Height = 80
    Align = alTop
    Color = clInactiveBorder
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object RxLabel4: TRxLabel
      Left = 6
      Top = 53
      Width = 41
      Height = 13
      Caption = '巡更員'
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      BiDiMode = bdRightToLeftReadingOnly
      ParentBiDiMode = False
      ParentFont = False
    end
    object RxLabel2: TRxLabel
      Left = 12
      Top = 17
      Width = 35
      Height = 13
      Caption = '線 路'
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      BiDiMode = bdRightToLeftReadingOnly
      ParentBiDiMode = False
      ParentFont = False
    end
    object RxLabel6: TRxLabel
      Left = 164
      Top = 17
      Width = 35
      Height = 13
      Caption = '班 次'
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      BiDiMode = bdRightToLeftReadingOnly
      ParentBiDiMode = False
      ParentFont = False
    end
    object RxLabel7: TRxLabel
      Left = 164
      Top = 53
      Width = 35
      Height = 13
      Caption = '筆 號'
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      BiDiMode = bdRightToLeftReadingOnly
      ParentBiDiMode = False
      ParentFont = False
    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 60
      Top = 49
      Width = 102
      Height = 21
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      KeyField = 'CODE'
      ListField = 'code;number;NAME;'
      ListFieldIndex = 2
      ListSource = dm_yxxx_form.ds_worker
      ParentFont = False
      TabOrder = 0
    end
    object GroupBox1: TGroupBox
      Left = 308
      Top = 4
      Width = 168
      Height = 73
      Caption = '巡更點資訊'
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      object RxLabel8: TRxLabel
        Left = 5
        Top = 20
        Width = 35
        Height = 13
        Caption = '點 號'
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        BiDiMode = bdRightToLeftReadingOnly
        ParentBiDiMode = False
        ParentFont = False
      end
      object RxLabel9: TRxLabel
        Left = 5
        Top = 47
        Width = 35
        Height = 13
        Caption = '設 備'
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        BiDiMode = bdRightToLeftReadingOnly
        ParentBiDiMode = False
        ParentFont = False
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 40
        Top = 17
        Width = 119
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        KeyField = 'node'
        ListField = 'node;lseq'
        ListSource = dm_yxxx_form.ds_point
        ParentFont = False
        TabOrder = 0
      end
      object DBLookupComboBox4: TDBLookupComboBox
        Left = 39
        Top = 44
        Width = 122
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        KeyField = 'node'
        ListField = 'NAME;nodeplace'
        ListSource = dm_yxxx_form.ds_point
        ParentFont = False
        TabOrder = 1
      end
    end
    object GroupBox2: TGroupBox
      Left = 478
      Top = 4
      Width = 174
      Height = 73
      Caption = '日期範圍'
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      object RxLabel3: TRxLabel
        Left = 5
        Top = 20
        Width = 15
        Height = 13
        Caption = '從'
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        BiDiMode = bdRightToLeftReadingOnly
        ParentBiDiMode = False
        ParentFont = False
      end
      object RxLabel5: TRxLabel
        Left = 5
        Top = 48
        Width = 15
        Height = 13
        Caption = '到'
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        BiDiMode = bdRightToLeftReadingOnly
        ParentBiDiMode = False
        ParentFont = False
      end
      object DateEdit1: TDateEdit
        Left = 22
        Top = 18
        Width = 150
        Height = 21
        DefaultToday = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ButtonWidth = 20
        NumGlyphs = 2
        ParentFont = False
        Weekends = [Sun, Sat]
        YearDigits = dyFour
        TabOrder = 0
        Text = '2001-09-13'
        OnExit = DateEdit1Exit
      end
      object DateEdit2: TDateEdit
        Left = 22
        Top = 44
        Width = 149
        Height = 21
        DefaultToday = True
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ButtonWidth = 20
        NumGlyphs = 2
        ParentFont = False
        Weekends = []
        TabOrder = 1
        Text = '2000-08-17'
        OnExit = DateEdit2Exit
      end
    end
    object GroupBox3: TGroupBox
      Left = 653
      Top = 4
      Width = 104
      Height = 73
      Caption = '巡更狀態'
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      object RadioButton1: TRadioButton
        Left = 19
        Top = 16
        Width = 79
        Height = 17
        Caption = '正常'
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object RadioButton2: TRadioButton
        Left = 19
        Top = 34
        Width = 81
        Height = 17
        Caption = '異常'
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object RadioButton3: TRadioButton
        Left = 19
        Top = 52
        Width = 80
        Height = 17
        Caption = '不明'
        Font.Charset = GB2312_CHARSET
        Font.Color = clHighlight
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 59
      Top = 13
      Width = 103
      Height = 21
      DropDownWidth = 200
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      KeyField = 'linename'
      ListField = 'linename'
      ListSource = dm_yxxx_form.ds_line
      ParentFont = False
      TabOrder = 4
    end
    object DBLookupComboBox5: TDBLookupComboBox
      Left = 211
      Top = 13
      Width = 85
      Height = 21
      DropDownWidth = 200
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      KeyField = 'shifts'
      ListField = 'shifts'
      ListSource = dm_yxxx_form.ds_shifts
      ParentFont = False
      TabOrder = 5
    end
    object Edit1: TEdit
      Left = 211
      Top = 49
      Width = 84
      Height = 21
      Font.Charset = GB2312_CHARSET
      Font.Color = clHighlight
      Font.Height = -13
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      Text = 'Edit1'
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 383
    Width = 812
    Height = 42
    Align = alBottom