petinfo.dfm

这是我们班实习的时候做的一个宠物医院管理系统。sql数据库

        Height = 299
        Align = alClient
        Caption = #28155#21152#23456#29289#20449#24687
        TabOrder = 0
        object Label10: TLabel
          Left = 48
          Top = 24
          Width = 57
          Height = 13
          Caption = #23456#29289#21495#30721'   '
        end
        object Label11: TLabel
          Left = 48
          Top = 59
          Width = 57
          Height = 13
          Caption = #23456#29289#21517#31216'   '
        end
        object Label12: TLabel
          Left = 48
          Top = 95
          Width = 57
          Height = 13
          Caption = #23456#29289#31181#31867'   '
        end
        object Label13: TLabel
          Left = 48
          Top = 130
          Width = 57
          Height = 13
          Caption = #35786#25152#21495#30721'   '
        end
        object Label14: TLabel
          Left = 48
          Top = 166
          Width = 57
          Height = 13
          Caption = #20986#29983#26085#26399'   '
        end
        object Label15: TLabel
          Left = 48
          Top = 202
          Width = 57
          Height = 13
          Caption = #23456#29289#29366#24577'   '
        end
        object Label16: TLabel
          Left = 264
          Top = 40
          Width = 60
          Height = 13
          Caption = #27880#20876#26085#26399'    '
        end
        object Label17: TLabel
          Left = 264
          Top = 72
          Width = 72
          Height = 13
          Caption = '  '#39038#23458#21495#30721'      '
        end
        object Label18: TLabel
          Left = 264
          Top = 104
          Width = 72
          Height = 13
          Caption = ' '#23456#29289#25551#36848'       '
        end
        object Petinfo_Sheet3_cl: TSpeedButton
          Left = 372
          Top = 199
          Width = 73
          Height = 25
          Caption = #21462#28040'>>'
        end
        object Petinfo_Sheet3_ok: TSpeedButton
          Left = 272
          Top = 200
          Width = 73
          Height = 25
          Caption = #30830#23450'>>'
          OnClick = Petinfo_Sheet3_okClick
        end
        object Petinfo_Sheet3_bk: TSpeedButton
          Left = 472
          Top = 199
          Width = 73
          Height = 25
          Caption = #36820#22238'>>'
          OnClick = Petinfo_Sheet3_bkClick
        end
        object Petinfo_Edit10: TEdit
          Left = 120
          Top = 24
          Width = 121
          Height = 21
          TabOrder = 0
          OnChange = Petinfo_Edit10Change
        end
        object Petinfo_Edit11: TEdit
          Left = 120
          Top = 59
          Width = 121
          Height = 21
          TabOrder = 1
          OnChange = Petinfo_Edit3Change
          OnClick = Petinfo_Edit11Click
        end
        object Petinfo_Edit14: TEdit
          Left = 120
          Top = 200
          Width = 121
          Height = 21
          TabOrder = 2
          OnChange = Petinfo_Edit3Change
          OnClick = Petinfo_Edit14Click
        end
        object Petinfo_Edit16: TEdit
          Left = 336
          Top = 96
          Width = 121
          Height = 21
          TabOrder = 3
          OnChange = Petinfo_Edit3Change
          OnClick = Petinfo_Edit16Click
        end
        object Petinfo_Edit12: TEdit
          Left = 120
          Top = 94
          Width = 121
          Height = 21
          TabOrder = 4
          OnChange = Petinfo_Edit3Change
          OnClick = Petinfo_Edit12Click
        end
        object DateTimePicker4: TDateTimePicker
          Left = 120
          Top = 164
          Width = 121
          Height = 21
          CalAlignment = dtaLeft
          Date = 38230.4574321759
          Time = 38230.4574321759
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 5
        end
        object DateTimePicker5: TDateTimePicker
          Left = 336
          Top = 32
          Width = 121
          Height = 21
          CalAlignment = dtaLeft
          Date = 38230.4580188426
          Time = 38230.4580188426
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 6
        end
        object Petinfo_Edit13: TComboBox
          Left = 120
          Top = 129
          Width = 121
          Height = 21
          ItemHeight = 13
          TabOrder = 7
        end
        object Petinfo_Edit15: TComboBox
          Left = 336
          Top = 64
          Width = 121
          Height = 21
          ItemHeight = 13
          TabOrder = 8
        end
      end
    end
    object TabSheet1: TTabSheet
      Caption = #29305#27530#26465#20214#26597#35810
      ImageIndex = 3
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 249
        Height = 299
        Align = alLeft
        TabOrder = 0
        object SpeedButton2: TSpeedButton
          Left = 272
          Top = 376
          Width = 49
          Height = 22
          Caption = #36820#22238'<<'
          OnClick = SpeedButton2Click
        end
        object GroupBox5: TGroupBox
          Left = 9
          Top = 8
          Width = 232
          Height = 137
          Caption = #25353#35786#25152#26597#35810
          TabOrder = 0
          object Label19: TLabel
            Left = 16
            Top = 22
            Width = 63
            Height = 13
            Caption = #35786#25152#21495#30721'     '
          end
          object Label20: TLabel
            Left = 16
            Top = 45
            Width = 60
            Height = 13
            Caption = #23456#29289#24635#37327'    '
          end
          object SpeedButton1: TSpeedButton
            Left = 16
            Top = 104
            Width = 81
            Height = 25
            Caption = #25191#34892'>>'
            OnClick = SpeedButton1Click
          end
          object Label21: TLabel
            Left = 16
            Top = 83
            Width = 57
            Height = 13
            Caption = #23456#29289#31181#25968'   '
          end
          object Petinfo_Edit100: TEdit
            Left = 96
            Top = 45
            Width = 121
            Height = 21
            TabOrder = 0
          end
          object Petinfo_DBComboBox100: TComboBox
            Left = 96
            Top = 16
            Width = 121
            Height = 21
            ItemHeight = 13
            TabOrder = 1
          end
          object Edit1: TEdit
            Left = 96
            Top = 75
            Width = 121
            Height = 21
            TabOrder = 2
          end
        end
        object GroupBox6: TGroupBox
          Left = 8
          Top = 152
          Width = 233
          Height = 113
          Caption = #25353#39038#23458#26597#35810
          TabOrder = 1
          object Label22: TLabel
            Left = 18
            Top = 18
            Width = 48
            Height = 13
            Caption = #39038#23458#21495#30721
          end
          object Label23: TLabel
            Left = 16
            Top = 41
            Width = 57
            Height = 13
            Caption = #23456#29289#25968#37327'   '
          end
          object SpeedButton5: TSpeedButton
            Left = 16
            Top = 72
            Width = 81
            Height = 25
            Caption = #25191#34892' >>'
          end
          object SpeedButton8: TSpeedButton
            Left = 136
            Top = 72
            Width = 73
            Height = 25
            Caption = #36820#22238'<<'
            OnClick = SpeedButton8Click
          end
          object Petinfo_ComboBox101: TComboBox
            Left = 90
            Top = 13
            Width = 129
            Height = 21
            ItemHeight = 13
            TabOrder = 0
          end
          object Petinfo_Edit001: TEdit
            Left = 90
            Top = 40
            Width = 129
            Height = 21
            TabOrder = 1
          end
        end
      end
      object Panel5: TPanel
        Left = 249
        Top = 0
        Width = 362
        Height = 299
        Align = alClient
        Caption = 'Panel5'
        TabOrder = 1
        object GroupBox7: TGroupBox
          Left = 1
          Top = 1
          Width = 360
          Height = 297
          Align = alClient
          Caption = #23456#29289#30149#21382#26597#35810
          TabOrder = 0
          object Label24: TLabel
            Left = 9
            Top = 32
            Width = 57
            Height = 13
            Caption = #23456#29289#21495#30721'   '
          end
          object SpeedButton6: TSpeedButton
            Left = 240
            Top = 27
            Width = 65
            Height = 22
            Caption = #25191#34892'>>'
            OnClick = SpeedButton6Click
          end
          object Petinfo_ComboBox102: TComboBox
            Left = 74
            Top = 28
            Width = 127
            Height = 21
            ItemHeight = 13
            TabOrder = 0
          end
          object DBGrid2: TDBGrid
            Left = 2
            Top = 85
            Width = 356
            Height = 210
            Align = alBottom
            DataSource = DataSource2
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'PetId'
                Title.Caption = #23456#29289#21495#30721
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EmployeeId'
                Title.Caption = #26816#26597#21307#29983
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ExamineMoney'
                Title.Caption = #26816#26597#36153#29992
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ExamineResult'
                Title.Caption = #26816#26597#32467#26524
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'ExamineTime'
                PickList.Strings = (
                  #22823#24133#24230)
                Title.Caption = #26816#26597#26085#26399
                Visible = True
              end>
          end
        end
      end
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=pethospital;Data Source=.'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 328
    Top = 192
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from PetTable')
    Left = 376
    Top = 232
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 416
    Top = 232
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 416
    Top = 192
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    DataSource = DataSource1
    Parameters = <>
    SQL.Strings = (
      'select * from ExamineInfoTable')
    Left = 376
    Top = 192
  end
end