unit1.dfm

女性安全期测试

        item
          Expanded = False
          FieldName = 'id'
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 280
      Top = 5
      Width = 417
      Height = 133
      DataSource = DataSource2
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = DBGrid2CellClick
      Columns = <
        item
          Alignment = taCenter
          Color = clInfoBk
          Expanded = False
          FieldName = 'seq'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 36
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'rq'
          Title.Caption = #26085#26399
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'temp'
          Title.Alignment = taCenter
          Title.Caption = #28201#24230
          Width = 99
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'yj'
          Title.Alignment = taCenter
          Title.Caption = #26376#32463
          Width = 27
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'xj'
          Title.Alignment = taCenter
          Title.Caption = #21516#25151
          Width = 33
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'remark'
          Title.Alignment = taCenter
          Title.Caption = #22791#27880
          Visible = True
        end>
    end
  end
  object BitBtn1: TBitBtn
    Left = 710
    Top = 43
    Width = 40
    Height = 40
    Caption = #23384#22270
    TabOrder = 3
    OnClick = BitBtn1Click
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000FFFFFFF0F0F0
      9D9A9CA4A0A3A2A1A2A2A0A1A39EA1A2A1A2A2A0A1A39EA1A2A1A2A2A0A1A39F
      A1A1A1A1A3A3A3ACACAC4B4B4B5350523B403C3C453E3D3D3D3C413D3B443E3D
      3D3D3C413D3B443E3D3D3D3C413D3B443D414140353435797A79575255C2D3CA
      C8699FC53E85C7B8C1C871A1C63E82C7B8C1C870A1C83C82C8B8C1C870A2C33A
      82D5BFCB67736C666465727774DAB5C9E382B5F174B5DE9EBEE084BAEC73C1DE
      9DC0DF85BAE47AC2DA9EC1E387B7EF7EB5ECA7CB6D6368696B6A658077F05B92
      C09BBC2EA7C2C33081EDA09C72A823B9386CED8E96DF4E12EE2A64C170C22D00
      A3D034827E4C5B65706C627C76FF7CA3C2E7EE00F0F1C45799FFEEBD55F312B5
      627BFFD5B4EE7400FF4E70C3ABF30001C6D15B97875A62636D6B627D76FD75A0
      C2D6E302E0E7C44F94FCDCB65EE018B75978FDC5AEEB6C01FD466EC39EE80200
      BFD15393855761636D6B627D76FE76A0C2D9E500E3E9C45095FDE7B951EC0EB2
      5A76FEC8AFEC6D00FE476EC3A0EA0000C0D15493855761636D6B627D76FE76A0
      C2D9E500E2EABF538DFEC2CEABC587C45C7BFEC8AEED6D00FE476EC3A0EA0000
      C0D15493855761636D6B627D76FE76A0C2D9E500E1EAC05B90FE5F96FF5E9CFF
      60A2FEC7A6EF6E02FE476EC3A0EA0000C0D15493855761636D6B627D76FE76A0
      C2D9E500E1EAC05A90FE6898F86793FB61A1FEC4A1EF6800FE4870C3A0EA0000
      C0D15493855761636D6B627D76FE76A0C2D9E500E1EAC05A90FE6698FA6696FC
      5E9BFED6BEEE8730FE4367C4A0EA0301BFD15593855761636D6B627D76FE76A0
      C3D7E403DFE9C15A90FE6698FA6597FD6194FD86B2F77FABFE6084BD9EE80000
      C4CE5392865861646E6C617C75FB749EBCDFE800E6EDB9588EFB6596F76395FA
      6496FA5B8FFA5E92F86194EBB1D19177C3D150948256606069676F857DFF82AE
      FFC2DBA7CBE1D7659DFF6EA3FF6DA2FF6CA2FF6EA3FF6EA3FF6CA2FF6A9EFF71
      9DFF77AF7D566377807D4B4F4D9E818BA47282AE7483A37987A17986A17986A1
      7986A17986A17986A17986A07A879C7685A882914D4346B6B8B7}
    Layout = blGlyphTop
  end
  object BitBtn2: TBitBtn
    Left = 710
    Top = 146
    Width = 40
    Height = 40
    Caption = #36864#20986
    TabOrder = 4
    OnClick = BitBtn2Click
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000BCBCBCC3C3C3
      DDDDDDDEDEDEEBEBEBDFDFDFE0E0E0E3E3E3EAEAE8AEAEB7595900A6A68AFFFF
      FFD6D6D2DDDDDDC7C7C7CCCCCCE4E4E4E1E1E1E2E2E2E1E1E1E5E5E5E2E2E2DF
      DFDFEBEBE99999AABBBB008F8F0E919199ECECEEDFDFDFD4D4D4E1E1E1E2E2E2
      E1E1E1E4E4E4DFDFDFDEDEDEE9E9E9DEDEDEF1F1EE9898A7B8B800B5B5004545
      00A1A1A0F1F1F2E2E2E27878787E7E7E6F6F6F7C7C7C7979797070707C7C7CED
      EDEDFBFBF9A6A6B6B8B800AEAE047D7D0058580854545771716FFEFEFEFDFDFD
      FFFFFFFDFDFDFFFFFFFFFFFF6161609F9F9FA7A7A5767681BABA00ABAB017C7C
      025757005D5D64FAFAF8FCFCFCFDFDFDF9F9F9FDFDFDC3C3C28383865656574D
      4D4C5B5B5734343EBFBF00AEAE0184840256560066666DF7F7F5FBFBFBFCFCFB
      FDFDFBFFFFFEB8B8B92222003737348D8D8F91918D555565C0C000A2A2006060
      005A5A0064646BF8F8F6FFFFFFFFFFFFD6D6DEDCDCE29393A794940368680750
      505990908E4C4C5DBDBD0078782C37372C56560064646DF8F8F6DDDDDF696958
      41411D48481F30300FCACA00EBEB004E4E00616163575766BDBD009393184949
      1957570064646CF8F8F6555572AAAA00EFEF33E8E845ECEC47F8F847FEFE48E6
      E6135D5D002E2E48C6C600ACAC007E7E0057570064646BF8F8F68A8AA19B9B07
      B8B82EB7B743BCBC43EAEA63FFFFA6D1D10E58582A45455BBFBF00ACAC017D7D
      0256560064646BF8F8F6FFFFFFC4C4D0ACACAFB1B1AF72727DC0C009DFDF053C
      3C1F7F7F8B53535FC1C100A8A8017E7E0156560064646BF8F8F6FBFBFBFFFFFF
      FFFFFFFFFFFFBFBFC97777004545137272818C8C84575767A6A601C1C1007676
      0258580064646BF8F8F6FDFDFDFAFAFAF7F7F7FAFAFAC4C4C35D5D5C55555C7E
      7E7C7E7E7E8686875B5B5CB3B303C0C00349490366666CF7F7F5FDFDFDFDFDFD
      FDFDFDFDFDFDFEFEFEFFFFFF5858566B6B6B7777777474727A7A7E4A4A50B6B6
      007B7B00595968FAFAF8FDFDFDFDFDFDFDFDFDFDFDFDFAFAFAFBFBFA8080806C
      6C6C7070706E6E6E6F6F6C6D6D7464645882824DBCBCC1FEFEFE}
    Layout = blGlyphTop
  end
  object BitBtn3: TBitBtn
    Left = 710
    Top = 95
    Width = 40
    Height = 40
    Caption = #25171#22270
    TabOrder = 5
    OnClick = BitBtn3Click
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      1800000000000003000000000000000000000000000000000000BEBEBEBDBDBD
      CBCBCBC7C7C7C6C6C6C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C7C6C6C6C7C7
      C7CCCCCCBBBBBBBEBEBEBBBBBBC5C5C55656564747474B4B4B49494949494949
      49494949494949494949494B4B4B484848858585CBCBCBBDBDBDBEBEBEBABABA
      656565BDBDBDABABABAFAFAFAEAEAEAEAEAEAEAEAEAEAEAEAEAEAEADADADB5B5
      B5626262848484C5C5C5BCBCBCC3C3C36A6A6AC2C2C2B0B0B0B4B4B4B3B3B3B3
      B3B3B3B3B3B3B3B3B3B3B3B2B2B2B6B6B68E8E8E474747BFBFBFD0D0D0858585
      2B2B2B3636363737373737373737373737373737373737373737373737373A3A
      3A3A3A3A484848C4C4C4696969717171B8B8B8AEAEAEAFAFAFAFAFAFAFAFAFAF
      AFAFAFAFAFAFAFAFAEAEAFABABAFB3B3B59696963F3F3FB7B7B7424242B7B7B7
      CDCDCDC0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C3C5C5C1CECEBDCECE
      C1B7B7B86F6F6F6262624D4D4DADADADC4C4C4B7B7B7B7B7B7B7B7B7B7B7B7B7
      B7B7B6B6B7BABAB5A9A9BB7C7CC99090C9AEAEA97777785959593F3F3FB8B8B8
      DEDEDECDCDCDDADADADFDEDEDFDCDCDFDCDCDEDBDCE2DFDAD1CFE1A3A3F0ADAD
      E7BFBFBA6E6E6F5D5D5DA7A7A77D7D7DBEBEBED8D8D8AAA9A993979794A3A394
      A1A194A2A193A1A297A09CA4A492C3C3B7D7D7D89C9C9B515151CACACAB1B1B1
      616161605F5F393E3EB3A0A0B06F6FAF7171AF7070AC6E6EB286877B7C7F302F
      32676766646465626262BBBBBBC2C2C2C3C3C3BBBABA7B7E7EFFF2F2FF8080FF
      8383FF8383FF8080FFA4A4BCCDCD868282CDCECEB9B9B9C4C4C4BEBEBEBDBDBD
      BCBCBCC7C7C793909098A4A4F6BABAF87B7BF98383FA8282EF8585E9C8C8848B
      8BACAAAAC3C4C4BCBCBCBEBEBEBEBEBEBEBEBEBDBDBDC7C7C7818383C5C0C0FC
      8686FA6F6FFC7171FD6F6FFF7D7DECDFDF797C7CBDBDBDBEBEBEBEBEBEBEBEBE
      BEBEBEBEBEBEC0C0C0B9B7B76D7373FFD5D5FDBEBEFEC0C0FEC0C0FAB9B9FFF0
      F0ACB1B1848383CBCBCBBEBEBEBEBEBEBEBEBEBEBEBEBDBDBDC2C2C26A68687C
      85857C8A8A7C8A8A7C8A8A7B8A8A7C80806A6969979898C7C7C7}
    Layout = blGlyphTop
  end
  object MainMenu1: TMainMenu
    Left = 168
    Top = 465
    object N1: TMenuItem
      Caption = #21608#26399'(&T)     '
      object N4: TMenuItem
        Caption = #22686#21152#21608#26399'  (&A)'
        OnClick = SpeedButton1Click
      end
      object M1: TMenuItem
        Caption = #20462#25913#21608#26399'  (&M)'
        OnClick = SpeedButton2Click
      end
      object D1: TMenuItem
        Caption = #21024#38500#21608#26399'  (&D)'
        OnClick = SpeedButton3Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object S1: TMenuItem
        Caption = #20445#23384#26354#32447'  (&S)'
        OnClick = BitBtn1Click
      end
      object P1: TMenuItem
        Caption = #25171#21360#26354#32447'  (&P)'
        OnClick = BitBtn3Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = #36864#20986#31995#32479'  (&X)'
        OnClick = BitBtn2Click
      end
    end
    object N3: TMenuItem
      Caption = #24110#21161'(&H)     '
      object G1: TMenuItem
        Caption = #20351#29992#25351#21335'  (&G)'
      end
      object R1: TMenuItem
        Caption = #29992#25143#27880#20876'  (&R)'
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object A1: TMenuItem
        Caption = #20851#20110'  (&A)'
        OnClick = A1Click
      end
    end
  end
  object maintable: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    IndexFieldNames = 'id'
    TableName = 'main'
    Left = 96
    Top = 465
    object maintableid: TSmallintField
      FieldName = 'id'
    end
    object maintablestartdate: TWideStringField
      FieldName = 'startdate'
      OnGetText = maintablestartdateGetText
      Size = 8
    end
    object maintableremark: TWideStringField
      FieldName = 'remark'
      Size = 80
    end
    object maintabledays: TSmallintField
      FieldName = 'days'
    end
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 465
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = maintable
    OnDataChange = DataSource1DataChange
    Left = 136
    Top = 465
  end
  object subtable: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    OnCalcFields = subtableCalcFields
    MasterFields = 'id'
    MasterSource = DataSource1
    TableName = 'sub'
    Left = 208
    Top = 465
    object subtableid: TSmallintField
      FieldName = 'id'
    end
    object subtablerq: TStringField
      FieldKind = fkCalculated
      FieldName = 'rq'
      Size = 10
      Calculated = True
    end
    object subtableseq: TSmallintField
      FieldName = 'seq'
    end
    object subtabletemp: TFloatField
      FieldName = 'temp'
      OnGetText = subtabletempGetText
    end
    object subtableyj: TWideStringField
      FieldName = 'yj'
      OnGetText = subtableyjGetText
      Size = 1
    end
    object subtablexj: TWideStringField
      FieldName = 'xj'
      OnGetText = subtablexjGetText
      Size = 1
    end
    object subtableremark: TWideStringField
      FieldName = 'remark'
      Size = 40
    end
  end
  object DataSource2: TDataSource
    DataSet = subtable
    Left = 248
    Top = 465
  end
  object qyyj: TADOQuery
    Connection = ADOConnection1
    DataSource = DataSource2
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 64
    Top = 465
  end
end