Проектирование автоматизированной информационной системы книжного склада
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
n_CloseClick(Sender: TObject);;;_QGain.Button_ExecuteClick(Sender: TObject);.Active:=false;.ParamByName(first_date).AsDate:=DateTimePicker_Start.Date;.ParamByName(last_date).AsDate:=DateTimePicker_Last.Date;.Active:=true;error: EDatabaseError do begin
MessageDlg(При выполнении запроса произошла ошибка:+#13+#13+
error.Message ,mtError,[mbOK],0);;;;.;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Grids, DBGrids, Db, DBTables, DBCtrls;_QAuthor = class(TForm): TQuery;: TDataSource;: TDBGrid;_Close: TButton;_Execute: TButton;: TDBLookupComboBox;_Books1: TTable;_Books1: TDataSource;: TLabel;_CloseClick(Sender: TObject);_ExecuteClick(Sender: TObject);
{ Private declarations }
{ Public declarations };_QAuthor: TForm_QAuthor;
{$R *.DFM}_QAuthor.Button_CloseClick(Sender: TObject);;;_QAuthor.Button_ExecuteClick(Sender: TObject);.Active:=false;.ParamByName(author).AsString:=DBLookUpComboBox1.Text;.Active:=true;error: EDatabaseError do begin
MessageDlg(При выполнении запроса произошла ошибка:+#13+#13+
error.Message ,mtError,[mbOK],0);;;;.;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Grids, DBGrids, Db, DBTables, DBCtrls;_QKnowledge = class(TForm): TQuery;: TDataSource;: TDBGrid;_Close: TButton;_Execute: TButton;: TDBLookupComboBox;_Books1: TTable;_Books1: TDataSource;: TLabel;_CloseClick(Sender: TObject);_ExecuteClick(Sender: TObject);
{ Private declarations }
{ Public declarations };_QKnowledge: TForm_QKnowledge;
{$R *.DFM}_QKnowledge.Button_CloseClick(Sender: TObject);;;_QKnowledge.Button_ExecuteClick(Sender: TObject);
//закрываетсязапрос.Active:=false;
//устанавливаетсяпараметр "Областьзнаний".ParamByName(know).AsString:=DBLookUpComboBox1.Text;
//открывается запрос.Active:=true;
//в случае ошибки базы данных выводится сообщение об ошибке
on error: EDatabaseError do begin(Привыполнениизапросапроизошлаошибка:+#13+#13+.Message ,mtError,[mbOK],0);;;;_Cost;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, DBCtrls, DBTables, Db, Grids, DBGrids;_QSale_Cost = class(TForm): TDBGrid;: TQuery;: TDataSource;_Books1: TTable;_Books1: TDataSource;: TDBLookupComboBox;_Execute: TButton;_Close: TButton;: TLabel;_CloseClick(Sender: TObject);_ExecuteClick(Sender: TObject);
{ Private declarations }
{ Public declarations };_QSale_Cost: TForm_QSale_Cost;
{$R *.DFM}_QSale_Cost.Button_CloseClick(Sender: TObject);;;_QSale_Cost.Button_ExecuteClick(Sender: TObject);.Active:=false;.Params[0].Value:=DBLookUpComboBox1.KeyValue;.Active:=true;error: EDatabaseError do begin
MessageDlg(При выполнении запроса произошла ошибка:+#13+#13+
error.Message ,mtError,[mbOK],0);;;;.Sales;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;_Sales = class(TForm)_Sales: TTable;_Sales: TDataSource;: TDBGrid;: TDBNavigator;_Close: TButton;_CloseClick(Sender: TObject);_SalesBeforeDelete(DataSet: TDataSet);
{ Private declarations }
{ Public declarations };_Sales: TForm_Sales;
{$R *.DFM}_Sales.Button_CloseClick(Sender: TObject);;;_Sales.Table_SalesBeforeDelete(DataSet: TDataSet);
begin(Текущая запись и все связанные с ней записи будут удалены.
+#13+Продолжить?,,[mbOK,mbCancel],0)=mrCancel then begin;;;._Query;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Grids, DBGrids, Db, DBTables;_SQL_Query = class(TForm): TQuery;: TDataSource;_Execute: TButton;_Clear: TButton;_Close: TButton;: TGroupBox;: TMemo;: TGroupBox;: TDBGrid;_Save: TButton;_Load: TButton;: TOpenDialog;: TSaveDialog;_ExecuteClick(Sender: TObject);_ClearClick(Sender: TObject);_CloseClick(Sender: TObject);_LoadClick(Sender: TObject);_SaveClick(Sender: TObject);
{ Private declarations }
{ Public declarations };_SQL_Query: TForm_SQL_Query;
{$R *.DFM}_SQL_Query.Button_ExecuteClick(Sender: TObject);
//присваиваетсятекст SQL-запроса_SQL_Query.Query1.SQL:=Form_SQL_Query.Memo1.Lines;
//закрываетсязапрос_SQL_Query.Query1.Active:=false;
//открываетсязапрос_SQL_Query.Query1.Active:=true;
except
//в случае ошибки базы данных выводится сообщение об ошибке
on error: EDatabaseError do begin(Привыполнениизапросапроизошлаошибка:+#13+#13+.Message ,mtError,[mbOK],0);;;;_SQL_Query.Button_ClearClick(Sender: TObject);_SQL_Query.Memo1.Lines.Clear;;_SQL_Query.Button_CloseClick(Sender: TObject);;;_SQL_Query.Button_LoadClick(Sender: TObject);OpenDialog1.Execute then begin.Lines.LoadFromFile(OpenDialog1.FileName);;;_SQL_Query.Button_SaveClick(Sender: TObject);SaveDialog1.Execute then begin.Lines.SaveToFile(ChangeFileExt(SaveDialog1.FileName,.sql));;;.;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;_Warhouses = class(TForm)_Warhouses: TTable;_Warhouses: TDataSource;: TDBGrid;: TDBNavigator;_Close: TButton;_Delete: TQuery;_CloseClick(Sender: TObject);_WarhousesBeforeDelete(DataSet: TDataSet);
{ Private declarations }
{ Public declarations };_Warhouses: TForm_Warhouses;Presences, Sales;
{$R *.DFM}_Warhouses.Button_CloseClick(Sender: TObject);;;_Warhouses.Table_WarhousesBeforeDelete(DataSet: TDataSet);
var: string;
//подтверждение удаления записи(Текущая запись и все связанные с ней записи будут удалены.
+#13+Продолжить?,,[mbOK,mbCancel],0)=mrCancel then begin
Abort;;
//закрытие запроса на удаление_Delete.Close;
//получение ключа удаляемой записи
id:=Table_Warhouses.FieldByName(id).AsString;
//очищение SQL-запроса_Delete.SQL.Clear;
//добавлениетекста SQL-запроса_Delete.SQL.Add(DELETE FROM presences);_Delete.SQL.Add(WHERE presences.id_warhouse=+id);
//выполнение запроса_Delete.ExecSQL;
Query_Delete.SQL.Clear;_Delete.SQL.Add(DELETE FROM sales);_Delete.SQL.Add(WHERE sales.id_warhouse=+id);
Query_Delete.ExecSQL;
//обновление данных в окнах программы
Form_Presences.Table_Presences.Close;_Presences.Table_Presences.Open;_Sales.Table_Sales.Close;_Sales.Table_Sales.Open;;.Books;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;_Books = class(TForm)_Books: TTable;_Books: TDataSource;: TDBGrid;: TDBNavigator;_Close: TButton;_Delete: TQuery;_CloseClick(Sender: TObject);_BooksBeforeDelete(DataSet: TDataSet);(Sender: TObject);
{ Private declarations }
{ Public declarations };_Books: TForm_Books;Presences, Sales;
{$R *.DFM}_Books.Button_CloseClick(Sender: TObject);;;_Books.Table_BooksBeforeDelete(DataSet: TDataSet);
var: string;
(Текущая запись и все связанные с ней записи будут удалены.
+#13+Продолжить?,,[mbOK,mbCancel],0)=mrCancel then begin;;_Delete.Close;:=Table_Books.FieldByName(id).AsString;_Delete.SQL.Clear;_Delete.SQL.Add(DELETE FROM presences);_Delete.SQL.Add(WHERE presences.id_book=+id);_Delete.ExecSQL;_Delete.SQL.Clear;_Delete.SQL.Add(DELETE FROM sales);_Delete.SQL.Add(WHERE sales.id_book=+id);_Delete.ExecSQL;_Presences.Table_Presences.Close;_Presences.Table_Presences.Open;_Sales.Table_Sales.Close;_Sales.Table_Sales.Open;;_Books.FormCreate(Sender: TObject);;._Book;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Db, DBTables, DBCtrls, ExtCtrls, ComCtrls;_In_Book = class(TForm): TLabel;: TLabel;: TLabel;_Add: TButton;_Close: TButton;: TLabel;: TLabel;: TBevel;_Author: TEdit;_Circuation: TEdit;_Year: TEdit;_Publisher: TEdit;_Name: TEdit;: TLabel;: TLabel;_Knowledge: TEdit;_Cost: TEdit;_CloseClick(Sender: TObject);_AddClick(Sender: TObject);(Sender: TObject);
{ Private declarations }
{ Public declarations };_In_Book: TForm_In_Book;Books;
{$R *.DFM}_result_data;_In_Book do begin_Name.Text:=Name;_Author.Text:=Author;_Publisher.Text:=Publisher;_Year.Text:=1900;_Circuation.Text:=0;_Knowledge.Text:=Knowledge;_Cost.Text:=0;;;_In_Book.Button_CloseClick(Sender: TObject);;;_In_Book.Button_AddClick(Sender: TObject);_Books.Table_Books.Last;_Books.Table_Books.AppendRecord([_Books.Table_Books.FieldByName(id).AsInteger+1,_Name.Text,_Author.Text,_Publisher.Text,(Edit_Year.Text),(Edit_Circuation.Text),_Knowledge.Text,(Edit_Cost.Text)]);(Вполяформывведенынедопустимыеданные,,[mbOK],0);;;_result_data;;_In_Book.FormCreate(Sender: TObject);_result_data;;
._Presence;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Db, DBTables, DBCtrls, ExtCtrls, ComCtrls;_In_Presence = class(TForm): TLabel;: TLabel;_Add: TButton;_Close: TButton;_Warhouse: TDBLookupComboBox;: