Диплом: Автоматизация учета сдельной оплаты труда компании ООО «Торгофф»

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
97
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form13: TForm13;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm13.FormClose(Sender: TObject; var Action: TCloseAction);
begin Form13.Hide; Form1.Show; end;
procedure TForm13.Button1Click(Sender: TObject);
begin
try
Form1.ADOQuery3.SQL.Clear;
Form1.ADOQuery3.SQL.Add('SELECT * FROM [Начисление заработной
платы] WHERE Номер LIKE ''%'+Edit1.Text+'%''');
Form1.ADOQuery3.Active:=True;
Form1.ADOQuery4.SQL.Clear;
Form1.ADOQuery4.SQL.Add('SELECT * FROM Сотрудник WHERE [Код
сотрудника] LIKE ''%'+Edit1.Text+'%''');
Form1.ADOQuery4.Active:=True;
except on e:Exception do end;
end;
end;
end.
98
Программный код формы «Сдельный наряд»
object Form9: TForm9
Left = 1810
Top = 698
Width = 666
Height = 317
Caption = #1044#1086#1082#1091#1084#1077#1085#1090'
"'#1057#1076#1077#1083#1100#1085#1099#1081'
'#1085#1072#1088#1103#1076'"'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 24
Width = 145
Height = 16
Caption = #1050#1086#1076'
'#1089#1076#1077#1083#1100#1085#1086#1075#1086'
'#1085#1072#1088#1103#1076#1072
Font.Charset = DEFAULT_CHARSET
99
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 48
Width = 82
Height = 16
Caption = #1044#1072#1090#1072' '#1085#1072#1088#1103#1076#1072
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 16
Top = 72
Width = 188
Height = 16
Caption =
#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077'
'#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1080
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
100
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 16
Top = 96
Width = 111
Height = 16
Caption = #1060#1048#1054'
'#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 16
Top = 120
Width = 166
Height = 16
Caption =
#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077'
'#1086#1087#1077#1088#1072#1094#1080#1080
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
101
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 16
Top = 144
Width = 63
Height = 16
Caption = #1056#1072#1089#1094#1077#1085#1082#1072
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 16
Top = 168
Width = 78
Height = 16
Caption = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
102
Left = 16
Top = 192
Width = 112
Height = 16
Caption = #1057#1091#1084#1084#1072' '#1079#1072'
'#1088#1072#1073#1086#1090#1091
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object DBEdit1: TDBEdit
Left = 232
Top = 24
Width = 105
Height = 21
BiDiMode = bdLeftToRight
DataField = #1050#1086#1076'
'#1089#1076#1077#1083#1100#1085#1086#1075#1086'
'#1085#1072#1088#1103#1076#1072
DataSource = Form1.DataSSdelNar
ParentBiDiMode = False
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 232
Top = 48
Width = 401
103
Height = 21
DataField = #1044#1072#1090#1072' '#1085#1072#1088#1103#1076#1072
DataSource = Form1.DataSSdelNar
TabOrder = 1
end
object DBNavigator1: TDBNavigator
Left = 16
Top = 232
Width = 610
Height = 25
DataSource = Form1.DataSSdelNar
TabOrder = 2
end
object DBEdit6: TDBEdit
Left = 232
Top = 144
Width = 401
Height = 21
DataField = #1056#1072#1089#1094#1077#1085#1082#1072
DataSource = Form1.DataSSdelNar
TabOrder = 3
end
object DBLookupComboBox1: TDBLookupComboBox
Left = 232
Top = 72
Width = 401
Height = 21
DataField = #1050#1086#1076'
'#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
DataSource = Form1.DataSSdelNar
104
KeyField = #1050#1086#1076'
'#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1080
ListField =
#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077'
'#1086#1088#1075#1072#1085#1080#1079#1072#1094#1080#1080
ListSource = Form1.DataSOrganization
TabOrder = 4
end
object DBEdit3: TDBEdit
Left = 232
Top = 168
Width = 401
Height = 21
DataField = #1050#1086#1083#1080#1095#1077#1089#1090#1074#1086
DataSource = Form1.DataSSdelNar
TabOrder = 5
end
object DBEdit7: TDBEdit
Left = 232
Top = 192
Width = 401
Height = 21
DataField = #1057#1091#1084#1084#1072' '#1079#1072'
'#1088#1072#1073#1086#1090#1091
DataSource = Form1.DataSSdelNar
TabOrder = 6
end
object DBLookupComboBox2: TDBLookupComboBox
Left = 232
Top = 96
105
Width = 401
Height = 21
DataField = #1050#1086#1076'
'#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
DataSource = Form1.DataSSdelNar
KeyField = #1050#1086#1076'
'#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
ListField = #1060#1048#1054'
'#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
ListSource = Form1.DataSSotrudnik
TabOrder = 7
end
object DBLookupComboBox3: TDBLookupComboBox
Left = 232
Top = 120
Width = 401
Height = 21
DataField = #1050#1086#1076'
'#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
DataSource = Form1.DataSSdelNar
KeyField = #1050#1086#1076'
'#1090#1077#1093#1085#1086#1083#1086#1075#1080#1095#1077#1089#1082#10
86#1081' '#1086#1087#1077#1088#1072#1094#1080#1080
ListField =
#1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077'
'#1086#1087#1077#1088#1072#1094#1080#1080
ListSource = Form1.DataSTexOper
TabOrder = 8
end
end
106
Программный код формы «Начисление зарплаты»
object Form10: TForm10
Left = 516
Top = 226
Width = 666
Height = 365
Caption = #1044#1086#1082#1091#1084#1077#1085#1090'
"'#1053#1072#1095#1080#1089#1083#1077#1085#1080#1077'
'#1079#1072#1088#1072#1073#1086#1090#1085#1086#1081'
'#1087#1083#1072#1090#1099'"'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 16
Top = 24
Width = 43
Height = 16
Caption = #1053#1086#1084#1077#1088
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText

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

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Agile-методология в управлении проектами на примере ООО «Ресурсный центр «Академия КлассИнфо»
Aвтoмaтизaция пpoцecca вeдeния инфopмaциoннoй бaзы o дoлжнocтяx и вaкaнcияx c укaзaниeм тpeбoвaний к уpoвню знaний и нaвыкoв кaндидaтoв для гpуппы кaдpoв вoйcкoвoй чacти 3474»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
Cовершенствование управления рентабельности предприятия (на примере гуипп «бендерская типография «полиграфист»)
Event - менеджмент: реализация проекта (на примере ООО "АГРОПАК")