unit1.dfm

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

          object AccountinfoWf_SpeedButton6: TSpeedButton
            Left = 88
            Top = 128
            Width = 81
            Height = 33
            Caption = #26597#35810
            OnClick = AccountinfoWf_SpeedButton6Click
          end
          object AccountinfoWf_CheckBox4: TCheckBox
            Left = 16
            Top = 40
            Width = 97
            Height = 17
            Caption = #24080#21333#26085#26399
            TabOrder = 0
          end
          object AccountinfoWf_CheckBox5: TCheckBox
            Left = 16
            Top = 88
            Width = 97
            Height = 17
            Caption = #25903#20184#26085#26399
            TabOrder = 1
          end
          object AccountinfoWf_DateTimePicker3: TDateTimePicker
            Left = 128
            Top = 40
            Width = 121
            Height = 21
            CalAlignment = dtaLeft
            Date = 38230.4779331134
            Time = 38230.4779331134
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 2
          end
          object AccountinfoWf_DateTimePicker4: TDateTimePicker
            Left = 128
            Top = 88
            Width = 121
            Height = 21
            CalAlignment = dtaLeft
            Date = 38230.4779861111
            Time = 38230.4779861111
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 3
          end
        end
      end
      object AccountinfoWf_GroupBox4: TGroupBox
        Left = 273
        Top = 0
        Width = 362
        Height = 507
        Align = alClient
        Caption = #32467#26524#26174#31034
        TabOrder = 1
        object AccountinfoWf_DBGrid2: TDBGrid
          Left = 2
          Top = 15
          Width = 358
          Height = 490
          Align = alClient
          DataSource = DataSource1
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          OnCellClick = AccountinfoWf_DBGrid2CellClick
          OnDblClick = AccountinfoWf_DBGrid2DblClick
          Columns = <
            item
              Expanded = False
              FieldName = 'AccountId'
              Title.Caption = #24080#21333#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ExamineId'
              Title.Caption = #26816#26597#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CustomerId'
              Title.Caption = #23458#25143#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'AccountDate'
              Title.Caption = #24080#21333#26085#26399
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TotalCost'
              Title.Caption = #24635#36153#29992
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PayDate'
              Title.Caption = #25903#20184#26085#26399
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PayType'
              Title.Caption = #25903#20184#26041#27861
              Visible = True
            end>
        end
      end
    end
    object AccountinfoWf_TabSheet3: TTabSheet
      Caption = #35786#36153#26465#20214#26597#35810
      ImageIndex = 2
      object AccountinfoWf_GroupBox6: TGroupBox
        Left = 0
        Top = 0
        Width = 273
        Height = 507
        Align = alLeft
        TabOrder = 0
        object GroupBox1: TGroupBox
          Left = 2
          Top = 15
          Width = 269
          Height = 217
          Align = alTop
          Caption = #24080#21333#26085#26399#26102#38388#27573#26597#35810
          TabOrder = 0
          object AccountInfoLdp_Label11: TLabel
            Left = 16
            Top = 32
            Width = 48
            Height = 13
            Caption = #24320#22987#26102#38388
          end
          object AccountInfoLdp_Label12: TLabel
            Left = 16
            Top = 80
            Width = 54
            Height = 13
            Caption = #32467#26463#26102#38388'  '
          end
          object SpeedButton1: TSpeedButton
            Left = 144
            Top = 152
            Width = 73
            Height = 25
            Caption = #26597#35810
            OnClick = SpeedButton1Click
          end
          object DfrmAccountInfoLdp_ateTimePicker5: TDateTimePicker
            Left = 112
            Top = 32
            Width = 154
            Height = 21
            CalAlignment = dtaLeft
            Date = 38231.4574981829
            Time = 38231.4574981829
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 0
          end
          object DfrmAccountInfoLdp_ateTimePicker6: TDateTimePicker
            Left = 112
            Top = 80
            Width = 154
            Height = 21
            CalAlignment = dtaLeft
            Date = 38231.4575153704
            Time = 38231.4575153704
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 1
          end
        end
        object GroupBox2: TGroupBox
          Left = 2
          Top = 232
          Width = 269
          Height = 273
          Align = alClient
          Caption = #25903#20184#26085#26399#26102#38388#27573#26597#35810
          TabOrder = 1
          object SpeedButton2: TSpeedButton
            Left = 144
            Top = 176
            Width = 73
            Height = 25
            Caption = #26597#35810
            OnClick = SpeedButton2Click
          end
          object AccountInfoLdp_Label13: TLabel
            Left = 24
            Top = 40
            Width = 57
            Height = 13
            Caption = #24320#22987#26102#38388'   '
          end
          object AccountInfoLdp_Label14: TLabel
            Left = 24
            Top = 96
            Width = 54
            Height = 13
            Caption = #32467#26463#26102#38388'  '
          end
          object DfrmAccountInfoLdp_ateTimePicker7: TDateTimePicker
            Left = 112
            Top = 40
            Width = 146
            Height = 21
            CalAlignment = dtaLeft
            Date = 38231.4579352893
            Time = 38231.4579352893
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 0
          end
          object DfrmAccountInfoLdp_ateTimePicker8: TDateTimePicker
            Left = 112
            Top = 96
            Width = 145
            Height = 21
            CalAlignment = dtaLeft
            Date = 38231.4580570023
            Time = 38231.4580570023
            DateFormat = dfShort
            DateMode = dmComboBox
            Kind = dtkDate
            ParseInput = False
            TabOrder = 1
          end
        end
      end
      object AccountinfoWf_GroupBox7: TGroupBox
        Left = 273
        Top = 0
        Width = 362
        Height = 507
        Align = alClient
        Caption = #32467#26524#26174#31034
        TabOrder = 1
        object DBGrid1: TDBGrid
          Left = 2
          Top = 15
          Width = 358
          Height = 490
          Align = alClient
          DataSource = DataSource1
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'AccountId'
              Title.Caption = #24080#21333#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ExamineId'
              Title.Caption = #26816#26597#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CustomerId'
              Title.Caption = #23458#25143#21495#30721
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'AccountDate'
              Title.Caption = #24080#21333#26085#26399
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'TotalCost'
              Title.Caption = #24635#36153#29992
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PayDate'
              Title.Caption = #25903#20184#26085#26399
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PayType'
              Title.Caption = #25903#20184#26041#27861
              Visible = True
            end>
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 152
    Top = 384
  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 = 216
    Top = 288
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from AccountTable')
    Left = 208
    Top = 400
  end
end