psyrecord.~dfm

简易的患者监护系统

object Form13: TForm13
  Left = 313
  Top = 135
  Width = 698
  Height = 605
  Caption = #24739#32773#29983#29702#21442#25968#35760#24405
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 29
    Width = 690
    Height = 542
    Align = alClient
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = #35760#24405'ID'
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = #30149#25151#21495
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24202#21495
        Visible = True
      end
      item
        Expanded = False
        FieldName = #26085#26399#26102#38388
        Width = 120
        Visible = True
      end
      item
        Expanded = False
        FieldName = #24322#24120#26631#35760
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = #20307#28201
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = #21628#21560
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = #33033#25615
        Width = 61
        Visible = True
      end
      item
        Expanded = False
        FieldName = #34880#21387
        Width = 63
        Visible = True
      end>
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 690
    Height = 29
    Caption = 'ToolBar1'
    TabOrder = 1
    DesignSize = (
      690
      27)
    object BitBtn1: TBitBtn
      Left = 0
      Top = 2
      Width = 353
      Height = 22
      Anchors = [akLeft, akTop, akRight]
      Caption = #26174#31034#24322#24120#65288#20134#21487#28857#20987#21015#21517#25490#24207#65289
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 353
      Top = 2
      Width = 336
      Height = 22
      Caption = #23548#20986'Exel'#25253#34920
      TabOrder = 1
      OnClick = BitBtn2Click
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 168
    Top = 40
  end
  object ADOQuery1: TADOQuery
    Connection = Form1.ADOConnection2
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#24739#32773#29983#29702#21442#25968#34920' where '#30149#25151#21495'=1  and '#24202#21495'=1')
    Left = 120
    Top = 40
  end
  object SaveDialog1: TSaveDialog
    FileName = '*.xls'
    Filter = 'Excel'#34920#26684'(*.xls)|*.xls'
    Left = 616
    Top = 80
  end
end