Проект и реализация системы автоматизации работы сотрудников бухгалтерии ХК АкБарс
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
+ NumberOfSeason.Text);.Open;.Active := True;;
) Суммарная премия игроков за определенный сезон:
begin.Active := False;.Close;.SQL.Clear;.SQL.Add(
Select sum([премия]) from [Перевод заработной платы]where [Номер сезона]=
+ NumberOfSeason.Text);.Open;.Active := True;;
По номеру игрока выяснить
) Список сезонов, в которых играл определенный игрок:
begin.Active := False;.Close;.SQL.Clear;.SQL.Add(
Select [Код сезона],[Номер игрока],[Фамилия],[Имя],[Отчество] from сезоны,команда where сезоны.[код игрока]=команда.[номер игрока] and команда.[номер игрока]= + Edit1.Text);
ADOQuery1.Open;.Active := True;;
) Количество сезонов, в которых играл определенный игрок:
begin.Active := False;.Close;.SQL.Clear;.SQL.Add(
Select count(*) from сезоны,команда where сезоны.[код игрока]=команда.[номер игрока] and команда.[номер игрока]= + Edit1.Text);
ADOQuery1.Open;.Active := True;;
) Название специализации игрока:
begin
ADOQuery1.Active := False;
ADOQuery1.Close;.SQL.Clear;1.SQL.Add(
Select [Наименование специализации],[Номер игрока],[Фамилия],[Имя],[Отчество] from специализация,команда where специализация.[код специализации]=команда.[номер игрока] and команда.[номер игрока]= + Edit1.Text);
ADOQuery1.Open;.Active := True;;
Листинг модулей
Main;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Spin, Menus, DB, ADODB, Grids, DBGrids, StdCtrls, seasons, players,, Specializ;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TDBGrid;: TADOConnection;: TADOQuery;: TDataSource;: TGroupBox;: TMenuItem;: TButton;: TEdit;: TButton;: TButton;: TButton;: TMenuItem;: TButton;: TEdit;: TButton;: TButton;N1Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender: TObject);SummProdClick(Sender: TObject);KolBilProdClick(Sender: TObject);SumZPClick(Sender: TObject);SumPremClick(Sender: TObject);N4Click(Sender: TObject);Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TMainForm;
{$R *.dfm}TMainForm.SummProdClick(Sender: TObject);((NumberOfSeason.Text = Введите номер сезона) or
(NumberOfSeason.Text = )) then(Введите номер сезона).Active := False;.Close;.SQL.Clear;.SQL.Add(
Select sum([Стоимость билета]) from [Билеты]where [Номер сезона]= +.Text);.Open;.Active := True;;;TMainForm.KolBilProdClick(Sender: TObject);((NumberOfSeason.Text = Введите номер сезона) or
(NumberOfSeason.Text = )) then(Введите номер сезона).Active := False;.Close;.SQL.Clear;.SQL.Add(Select count(*) from [Билеты]where [Номер сезона]= +.Text);.Open;.Active := True;;;TMainForm.SumZPClick(Sender: TObject);((NumberOfSeason.Text = Введите номер сезона) or
(NumberOfSeason.Text = )) then(Введите номер сезона).Active := False;.Close;.SQL.Clear;.SQL.Add(
Select sum([сумма перевода]) from [Перевод заработной платы]where [Номер сезона]=
+ NumberOfSeason.Text);.Open;.Active := True;;;TMainForm.SumPremClick(Sender: TObject);((NumberOfSeason.Text = Введите номер сезона) or
(NumberOfSeason.Text = )) then(Введите номер сезона).Active := False;.Close;.SQL.Clear;.SQL.Add(
Select sum([премия]) from [Перевод заработной платы]where [Номер сезона]=
+ NumberOfSeason.Text);.Open;.Active := True;;;TMainForm.Button1Click(Sender: TObject);((Edit1.Text = ) or (Edit1.Text = Введите номер игрока)) then(Введите номер игрока).Active := False;.Close;.SQL.Clear;.SQL.Add(
Select [Код сезона],[Номер игрока],[Фамилия],[Имя],[Отчество] from сезоны,команда where сезоны.[код игрока]=команда.[номер игрока] and команда.[номер игрока]= + Edit1.Text);
ADOQuery1.Open;.Active := True;;;TMainForm.Button2Click(Sender: TObject);((Edit1.Text = ) or (Edit1.Text = Введите номер игрока)) then(Введите номер игрока).Active := False;.Close;.SQL.Clear;.SQL.Add(
Select count(*) from сезоны,команда where сезоны.[код игрока]=команда.[номер игрока] and команда.[номер игрока]= + Edit1.Text);
ADOQuery1.Open;.Active := True;;;TMainForm.Button3Click(Sender: TObject);((Edit1.Text = ) or (Edit1.Text = Введите номер игрока)) then(Введите номер игрока).Active := False;.Close;.SQL.Clear;.SQL.Add(
Select [Наименование специализации],[Номер игрока],[Фамилия],[Имя],[Отчество] from специализация,команда where специализация.[код специализации]=команда.[номер игрока] and команда.[номер игрока]= + Edit1.Text);
ADOQuery1.Open;.Active := True;;;TMainForm.N1Click(Sender: TObject);.Show;;TMainForm.N2Click(Sender: TObject);.Show;;TMainForm.N3Click(Sender: TObject);.Show;;TMainForm.N4Click(Sender: TObject);.Show;;.DataMod;, Classes, DB, ADODB;= class(TDataModule): TADOConnection;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TDataSource;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;: TADOTable;
{ Private declarations }
{ Public declarations };: TDataModule1;
{$R *.dfm}. unit Players;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ComCtrls, datamod, Grids, DBGrids, ExtCtrls, StdCtrls, Mask, DBCtrls;= class(TForm): TPageControl;
Игроки: TTabSheet;: TGroupBox;: TButton;: TButton;: TButton;
Сезоны: TTabSheet;: TDBGrid;: TGroupBox;: TButton;: TButton;: TButton;: TTabSheet;: TDBGrid;: TGroupBox;: TButton;: TButton;: TButton;: TDBGrid;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);Button6Click(Sender: TObject);Button7Click(Sender: TObject);Button8Click(Sender: TObject);Button9Click(Sender: TObject);Button10Click(Sender: TObject);Button12Click(Sender: TObject);Button11Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm2;
{$R *.dfm}TForm2.Button10Click(Sender: TObject);.TComand.Append;;TForm2.Button11Click(Sender: TObject);Datamodule1.TComand.modified then.TComand.Post;;TForm2.Button12Click(Sender: TObject);.TComand.Delete;(Таблица пуста!!!);;;TForm2.Button1Click(Sender: TObject);.TZarplata.Append;;TForm2.Button2Click(Sender: TObject);.TZarplata.Delete;(Таблица пуста!!!);;;TForm2.Button3Click(Sender: TObject);Datamodule1.TZarplata.modified then.TZarplata.Post;;TForm2.Button4Click(Sender: TObject);.TSpec.Append;;TForm2.Button5Click(Sender: TObject);.TSpec.Delete;(Таблица пуста!!!);;;TForm2.Button6Click(Sender: TObject);Datamodule1.TSpec.modified then.TSpec.Post;;TForm2.Button7Click(Sender: TObject);.TSeasons.Append;;TForm2.Button8Click(Sender: TObject);.TSeasons.Delete;(Таблица пуста!!!);;;TForm2.Button9Click(Sender: TObject);Datamodule1.TSeasons.modified then.TSeasons.Post;;. unit Seasons;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, datamod, Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB, ADODB;= class(TForm): TDBGrid;: TButton;: TButton;: TGroupBox;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TADOConnection;: TADOQuery;: TDataSource;: TEdit;: TEdit;: TEdit;: TEdit;: TEdit;: TButton;: TButton;Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);Button1Click(Sender: TObject);Button5Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;
)and(Edit2.Text ) and
)and(Edit5.Text