unit5.dfm

是用delphi与sql一块作的

        Width = 680
        Height = 318
        Align = alClient
        DataSource = DataSource1
        PopupMenu = PopupMenu1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21592#24037#22522#26412#20449#24687
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 318
        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
    object TabSheet3: TTabSheet
      Caption = #37096#38376#20449#24687
      ImageIndex = 2
      object DBGrid3: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 318
        Align = alClient
        DataSource = DataSource3
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet4: TTabSheet
      Caption = #20225#19994#24037#36164#21046#24230
      ImageIndex = 3
      object DBGrid4: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 318
        Align = alClient
        DataSource = DataSource4
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet5: TTabSheet
      Caption = #21592#24037#32771#21220
      ImageIndex = 4
      object DBGrid5: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 318
        Align = alClient
        DataSource = DataSource5
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object TabSheet6: TTabSheet
      Caption = #21592#24037#24037#20316#32771#35780
      ImageIndex = 5
      object DBGrid6: TDBGrid
        Left = 0
        Top = 0
        Width = 680
        Height = 318
        Align = alClient
        DataSource = DataSource6
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 32
    Top = 64
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #29992#25143#20449#24687
    Left = 64
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog='#20225#19994#20154#21147#36164#28304#31649#29702#31995#32479
    Provider = 'SQLOLEDB.1'
    Left = 128
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #21592#24037#22522#26412#20449#24687
    Left = 64
    Top = 32
  end
  object ADOTable3: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #37096#38376
    Left = 64
    Top = 64
  end
  object ADOTable4: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #20225#19994#24037#36164#21046#24230
    Left = 96
  end
  object ADOTable5: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #21592#24037#32771#21220
    Left = 96
    Top = 32
  end
  object ADOTable6: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #21592#24037#24037#20316#32771#35780
    Left = 96
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 32
    Top = 32
  end
  object DataSource3: TDataSource
    DataSet = ADOTable3
    Left = 32
  end
  object DataSource4: TDataSource
    DataSet = ADOTable4
    Top = 64
  end
  object DataSource5: TDataSource
    DataSet = ADOTable5
    Top = 32
  end
  object DataSource6: TDataSource
    DataSet = ADOTable6
  end
  object ActionList1: TActionList
    Left = 128
    Top = 40
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = 'DataSetFirst1'
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = 'DataSetPrior1'
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = 'DataSetNext1'
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = 'DataSetLast1'
    end
    object DataSetInsert1: TDataSetInsert
      Category = 'Dataset'
      Caption = 'DataSetInsert1'
    end
    object DataSetDelete1: TDataSetDelete
      Category = 'Dataset'
      Caption = 'DataSetDelete1'
    end
    object DataSetEdit1: TDataSetEdit
      Category = 'Dataset'
      Caption = 'DataSetEdit1'
    end
    object DataSetPost1: TDataSetPost
      Category = 'Dataset'
      Caption = 'DataSetPost1'
    end
    object DataSetCancel1: TDataSetCancel
      Category = 'Dataset'
      Caption = 'DataSetCancel1'
    end
    object DataSetRefresh1: TDataSetRefresh
      Category = 'Dataset'
      Caption = 'DataSetRefresh1'
    end
    object ClientDataSetApply1: TClientDataSetApply
      Category = 'Dataset'
      Caption = 'Apply Updates'
      ImageIndex = 2
      DisplayErrorDlg = False
    end
    object ClientDataSetRevert1: TClientDataSetRevert
      Category = 'Dataset'
      Caption = 'Revert'
      ImageIndex = 1
    end
    object ClientDataSetUndo1: TClientDataSetUndo
      Category = 'Dataset'
      Caption = 'Undo'
      ImageIndex = 0
      FollowChange = False
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 372
    Top = 168
    object N1: TMenuItem
      Action = DataSetEdit1
      Caption = #20462#25913
    end
    object N2: TMenuItem
      Action = DataSetDelete1
      Caption = #21024#38500
    end
    object N3: TMenuItem
      Action = DataSetInsert1
      Caption = #25554#20837
    end
    object N4: TMenuItem
      Action = DataSetPost1
      Caption = #20445#23384
    end
    object N5: TMenuItem
      Action = DataSetRefresh1
      Caption = #21047#26032
    end
    object N6: TMenuItem
      Action = DataSetCancel1
      Caption = #21462#28040
    end
  end
end