accountinfo.~dfm

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

object AccountinfoWf_Form1: TAccountinfoWf_Form1
  Left = 84
  Top = 94
  BorderStyle = bsDialog
  Caption = #24080#21333#31649#29702
  ClientHeight = 535
  ClientWidth = 643
  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 AccountinfoWf_PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 643
    Height = 535
    ActivePage = AccountinfoWf_TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    OnContextPopup = AccountinfoWf_PageControl1ContextPopup
    object AccountinfoWf_TabSheet1: TTabSheet
      Caption = #24080#21333#32500#25252
      object AccountinfoWf_GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 273
        Height = 507
        Align = alLeft
        Caption = #22522#26412#21151#33021
        TabOrder = 0
        OnMouseMove = AccountinfoWf_GroupBox1MouseMove
        object AccountinfoWf_Label1: TLabel
          Left = 16
          Top = 48
          Width = 57
          Height = 13
          Caption = #24080#21333#21495#30721'   '
        end
        object AccountinfoWf_Label2: TLabel
          Left = 16
          Top = 188
          Width = 60
          Height = 13
          Caption = #24080#21333#26085#26399'    '
        end
        object AccountinfoWf_Label3: TLabel
          Left = 16
          Top = 234
          Width = 48
          Height = 13
          Caption = #24635#36153#29992'    '
        end
        object AccountinfoWf_Label4: TLabel
          Left = 16
          Top = 281
          Width = 60
          Height = 13
          Caption = #25903#20184#26085#26399'    '
        end
        object AccountinfoWf_Label5: TLabel
          Left = 16
          Top = 328
          Width = 60
          Height = 13
          Caption = #25903#20184#26041#27861'    '
        end
        object AccountinfoWf_Label6: TLabel
          Left = 16
          Top = 94
          Width = 54
          Height = 13
          Caption = #26816#26597#21495#30721'  '
        end
        object AccountinfoWf_Label7: TLabel
          Left = 16
          Top = 141
          Width = 54
          Height = 13
          Caption = #23458#25143#21495#30721'  '
        end
        object AccountinfoWf_Edit1: TEdit
          Left = 90
          Top = 40
          Width = 125
          Height = 21
          TabOrder = 0
          OnChange = AccountinfoWf_Edit1Change
        end
        object AccountinfoWf_Edit2: TEdit
          Left = 86
          Top = 232
          Width = 127
          Height = 21
          TabOrder = 1
        end
        object AccountinfoWf_Edit3: TEdit
          Left = 88
          Top = 328
          Width = 121
          Height = 21
          TabOrder = 2
        end
        object AccountinfoWf_DateTimePicker1: TDateTimePicker
          Left = 89
          Top = 184
          Width = 127
          Height = 21
          CalAlignment = dtaLeft
          Date = 38230.4489492824
          Time = 38230.4489492824
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 3
        end
        object AccountinfoWf_DateTimePicker2: TDateTimePicker
          Left = 87
          Top = 280
          Width = 127
          Height = 21
          CalAlignment = dtaLeft
          Date = 38230.4501495486
          Time = 38230.4501495486
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 4
        end
        object AccountinfoWf_Panel1: TPanel
          Left = 2
          Top = 414
          Width = 269
          Height = 91
          Align = alBottom
          TabOrder = 5
          object PetinfoWf_SpeedButton1: TSpeedButton
            Left = 32
            Top = 48
            Width = 65
            Height = 33
            Caption = #25764#28040
            OnClick = PetinfoWf_SpeedButton1Click
          end
          object PetinfoWf_SpeedButton2: TSpeedButton
            Left = 160
            Top = 8
            Width = 65
            Height = 33
            Caption = #21024#38500
            OnClick = PetinfoWf_SpeedButton2Click
          end
          object PetinfoWf_SpeedButton3: TSpeedButton
            Left = 32
            Top = 8
            Width = 65
            Height = 33
            Caption = #28155#21152
            OnClick = PetinfoWf_SpeedButton3Click
          end
          object PetinfoWf_SpeedButton4: TSpeedButton
            Left = 160
            Top = 48
            Width = 65
            Height = 33
            Caption = #20462#25913
            OnClick = PetinfoWf_SpeedButton4Click
          end
        end
        object AccountinfoWf_Edit8: TEdit
          Left = 92
          Top = 136
          Width = 121
          Height = 21
          TabOrder = 6
        end
        object AccountinfoWf_Edit7: TEdit
          Left = 91
          Top = 88
          Width = 121
          Height = 21
          TabOrder = 7
        end
      end
      object AccountinfoWf_GroupBox2: TGroupBox
        Left = 273
        Top = 0
        Width = 362
        Height = 507
        Align = alClient
        Caption = #32467#26524#26174#31034
        TabOrder = 1
        object AccountinfoWf_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 = []
          OnCellClick = AccountinfoWf_DBGrid1CellClick
          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
              Visible = True
            end>
        end
        object DBNavigator1: TDBNavigator
          Left = 80
          Top = 472
          Width = 224
          Height = 25
          VisibleButtons = [nbDelete, nbEdit, nbPost, nbCancel]
          TabOrder = 1
        end
      end
    end
    object AccountinfoWf_TabSheet2: TTabSheet
      Caption = #39038#23458#27424#36153#26597#35810
      ImageIndex = 1
      object AccountinfoWf_Panel2: TPanel
        Left = 0
        Top = 0
        Width = 273
        Height = 507
        Align = alLeft
        TabOrder = 0
        object AccountinfoWf_GroupBox3: TGroupBox
          Left = 1
          Top = 1
          Width = 271
          Height = 232
          Align = alTop
          Caption = #25353'ID'#26597#35810
          TabOrder = 0
          object AccountinfoWf_SpeedButton5: TSpeedButton
            Left = 88
            Top = 184
            Width = 81
            Height = 33
            Caption = #26597#35810
            OnClick = AccountinfoWf_SpeedButton5Click
          end
          object AccountinfoWf_CheckBox1: TCheckBox
            Left = 16
            Top = 40
            Width = 97
            Height = 17
            Caption = #24080#21333'ID'
            TabOrder = 0
          end
          object AccountinfoWf_CheckBox2: TCheckBox
            Left = 16
            Top = 83
            Width = 97
            Height = 17
            Caption = #26816#26597'ID'
            TabOrder = 1
          end
          object AccountinfoWf_Edit4: TEdit
            Left = 112
            Top = 35
            Width = 121
            Height = 21
            TabOrder = 2
          end
          object AccountinfoWf_CheckBox3: TCheckBox
            Left = 16
            Top = 126
            Width = 97
            Height = 17
            Caption = #23458#25143'ID'
            TabOrder = 3
          end
          object AccountinfoWf_Edit5: TEdit
            Left = 112
            Top = 80
            Width = 121
            Height = 21
            TabOrder = 4
          end
          object AccountinfoWf_Edit6: TEdit
            Left = 114
            Top = 124
            Width = 121
            Height = 21
            TabOrder = 5
          end
        end
        object AccountinfoWf_GroupBox5: TGroupBox
          Left = 1
          Top = 233
          Width = 271
          Height = 273
          Align = alClient
          Caption = #25353#26085#26399#26597#35810
          TabOrder = 1