Проектирование автоматизированной информационной системы книжного склада
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
TLabel;_Warhouses1: TTable;_Warhouses1: TDataSource;_Warhouses2: TTable;_Warhouses2: TDataSource;: TLabel;_Book: TDBLookupComboBox;_Books1: TTable;_Books1: TDataSource;_Books2: TTable;_Books2: TDataSource;: TBevel;_Item_Amount: TEdit;_Pack_Amount: TEdit;_CloseClick(Sender: TObject);_AddClick(Sender: TObject);(Sender: TObject);
{ Private declarations }
{ Public declarations };_In_Presence: TForm_In_Presence;Presences;
{$R *.DFM}_result_data;_In_Presence do begin_Pack_Amount.Text:=0;_Item_Amount.Text:=0;;;_In_Presence.Button_CloseClick(Sender: TObject);;;_In_Presence.Button_AddClick(Sender: TObject);_Presences.Table_Presences.Last;_Presences.Table_Presences.AppendRecord([_Presences.Table_Presences.FieldByName(id).AsInteger+1,_Pack_Amount.Text,_Item_Amount.Text,_Warhouse.Field.Value,_Book.Field.Value]);
except(В поля формы введены недопустимые данные,
mtError,[mbOK],0);;;_result_data;;_In_Presence.FormCreate(Sender: TObject);_result_data;;._Sale;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Db, DBTables, DBCtrls, ExtCtrls, ComCtrls;_In_Sale = class(TForm): TLabel;: TLabel;: TLabel;_Add: TButton;_Close: TButton;_Warhouse: TDBLookupComboBox;: TLabel;_Warhouse1: TTable;_Warhouse1: TDataSource;_Warhouse2: TTable;_Warhouse2: TDataSource;: TLabel;_Book: TDBLookupComboBox;_Book1: TTable;_Book1: TDataSource;_Book2: TTable;_Book2: TDataSource;: TBevel;_Cost: TEdit;_Amount: TEdit;_Date: TEdit;_CloseClick(Sender: TObject);_AddClick(Sender: TObject);(Sender: TObject);
{ Private declarations }
{ Public declarations };_In_Sale: TForm_In_Sale;Sales;
{$R *.DFM}_result_data;_In_Sale do begin_Date.Text:=01.01.01;_Cost.Text:=0;_Amount.Text:=0;;;_In_Sale.Button_CloseClick(Sender: TObject);;;_In_Sale.Button_AddClick(Sender: TObject);_Sales.Table_Sales.Last;_Sales.Table_Sales.AppendRecord([_Sales.Table_Sales.FieldByName(id).AsInteger+1,(Edit_Date.Text),(Edit_Cost.Text),(Edit_Amount.Text),_Warhouse.Field.Value,_Book.Field.Value]);(Вполяформывведенынедопустимыеданные,,[mbOK],0);;;_result_data;;_In_Sale.FormCreate(Sender: TObject);_result_data;;._Warhouse;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,, Db, DBTables, DBCtrls, ExtCtrls, ComCtrls;_In_Warhouse = class(TForm): TLabel;: TLabel;: TLabel;_Add: TButton;_Close: TButton;: TLabel;: TBevel;_Address: TEdit;_Name: TEdit;_Phone: TEdit;_Manager: TEdit;_CloseClick(Sender: TObject);_AddClick(Sender: TObject);(Sender: TObject);
{ Private declarations }
{ Public declarations };_In_Warhouse: TForm_In_Warhouse;;
{$R *.DFM}_result_data;_In_Warhouse do begin_Name.Text:=Name;_Address.Text:=Address;_Phone.Text:=000-00-00;_Manager.Text:=Manager;;;_In_Warhouse.Button_CloseClick(Sender: TObject);;;_In_Warhouse.Button_AddClick(Sender: TObject);_Warhouses.Table_Warhouses.Last;_Warhouses.Table_Warhouses.AppendRecord([_Warhouses.Table_Warhouses.FieldByName(id).AsInteger+1,_Name.Text,_Address.Text,_Phone.Text,_Manager.Text]);
except(В поля формы введены недопустимые данные,
mtError,[mbOK],0);;;_result_data;;_In_Warhouse.FormCreate(Sender: TObject);_result_data;;
end.