Расчет заработной платы

Фамилия, имя, отчество: Дильмухаметов Игорь Владимирович

Тема курсового проекта: «Расчет заработной платы».

Текст задания:

     При выполнении курсового проекта должны быть решены следующие задачи:

1)Выполнить проектирование  базы данных;

2)Создать и заполнить базы данных;

3)Обработать  таблицы, согласно условию и  получить выходные документы.

В результате выполнения курсового проекта должно быть представлено:

Введение

Постановка задачи

Экспериментальный раздел

Заключение

Приложения

Список литературы 

Задание к выполнению получил <<__>> _____2011г.

Студент Дильмухаметов Игорь Владимирович

Срок окончания <<__>> _____2011г.

Руководитель  курсового проекта:_________________/Е.И  Марковникова

Задание рассмотрено  на заседании цикловой комиссии информатики

<<__>> _____2011г.

Председатель  цикловой комиссии информатики:  __________О.В  Фатхулова  
 

 

Код программы 

Код модуля Estimate.exe программы

program Estimate.exe; 

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1}, // окно «Сотрудники»

  Unit2 in 'Unit2.pas' {Form2},//добавление в таблицу «Сотрудники»

  Unit3 in 'Unit3.pas' {Form3},//редактирование таблицы «Сотрудники»

  Unit4 in 'Unit4.pas' {Form4},// окно «Рабочие дни»

  Unit5 in 'Unit5.pas' {Form5},// добавление/редактирование в таблице «Рабочие дни»

  Unit6 in 'Unit6.pas' {Form6},// окно «Начисление и удержание»

  Unit7 in 'Unit7.pas' {Form7},// добавление/редактирование в таблице «Начисление и удержание»

  Unit8 in 'Unit8.pas' {Form8},//окно «Учетная ведомость»

  Unit9 in 'Unit9.pas' {Form9}//главная форма, окно «Вход»; 

{$R *.res} 

begin

  Application.Initialize;

  Application.Title := 'Estimate';

  Application.CreateForm(TForm9, Form9);

  Application.CreateForm(TForm1, Form1);

  Application.CreateForm(TForm2, Form2);

  Application.CreateForm(TForm3, Form3);

  Application.CreateForm(TForm4, Form4);

  Application.CreateForm(TForm5, Form5);

  Application.CreateForm(TForm6, Form6);

  Application.CreateForm(TForm7, Form7);

  Application.CreateForm(TForm8, Form8);

  Application.Run; .// Запуск программы Estimate

end. 

Код модуля Unit 9 

unit Unit9; // Модуль окна «Вход» 

interface

// подключаемые библеотеки

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ExtCtrls, Mask;

Type // описание объектов

  TForm9 = class(TForm)

    ComboBox1: TComboBox;

    BitBtn1: TBitBtn;

    MaskEdit1: TMaskEdit;

    Label1: TLabel;

    Label2: TLabel;

    procedure BitBtn1Click(Sender: TObject);

    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);

    procedure ComboBox1Change(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form9: TForm9; 

implementation 

uses Unit4, Unit6, Unit1; // подключаемые модули 

{$R *.dfm} 

//Кнопка вход

procedure TForm9.BitBtn1Click(Sender: TObject);

begin

// Проверка на  заполнение полей

if Combobox1.Text = 'Выберете' then

begin

ShowMessage('Выберете учетную запись');

exit;

end;

if MaskEdit1.Text = '' then

begin

  ShowMessage('Введите  пароль!');

  exit;

end;

// Проверка на  правильность пароля

if MaskEdit1.Text = '1' then

begin

  Form1.Panel1.Enabled:=true;

  Form4.Panel1.Enabled:=true;

  Form6.Panel1.Enabled:=true;

  Form9.Hide;

  Form1.Show;

end

else ShowMessage('Не правильный пароль!'+#13+'Посмотрите правильно ли выбранная раскладка клавиатуры.');

end; 
 

procedure TForm9.ComboBox1KeyPress(Sender: TObject; var Key: Char);

begin

key:=#0;

end; 

procedure TForm9.ComboBox1Change(Sender: TObject);

begin

// Если пользователь то блокируем панели управления

if Combobox1.Text = 'Пользователь' then

begin

Form1.Panel1.Enabled:=false;

Form4.Panel1.Enabled:=false;

Form6.Panel1.Enabled:=false;

Form9.Hide;

Form1.Show;

end;

end; 
 

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);

begin

// Поля принемают  исходное значения

  combobox1.Text:='Выберете';

  MaskEdit1.Clear;

end; 

end.

 

Код модуля Unit1 

unit Unit1; // окно "Сотрудники" 

interface

// Подключаемые  библеотеки

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DBTables, DB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Menus,

  ActnMan, ActnColorMaps, XPMan, RpRender, RpRenderText, RpDefine, RpRave,

  RpCon, RpConDS, RpConBDE, RpBase, RpSystem; 

type //Описание объектов

  TForm1 = class(TForm)

    Query1: TQuery;

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    Table1: TTable;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    Panel1: TPanel;

    Label1: TLabel;

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    Button9: TButton;

    PopupMenu1: TPopupMenu;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    Session1: TSession;

    procedure knopka;

    procedure Deistvie;

    procedure Button1Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation

// Подключаемые  модули

uses Unit2, // модуль для редактирование таблицы

        Unit3, // модуль для добавление записи

        Unit4, // Модуль окна "Рабочие дни"

        Unit6, // Модуль окна "Начисление и удержание"

        Unit8, // Модуль окна "Учетная ведомость"

        Unit9; // Модуль окна "Вход" 

{$R *.dfm} 

// Процедура  для блокирования некоторых кнопок

procedure TForm1.knopka;

begin

if  table1.recno = 1  then

begin

  Button3.Enabled:=False;

  Button5.Enabled:=False;

end else

begin

  Button3.Enabled:=true;

  Button5.Enabled:=true;

end;

if table1.recno = table1.RecordCount then

begin

  Button4.Enabled:=False;

  Button6.Enabled:=False;

end else

begin

  Button4.Enabled:=true;

  Button6.Enabled:=true;

end; 
 

end; 

//Процедура для  блокирование всех кнопок

procedure TForm1.Deistvie;

begin

  Table1.First;

  // Если таблица  пуста

  if Table1.FieldByName('Tabnom').AsString = '' then

  begin

  Button1.Enabled:=false;

  Button3.Enabled:=false;

  Button4.Enabled:=false;

  Button5.Enabled:=false;

  Button6.Enabled:=false;

  Button8.Enabled:=false;

  end;

end; 

// Кнопка удалить

procedure TForm1.Button1Click(Sender: TObject);

begin

if MessageDlg('Вы точно  хотите удалить?', mtConfirmation, [mbYes, mbNo], 0)=mrYes then

begin 

Form4.Table1.First;

While not Form4.Table1.Eof do

begin

// Удаление сотрудника  из таблицы "Рабочие дни"

  if Form4.Table1.FieldByName('Tabnom').AsString = Table1.FieldByName('Tabnom').AsString then

  Form4.Table1.Delete;

  Form4.Table1.Next;

end; 

//Удаление сотрудника  из таблицы "Начисление и  удержание"

Form6.Table1.First;

While not Form6.Table1.Eof do

begin

  if Form6.Table1.FieldByName('Tabnom').AsString = Table1.FieldByName('Tabnom').AsString then

  Form6.Table1.Delete;

  Form6.Table1.Next;

end; 

//Удаление сотрудника  из таблицы "учетная ведомость"

Form8.Table1.First;

While not Form8.Table1.Eof do

begin