Проект и реализация системы автоматизации работы сотрудников бухгалтерии ХК АкБарс
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
9;)) then.Close;.SQL.Clear;.SQL.Text := (
insert into сезон([Номер сезона],[Название сезона],[Дата начала сезона],[Дата конца сезона],[Бюджет клуба]) values( + Edit1.Text + , + Edit2.Text + , + char(39) + Edit3.Text + char(39) + , + char(39) + Edit4.Text + char(39) + , + char(39) + Edit5.Text + char(39) + ));
ADOQuery1.Execsql;(Ошибка,вы заполнили не все поля!!!);
end;TForm1.Button5Click(Sender: TObject);.TSeason.Close;.TSeason.open;;. unit Specializ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, datamod, Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB, ADODB;= class(TForm): TDBGrid;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TADOConnection;: TADOQuery;: TEdit;: TEdit;: TEdit;: TButton;: TDataSource;: TButton;: TButton;Button3Click(Sender: TObject);Button2Click(Sender: TObject);Button4Click(Sender: TObject);Button1Click(Sender: TObject);Button5Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TSpecial;
)and(Edit2.Text )) then.close;.SQL.Clear;.SQL.Text := (
insert into специализация([Код специализации],[Наименование специализации],[Информация]) values( + Edit1.Text + , + char(39) + Edit2.Text + char(39) + , + char(39) + Edit3.Text + char(39) + ));
ADOQuery1.Execsql;(Ошибка,вы заполнили не все поля!!!);
end;TSpecial.Button5Click(Sender: TObject);.Text := ;.Text := ;.Text := ;;. unit Stadium;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, datamod, Grids, DBGrids, StdCtrls, Mask, DBCtrls;= class(TForm): TPageControl;: TTabSheet;: TTabSheet;: TTabSheet;: TDBGrid;: TDBGrid;: TDBGrid;: TGroupBox;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TButton;: TButton;: TGroupBox;: TButton;: TButton;: TButton;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button6Click(Sender: TObject);Button5Click(Sender: TObject);Button4Click(Sender: TObject);Button8Click(Sender: TObject);Button7Click(Sender: TObject);Button9Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm3;
{$R *.dfm}TForm3.Button1Click(Sender: TObject);.TStadium.Append;;TForm3.Button2Click(Sender: TObject);.TStadium.Delete;(Таблица пуста!!!);;;TForm3.Button3Click(Sender: TObject);datamodule1.TStadium.Modified then.TStadium.Post;;TForm3.Button4Click(Sender: TObject);datamodule1.TTribun.Modified then.TTribun.Post;;TForm3.Button5Click(Sender: TObject);.TTribun.Delete;(Таблица пуста!!!);;;TForm3.Button6Click(Sender: TObject);.TTribun.Append;;TForm3.Button7Click(Sender: TObject);.TTickets.Delete;(Таблица пуста!!!);;;TForm3.Button8Click(Sender: TObject);.TTickets.Append;;TForm3.Button9Click(Sender: TObject);datamodule1.TTickets.Modified then.TTickets.Post;;.