Разработка базы данных информационной системы «Учет оплаты за произведенные услуги организации».

[uList]--PRINT (N'Создать таблицу [dbo].[uList]')GOCREATE TABLE dbo.uList (id_ul int IDENTITY,id_kn int NULL,ulNamevarchar(50) NULL,ulCost money NULL, CONSTRAINT PK_uList PRIMARY KEY CLUSTERED (id_ul))ON [PRIMARY]GO---- Создатьиндекс [IX_Relationship1] дляобъектатипатаблица [dbo].[uList]--PRINT (N'Создатьиндекс [IX_Relationship1] дляобъектатипатаблица [dbo].[uList]')GOCREATE INDEX IX_Relationship1 ON dbo.uList (id_kn) ON [PRIMARY]GO---- Создатьтаблицу [dbo].[kind]--PRINT (N'Создатьтаблицу [dbo].[kind]')GOCREATE TABLE dbo.kind (id_kn int IDENTITY,knNamevarchar(50) NULL, CONSTRAINT PK_kind PRIMARY KEY CLUSTERED (id_kn))ON [PRIMARY]GO---- Создатьтаблицу [dbo].[Client]--PRINT (N'Создатьтаблицу [dbo].[Client]')GOCREATE TABLE dbo.Client (id_cl int IDENTITY,clContactvarchar(50) NULL,clOrg bit NULL,clOrgNamevarchar(50) NULL,clAdresvarchar(150) NULL,clPhonevarchar(20) NULL, CONSTRAINT PK_Client PRIMARY KEY CLUSTERED (id_cl))ON [PRIMARY]GO---- Создатьтаблицу [dbo].[contract]--PRINT (N'Создатьтаблицу [dbo].[contract]')GOCREATE TABLE dbo.contract (dogNo int IDENTITY,dogDate date NULL,dogSrok date NULL,id_cl int NULL, CONSTRAINT PK_contract PRIMARY KEY CLUSTERED (dogNo))ON [PRIMARY]GO---- Создатьиндекс [IX_Relationship2] дляобъектатипатаблица [dbo].[contract]--PRINT (N'Создатьиндекс [IX_Relationship2] дляобъектатипатаблица [dbo].[contract]')GOCREATE INDEX IX_Relationship2 ON dbo.contract (id_cl) ON [PRIMARY]GOSET QUOTED_IDENTIFIER, ANSI_NULLS ONGO---- Создать процедуру [dbo].[dogSel]--GOPRINT (N'Создатьпроцедуру [dbo].[dogSel]')GOCREATE OR ALTER PROCEDURE dbo.dogSelAS SELECTc.dogNo,c.dogDate,c.dogSrok,c.id_cl,c1.clContact,c1.clOrg,c1.clOrgName FROM contract c LEFT JOIN Client c1 ON c.id_cl = c1.id_cl WHERE c.dogSrok > GETDATE() GO---- Создатьпроцедуру [dbo].[dogIns]--GOPRINT (N'Создатьпроцедуру [dbo].[dogIns]')GOCREATE OR ALTER PROCEDURE dbo.dogIns @dogDate DATE, @dogSrok DATE, @id_cl INT, @retVal INT OUTAS INSERT INTO contract (dogDate, dogSrok, id_cl) VALUES (@dogDate, @dogSrok, @id_cl); SET @retVal = SCOPE_IDENTITY();GO---- Создатьпроцедуру [dbo].[dogArch]--GOPRINT (N'Создатьпроцедуру [dbo].[dogArch]')GOCREATE OR ALTER PROCEDURE dbo.dogArch @dtBegin DATE, @dtEnd DATEAS SELECTc.dogNo,c.dogDate,c.dogSrok,c.id_cl,c1.clContact,c1.clOrg,c1.clOrgName FROM contract c LEFT JOIN Client c1 ON c.id_cl = c1.id_cl WHERE c.dogDate BETWEEN @dtBegin AND @dtEndGO---- Создать таблицу [dbo].[workDog]--PRINT (N'Создатьтаблицу [dbo].[workDog]')GOCREATE TABLE dbo.workDog (dogNo int NOT NULL,id_ul int NOT NULL,wdCost money NULL,wdDate date NULL, CONSTRAINT PK_workDog PRIMARY KEY CLUSTERED (dogNo, id_ul))ON [PRIMARY]GO---- Создатьиндекс [IX_Relationship3] дляобъектатипатаблица [dbo].[workDog]--PRINT (N'Создатьиндекс [IX_Relationship3] дляобъектатипатаблица [dbo].[workDog]')GOCREATE INDEX IX_Relationship3 ON dbo.workDog (dogNo) ON [PRIMARY]GO---- Создатьиндекс [IX_Relationship4] дляобъектатипатаблица [dbo].[workDog]--PRINT (N'Создатьиндекс [IX_Relationship4] дляобъектатипатаблица [dbo].[workDog]')GOCREATE INDEX IX_Relationship4 ON dbo.workDog (id_ul) ON [PRIMARY]GO---- Создатьпроцедуру [dbo].[workListIns]--GOPRINT (N'Создатьпроцедуру [dbo].[workListIns]')GOCREATE OR ALTER PROCEDURE dbo.workListIns @dogNo INT, @id_ul INT, @wdCost MONEYAS INSERT INTO workDog (dogNo, id_ul, wdCost) VALUES (@dogNo, @id_ul, @wdCost);GO---- Создать процедуру [dbo].[uslSel]--GOPRINT (N'Создатьпроцедуру [dbo].[uslSel]')GOCREATE OR ALTER PROCEDURE dbo.uslSel @dogNo INTAS SELECTd.dogNo,d.id_ul,d.wdCost,d.wdDate,l.ulName FROM workDog d LEFT JOIN uList l ON d.id_ul = l.id_ul WHERE d.dogNo = @dogNoGO---- Создатьпроцедуру [dbo].[dogDel]--GOPRINT (N'Создатьпроцедуру [dbo].[dogDel]')GOCREATE OR ALTER PROCEDURE dbo.dogDel @dogNo INTAS BEGIN TRYBEGIN TRANSACTIONDELETE FROM workDog WHERE dogNo = @dogNo DELETE FROM contract WHERE dogNo = @dogNoCOMMIT TRANSACTION END TRY BEGIN CATCHPRINT 'Error ' + CONVERT(varchar(50), ERROR_NUMBER()) +', Severity ' + CONVERT(varchar(5), ERROR_SEVERITY()) +', State ' + CONVERT(varchar(5), ERROR_STATE()) +', Line ' + CONVERT(varchar(5), ERROR_LINE())PRINT ERROR_MESSAGE();IF XACT_STATE() <> 0 BEGINROLLBACK TRANSACTIONEND END CATCH;GO---- Создатьпроцедуру [dbo].[chkUsl]--GOPRINT (N'Создатьпроцедуру [dbo].[chkUsl]')GOCREATE OR ALTER PROCEDURE dbo.chkUsl @dogNo INT, @id_ul INTAS UPDATE workDog SET wdDate = GETDATE() WHERE dogNo = @dogNo AND id_ul = @id_ul; GOUSE prodUslugiGOIF DB_NAME() <> N'prodUslugi' SET NOEXEC ONGO---- Создать внешний ключ [Relationship1] для объекта типа таблица [dbo].[uList]--PRINT (N'Создать внешний ключ [Relationship1] для объекта типа таблица [dbo].[uList]')GOALTER TABLE dbo.uList ADD CONSTRAINT Relationship1 FOREIGN KEY (id_kn) REFERENCES dbo.kind (id_kn)GO---- Создать внешний ключ [Relationship2] для объекта типа таблица [dbo].[contract]--PRINT (N'Создать внешний ключ [Relationship2] для объекта типа таблица [dbo].[contract]')GOALTER TABLE dbo.contract ADD CONSTRAINT Relationship2 FOREIGN KEY (id_cl) REFERENCES dbo.Client (id_cl)GO---- Создать внешний ключ [Relationship3] для объекта типа таблица [dbo].[workDog]--PRINT (N'Создать внешний ключ [Relationship3] для объекта типа таблица [dbo].[workDog]')GOALTER TABLE dbo.workDog ADD CONSTRAINT Relationship3 FOREIGN KEY (dogNo) REFERENCES dbo.contract (dogNo)GO---- Создать внешний ключ [Relationship4] для объекта типа таблица [dbo].[workDog]--PRINT (N'Создать внешний ключ [Relationship4] для объекта типа таблица [dbo].[workDog]')GOALTER TABLE dbo.workDog ADD CONSTRAINT Relationship4 FOREIGN KEY (id_ul) REFERENCES dbo.uList (id_ul)GOSET NOEXEC OFFGOПриложениеБ.using System;usingSystem.Collections.Generic;usingSystem.ComponentModel;usingSystem.Data;usingSystem.Drawing;usingSystem.Linq;usingSystem.Text;usingSystem.Threading.Tasks;usingSystem.Windows.Forms;namespaceprodUslugi{publicpartialclassForm1 : Form {publicForm1() {InitializeComponent(); }privatevoidMExit_Click(object sender, EventArgs e) {Application.Exit(); }privatevoidMClients_Click(object sender, EventArgs e) {fClientsfrm = newfClients();frm.Text = mClients.Text;frm.MdiParent = this;frm.Show(); }privatevoidMUslugi_Click(object sender, EventArgs e) {fUslugifrm = newfUslugi();frm.Text = mUslugi.Text;frm.MdiParent = this;frm.Show(); }privatevoidMKind_Click(object sender, EventArgs e) {fKindfrm = newfKind();frm.Text = mKind.Text;frm.MdiParent = this;frm.Show(); }privatevoidMDog_Click(object sender, EventArgs e) {fDogfrm = newfDog();frm.Text = mDog.Text;frm.MdiParent = this;frm.Show(); }privatevoidMArchiv_Click(object sender, EventArgs e) {fArchfrm = newfArch();frm.Text = mArchiv.Text;frm.MdiParent = this;frm.Show();} }}using System;usingSystem.Collections.Generic;usingSystem.ComponentModel;usingSystem.Data;usingSystem.Drawing;usingSystem.Linq;usingSystem.Text;usingSystem.Threading.Tasks;usingSystem.Windows.Forms;usingSystem.Data.SqlClient;namespaceprodUslugi{publicpartialclassfDogAdd : Form {publicfDogAdd() {InitializeComponent(); }privatevoidFDogAdd_Load(object sender, EventArgs e){// TODO: данная строка кода позволяет загрузить данные в таблицу "uslugiDataSet.uList". При необходимости она может быть перемещена или удалена.this.uListTableAdapter.Fill(this.uslugiDataSet.uList);// TODO: данная строка кода позволяет загрузить данные в таблицу "clientDataSet.Client". При необходимости она может быть перемещена или удалена.this.clientTableAdapter.Fill(this.clientDataSet.Client);dtDog.Value = DateTime.Now.Date;dtSrok.Value = dtDog.Value.AddMonths(1); }privatevoid Button1_Click(object sender, EventArgs e) {intidul = (int)(uListBindingSource.CurrentasDataRowView)["id_ul"];stringulName = (uListBindingSource.CurrentasDataRowView)["ulName"].ToString();decimalulCost = (decimal)(uListBindingSource.CurrentasDataRowView)["ulCost"];grData.Rows.Add(idul, ulName, ulCost); }privatevoid Button2_Click(object sender, EventArgs e) {if (grData.CurrentRow == null) return;grData.Rows.Remove(grData.CurrentRow); }privatevoid Button3_Click(object sender, EventArgs e) {SqlCommandcmd = newSqlCommand() { Connection = newSqlConnection(Properties.Settings.Default.prodUslugiConnectionString),CommandText = "dogIns",CommandType = CommandType.StoredProcedure };cmd.Parameters.AddWithValue("@dogDate", dtDog.Value.Date);cmd.Parameters.AddWithValue("@dogSrok", dtSrok.Value.Date);cmd.Parameters.AddWithValue("@id_cl", cbClient.SelectedValue);SqlParameterretVal = newSqlParameter("@retVal", SqlDbType.Int);retVal.Direction = ParameterDirection.Output;retVal.Value = 0;cmd.Parameters.Add(retVal);cmd.Connection.Open();cmd.ExecuteNonQuery();cmd.Connection.Close();SqlCommandcmdUl = newSqlCommand() { Connection = newSqlConnection(Properties.Settings.Default.prodUslugiConnectionString),CommandText = "workListIns",CommandType = CommandType.StoredProcedure };foreach(DataGridViewRowdringrData.Rows) {cmdUl.Parameters.Clear();cmdUl.Parameters.AddWithValue("@dogNo", retVal.Value);cmdUl.Parameters.AddWithValue("@id_ul", dr.Cells["id_ul"].Value);cmdUl.Parameters.AddWithValue("@wdCost", dr.Cells["ulCost"].Value);cmdUl.Connection.Open();cmdUl.ExecuteNonQuery();cmdUl.Connection.Close(); } } }}