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

Скачать файл

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

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

139

FamilyForm.DBEdit30.Clear;

FamilyForm.DBEdit31.Clear;

FamilyForm.DBEdit32.Clear;

FamilyForm.DBEdit33.Clear;

FamilyForm.DateTimePicker1.DateTime:=Now;

FamilyForm.CanClose:=False;

FamilyForm.ShowModal;

end;

procedure TCardMenuForm.BitBtn6Click(Sender: TObject);

begin

VBiletForm.Tag:=0;

DataModule1.VBiletList.Insert;

VBiletForm.DBEdit35.Clear;

VBiletForm.DBEdit36.Clear;

VBiletForm.DBEdit37.Clear;

VBiletForm.DBEdit38.Clear;

VBiletForm.DBEdit39.Clear;

VBiletForm.DBEdit40.Clear;

VBiletForm.DBEdit41.Clear;

VBiletForm.DBEdit42.Clear;

VBiletForm.DBEdit43.Clear;

VBiletForm.CanClose:=False;

VBiletForm.ShowModal;

end;

procedure TCardMenuForm.BitBtn7Click(Sender: TObject);

begin

StaqWorkForm.Tag:=0;

DataModule1.StaqWorkList.Insert;

StaqWorkForm.DBEdit44.Clear;

StaqWorkForm.DBEdit45.Clear;

StaqWorkForm.DBEdit46.Clear;

StaqWorkForm.DBEdit47.Clear;

StaqWorkForm.DBEdit48.Clear;

StaqWorkForm.DBEdit49.Clear;

StaqWorkForm.DBEdit50.Clear;

StaqWorkForm.DBEdit51.Clear;

StaqWorkForm.DBEdit52.Clear;

StaqWorkForm.CanClose:=False;

StaqWorkForm.ShowModal;

end;

140

end.

SearchUnit.pas

unit SearchUnit;

interface

uses

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

Dialogs, StdCtrls;

type

TSearchForm = class(TForm)

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure FormShow(Sender: TObject);

private

{ Private declarations }

public

CanClose:Boolean;

{ Public declarations }

end;

var

SearchForm: TSearchForm;

implementation

uses DMUnit, MainUnit;

{$R *.dfm}

procedure TSearchForm.Button2Click(Sender: TObject);

begin

CanClose:=True;

Close;

end;

141

procedure TSearchForm.Button1Click(Sender: TObject);

VAR

V:Variant;

begin

try

V:=Edit1.Text;

DataModule1.CardList.Locate(MainForm.DBGrid1.SelectedField.FieldName,v,[]);

CanClose:=True;

Close;

except

ShowMessage('Не удается найти запись.');

end;

procedure TSearchForm.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

Case key of

'А'..'Я','а'..'я',#1..#32:exit

else key:=#0;

end;

procedure TSearchForm.FormShow(Sender: TObject);

begin

CanClose:=False;

end;

end.

FiltrUnit.pas

unit FiltrUnit;

interface

uses

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

Dialogs, Buttons, StdCtrls;

type

TFiltrForm = class(TForm)

ComboBox1: TComboBox;

ComboBox2: TComboBox;

142

ComboBox3: TComboBox;

ComboBox4: TComboBox;

ListBox1: TListBox;

Button1: TButton;

Button2: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ComboBox2Change(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FiltrForm: TFiltrForm;

implementation

uses MainUnit, DMUnit;

{$R *.dfm}

procedure TFiltrForm.Button2Click(Sender: TObject);

{VAR

S:String;}

begin

{S:='select * from CardListQuery where (kodorg=:kodorg) and (Archive=False)';

DataModule1.CardListQuery.Close;

DataModule1.CardListQuery.SQL.Clear;

DataModule1.CardListQuery.SQL.Add(S);

DataModule1.CardListQuery.Open;

//CanClose:=True;

//ToolBar1.Enabled:=True;

143

//MainMenu1.Items.Enabled:=True;

//DBGrid1.Enabled:=True;

DataModule1.CardListQuery.EnableControls;

//GroupBox1.Hide;}

Close;

end;

procedure TFiltrForm.Button1Click(Sender: TObject);

{VAR

I:Integer;

S:String;}

begin

{S:='select * from CardListQuery where (kodorg=:kodorg) and (Archive=False)';

Case ListBox1.Items.Count of

1:S:=S+' and';

2..1000:S:=S+' and ('

end;

For I:=0 to ListBox1.Items.Count-1 do

S:=S+ListBox1.Items[i];

If ListBox1.Items.Count>1 then S:=S+')';

DataModule1.CardListQuery.Close;

DataModule1.CardListQuery.SQL.Clear;

DataModule1.CardListQuery.SQL.Add(S);

DataModule1.CardListQuery.Open;

//CanClose:=True;

//MainMenu1.Items.Enabled:=True;

//DBGrid1.Enabled:=True;

DataModule1.CardListQuery.EnableControls;

//GroupBox1.Hide;}

end;

procedure TFiltrForm.ComboBox2Change(Sender: TObject);

begin

{DataModule1.CardListQuery.First;

ComboBox4.Clear;

While not DataModule1.CardListQuery.Eof do

begin

Case DataModule1.CardListQuery.FieldList.Fields[Combobox2.ItemIndex+1].DataType of

ftAuto-

inc,ftInteger,ftBoolean:ComboBox4.Items.Add(DataModule1.CardListQuery.FieldList.Fields[Combobox2.ItemI

ndex+1].AsString);

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

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









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