⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 custominfo_yzg.~dfm

📁 这是我们班实习的时候做的一个宠物医院管理系统。sql数据库
💻 ~DFM
📖 第 1 页 / 共 2 页
字号:
            Top = 72
            Width = 24
            Height = 13
            Caption = #22995#21517
          end
          object Label9: TLabel
            Left = 16
            Top = 120
            Width = 48
            Height = 13
            Caption = #30005#35805#21495#30721
          end
          object Label10: TLabel
            Left = 248
            Top = 32
            Width = 24
            Height = 13
            Caption = #22478#24066
          end
          object Label11: TLabel
            Left = 248
            Top = 80
            Width = 24
            Height = 13
            Caption = #30465#20221
          end
          object Label12: TLabel
            Left = 248
            Top = 120
            Width = 48
            Height = 13
            Caption = #37038#25919#32534#30721
          end
          object SpeedButton7: TSpeedButton
            Left = 8
            Top = 272
            Width = 65
            Height = 25
            Caption = #25552#20132
            OnClick = SpeedButton7Click
          end
          object SpeedButton8: TSpeedButton
            Left = 88
            Top = 272
            Width = 65
            Height = 25
            Caption = #37325#32622
            OnClick = SpeedButton8Click
          end
          object SpeedButton9: TSpeedButton
            Left = 160
            Top = 272
            Width = 65
            Height = 25
            Caption = #36820#22238
          end
          object Label13: TLabel
            Left = 16
            Top = 160
            Width = 24
            Height = 13
            Caption = #34903#36947
          end
          object Cus_Edit13: TEdit
            Left = 84
            Top = 32
            Width = 121
            Height = 21
            TabOrder = 0
          end
          object Cus_Edit14: TEdit
            Left = 84
            Top = 72
            Width = 121
            Height = 21
            TabOrder = 1
          end
          object Cus_Edit15: TEdit
            Left = 84
            Top = 112
            Width = 121
            Height = 21
            TabOrder = 2
          end
          object Cus_Edit16: TEdit
            Left = 324
            Top = 32
            Width = 121
            Height = 21
            TabOrder = 3
          end
          object Cus_Edit17: TEdit
            Left = 324
            Top = 72
            Width = 121
            Height = 21
            TabOrder = 4
          end
          object Cus_Edit18: TEdit
            Left = 324
            Top = 112
            Width = 121
            Height = 21
            TabOrder = 5
          end
          object Cus_Edit20: TEdit
            Left = 85
            Top = 152
            Width = 121
            Height = 21
            TabOrder = 6
          end
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = #39044#32422#20449#24687#26597#35810
      ImageIndex = 3
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 520
        Height = 351
        Align = alClient
        Caption = 'Panel4'
        TabOrder = 0
        object GroupBox5: TGroupBox
          Left = 1
          Top = 1
          Width = 248
          Height = 349
          Align = alLeft
          Caption = 'GroupBox1'
          TabOrder = 0
          object SpeedButton10: TSpeedButton
            Left = 11
            Top = 244
            Width = 65
            Height = 25
            Caption = #26597#35810
            OnClick = SpeedButton10Click
          end
          object SpeedButton11: TSpeedButton
            Left = 91
            Top = 244
            Width = 65
            Height = 25
            Caption = #21024#38500
            OnClick = SpeedButton11Click
          end
          object SpeedButton12: TSpeedButton
            Left = 170
            Top = 244
            Width = 65
            Height = 25
            Caption = #36820#22238
          end
          object CheckBox8: TCheckBox
            Left = 8
            Top = 31
            Width = 97
            Height = 17
            Caption = #39044#32422#21495#30721
            TabOrder = 0
            OnClick = CheckBox8Click
          end
          object CheckBox9: TCheckBox
            Left = 8
            Top = 82
            Width = 97
            Height = 17
            Caption = #23456#29289#21495#30721
            TabOrder = 1
            OnClick = CheckBox9Click
          end
          object CheckBox10: TCheckBox
            Left = 8
            Top = 124
            Width = 97
            Height = 17
            Caption = #39044#32422#26085#26399
            TabOrder = 2
            OnClick = CheckBox10Click
          end
          object CheckBox11: TCheckBox
            Left = 8
            Top = 169
            Width = 97
            Height = 17
            Caption = #39044#32422#26102#38388
            TabOrder = 3
            OnClick = CheckBox11Click
          end
          object Edit21: TEdit
            Left = 104
            Top = 30
            Width = 100
            Height = 21
            TabOrder = 4
          end
          object Edit22: TEdit
            Left = 104
            Top = 76
            Width = 100
            Height = 21
            TabOrder = 5
          end
          object Edit23: TEdit
            Left = 104
            Top = 120
            Width = 100
            Height = 21
            TabOrder = 6
          end
          object Edit24: TEdit
            Left = 104
            Top = 162
            Width = 100
            Height = 21
            TabOrder = 7
          end
        end
        object Panel6: TPanel
          Left = 249
          Top = 1
          Width = 270
          Height = 349
          Align = alClient
          Caption = 'Panel6'
          TabOrder = 1
          object DBGrid2: TDBGrid
            Left = 1
            Top = 1
            Width = 268
            Height = 347
            Align = alClient
            DataSource = DataSource2
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
          end
        end
      end
    end
    object TabSheet5: TTabSheet
      Caption = #39044#32422#20449#24687#20462#25913
      ImageIndex = 4
      object frmcusinfo_Panel9: TPanel
        Left = 0
        Top = 0
        Width = 225
        Height = 351
        Align = alLeft
        TabOrder = 0
        object GroupBox6: TGroupBox
          Left = 1
          Top = 1
          Width = 225
          Height = 349
          Align = alLeft
          Caption = #20449#24687#20462#25913
          TabOrder = 0
          object Label15: TLabel
            Left = 14
            Top = 48
            Width = 48
            Height = 13
            Caption = #39044#32422#21495#30721
          end
          object Label19: TLabel
            Left = 12
            Top = 84
            Width = 48
            Height = 13
            Caption = #23456#29289#21495#30721
          end
          object Label20: TLabel
            Left = 11
            Top = 123
            Width = 48
            Height = 13
            Caption = #39044#32422#26085#26399
          end
          object Label21: TLabel
            Left = 12
            Top = 162
            Width = 48
            Height = 13
            Caption = #39044#32422#26102#38388
          end
          object SpeedButton16: TSpeedButton
            Left = 8
            Top = 240
            Width = 60
            Height = 25
            Caption = #25552#20132
            OnClick = SpeedButton16Click
          end
          object SpeedButton17: TSpeedButton
            Left = 80
            Top = 240
            Width = 60
            Height = 25
            Caption = #37325#32622
          end
          object SpeedButton18: TSpeedButton
            Left = 152
            Top = 240
            Width = 60
            Height = 25
            Caption = #36820#22238
          end
          object DBEdit8: TDBEdit
            Left = 88
            Top = 46
            Width = 121
            Height = 21
            DataField = 'OrderId'
            DataSource = DataSource2
            TabOrder = 0
          end
          object DBEdit10: TDBEdit
            Left = 86
            Top = 120
            Width = 121
            Height = 21
            DataField = 'OrderDate'
            DataSource = DataSource2
            TabOrder = 1
          end
          object DBEdit11: TDBEdit
            Left = 84
            Top = 159
            Width = 121
            Height = 21
            DataField = 'OrderTime'
            DataSource = DataSource2
            TabOrder = 2
          end
          object DBEdit9: TDBEdit
            Left = 88
            Top = 80
            Width = 121
            Height = 21
            DataField = 'PetId'
            DataSource = DataSource2
            TabOrder = 3
          end
        end
      end
      object DBGrid4: TDBGrid
        Left = 225
        Top = 0
        Width = 295
        Height = 351
        Align = alClient
        DataSource = DataSource2
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet6: TTabSheet
      Caption = #26032#22686#39044#32422#20449#24687
      ImageIndex = 5
      object frmcusinfo_Panel8: TPanel
        Left = 0
        Top = 0
        Width = 520
        Height = 351
        Align = alClient
        TabOrder = 0
        object Label16: TLabel
          Left = 33
          Top = 42
          Width = 48
          Height = 13
          Caption = #23456#29289#21495#30721
        end
        object Label17: TLabel
          Left = 33
          Top = 100
          Width = 48
          Height = 13
          Caption = #39044#32422#26085#26399
        end
        object Label18: TLabel
          Left = 32
          Top = 154
          Width = 48
          Height = 13
          Caption = #39044#32422#26102#38388
        end
        object SpeedButton13: TSpeedButton
          Left = 32
          Top = 248
          Width = 65
          Height = 25
          Caption = #25552#20132
          OnClick = SpeedButton13Click
        end
        object SpeedButton14: TSpeedButton
          Left = 136
          Top = 248
          Width = 65
          Height = 25
          Caption = #37325#32622
          OnClick = SpeedButton14Click
        end
        object SpeedButton15: TSpeedButton
          Left = 232
          Top = 248
          Width = 65
          Height = 25
          Caption = #36820#22238
        end
        object Cj_Edit8: TEdit
          Left = 120
          Top = 40
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object ComboBox1: TComboBox
          Left = 118
          Top = 152
          Width = 73
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          Text = #35831#36873#25321
          Items.Strings = (
            '8:00'
            '9:00'
            '10:00'
            '11:00'
            '14:00'
            '15:00'
            '16:00'
            '17:00'
            '18:00')
        end
        object Cj_DateTimePicker1: TDateTimePicker
          Left = 120
          Top = 96
          Width = 121
          Height = 21
          CalAlignment = dtaLeft
          Date = 38230.6991053588
          Time = 38230.6991053588
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 2
        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=.;Use Procedure for Prepare=1' +
      ';Auto Translate=True;Packet Size=4096;Workstation ID=HUADI-1G24;' +
      'Use Encryption for Data=False;Tag with column collation when pos' +
      'sible=False'
    Provider = 'SQLOLEDB.1'
    Left = 344
    Top = 280
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from CustomerTable')
    Left = 376
    Top = 280
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 400
    Top = 280
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from OrderTable')
    Left = 480
    Top = 288
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 448
    Top = 288
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -