sysmng_unit1.~dfm

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

            Left = 2
            Top = 208
            Width = 199
            Height = 153
            Caption = #25968#25454#25805#20316
            TabOrder = 0
            object SYSMngForm_Button4: TButton
              Left = 65
              Top = 24
              Width = 75
              Height = 25
              Caption = #20462'  '#25913
              TabOrder = 0
              OnClick = SYSMngForm_Button4Click
            end
            object SYSMngForm_Button13: TButton
              Left = 65
              Top = 104
              Width = 75
              Height = 25
              Caption = #21462'  '#28040
              TabOrder = 1
              OnClick = SYSMngForm_Button13Click
            end
            object SYSMngForm_Button14: TButton
              Left = 65
              Top = 64
              Width = 75
              Height = 25
              Caption = #28155'  '#21152
              TabOrder = 2
              OnClick = SYSMngForm_Button14Click
            end
            object SYSMngForm_Button15: TButton
              Left = 66
              Top = 144
              Width = 75
              Height = 25
              Caption = '<<'#36820#22238
              TabOrder = 3
              OnClick = SYSMngForm_Button15Click
            end
            object SYSMngForm_Button0: TButton
              Left = 120
              Top = 192
              Width = 75
              Height = 25
              Caption = #21024#38500
              TabOrder = 4
              Visible = False
              OnClick = SYSMngForm_Button0Click
            end
          end
          object SMF_AddPST_DBGrid: TDBGrid
            Left = 208
            Top = 16
            Width = 426
            Height = 302
            Align = alCustom
            DataSource = SMF_AddPST_DataSource
            ParentShowHint = False
            ReadOnly = True
            ShowHint = True
            TabOrder = 1
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            Columns = <
              item
                Alignment = taCenter
                Expanded = False
                FieldName = 'EmployeePosition'
                Title.Alignment = taCenter
                Title.Caption = #32844#20301#21517#31216
                Width = 240
                Visible = True
              end
              item
                Alignment = taCenter
                Expanded = False
                FieldName = 'EmployeeSalary'
                Title.Alignment = taCenter
                Title.Caption = #24037#36164
                Width = 178
                Visible = True
              end>
          end
          object GroupBox3: TGroupBox
            Left = 8
            Top = 43
            Width = 185
            Height = 153
            BiDiMode = bdRightToLeft
            Caption = #25968#25454#26174#31034
            ParentBiDiMode = False
            TabOrder = 2
            object Label4: TLabel
              Left = 3
              Top = 44
              Width = 60
              Height = 13
              Caption = #32844#20301#21517#31216#65306
            end
            object Label5: TLabel
              Left = 8
              Top = 96
              Width = 54
              Height = 13
              Caption = #24037'      '#36164#65306
            end
            object SYSMngForm_DBEdit2: TDBEdit
              Left = 64
              Top = 42
              Width = 121
              Height = 21
              AutoSelect = False
              AutoSize = False
              BiDiMode = bdRightToLeft
              DataField = 'EmployeePosition'
              DataSource = SMF_AddPST_DataSource
              ParentBiDiMode = False
              TabOrder = 0
              OnChange = SYSMngForm_DBEdit2Change
            end
            object SYSMngForm_DBEdit3: TDBEdit
              Left = 64
              Top = 95
              Width = 121
              Height = 21
              AutoSelect = False
              AutoSize = False
              BiDiMode = bdRightToLeft
              DataField = 'EmployeeSalary'
              DataSource = SMF_AddPST_DataSource
              ParentBiDiMode = False
              TabOrder = 1
            end
          end
          object SYSMngForm_DBNavigator1: TDBNavigator
            Left = 392
            Top = 160
            Width = 224
            Height = 25
            DataSource = SMF_AddPST_DataSource
            VisibleButtons = [nbInsert, nbDelete, nbPost, nbCancel]
            TabOrder = 3
            Visible = False
          end
        end
      end
      object TabSheet4: TTabSheet
        Caption = #31995#32479#25968#25454#22791#20221
        ImageIndex = 3
        object GroupBox4: TGroupBox
          Left = 120
          Top = 72
          Width = 433
          Height = 161
          TabOrder = 0
          object Label18: TLabel
            Left = 88
            Top = 48
            Width = 225
            Height = 20
            Caption = #20320#30830#23450#35201#23558#25152#26377#30340#25968#25454#22791#20221#21527#65311
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
          end
          object Button8: TButton
            Left = 115
            Top = 110
            Width = 75
            Height = 25
            Caption = #30830'  '#23450
            TabOrder = 0
          end
          object Button9: TButton
            Left = 227
            Top = 110
            Width = 75
            Height = 25
            Caption = #12296#12296#36820' '#22238
            TabOrder = 1
          end
        end
      end
      object TabSheet5: TTabSheet
        Caption = #31995#32479#25968#25454#24674#22797
        ImageIndex = 4
        object GroupBox5: TGroupBox
          Left = 128
          Top = 80
          Width = 409
          Height = 145
          TabOrder = 0
          object Label19: TLabel
            Left = 32
            Top = 32
            Width = 353
            Height = 40
            Caption = #20320#30830#23450#35201#24674#22797#21040#20197#21069#30340#25968#25454#21527#65311#36825#26679#29616#22312#30340#25968#25454#23558#19981#20250#20445#23384#12290
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -16
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            WordWrap = True
          end
          object Button10: TButton
            Left = 80
            Top = 104
            Width = 75
            Height = 25
            Caption = #30830'  '#23450
            TabOrder = 0
          end
          object Button11: TButton
            Left = 176
            Top = 104
            Width = 75
            Height = 25
            Caption = #12296#12296#36820' '#22238
            TabOrder = 1
          end
        end
      end
    end
  end
  object SMF_AddEMP_ADOConnection: 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 = 328
    Top = 288
  end
  object SMF_AddEMP_ADOQuery: TADOQuery
    Active = True
    Connection = SMF_AddEMP_ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      
        'from EmployeeTable as E inner join PositionTable as P on E.Posit' +
        'ionId=P.PositionId'
      'order by E.EmployeeName')
    Left = 328
    Top = 320
  end
  object SMF_AddEMP_DataSource: TDataSource
    DataSet = SMF_AddEMP_ADOQuery
    Left = 320
    Top = 360
  end
  object SMF_AddPST_DataSource: TDataSource
    DataSet = SMF_AddPST_ADOQuery
    Left = 528
    Top = 280
  end
  object SMF_AddPST_ADOQuery: TADOQuery
    Active = True
    Connection = SMF_AddEMP_ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select *'
      'from PositionTable')
    Left = 528
    Top = 336
  end
end