Материал: Автоматизация управления персоналом в АО "Киномакс" г. Краснодар

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
84
Приложение 1
Листинг программы
StartUnit.pas
unit StartUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DBCtrls, ComCtrls, Buttons;
type
TStartForm = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DateTimePicker1: TDateTimePicker;
DBLookupComboBox1: TDBLookupComboBox;
Label4: TLabel;
Edit1: TEdit;
DBLookupComboBox2: TDBLookupComboBox;
procedure FormShow(Sender: TObject);
procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
private
{ Private declarations }
public
AVAR:Boolean;
CanClose:Boolean;
end;
var
StartForm: TStartForm;
implementation
uses MainUnit, DMUnit, SplashUnit;
{$R *.dfm}
procedure TStartForm.FormShow(Sender: TObject);
begin
CanClose:=False;
DateTimePicker1.DateTime:=Now;
85
end;
procedure TStartForm.DateTimePicker1KeyPress(Sender: TObject;
var Key: Char);
begin
Key:=#0;
end;
procedure TStartForm.BitBtn1Click(Sender: TObject);
VAR
I:Integer;
begin
MainForm.readOrgList(DBLookupCombobox1.Text);
If not (DBLookupComboBox1.Text='') then
If MainForm.LOrg.Find(DataModule1.OrgListNameOrg.Value,I) then
If Edit1.Text=DataModule1.UsersListPassword.Value then
begin
MainForm.Date:=DateTimePicker1.DateTime;
MainForm.CurOrg:=DataModule1.OrgListNameOrg.Value;
MainForm.CurUser:=DataModule1.UsersListNameUser.Value;
MainForm.Label7.Caption:=inttostr(DataModule1.CardList.RecordCount);
CanClose:=True;
Close;
end
else
begin
ShowMessage('Пароль неверный!');
MainForm.CanClose:=true;
SplashForm.AVAR:=true;
MainForm.Close;
end
else ShowMessage('Данный пользователь не имеет доступа к данным выбранной организации!')
else ShowMessage('Не выбран пользователь!');
end;
procedure TStartForm.BitBtn2Click(Sender: TObject);
begin
MainForm.CanClose:=True;
SplashForm.AVAR:=True;
MainForm.Close;
end;
procedure TStartForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
If not CanClose then
begin
86
ShowMessage('Пароль неверный!');
SplashForm.AVAR:=True;
MainForm.CanClose:=True;
MainForm.Close;
end;
end;
procedure TStartForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
CanClose:=StartForm.CanClose;
end;
end.
MainUnit.pas
unit MainUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, Grids, DBGrids;
type
TMainForm = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
87
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N37: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N41: TMenuItem;
N42: TMenuItem;
N43: TMenuItem;
N44: TMenuItem;
N46: TMenuItem;
N47: TMenuItem;
N48: TMenuItem;
N50: TMenuItem;
N51: TMenuItem;
N52: TMenuItem;
N53: TMenuItem;
N54: TMenuItem;
N45: TMenuItem;
N55: TMenuItem;
N56: TMenuItem;
N57: TMenuItem;
N58: TMenuItem;
N59: TMenuItem;
N60: TMenuItem;
DBGrid1: TDBGrid;
Panel1: TPanel;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
88
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
N61: TMenuItem;
N62: TMenuItem;
N63: TMenuItem;
N64: TMenuItem;
N65: TMenuItem;
N66: TMenuItem;
N67: TMenuItem;
N68: TMenuItem;
N69: TMenuItem;
N70: TMenuItem;
N71: TMenuItem;
N72: TMenuItem;
N73: TMenuItem;
N74: TMenuItem;
N75: TMenuItem;
N76: TMenuItem;
N77: TMenuItem;
N78: TMenuItem;
N79: TMenuItem;
N80: TMenuItem;
N81: TMenuItem;
N82: TMenuItem;
N83: TMenuItem;
N84: TMenuItem;
N85: TMenuItem;
N86: TMenuItem;
N87: TMenuItem;
Timer1: TTimer;
Label8: TLabel;
Label9: TLabel;
N88: TMenuItem;
N89: TMenuItem;
N90: TMenuItem;
N91: TMenuItem;
N92: TMenuItem;
N93: TMenuItem;
N94: TMenuItem;
N95: TMenuItem;
Источник: https://baza.diplomsite.ru/previewfile/2254

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

Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Изложение содержания дела, по которому приняты судебные постановления