model3_employeemanage.dfm

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

                Title.Caption = #21592#24037#21517#23383
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EmployeePhone'
                Title.Caption = #21592#24037#30005#35805
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EmployeeBirth'
                Title.Caption = #21592#24037#29983#26085
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EnployeeSex'
                Title.Caption = #21592#24037#24615#21035
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'SocialNumber'
                Title.Caption = #31038#20250#21495
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Purview'
                Title.Caption = #33539#22260
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EmployeeStreet'
                Title.Caption = #34903#36947
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EmployeeCity'
                Title.Caption = #22478#24066
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EmployeePostcode'
                Title.Caption = #37038#25919#32534#30721
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EmployeeProvince'
                Title.Caption = #30465#20221
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'EmployeeSalary'
                Title.Caption = #21592#24037#24037#36164
                Title.Font.Charset = DEFAULT_CHARSET
                Title.Font.Color = clMaroon
                Title.Font.Height = -11
                Title.Font.Name = 'MS Sans Serif'
                Title.Font.Style = []
                Visible = True
              end>
          end
        end
      end
      object TabSheet1: TTabSheet
        Caption = #29305#27530#26597#35810
        ImageIndex = 1
        object Panel1: TPanel
          Left = 0
          Top = 0
          Width = 249
          Height = 318
          Align = alLeft
          Caption = 'Panel1'
          TabOrder = 0
          object CheckBox2: TCheckBox
            Left = 48
            Top = 48
            Width = 161
            Height = 17
            Caption = #24180#40836#22823#20110'40'#23681#20197#19978#30340#21592#24037
            TabOrder = 0
            OnClick = CheckBox2Click
          end
          object Button1: TButton
            Left = 96
            Top = 88
            Width = 75
            Height = 25
            Caption = #30830#23450
            TabOrder = 1
            OnClick = Button1Click
          end
          object CheckBox3: TCheckBox
            Left = 48
            Top = 152
            Width = 153
            Height = 17
            Caption = #24037#36164#24635#21644
            TabOrder = 2
            OnClick = CheckBox3Click
          end
          object Button2: TButton
            Left = 96
            Top = 208
            Width = 75
            Height = 25
            Caption = #30830#23450
            TabOrder = 3
            OnClick = Button2Click
          end
        end
        object Panel2: TPanel
          Left = 249
          Top = 0
          Width = 277
          Height = 318
          Align = alClient
          Caption = 'Panel2'
          TabOrder = 1
          object DBGrid1: TDBGrid
            Left = 1
            Top = 1
            Width = 275
            Height = 316
            Align = alClient
            DataSource = DataSource1
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
          end
        end
      end
    end
  end
  object DataSource1_Employeemanage: TDataSource
    DataSet = ADOQuery1_Employeemanage
    Left = 272
    Top = 24
  end
  object ADOConnection1_Employeemanage: 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 = 368
    Top = 88
  end
  object ADOQuery1_Employeemanage: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=pethospital;Data Source=.'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select * from EmployeeTable as E inner join  PositionTable as P ' +
        'on E.PositionId=P.PositionId')
    Left = 272
    Top = 120
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1_Employeemanage
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select ClinicId from Clinic')
    Left = 264
    Top = 88
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery2
    Left = 336
    Top = 224
  end
  object ADOQuery2: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=pethospital;Data Source=.'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select * from EmployeeTable as E inner join  PositionTable as P ' +
        'on E.PositionId=P.PositionId'
      '')
    Left = 416
    Top = 216
  end
end