Дипломная работа: Автоматизация расчета заработной платы отдела технического сопровождения в ООО «DataPro»

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

+' FROM dolgnost INNER JOIN sotrudnik ON dolgnost.id_dolgnost = sotrudnik.id_dolgnost '

+' WHERE sotrudnik.tabel_nomer ='+form_zapros1.StringGrid_time.Cells[0,i]+';';

datamodule1.Query_buf.Close;

datamodule1.Query_buf.SQL.Clear;

datamodule1.Query_buf.SQL.Text := buf_Zapros;

datamodule1.Query_buf.Open;

form_zapros1.StringGrid_time.Cells[3,i] := floatto-

str(kolvo_hours1*datamodule1.Query_buf.FieldByName('oklad').AsFloat);

end;

procedure TForm_zapros1.view_otdel;

var buf_zapros : string;

begin

if form_zapros1.DBGrid_zavod.DataSource.DataSet.RecordCount <> 0 then

begin

buf_zapros := 'SELECT otdel.id_otdel, otdel.name_otdel as Название_отдела '

+' FROM otdel '

+' WHERE otdel.id_zavod =

'+form_zapros1.DBGrid_zavod.DataSource.DataSet.FieldByName('id_zavod').AsString

+' ORDER BY otdel.name_otdel;';

datamodule1.Query_otdel_view.Close;

datamodule1.Query_otdel_view.SQL.Clear;

datamodule1.Query_otdel_view.SQL.Text := buf_zapros;

datamodule1.Query_otdel_view.Open;

view_dbgrid_otdel;

view_time;

end;

procedure TForm_zapros1.view_dbgrid_otdel;

begin

form_zapros1.DBGrid_otdel.Columns[0].Visible := False;

form_zapros1.DBGrid_otdel.Columns[1].Width := 280;

end;

end.

Приложение 2

Файл Form_sotrudnik.pas

unit Form__sotrudnik;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, Data.DB;

type

TForm_sotrudnik = class(TForm)

DBGrid_sotrudnik: TDBGrid;

Button_delete: TButton;

Button_update: TButton;

GroupBox1: TGroupBox;

Label2: TLabel;

Label3: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

Label14: TLabel;

Label15: TLabel;

Label_tabel: TLabel;

Edit_tabel: TEdit;

Edit_family: TEdit;

Edit_name: TEdit;

Edit_secondname: TEdit;

Edit_phone: TEdit;

DBGrid_dolgnost: TDBGrid;

GroupBox_login: TGroupBox;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label26: TLabel;

Label27: TLabel;

100

Label_login: TLabel;

Edit_login: TEdit;

Edit_password: TEdit;

DBGrid_dostup: TDBGrid;

Button_add: TButton;

DBGrid_otdel: TDBGrid;

Label16: TLabel;

Label1: TLabel;

Label10: TLabel;

CheckBox_login: TCheckBox;

DBGrid_zavod: TDBGrid;

Label17: TLabel;

procedure FormCreate(Sender: TObject);

procedure Button_deleteClick(Sender: TObject);

procedure Button_updateClick(Sender: TObject);

procedure Button_addClick(Sender: TObject);

procedure clear_label;

procedure view_dbgrid;

procedure add_sotrudnik;

procedure update_sotrudnik;

procedure view_sotrudnik;

procedure FormShow(Sender: TObject);

procedure view_dolgnost;

procedure DBGrid_otdelCellClick(Column: TColumn);

procedure CheckBox_loginClick(Sender: TObject);

procedure view_otdel;

procedure view_dbgrid_otdel;

procedure view_dbgrid_dolgnost;

procedure view_dolgnost_view;

procedure DBGrid_zavodCellClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_sotrudnik: TForm_sotrudnik;

implementation

101

uses datamodule;

{$R *.dfm}

procedure TForm_sotrudnik.view_dbgrid;

begin

form_sotrudnik.DBGrid_sotrudnik.Columns[0].Width := 70;

form_sotrudnik.DBGrid_sotrudnik.Columns[1].Width := 150;

form_sotrudnik.DBGrid_sotrudnik.Columns[2].Width := 150;

form_sotrudnik.DBGrid_sotrudnik.Columns[3].Width := 150;

form_sotrudnik.DBGrid_sotrudnik.Columns[4].Width := 70; //телефон

form_sotrudnik.DBGrid_sotrudnik.Columns[5].Width := 150;

form_sotrudnik.DBGrid_sotrudnik.Columns[6].Width := 150;

form_sotrudnik.DBGrid_sotrudnik.Columns[7].Width := 150;//должность

form_sotrudnik.DBGrid_sotrudnik.Columns[8].Width := 150;

form_sotrudnik.DBGrid_sotrudnik.Columns[9].Width := 100;

form_sotrudnik.DBGrid_sotrudnik.Columns[10].Width := 100;

end;

procedure TForm_sotrudnik.clear_label;

begin

form_sotrudnik.Label2.Caption := '';

form_sotrudnik.Label3.Caption := '';

form_sotrudnik.Label7.Caption := '';

form_sotrudnik.Label8.Caption := '';

form_sotrudnik.Label9.Caption := '';

form_sotrudnik.Label10.Caption := '';

form_sotrudnik.Label26.Caption := '';

form_sotrudnik.Label27.Caption := '';

end;

procedure TForm_sotrudnik.DBGrid_otdelCellClick(Column: TColumn);

begin

view_dolgnost;

end;

procedure TForm_sotrudnik.DBGrid_zavodCellClick(Column: TColumn);

begin

view_otdel;

view_dolgnost;

end;

102

procedure TForm_sotrudnik.Button_addClick(Sender: TObject);

var run_procedure : boolean;

buf_zapros, buf_kav : string;

begin

clear_label;

run_procedure := True;

buf_kav := '''';

//проверяю введенные данные

if length(form_sotrudnik.Edit_tabel.Text) < 8 then

begin

run_procedure := False;

form_sotrudnik.Label2.Caption := 'Табельный номер меньше 8';

end

else

if form_sotrudnik.Button_add.Caption = 'Добавить' then

begin

buf_zapros :='SELECT tabel_nomer FROM sotrudnik WHERE tabel_nomer

='+buf_kav+form_sotrudnik.Edit_tabel.Text+buf_kav+';';

datamodule1.Query_buf.Close;

datamodule1.Query_buf.SQL.Clear;

datamodule1.Query_buf.SQL.Text := buf_zapros;

datamodule1.Query_buf.Open;

if datamodule1.Query_buf.RecordCount <> 0 then

begin

run_procedure := False;

form_sotrudnik.Label2.Caption := 'Такой номер есть в БД';

end;

if length(Form_sotrudnik.Edit_family.Text) = 0 then

begin

run_procedure := False;

form_sotrudnik.Label3.Caption := 'Не введена фамилия';

end;

if length(form_sotrudnik.Edit_name.Text) = 0 then

begin

run_procedure := False;

form_sotrudnik.Label7.Caption := 'Не введено имя';

end;

Источник: https://baza.diplomsite.ru/previewfile/719

Смотрите также:

3863
8391_Орещенко_лаб3
Анализ структуры торгового ассортимента мебельной продукции
Институциональное и внеинституциональное измерения художественной культуры
Курсовая работа по экономике производства
Микотоксикозы
Опыт применения вибромассажа для восстановления молочной продуктивности коров
Особливості механізму виборів Президента України в умовах можливих конституційних змін
ПР04_Овчинникова_5А81
Пространственные рамки природной среды