babyborn.dfm

某大型医院护士站

object frmBabyBorn: TfrmBabyBorn
  Left = 212
  Top = 151
  ActiveControl = ed_BabyName
  BorderStyle = bsDialog
  Caption = '定义母婴同床'
  ClientHeight = 282
  ClientWidth = 330
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object btnAddBaby: TBitBtn
    Left = 72
    Top = 249
    Width = 80
    Height = 22
    Caption = '加入'
    TabOrder = 0
    Glyph.Data = {
      F2010000424DF201000000000000760000002800000024000000130000000100
      0400000000007C01000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
      3333333333388F3333333333000033334224333333333333338338F333333333
      0000333422224333333333333833338F33333333000033422222243333333333
      83333338F3333333000034222A22224333333338F33F33338F33333300003222
      A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
      38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
      2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
      0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
      333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
      33333A2224A2233333333338F338F83300003333333333A2224A333333333333
      8F338F33000033333333333A222433333333333338F338F30000333333333333
      A224333333333333338F38F300003333333333333A223333333333333338F8F3
      000033333333333333A3333333333333333383330000}
    NumGlyphs = 2
  end
  object btnCancel: TBitBtn
    Left = 245
    Top = 249
    Width = 80
    Height = 22
    Caption = '取消'
    TabOrder = 1
    Kind = bkCancel
  end
  object btnConfirm: TBitBtn
    Left = 159
    Top = 249
    Width = 80
    Height = 22
    Caption = '确定'
    TabOrder = 2
    OnClick = btnConfirmClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object PageControl1: TPageControl
    Left = 5
    Top = 7
    Width = 321
    Height = 235
    ActivePage = TabSheet1
    TabOrder = 3
    object TabSheet1: TTabSheet
      Caption = '输入资料'
      object GroupBox1: TGroupBox
        Left = 6
        Top = 5
        Width = 300
        Height = 76
        Caption = '母亲资料'
        TabOrder = 0
        object MotherName: TLabel
          Left = 25
          Top = 24
          Width = 36
          Height = 12
          Caption = '姓名：'
        end
        object DBText1: TDBText
          Left = 61
          Top = 23
          Width = 70
          Height = 16
          DataField = 'PATDESC'
          DataSource = srcMotherInfo
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 24
          Top = 50
          Width = 36
          Height = 12
          Caption = '性别：'
        end
        object Label5: TLabel
          Left = 136
          Top = 23
          Width = 60
          Height = 12
          Caption = '出生日期：'
        end
        object Label6: TLabel
          Left = 159
          Top = 50
          Width = 36
          Height = 12
          Caption = '床号：'
        end
        object DBText2: TDBText
          Left = 200
          Top = 23
          Width = 65
          Height = 17
          DataField = 'BIRTHDAY'
          DataSource = srcMotherInfo
        end
        object DBText3: TDBText
          Left = 60
          Top = 48
          Width = 65
          Height = 17
          DataField = 'SEXNAME'
          DataSource = srcMotherInfo
        end
        object DBText4: TDBText
          Left = 199
          Top = 48
          Width = 65
          Height = 17
          DataField = 'BEDID'
          DataSource = srcMotherInfo
        end
      end
      object GroupBox2: TGroupBox
        Left = 6
        Top = 93
        Width = 300
        Height = 106
        Caption = '新生儿资料'
        TabOrder = 1
        object Label1: TLabel
          Left = 31
          Top = 26
          Width = 60
          Height = 12
          Caption = '出生日期：'
        end
        object Label2: TLabel
          Left = 31
          Top = 53
          Width = 60
          Height = 12
          Caption = '暂时姓名：'
        end
        object Label3: TLabel
          Left = 31
          Top = 80
          Width = 36
          Height = 12
          Caption = '性别：'
        end
        object dtpBabyDate: TDateTimePicker
          Left = 121
          Top = 20
          Width = 122
          Height = 20
          CalAlignment = dtaLeft
          Date = 37081.7276229167
          Time = 37081.7276229167
          DateFormat = dfLong
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 0
        end
        object ed_BabyName: TEdit
          Left = 121
          Top = 48
          Width = 121
          Height = 20
          TabOrder = 1
        end
        object cb_Sex: TComboBox
          Left = 121
          Top = 75
          Width = 122
          Height = 20
          ItemHeight = 12
          TabOrder = 2
          Items.Strings = (
            '男'
            '女'
            '未定')
        end
      end
    end
  end
  object qryMotherInfo: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT * FROM PATIENTSUB'
      'WHERE INID = :P_INID'
      '  AND SQID = 1')
    ValidateWithMask = True
    Left = 280
    Top = 136
    ParamData = <
      item
        DataType = ftInteger
        Name = 'P_INID'
        ParamType = ptInput
      end>
    object qryMotherInfoINID: TIntegerField
      FieldName = 'INID'
      Origin = 'PROJHISADT.PATIENTSUB.INID'
    end
    object qryMotherInfoTIMES: TSmallintField
      FieldName = 'TIMES'
      Origin = 'PROJHISADT.PATIENTSUB.TIMES'
    end
    object qryMotherInfoSQID: TSmallintField
      FieldName = 'SQID'
      Origin = 'PROJHISADT.PATIENTSUB.SQID'
    end
    object qryMotherInfoPATDESC: TStringField
      FieldName = 'PATDESC'
      Origin = 'PROJHISADT.PATIENTSUB.PATDESC'
    end
    object qryMotherInfoBIRTHDAY: TDateField
      FieldName = 'BIRTHDAY'
      Origin = 'PROJHISADT.PATIENTSUB.BIRTHDAY'
    end
    object qryMotherInfoSEXNAME: TStringField
      FieldName = 'SEXNAME'
      Origin = 'PROJHISADT.PATIENTSUB.SEXNAME'
      Size = 6
    end
    object qryMotherInfoWARDID: TStringField
      FieldName = 'WARDID'
      Origin = 'PROJHISADT.PATIENTSUB.WARDID'
      Size = 4
    end
    object qryMotherInfoDEPTNUM: TStringField
      FieldName = 'DEPTNUM'
      Origin = 'PROJHISADT.PATIENTSUB.DEPTNUM'
      Size = 4
    end
    object qryMotherInfoINSTATE: TSmallintField
      FieldName = 'INSTATE'
      Origin = 'PROJHISADT.PATIENTSUB.INSTATE'
    end
    object qryMotherInfoENABLED: TSmallintField
      FieldName = 'ENABLED'
      Origin = 'PROJHISADT.PATIENTSUB.ENABLED'
    end
    object qryMotherInfoBEDID: TStringField
      FieldName = 'BEDID'
      Origin = 'PROJHISADT.PATIENTSUB.BEDID'
      Size = 6
    end
    object qryMotherInfoISBABY: TSmallintField
      FieldName = 'ISBABY'
      Origin = 'PROJHISADT.PATIENTSUB.ISBABY'
    end
    object qryMotherInfoDRIPTIME: TDateTimeField
      FieldName = 'DRIPTIME'
      Origin = 'PROJHISADT.PATIENTSUB.DRIPTIME'
    end
    object qryMotherInfoCLINICID: TStringField
      FieldName = 'CLINICID'
      Origin = 'PROJHISADT.PATIENTSUB.CLINICID'
      Size = 10
    end
    object qryMotherInfoISCHGDEPT: TSmallintField
      FieldName = 'ISCHGDEPT'
      Origin = 'PROJHISADT.PATIENTSUB.ISCHGDEPT'
    end
  end
  object tblInsPatientSub: TwwTable
    DatabaseName = 'PROJHISADT'
    IndexFieldNames = 'INID;TIMES;SQID'
    TableName = 'PATIENTSUB'
    SyncSQLByRange = False
    NarrowSearch = False
    ValidateWithMask = True
    Left = 176
    Top = 8
    object tblInsPatientSubINID: TIntegerField
      FieldName = 'INID'
      Required = True
    end
    object tblInsPatientSubTIMES: TSmallintField
      FieldName = 'TIMES'
      Required = True
    end
    object tblInsPatientSubSQID: TSmallintField
      FieldName = 'SQID'
      Required = True
    end
    object tblInsPatientSubPATDESC: TStringField
      FieldName = 'PATDESC'
    end
    object tblInsPatientSubBIRTHDAY: TDateField
      FieldName = 'BIRTHDAY'
    end
    object tblInsPatientSubSEXNAME: TStringField
      FieldName = 'SEXNAME'
      Size = 6
    end
    object tblInsPatientSubWARDID: TStringField
      FieldName = 'WARDID'
      Required = True
      Size = 4
    end
    object tblInsPatientSubDEPTNUM: TStringField
      FieldName = 'DEPTNUM'
      Required = True
      Size = 4
    end
    object tblInsPatientSubINSTATE: TSmallintField
      FieldName = 'INSTATE'
    end
    object tblInsPatientSubENABLED: TSmallintField
      FieldName = 'ENABLED'
    end
    object tblInsPatientSubBEDID: TStringField
      FieldName = 'BEDID'
      Size = 6
    end
    object tblInsPatientSubISBABY: TSmallintField
      FieldName = 'ISBABY'
    end
    object tblInsPatientSubDRIPTIME: TDateTimeField
      FieldName = 'DRIPTIME'
    end
    object tblInsPatientSubCLINICID: TStringField
      FieldName = 'CLINICID'
      Size = 10
    end
    object tblInsPatientSubISCHGDEPT: TSmallintField
      FieldName = 'ISCHGDEPT'
    end
  end
  object qryMaxSqid: TwwQuery
    DatabaseName = 'PROJHISADT'
    SQL.Strings = (
      'SELECT MAX(SQID) AS MAXSQID FROM PATIENTSUB'
      ' WHERE INID  = :P_INID'
      '   AND TIMES = :P_TIMES')
    ValidateWithMask = True
    Left = 104
    Top = 8
    ParamData = <
      item
        DataType = ftInteger
        Name = 'P_INID'
        ParamType = ptInput
      end
      item
        DataType = ftSmallint
        Name = 'P_TIMES'
        ParamType = ptInput
      end>
    object qryMaxSqidMAXSQID: TSmallintField
      FieldName = 'MAXSQID'
      Origin = 'PROJHISADT.PATIENTSUB.SQID'
    end
  end
  object srcMotherInfo: TwwDataSource
    DataSet = qryMotherInfo
    Left = 279
    Top = 187
  end
  object qryUpdateData: TwwQuery
    DatabaseName = 'PROJHISADT'
    ValidateWithMask = True
    Left = 279
    Top = 83
  end
end