remedyplan_ldp.dfm

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

object frmRemedyPlanLdp_Form1: TfrmRemedyPlanLdp_Form1
  Left = 263
  Top = 86
  Width = 605
  Height = 529
  Caption = #35786#26029#26041#26696#31649#29702
  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 frmRemedyPlanLdp_PageControl2: TPageControl
    Left = 0
    Top = 0
    Width = 597
    Height = 502
    ActivePage = frmRemedyPlanLdp_TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    OnChange = frmRemedyPlanLdp_PageControl2Change
    object frmRemedyPlanLdp_TabSheet1: TTabSheet
      Caption = #20449#24687#26597#35810
      object frmRemedyPlanLdp_GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 241
        Height = 474
        Align = alLeft
        Caption = #26597#35810#26465#20214
        TabOrder = 0
        object frmRemedyPlanLdp_SpeedButton1: TSpeedButton
          Left = 128
          Top = 344
          Width = 89
          Height = 33
          Caption = #26597#35810'  &E'
          OnClick = frmRemedyPlanLdp_SpeedButton1Click
        end
        object frmRemedyPlanLdp_Edit1: TEdit
          Left = 95
          Top = 69
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object frmRemedyPlanLdp_Edit3: TEdit
          Left = 95
          Top = 168
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object frmRemedyPlanLdp_CheckBox1: TCheckBox
          Left = 8
          Top = 69
          Width = 81
          Height = 17
          Caption = #35786#27835'Id'
          TabOrder = 2
          OnClick = frmRemedyPlanLdp_CheckBox1Click
        end
        object frmRemedyPlanLdp_CheckBox2: TCheckBox
          Left = 8
          Top = 120
          Width = 73
          Height = 17
          Caption = #26816#26597#21495#30721
          TabOrder = 3
          OnClick = frmRemedyPlanLdp_CheckBox2Click
        end
        object frmRemedyPlanLdp_CheckBox3: TCheckBox
          Left = 8
          Top = 168
          Width = 73
          Height = 17
          Caption = #35786#27835#25968#37327
          TabOrder = 4
          OnClick = frmRemedyPlanLdp_CheckBox3Click
        end
        object frmRemedyPlanLdp_Edit2: TEdit
          Left = 95
          Top = 120
          Width = 121
          Height = 21
          TabOrder = 5
        end
        object frmRemedyPlanLdp_CheckBox4: TCheckBox
          Left = 8
          Top = 216
          Width = 73
          Height = 17
          Caption = #24320#22987#26085#26399
          TabOrder = 6
          OnClick = frmRemedyPlanLdp_CheckBox4Click
        end
        object frmRemedyPlanLdp_DateTimePicker1: TDateTimePicker
          Left = 95
          Top = 211
          Width = 121
          Height = 25
          CalAlignment = dtaLeft
          Date = 38229.4406467014
          Time = 38229.4406467014
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 7
        end
      end
      object frmRemedyPlanLdp_GroupBox2: TGroupBox
        Left = 241
        Top = 0
        Width = 348
        Height = 474
        Align = alClient
        Caption = #26174#31034#32467#26524
        TabOrder = 1
        object DBGrid1: TDBGrid
          Left = 2
          Top = 15
          Width = 344
          Height = 457
          Align = alClient
          DataSource = DataSource1
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGrid1CellClick
          OnDblClick = DBGrid1DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'TreatId'
              Title.Caption = #35786#27835#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ExamineId'
              Title.Caption = #26816#26597#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RemedyCount'
              Title.Caption = #35786#27835#25968#37327
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'StartDate'
              Title.Caption = #24320#22987#26085#26399
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FinishDate'
              Title.Caption = #32467#26463#26085#26399
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ExtraItem'
              Title.Caption = #39069#22806#20107#39033
              Visible = True
            end>
        end
      end
    end
    object TabSheet1: TTabSheet
      Caption = #35786#26029#20449#24687#32500#25252
      ImageIndex = 1
      object frmRemedyPlanLdp_GroupBox3: TGroupBox
        Left = 0
        Top = 0
        Width = 281
        Height = 474
        Align = alLeft
        Caption = #22522#26412#20449#24687
        TabOrder = 0
        object SpeedButton1: TSpeedButton
          Left = 160
          Top = 368
          Width = 65
          Height = 25
          Caption = #20462#25913
          OnClick = SpeedButton1Click
        end
        object SpeedButton3: TSpeedButton
          Left = 48
          Top = 368
          Width = 65
          Height = 22
          Caption = #21024#38500' &DEl'
          OnClick = SpeedButton3Click
        end
        object frmRemedyPlanLdp_Label2: TLabel
          Left = 24
          Top = 166
          Width = 63
          Height = 13
          Caption = '   '#24320#22987#26085#26399'  '
        end
        object frmRemedyPlanLdp_Label3: TLabel
          Left = 24
          Top = 217
          Width = 63
          Height = 13
          Caption = '  '#32467#26463#26085' '#26399'  '
        end
        object SpeedButton4: TSpeedButton
          Left = 496
          Top = 440
          Width = 65
          Height = 25
          Caption = #36820#22238
        end
        object SpeedButton5: TSpeedButton
          Left = 160
          Top = 424
          Width = 65
          Height = 22
          Caption = #25764#28040
          OnClick = SpeedButton5Click
        end
        object SpeedButton2: TSpeedButton
          Left = 48
          Top = 416
          Width = 65
          Height = 25
          Caption = #28155#21152#25968#25454
          OnClick = SpeedButton2Click
        end
        object frmRemedyPlanLdp_Label1: TLabel
          Left = 24
          Top = 59
          Width = 66
          Height = 13
          Caption = '   '#26816#26597#21495#30721'   '
        end
        object frmRemedyPlanLdp_Label7: TLabel
          Left = 32
          Top = 112
          Width = 48
          Height = 13
          Caption = #35786#27835#25968#37327
        end
        object DBEdit2: TDBEdit
          Left = 120
          Top = 56
          Width = 121
          Height = 21
          DataField = 'ExamineId'
          DataSource = DataSource1
          TabOrder = 0
        end
        object frmRemedyPlanLdp_DateTimePicker3: TDateTimePicker
          Left = 128
          Top = 152
          Width = 121
          Height = 21
          CalAlignment = dtaLeft
          Date = 38230.8558653356
          Time = 38230.8558653356
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 1
        end
        object frmRemedyPlanLdp_DateTimePicker2: TDateTimePicker
          Left = 128
          Top = 216
          Width = 121
          Height = 21
          CalAlignment = dtaLeft
          Date = 38230.8559327894
          Time = 38230.8559327894
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 2
        end
        object GroupBox1: TGroupBox
          Left = 72
          Top = 256
          Width = 185
          Height = 89
          Caption = #39069#22806#20107#39033
          TabOrder = 3
          object DBMemo1: TDBMemo
            Left = 2
            Top = 15
            Width = 181
            Height = 72
            Align = alClient
            DataField = 'ExtraItem'
            DataSource = DataSource1
            TabOrder = 0
          end
        end
        object frmRemedyPlanLdp_DBEdit10: TDBEdit
          Left = 128
          Top = 104
          Width = 113
          Height = 25
          DataField = 'RemedyCount'
          DataSource = DataSource1
          TabOrder = 4
        end
      end
      object frmRemedyPlanLdp_GroupBox4: TGroupBox
        Left = 281
        Top = 0
        Width = 308
        Height = 474
        Align = alClient
        Caption = #26174#31034#32467#26524
        TabOrder = 1
        object DBGrid2: TDBGrid
          Left = 2
          Top = 15
          Width = 304
          Height = 457
          Align = alClient
          DataSource = DataSource1
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = DBGrid2CellClick
          Columns = <
            item
              Expanded = False
              FieldName = 'TreatId'
              Title.Caption = #35786#27835#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ExamineId'
              Title.Caption = #26816#26597#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'RemedyCount'
              Title.Caption = #35786#27835#25968#37327
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'StartDate'
              Title.Caption = #24320#22987#26085#26399
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'FinishDate'
              Title.Caption = #32467#26463#26085#26399
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ExtraItem'
              Title.Caption = #39069#22806#20107#39033
              Visible = True
            end>
        end
      end
    end
  end
  object DBNavigator1: TDBNavigator
    Left = 312
    Top = 336
    Width = 212
    Height = 25
    DataSource = DataSource1
    VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
    TabOrder = 1
    Visible = False
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    OnDataChange = DataSource1DataChange
    Left = 472
    Top = 424
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=pethospital;Data Source=.'
    Provider = 'SQLOLEDB.1'
    Left = 368
    Top = 416
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from RemedyPlanTable')
    Left = 424
    Top = 416
  end
end