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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
144
ftWid-
eString,ftString,ftDatetime:ComboBox4.Items.Add(''''+DataModule1.CardListQuery.FieldList.Fields[Combobox
2.ItemIndex+1].AsString+'''');
end;
DataModule1.CardListQuery.Next;}
end;
procedure TFiltrForm.SpeedButton1Click(Sender: TObject);
{VAR
S:String;}
begin
{If ListBox1.ItemIndex>=0 then
begin
ListBox1.Items.Delete(ListBox1.ItemIndex);
if ListBox1.Items.count>0 then
begin
S:=ListBox1.Items[0];
delete(S,1,4);
ListBox1.Items[0]:=S;
end;
end;}
end;
end.
ArchiveUnit.pas
unit ArchiveUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, ToolWin, ComCtrls, ExtCtrls, DBCtrls;
type
TArchiveForm = class(TForm)
ToolBar1: TToolBar;
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBNavigator1: TDBNavigator;
145
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
CanClose:Boolean;
{ Public declarations }
end;
var
ArchiveForm: TArchiveForm;
implementation
uses ArchiveSearchUnit, DMUnit, MainUnit;
{$R *.dfm}
procedure TArchiveForm.ToolButton1Click(Sender: TObject);
begin
If DataModule1.ArchiveListQuery.RecordCount>0 then
begin
ArchiveSearchForm.CanClose:=False;
ArchiveSearchForm.Caption:='Поиск';
ArchiveSearchForm.Edit1.Clear;
ArchiveSearchForm.ShowModal;
end;
end;
procedure TArchiveForm.ToolButton2Click(Sender: TObject);
146
begin
If DataModule1.ArchiveListQuery.RecordCount>0 then
try
DataModule1.ArchiveListQuery.Sort:=DBGrid1.SelectedField.FieldName+' ASC';
except
ShowMessage('Не удается отсортировать список.');
DataModule1.ArchiveListQuery.Sort:='';
end;
end;
procedure TArchiveForm.ToolButton3Click(Sender: TObject);
begin
If DataModule1.ArchiveListQuery.RecordCount>0 then
try
DataModule1.ArchiveListQuery.Sort:=DBGrid1.SelectedField.FieldName+' DESC';
except
ShowMessage('Не удается отсортировать список.');
DataModule1.ArchiveListQuery.Sort:='';
end;
end;
procedure TArchiveForm.ToolButton4Click(Sender: TObject);
begin
If MessageDlg('Вы действительно хотите удалить
запись?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
DataModule1.ArchiveListQuery.Delete;
ArchiveForm.Label3.Caption:=inttostr(DataModule1.ArchiveListQuery.RecordCount);
end;
end;
procedure TArchiveForm.FormShow(Sender: TObject);
begin
CanClose:=True;
DataModule1.ArchiveListQuery.Close;
DataModule1.ArchiveListQuery.Open;
ArchiveForm.Label3.Caption:=inttostr(DataModule1.ArchiveListQuery.RecordCount);
end;
procedure TArchiveForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
147
CanClose:=ArchiveForm.CanClose;
end;
procedure TArchiveForm.Button1Click(Sender: TObject);
begin
If DataModule1.ArchiveListQuery.RecordCount>0 then
begin
ArchiveSearchForm.CanClose:=False;
ArchiveSearchForm.Caption:='Поиск';
ArchiveSearchForm.Edit1.Clear;
ArchiveSearchForm.ShowModal;
end;
end;
procedure TArchiveForm.Button2Click(Sender: TObject);
begin
If DataModule1.ArchiveListQuery.RecordCount>0 then
try
DataModule1.ArchiveListQuery.Sort:=DBGrid1.SelectedField.FieldName+' ASC';
except
ShowMessage('Не удается отсортировать список.');
DataModule1.ArchiveListQuery.Sort:='';
end;
end;
procedure TArchiveForm.Button3Click(Sender: TObject);
begin
If DataModule1.ArchiveListQuery.RecordCount>0 then
try
DataModule1.ArchiveListQuery.Sort:=DBGrid1.SelectedField.FieldName+' DESC';
except
ShowMessage('Не удается отсортировать список.');
DataModule1.ArchiveListQuery.Sort:='';
end;
end;
procedure TArchiveForm.Button4Click(Sender: TObject);
begin
If MessageDlg('Вы действительно хотите удалить
запись?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
begin
DataModule1.ArchiveListQuery.Delete;
148
ArchiveForm.Label3.Caption:=inttostr(DataModule1.ArchiveListQuery.RecordCount);
end;
end;
end.
BlockUnit.pas
unit BlockUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls;
type
TBlockForm = class(TForm)
Label1: TLabel;
BitBtn1: TBitBtn;
Edit1: TEdit;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
BlockForm: TBlockForm;
implementation
uses MainUnit, DMUnit;
{$R *.dfm}
procedure TBlockForm.BitBtn1Click(Sender: TObject);
Var
V:Variant;
begin
V:=MainForm.CurUser;
DataModule1.UsersList.Locate('NameUser',V,[]);
If Edit1.Text=DataModule1.UsersListPassword.Value then
Источник: https://baza.diplomsite.ru/previewfile/2254

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

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