Дипломная работа: Автоматизация учета рабочего времени сотрудников компании АО "Скоростные Магистрали"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
92
active:=true;
end;
form4.DBGrid1.columns[0].Title.cpption:='Код';
form4.DBGrid1.columns[1].Title.cpption:='ФИО';
form4.DBGrid1.columns[2].Title.cpption:='Подразделение';
form4.DBGrid1.columns[3].Title.cpption:='Должность';
form4.show;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
with form1.Adqqery4 do
begin
close;
sql.Clear;
sql.Add('select * from sotr');
active:=true;
end;
with form1.Adqqery1 do
begin
close;
sql.Clear;
sql.Add('select * from otkl');
active:=true;
end;
form6.Show;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form7.Show;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form8.Show;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
with form1.Adqqery1 do
begin
close;
93
sql.Clear;
sql.Add('select * from otkl');
active:=true;
end;
form9.Show;
end;
end.
procedure TForm4.RzBitBtn3Click(Sender: TObject);
begin
close;
end;
procedure TForm4.RzBitBtn1Click(Sender: TObject);
begin
with form1.Adqqery2 do
begin
close;
sql.Clear;
sql.Add('select * from dolgn');
active:=true;
end;
form5.Edit1.clear;
form5.Edit2.clear;
form5.Edit3.clear;
form5.show;
end;
procedure TForm4.RzBitBtn2Click(Sender: TObject);
begin
with form1.adqqery4 do
begin
close;
sql.Clear;
sql.Add('delete from sotr where
code_sotr='+form1.Adqqery3code_sotr.AsString);
execsql;
close;
sql.Clear;
sql.Add('select * from sotr');
open;
end;
94
with form1.Adqqery4 do
begin
close;
sql.Clear;
sql.Add('select * from sotr');
active:=true;
end;
showmessage('Удалено');
end;
end.
procedure TForm5.RzBitBtn1Click(Sender: TObject);
begin
form1.Adqqery4.Open;
form1.Adqqery4.appendrecord([edit1.Text,form1.Adqqery2code.AsInteger,edit
2.Text,edit3.Text]);
edit2.clear;
edit3.clear;
edit1.text:=inttostr(1+strtoint(edit1.Text));
with form1.Adqqery3 do
begin
close;
sql.Clear;
sql.Add('select * from zp1');
active:=true;
end;
showmessage('Записано');
end;
end.
procedure TForm6.RzBitBtn2Click(Sender: TObject);
begin
close;
end;
procedure TForm6.RzBitBtn1Click(Sender: TObject);
var year1,mon1,dt1:word; m1,d1:string[2]; day1,day2:string[20]; code:integer;
begin
if datetimepicker1.Date>datetimepicker2.D
ate then
showmessage('Некорректно указан интервал дат') else
95
begin
with form1.Adqqery6 do
begin
close;
sql.Clear;
sql.Add('select max(code) from tabel');
open;
end;
code:=1+form1.Adqqery6Expr1000.AsInteger;
decodedate(datetimepicker1.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day1:=inttostr(year1)+'/'+m1+'/'+d1;
decodedate(datetimepicker2.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day2:=inttostr(year1)+'/'+m1+'/'+d1;
with form1.Adqqery5 do
begin
close;
sql.Clear;
sql.Add('delete from tabel where (day>=#'+day1+'#) and
(day<=#'+day2+'#) and (code_sotr='+form1.Adqqery4code_sotr.AsString+')');
execsql;
close;
sql.Clear;
sql.Add('select * from tabel');
open;
end;
datetimepicker3.Date:=datetimepicker1.Date;
while datetimepicker3.Date<=datetimepicker2.Date do
begin
if checkbox1.Checked=true then
begin
if (dayofweek(datetimepicker3.Date)>1) and
(dayofweek(datetimepicker3.Date)<7) then
form1.Adqqery5.AppendRecord([form1.Adqqery4code_sotr.AsInteger,datetime
picker3.Date,form1.Adqqery1code.AsInteger,code]);
end
else
form1.Adqqery5.AppendRecord([form1.Adqqery4code_sotr.AsInteger,datetime
picker3.Date,form1.Adqqery1code.AsInteger,code]);
code:=code+1;
96
datetimepicker3.Date:= datetimepicker3.Date+1;
end;
showmessage('Записано');
end;
end;
end.
procedure TForm7.RzBitBtn1Click(Sender: TObject);
var i,j:integer; excclapp:variant; year1,mon1,dt1:word; m1,d1:string[2];
day1,day2:string[20];
begin
ExcclApp := CreateOleObject('Exccl.Application');
ExcclApp.workbooks.open('C:\sv_mes\xlt\ot_sotr.xlt');
ExcclApp.WorkSheets[1].Activate;
ExcclApp.Visible := False;
with form1.Adqqery1 do
begin
close;
sql.Clear;
sql.Add('select * from otkl');
active:=true;
end;
for i:=1 to form1.Adqqery1.RecordCount do
begin
excclapp.cells[6,i+1]:=trim(form1.Adqqery1nam.AsString);
excclapp.cells[6,i+1].borders.linestyle:=1;
form1.Adqqery1.Next;
end;
form1.Adqqery1.first;
decodedate(datetimepicker1.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day1:=inttostr(year1)+'/'+m1+'/'+d1;
decodedate(datetimepicker2.date,year1,mon1,dt1);
if mon1<10 then m1:='0'+inttostr(mon1) else m1:=inttostr(mon1);
if dt1<10 then d1:='0'+inttostr(dt1) else d1:=inttostr(dt1);
day2:=inttostr(year1)+'/'+m1+'/'+d1;
with form1.Adqqery4 do
begin
close;
sql.Clear;
sql.Add('select * from sotr');
Источник: https://baza.diplomsite.ru/previewfile/2423

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

Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии