unit1_employeemanage_xhz.dfm

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

object Form1_Employeemanage: TForm1_Employeemanage
  Left = 210
  Top = 115
  BorderStyle = bsDialog
  Caption = #21592#24037#31649#29702
  ClientHeight = 382
  ClientWidth = 641
  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 Panel1_Employeemanage: TPanel
    Left = 0
    Top = 0
    Width = 641
    Height = 382
    Align = alClient
    Caption = 'Panel1_Employeemanage'
    TabOrder = 0
    object PageControl1_Employeemanage: TPageControl
      Left = 1
      Top = 1
      Width = 639
      Height = 380
      ActivePage = TabSheet1_Employeemanage
      Align = alClient
      TabIndex = 0
      TabOrder = 0
      object TabSheet1_Employeemanage: TTabSheet
        Caption = #20449#24687#26597#35810
        object GroupBox1_Employeemanage: TGroupBox
          Left = 0
          Top = 0
          Width = 249
          Height = 352
          Align = alLeft
          Caption = #26597#35810#26465#20214
          TabOrder = 0
          object SpeedButton1_Employeemanage: TSpeedButton
            Left = 32
            Top = 240
            Width = 73
            Height = 22
            Caption = #26597#35810
            OnClick = SpeedButton1_EmployeemanageClick
          end
          object SpeedButton2_Employeemanage: TSpeedButton
            Left = 144
            Top = 240
            Width = 73
            Height = 22
            Caption = #36820#22238
            OnClick = SpeedButton2_EmployeemanageClick
          end
          object SpeedButton3_Employeemanage: TSpeedButton
            Left = 32
            Top = 280
            Width = 73
            Height = 22
            Caption = #28165#38500
            OnClick = SpeedButton3_EmployeemanageClick
          end
          object SpeedButton4_Employeemanage: TSpeedButton
            Left = 144
            Top = 280
            Width = 73
            Height = 22
            Caption = #25171#21360
          end
          object CheckBox1_Employeemanage: TCheckBox
            Left = 8
            Top = 32
            Width = 97
            Height = 17
            Caption = #21592#24037#21495
            TabOrder = 0
            OnClick = CheckBox1_EmployeemanageClick
          end
          object CheckBox2_Employeemanage: TCheckBox
            Left = 8
            Top = 64
            Width = 97
            Height = 17
            Caption = #21592#24037#22995#21517
            TabOrder = 1
            OnClick = CheckBox2_EmployeemanageClick
          end
          object CheckBox3_Employeemanage: TCheckBox
            Left = 8
            Top = 96
            Width = 97
            Height = 17
            Caption = #22478#24066
            TabOrder = 2
            OnClick = CheckBox3_EmployeemanageClick
          end
          object CheckBox4_Employeemanage: TCheckBox
            Left = 8
            Top = 128
            Width = 97
            Height = 17
            Caption = #32844#20301
            TabOrder = 3
            OnClick = CheckBox4_EmployeemanageClick
          end
          object CheckBox5_Employeemanage: TCheckBox
            Left = 8
            Top = 160
            Width = 97
            Height = 17
            Caption = #34903#36947
            TabOrder = 4
            OnClick = CheckBox5_EmployeemanageClick
          end
          object CheckBox6_Employeemanage: TCheckBox
            Left = 8
            Top = 192
            Width = 97
            Height = 17
            Caption = #30005#35805#21495#30721
            TabOrder = 5
            OnClick = CheckBox6_EmployeemanageClick
          end
          object Edit1_Employeemanage: TEdit
            Left = 96
            Top = 32
            Width = 121
            Height = 21
            TabOrder = 6
          end
          object Edit2_Employeemanage: TEdit
            Left = 96
            Top = 64
            Width = 121
            Height = 21
            TabOrder = 7
          end
          object Edit3_Employeemanage: TEdit
            Left = 96
            Top = 96
            Width = 121
            Height = 21
            TabOrder = 8
          end
          object Edit4_Employeemanage: TEdit
            Left = 96
            Top = 128
            Width = 121
            Height = 21
            TabOrder = 9
          end
          object Edit5_Employeemanage: TEdit
            Left = 96
            Top = 160
            Width = 121
            Height = 21
            TabOrder = 10
          end
          object Edit6_Employeemanage: TEdit
            Left = 96
            Top = 192
            Width = 121
            Height = 21
            TabOrder = 11
          end
        end
        object GroupBox2_Employeemanage: TGroupBox
          Left = 249
          Top = 0
          Width = 382
          Height = 352
          Align = alClient
          TabOrder = 1
          object DBGrid1_Employeemanage: TDBGrid
            Left = 2
            Top = 15
            Width = 378
            Height = 335
            Align = alClient
            DataSource = DataSource1_Employeemanage
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'EmployeeId'
                Title.Caption = #21592#24037#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 = 'EmployeePosition'
                Title.Caption = #21592#24037#32844#20301
                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 = 'ClinicId'
                Title.Caption = #35786#25152#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 = 'EmployeePwd'
                Title.Caption = #21592#24037#23494#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 = 'EmployeeName'
                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
    end
  end
  object DataSource1_Employeemanage: TDataSource
    DataSet = ADOQuery1_Employeemanage
    Left = 112
    Top = 344
  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 = 184
    Top = 344
  end
  object ADOQuery1_Employeemanage: 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 = 152
    Top = 344
  end
end