p align="left">NumPanes = 2 Configuration = "(H (1[66] 2))" End Begin PaneConfiguration = 11 NumPanes = 2 Configuration = "(H (4 [60] 2))" End Begin PaneConfiguration = 12 NumPanes = 1 Configuration = "(H (1))" End Begin PaneConfiguration = 13 NumPanes = 1 Configuration = "(V (4))" End Begin PaneConfiguration = 14 NumPanes = 1 Configuration = "(V (2))" End ActivePaneConfig = 0 End Begin DiagramPane = Begin Origin = Top = 0 Left = 0 End Begin Tables = Begin Table = "TB_MEM" Begin Extent = Top = 6 Left = 245 Bottom = 108 Right = 414 End DisplayFlags = 280 TopColumn = 0 End Begin Table = "TB_PROC" Begin Extent = Top = 6 Left = 452 Bottom = 108 Right = 621 End DisplayFlags = 280 TopColumn = 0 End Begin Table = "TB_SPEED" Begin Extent = Top = 108 Left = 245 Bottom = 210 Right = 414 End DisplayFlags = 280 TopColumn = 0 End Begin Table = "TB_HDD" Begin Extent = Top = 108 Left = 452 Bottom = 210 Right = 621 End DisplayFlags = 280 TopColumn = 0 End Begin Table = "TB_MASHIN" Begin Extent = Top = 6 Left = 38 Bottom = 123 Right = 207 End DisplayFlags = 280 TopColumn = 3 End End End Begin SQLPane = End Begin DataPane = Begin ParameterDefaults = "" End End Begin CriteriaPane = Begin ColumnWidths = 11 Column = 1440 Alias = 900 Table = 1170 Output = 720 Append = 1400 NewValue = 1170 SortType = 1350 SortOrder = 1410 GroupBy = 1350 Filter = 1350 Or = 1350 Or = 1350 Or = 135',@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'PR_MASHIN' GO EXEC sys.sp_addextendedproperty @name=N'MS_DiagramPane2', @value=N'0 End End End ',@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'PR_MASHIN' GO EXEC sys.sp_addextendedproperty @name=N'MS_DiagramPaneCount', @value=2,@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'PR_MASHIN' GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO IF NOT EXISTS (SELECT * FROM sys.views WHERE object_id = OBJECT_ID(N'[dbo].[PR_DOGOVOR]')) EXEC dbo.sp_executesql @statement = N'CREATE VIEW [dbo].[PR_DOGOVOR] AS SELECT dbo.TB_KLIENTS.NAIM AS NAIM_KLIENT, dbo.TB_MASHIN.NAIM AS NAIM_MASH, dbo.TB_MASHIN.CENA, dbo.TB_DOGOVOR.Date_zakl, dbo.TB_DOGOVOR.Date_okonch, dbo.TB_DOGOVOR.Stoimost FROM dbo.TB_DOGOVOR INNER JOIN dbo.TB_KLIENTS ON dbo.TB_DOGOVOR.ID_KLIENT = dbo.TB_KLIENTS.ID_KLIENT INNER JOIN dbo.TB_MASHIN ON dbo.TB_DOGOVOR.ID_MASHIN = dbo.TB_MASHIN.ID_MASHIN ' GO EXEC sys.sp_addextendedproperty @name=N'MS_DiagramPane1', @value=N'[0E232FF0-B466-11cf-A24F-00AA00A3EFFF, 1.00] Begin DesignProperties = Begin PaneConfigurations = Begin PaneConfiguration = 0 NumPanes = 4 Configuration = "(H (1[40] 4[20] 2[20] 3))" End Begin PaneConfiguration = 1 NumPanes = 3 Configuration = "(H (1 [50] 4 [25] 3))" End Begin PaneConfiguration = 2 NumPanes = 3 Configuration = "(H (1 [50] 2 [25] 3))" End Begin PaneConfiguration = 3 NumPanes = 3 Configuration = "(H (4 [30] 2 [40] 3))" End Begin PaneConfiguration = 4 NumPanes = 2 Configuration = "(H (1 [56] 3))" End Begin PaneConfiguration = 5 NumPanes = 2 Configuration = "(H (2 [66] 3))" End Begin PaneConfiguration = 6 NumPanes = 2 Configuration = "(H (4 [50] 3))" End Begin PaneConfiguration = 7 NumPanes = 1 Configuration = "(V (3))" End Begin PaneConfiguration = 8 NumPanes = 3 Configuration = "(H (1[56] 4[18] 2))" End Begin PaneConfiguration = 9 NumPanes = 2 Configuration = "(H (1 [75] 4))" End Begin PaneConfiguration = 10 NumPanes = 2 Configuration = "(H (1[66] 2))" End Begin PaneConfiguration = 11 NumPanes = 2 Configuration = "(H (4 [60] 2))" End Begin PaneConfiguration = 12 NumPanes = 1 Configuration = "(H (1))" End Begin PaneConfiguration = 13 NumPanes = 1 Configuration = "(V (4))" End Begin PaneConfiguration = 14 NumPanes = 1 Configuration = "(V (2))" End ActivePaneConfig = 0 End Begin DiagramPane = Begin Origin = Top = 0 Left = 0 End Begin Tables = Begin Table = "TB_MASHIN" Begin Extent = Top = 6 Left = 38 Bottom = 123 Right = 207 End DisplayFlags = 280 TopColumn = 3 End Begin Table = "TB_KLIENTS" Begin Extent = Top = 6 Left = 245 Bottom = 108 Right = 414 End DisplayFlags = 280 TopColumn = 0 End Begin Table = "TB_DOGOVOR" Begin Extent = Top = 6 Left = 452 Bottom = 123 Right = 621 End DisplayFlags = 280 TopColumn = 0 End End End Begin SQLPane = End Begin DataPane = Begin ParameterDefaults = "" End End Begin CriteriaPane = Begin ColumnWidths = 11 Column = 1440 Alias = 900 Table = 1170 Output = 720 Append = 1400 NewValue = 1170 SortType = 1350 SortOrder = 1410 GroupBy = 1350 Filter = 1350 Or = 1350 Or = 1350 Or = 1350 End End End ',@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'PR_DOGOVOR' GO EXEC sys.sp_addextendedproperty @name=N'MS_DiagramPaneCount', @value=1,@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'PR_DOGOVOR' GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO IF NOT EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[PPoisk]') AND type in (N'P', N'PC')) BEGIN EXEC dbo.sp_executesql @statement = N'-- -- Author:<Author,,Name> -- Create date: <Create Date,,> -- Description:<Description,,> CREATE PROCEDURE [dbo].[PPoisk] @p CHAR(10) AS BEGIN SELECT NAIM_MASH, NAIM_MEM, NAIM_SPEED, NAIM_PROC, NAIM_HDD, CENA FROM PR_MASHIN WHERE (NAIM_SPEED = @p) END ' END GO IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_TB_MASHIN_TB_HDD]') AND parent_object_id = OBJECT_ID(N'[dbo].[TB_MASHIN]')) ALTER TABLE [dbo].[TB_MASHIN] WITH CHECK ADD CONSTRAINT [FK_TB_MASHIN_TB_HDD] FOREIGN KEY([ID_HDD]) REFERENCES [dbo].[TB_HDD] ([ID_HDD]) GO IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_TB_MASHIN_TB_MEM]') AND parent_object_id = OBJECT_ID(N'[dbo].[TB_MASHIN]')) ALTER TABLE [dbo].[TB_MASHIN] WITH CHECK ADD CONSTRAINT [FK_TB_MASHIN_TB_MEM] FOREIGN KEY([ID_MEM]) REFERENCES [dbo].[TB_MEM] ([ID_MEM]) GO IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_TB_MASHIN_TB_PROC]') AND parent_object_id = OBJECT_ID(N'[dbo].[TB_MASHIN]')) ALTER TABLE [dbo].[TB_MASHIN] WITH CHECK ADD CONSTRAINT [FK_TB_MASHIN_TB_PROC] FOREIGN KEY([ID_PROC]) REFERENCES [dbo].[TB_PROC] ([ID_PROC]) GO IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_TB_MASHIN_TB_SPEED]') AND parent_object_id = OBJECT_ID(N'[dbo].[TB_MASHIN]')) ALTER TABLE [dbo].[TB_MASHIN] WITH CHECK ADD CONSTRAINT [FK_TB_MASHIN_TB_SPEED] FOREIGN KEY([ID_SPEED]) REFERENCES [dbo].[TB_SPEED] ([ID_SPEED]) GO IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_TB_DOGOVOR_TB_KLIENTS]') AND parent_object_id = OBJECT_ID(N'[dbo].[TB_DOGOVOR]')) ALTER TABLE [dbo].[TB_DOGOVOR] WITH CHECK ADD CONSTRAINT [FK_TB_DOGOVOR_TB_KLIENTS] FOREIGN KEY([ID_KLIENT]) REFERENCES [dbo].[TB_KLIENTS] ([ID_KLIENT]) GO IF NOT EXISTS (SELECT * FROM sys.foreign_keys WHERE object_id = OBJECT_ID(N'[dbo].[FK_TB_DOGOVOR_TB_MASHIN]') AND parent_object_id = OBJECT_ID(N'[dbo].[TB_DOGOVOR]')) ALTER TABLE [dbo].[TB_DOGOVOR] WITH CHECK ADD CONSTRAINT [FK_TB_DOGOVOR_TB_MASHIN] FOREIGN KEY([ID_MASHIN]) REFERENCES [dbo].[TB_MASHIN] ([ID_MASHIN]) 3.1.2 Клиентское приложениеunit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, Menus, ExtCtrls, DBCtrls, StdCtrls; type TFRMMain = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N11: TMenuItem; N21: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; DBGrid1: TDBGrid; procedure N10Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N8Click(Sender: TObject);
Страницы: 1, 2, 3, 4
|