📄 u_datequery.~dfm

📁 对于医院的影像室的资料进行管理,主要方便查阅,特别是对于病人的照片的病前后比较对于病情的发展很有价值
💻 ~DFM
字号:
object F_datequery: TF_datequery
  Left = 111
  Top = 271
  Width = 696
  Height = 480
  Caption = #25353#26102#38388#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 688
    Height = 84
    Align = alTop
    Caption = #26597#35810#26465#20214#21306
    TabOrder = 0
    object Label3: TLabel
      Left = 64
      Top = 16
      Width = 60
      Height = 15
      Caption = #24320#22987#26102#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 296
      Top = 16
      Width = 60
      Height = 15
      Caption = #32467#26463#26102#38388
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -15
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DateTimePicker1: TDateTimePicker
      Left = 136
      Top = 16
      Width = 113
      Height = 21
      CalAlignment = dtaLeft
      Date = 38982.8010268287
      Time = 38982.8010268287
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 360
      Top = 16
      Width = 129
      Height = 21
      CalAlignment = dtaLeft
      Date = 38982.8010894097
      Time = 38982.8010894097
      DateFormat = dfShort
      DateMode = dmComboBox
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object Button1: TBitBtn
      Left = 601
      Top = 17
      Width = 75
      Height = 25
      Caption = #26597#35810
      TabOrder = 2
      OnClick = Button1Click
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C630C630C630C630C630C630C630C630C630C630C
        1F7C1F7C1F7C1F7C1F7C630C1042D5565A6B5A6B5A6B5A6B5A6B5A6B3967630C
        630C630C1F7C1F7C630C7B6F630CD5567B6F7B6F7B6F7B6F7B6F7B6F6B2DC064
        457EC048630C630C1042630C6B2D7B6F7B6F7B6F7B6F7B6F7B6F6B2DC064327F
        527EC064630C630C5A6B7B6F7B6F7B6F7B6F5A6B744E744E6B2DC064327F527E
        C064630C1F7C630C7B6F7B6F7B6FF75E8C31630C630C630C630C327F527EC064
        630C1F7C1F7C630C7B6F7B6FF75E8C313F333F333F333F175F32857DC064630C
        1F7C1F7C1F7C630C7B6FF75E8C31744E3D53FF4BFF4B3F333F175F32630C630C
        1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4B3F333F17630C630C
        1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4BFF4B3F17630C630C
        1F7C1F7C1F7C630C7B6FF75E8C313D53FF67FF4BFF4BFF4BFF4B3F17630C630C
        1F7C1F7C1F7C630C7B6F5A6B8C31F75E3D53FF67FF4BFF4B3D53744E630C630C
        1F7C1F7C1F7C630C7B6F5A6BF75E8C31F75E3D533D533D53744E630CF75E630C
        1F7C1F7C1F7C630C7B6F5A6B5A6BF75E8C318C318C318C318C31F75E7B6F630C
        1F7C1F7C1F7C630C7B6F7B6F7B6F7B6F7B6FF75EF75EF75EF75E7B6F7B6F630C
        1F7C1F7C1F7C630C630C630C630C630C630C630C630C630C630C630C630C630C
        1F7C1F7C1F7C}
    end
    object btnClose: TBitBtn
      Left = 600
      Top = 49
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 3
      OnClick = btnCloseClick
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C0000EF3D0000EF3D0000EF3DFF03EF3DFF0300001F7CEF01
        00000000EF3D1F7C0000000000000000000000000000FF03EF3D0000FF7FEF3D
        EF01000000001F7C1F7C1F7C1F7C0000000000000000000000000000FF7FEF01
        EF01EF0100001F7C1F7C1F7C1F7C0000007C0000FF03FF7F003C0000FF7FEF3D
        EF01EF3D000000000000000000000000007C007C0000FF03003C0000FF7FEF01
        EF3DEF0100000000007C007C007C007C007C007C007C0000003C0000FF7FEF3D
        0000EF3D00000000007C007C007C007C007C007C007C0000003C0000FF7F0000
        0000EF01000000000000000000000000007C007C0000FF03003C0000FF7FEF01
        0000EF3D00001F7C1F7C1F7C1F7C0000007C0000FF03FF7F003C0000FF7FEF3D
        EF01EF0100001F7C1F7C1F7C1F7C000000000000FF7FFF03003C0000FF7FEF3D
        EF01EF3D00001F7C1F7C1F7C1F7C00001F7C0000FF03FF7F003C0000FF7FEF01
        EF01EF0100001F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF03003C0000FF7FEF3D
        EF01EF3D00001F7C1F7C1F7C1F7C1F7C1F7C0000FF03FF7FFF03FF7F0000FF7F
        EF3DEF0100001F7C1F7C1F7C1F7C1F7C1F7C0000FF7FFF03FF7FFF03FF7FFF03
        FF7FEF3D00001F7C1F7C1F7C1F7C1F7C1F7C0000000000000000000000000000
        0000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
    end
    object btnUpd: TBitBtn
      Left = 312
      Top = 50
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 4
      OnClick = BtupdateClick
      Glyph.Data = {
        36040000424D3604000000000000360000002800000010000000100000000100
        2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FF00FF00FF00FF0084848400CECE
        CE00CECECE00CECECE00CECECE00CECECE00CECECE00CECECE00CECECE00CECE
        CE00CECECE00CECECE00CECECE00FFFFFF00FF00FF00FF00FF008484840094FF
        FF00FFFFFF0094FFFF00FFFFFF0094FFFF00FFFFFF0094FFFF00FFFFFF0094FF
        FF00FFFFFF0094FFFF00CECECE00FFFFFF00FF00FF00FF00FF0084848400FFFF
        FF0094310000FFFFFF0094310000943100009431000094310000943100009431
        000094310000FFFFFF00CECECE00FFFFFF00FF00FF00FF00FF0084848400FFFF
        FF00FFFFFF0094FFFF00FFFFFF0094FFFF00FFFFFF0094FFFF00FFFFFF0094FF
        FF00FFFFFF0094FFFF00CECECE00FFFFFF00FF00FF00FF00FF0084848400FFFF
        FF00FF000000FFFFFF00FF000000FF000000FF000000FF000000FF000000FF00
        0000FF000000FFFFFF00CECECE00FFFFFF00FF00FF00FF00FF0084848400FFFF
        FF00FFFFFF0094FFFF00FFFFFF0094FFFF00FFFFFF0094FFFF00FFFFFF0094FF
        FF00FFFFFF0094FFFF00CECECE00FFFFFF00FF00FF00FF00FF0084848400FFFF
        FF00CECECE00CECECE0094FFFF00FFFFFF0094FFFF00CECECE00FFFFFF00CECE
        CE0094FFFF00FFFFFF00CECECE00FFFFFF00FF00FF00FF00FF0084848400FFFF
        FF00FFFFFF00FFFFFF00CECECE00FFFFFF00CECECE00FFFFFF0094CECE00FFFF
        FF00CECECE0094FFFF00CECECE00FFFFFF00FF00FF00FF00FF0084848400FFFF
        FF0063949400CEFFFF00FFFFFF00CECECE00FFFFFF0094CECE002963630094CE
        CE00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0084848400FFFF
        FF00FFFFFF0063949400CEFFFF00FFFFFF0094CECE002963630094CECE002963
        6300639494006394940063949400FFFFFF00FF632900FF632900848484008484
        8400848484008484840063949400CEFFFF00FFFFFF0094CECE002963630094CE
        CE0094CECE0094CECE006394940063949400FF942900FF942900FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF0063949400CEFFFF00FFFFFF00CEFFFF00CEFF
        FF0094CECE0094CECE0094CECE0094CECE00FFCE2900FFCE2900FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF0063949400FFFFFF00FFFFFF00CEFF
        FF00CEFFFF00CEFFFF00CEFFFF0063949400FFFF9400FFFF9400FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0063949400639494006394
        9400639494006394940063949400FF00FF00FF632900FF632900FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
        FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
    end
  end
  object btnDele: TBitBtn
    Left = 391
    Top = 50
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 1
    OnClick = btnDeleClick
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000FFFFFF00FFFF
      FF00FFFFFF001818180018181800181818001818180018181800000000001818
      180018181800181818001818180000000000FFFFFF00FFFFFF00FFFFFF00FFFF
      FF001818180084848400ADB5AD00BDBDBD00BDBDBD00000000004A4AFF000000
      0000BDBDBD00ADB5AD00000000002931FF0000000000FFFFFF00FFFFFF001818
      1800DEDEDE0018181800ADB5AD00DEDEDE00000000004A4AFF004A4AFF004A4A
      FF0000000000000000002931FF006363FF002931FF0000000000181818008484
      8400181818005A5A5A00DEDEDE00DEDEDE00DEDEDE00000000004A4AFF004A4A
      FF004A4AFF004A4AFF004A4AFF002931FF0000000000FFFFFF0018181800D6D6
      D600D6D6D600D6D6D600D6D6D600DEDEDE00DEDEDE00DEDEDE00000000004A4A
      FF004A4AFF004A4AFF004A4AFF0000000000FFFFFF00FFFFFF0018181800D6D6
      D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600DEDEDE00DEDEDE000000
      00004A4AFF004A4AFF0000000000FFFFFF00FFFFFF00FFFFFF0018181800DEDE
      DE00D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600D6D6D600000000006363
      FF004A4AFF004A4AFF004A4AFF0000000000FFFFFF00FFFFFF0018181800DEDE
      DE00CECECE00CECECE00D6D6D600D6D6D600D6D6D600000000006363FF002931
      FF002931FF004A4AFF004A4AFF004A4AFF0000000000FFFFFF0018181800DEDE
      DE00CECECE00CECECE00CECECE00D6D6D600000000006363FF002931FF006363
      FF0000000000000000004A4AFF004A4AFF004A4AFF000000000018181800DEDE
      DE00CECECE00CECECE00CECECE00CECECE00D6D6D600000000006363FF000000
      0000D6D6D600CECECE00000000004A4AFF0000000000FFFFFF0018181800DEDE
      DE00CECECE00CECECE00CECECE00CECECE00CECECE00CECECE0000000000D6D6
      D600D6D6D600D6D6D6001818180000000000FFFFFF00FFFFFF0018181800DEDE
      DE00BDBDBD00BDBDBD00CECECE00CECECE00CECECE00CECECE00CECECE00D6D6
      D600D6D6D600D6D6D60018181800FFFFFF00FFFFFF00FFFFFF0018181800DEDE
      DE00BDBDBD00BDBDBD00BDBDBD00CECECE00CECECE00CECECE00CECECE00CECE
      CE00CECECE00D6D6D60018181800FFFFFF00FFFFFF00FFFFFF0018181800DEDE
      DE00BDBDBD00BDBDBD00BDBDBD00BDBDBD00CECECE00CECECE00CECECE00CECE
      CE00CECECE00D6D6D60018181800FFFFFF00FFFFFF00FFFFFF0018181800DEDE
      DE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDEDE00DEDE
      DE00DEDEDE00DEDEDE0018181800FFFFFF00FFFFFF00FFFFFF00181818001818
      1800181818001818180018181800181818001818180018181800181818001818
      1800181818001818180018181800FFFFFF00FFFFFF00FFFFFF00}
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 84
    Width = 688
    Height = 369
    Align = alClient
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 2
      Top = 15
      Width = 684
      Height = 311
      Align = alClient
      DataSource = DataSource1
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGrid1DblClick
      OnTitleClick = DBGrid1TitleClick
      Columns = <
        item
          Expanded = False
          FieldName = 'date'
          Title.Caption = #26102#38388
          Width = 75
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'filmnumber'
          Title.Caption = #24433#20687#21495
          Width = 56
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'name'
          Title.Caption = #22995#21517
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'sex'
          Title.Caption = #24615#21035
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'age'
          Title.Caption = #24180#40836
          Width = 48
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'diagnose'
          Title.Caption = #20020#24202#35786#26029
          Width = 164
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'filmstage'
          Title.Caption = #29031#29255#31561#32423
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'tel'
          Title.Caption = #30005#35805
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'adress'
          Title.Caption = #22320#22336
          Width = 96
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'casehis'
          Title.Caption = #30149#21490
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'filminfer'
          Title.Caption = #24433#20687#25512#26029
          Width = 268
          Visible = True
        end>
    end
    object Panel1: TPanel
      Left = 2
      Top = 326
      Width = 684
      Height = 41
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Label1: TLabel
        Left = 24
        Top = 17
        Width = 52
        Height = 13
        Caption = #24635#35760#24405#25968
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object count: TEdit
        Left = 64
        Top = 9
        Width = 121
        Height = 21
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = #23435#20307
        Font.Style = []
        ImeName = #32043#20809#25340#38899#36755#20837#27861
        ParentFont = False
        TabOrder = 0
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 328
    Top = 368
  end
  object ADOQuery1: TADOQuery
    Connection = Dm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from filmrecord')
    Left = 384
    Top = 368
  end
end
⌨️ 快捷键说明

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