48618 (Разработка приложения, представляющего собой базу данных о сотрудниках), страница 7
Описание файла
Документ из архива "Разработка приложения, представляющего собой базу данных о сотрудниках", который расположен в категории "". Всё это находится в предмете "информатика" из 1 семестр, которые можно найти в файловом архиве . Не смотря на прямую связь этого архива с , его также можно найти и в других разделах. Архив можно найти в разделе "курсовые/домашние работы", в предмете "информатика, программирование" в общих файлах.
Онлайн просмотр документа "48618"
Текст 7 страницы из документа "48618"
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *. dfm}
procedure TForm5. Button2Click(Sender: TObject);
begin
Close; // закрывает форму "Работа"
end;
procedure TForm5. Button1Click(Sender: TObject);
var
spisok2: string;
begin
if (Dbedit4. text='') then
Begin
if dbedit4. text='' then spisok2: =spisok2+'Профессия(Должность), ';
Showmessage('Вы не заполнили поля: '+Spisok2);
End else table4. post;
end;
procedure TForm5. FormCreate(Sender: TObject);
begin
Table4. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "Работа" с базой данных, таблицей "Работа"
table4. Active: =true;
table4. insert;
end;
procedure TForm5. DBEdit4KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm5. DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm5. DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end; end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask,
ComCtrls;
type
TForm6 = class(TForm)
Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;
Label5: TLabel; Label6: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit;
DBEdit3: TDBEdit; Label7: TLabel; Label8: TLabel; Label9: TLabel;
Label10: TLabel; Label11: TLabel; DBEdit4: TDBEdit; DBEdit5: TDBEdit;
DBEdit6: TDBEdit; DBEdit7: TDBEdit; Table5: TADOTable;
DataSource1: TDataSource; Button1: TButton; Button2: TButton;
DBLookupComboBox1: TDBLookupComboBox; DataSource2: TDataSource; Table9: TADOTable; Table10: TADOTable; DataSource3: TDataSource;
DBLookupComboBox2: TDBLookupComboBox; DBLookupComboBox3: TDBLookupComboBox; DataSource4: TDataSource; Table11: TADOTable; DateTimePicker1: TDateTimePicker; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form6: TForm6;
implementation
{$R *. dfm}
procedure TForm6. Button1Click(Sender: TObject);
var
spisok4: string;
begin
if (DblookupCombobox1. text='') or (DblookupCombobox2. text='') then Begin
if DblookupCombobox1. text='' then spisok4: =spisok4+'Годность к военой службе,';
if DblookupCombobox2. text='' then spisok4: =spisok4+'Обязанность, ';
Showmessage('Вы не заполнили поля: '+Spisok4);
end
else
begin
table5. FieldByName('Выдан'). AsDateTime: =DateTimePicker1. DateTime;
table5. post;
end; end;
procedure TForm6. Button2Click(Sender: TObject);
begin
close; // закрывает форму "ВУС"
end;
procedure TForm6. FormCreate(Sender: TObject);
begin
Table5. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "ВУС" с базой данных, таблицей "ВУС"
table5. Active: =true;
Table9. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "ВУС" с базой данных, таблицей ""
table9. Active: =true;
Table10. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "ВУС" с базой данных, таблицей ""
table10. Active: =true;
Table11. ConnectionString: ='Provider=Microsoft. Jet. OLEDB.4.0; Data Source='+getcurrentdir+'\Саша. mdb '; // связывает форму "ВУС" с базой данных, таблицей ""
table11. Active: =true;
table5. insert;
end; end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Grids, DBGrids, ExtCtrls, StdCtrls, DBCtrls, ImgList;
type
TForm7 = class(TForm)
DBGrid1: TDBGrid; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit;
Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit;
Edit10: TEdit; Edit11: TEdit; Edit12: TEdit; Panel1: TPanel; Button1: TButton; Button2: TButton; ADOQuery1: TADOQuery; Label1: TLabel;
Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel;
Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel;
Label10: TLabel; Label11: TLabel; Label12: TLabel; DataSource1: TDataSource; Button4: TButton; DBNavigator1: TDBNavigator;
Button3: TButton; Button5: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit11KeyPress(Sender: TObject; var Key: Char);
procedure Button3Click(Sender: TObject);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure Edit10KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit9, Unit10;
{$R *. dfm}
procedure TForm7. Button1Click(Sender: TObject);
begin
if (edit1. text='') and (edit2. text='') and (edit3. text='') and (edit4. text='') and (edit5. text='') and (edit6. text='') and (edit7. text='') and (edit8. text='') and (edit9. text='') and (edit10. text='') and (edit11. text='') and (edit12. text='') then Showmessage('Вы не внесли критерии поиска')
else
Begin
adoquery1. Parameters. ParamByName('p1'). Value: ='%'+edit1. text+'%';
adoquery1. Parameters. ParamByName('p2'). Value: ='%'+edit2. text+'%';
adoquery1. Parameters. ParamByName('p3'). Value: ='%'+edit3. text+'%';
adoquery1. Parameters. ParamByName('p4'). Value: ='%'+edit4. text+'%';
adoquery1. Parameters. ParamByName('p5'). Value: ='%'+edit5. text+'%';
adoquery1. Parameters. ParamByName('p6'). Value: ='%'+edit6. text+'%';
adoquery1. Parameters. ParamByName('p7'). Value: ='%'+edit7. text+'%';
adoquery1. Parameters. ParamByName('p8'). Value: ='%'+edit8. text+'%';
adoquery1. Parameters. ParamByName('p9'). Value: ='%'+edit9. text+'%';
adoquery1. Parameters. ParamByName('p10'). Value: ='%'+edit10. text+'%';
adoquery1. Parameters. ParamByName('p11'). Value: ='%'+edit11. text+'%';
adoquery1. Parameters. ParamByName('p12'). Value: ='%'+edit12. text+'%';
ADOQuery1. Active: = True;
end; end;
procedure TForm7. Button2Click(Sender: TObject);
begin
Form9. QuickRep1. Preview;
end;
procedure TForm7. Button4Click(Sender: TObject);
begin
Edit1. Text: = ''; Edit2. Text: = ''; Edit3. Text: = ''; Edit4. Text: = '';
Edit5. Text: = ''; Edit6. Text: = ''; Edit7. Text: = ''; Edit8. Text: = '';
Edit9. Text: = ''; Edit10. Text: = ''; Edit11. Text: = ''; Edit12. Text: = '';
ADOQuery1. Active: = False;
end;
procedure TForm7. Button5Click(Sender: TObject);
begin
close;
end;
procedure TForm7. Edit1KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit2KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit3KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit11KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:
else Key: = #0;
end; end;
procedure TForm7. Button3Click(Sender: TObject);
begin
Form10. QuickRep1. Preview;
end;
procedure TForm7. Edit4KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit5KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit7KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit8KeyPress(Sender: TObject; var Key: Char);
begin
case Key of '0'. '9':; #8:
else Key: = #0;
end; end;
procedure TForm7. Edit10KeyPress(Sender: TObject; var Key: Char);
begin
case Key of 'а'. 'я':; 'А'. 'Я':; #8:; #32:
else Key: = #0;
end; end; end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm8 = class(TForm)
Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel;
Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel;
Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel;
DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Edit1: TEdit;
Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit;
Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit;
Edit12: TEdit; Panel1: TPanel; Button1: TButton; Button4: TButton;
ADOQuery1: TADOQuery; DataSource1: TDataSource; Button2: TButton;
Button3: TButton; procedure Button1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit11KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
procedure Edit10KeyPress(Sender: TObject; var Key: Char); private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *. dfm}
procedure TForm8. Button1Click(Sender: TObject);
begin
if (edit1. text='') and (edit2. text='') and (edit3. text='') and (edit4. text='') and (edit5. text='') and (edit6. text='') and (edit7. text='') and (edit8. text='') and (edit9. text='') and (edit10. text='') and (edit11. text='') and (edit12. text='') then Showmessage('Вы не внесли критерии поиска')
else
Begin
adoquery1. Parameters. ParamByName('p1'). Value: ='%'+edit1. text+'%';
adoquery1. Parameters. ParamByName('p2'). Value: ='%'+edit2. text+'%';
adoquery1. Parameters. ParamByName('p3'). Value: ='%'+edit3. text+'%';
adoquery1. Parameters. ParamByName('p4'). Value: ='%'+edit4. text+'%';
adoquery1. Parameters. ParamByName('p5'). Value: ='%'+edit5. text+'%';
adoquery1. Parameters. ParamByName('p6'). Value: ='%'+edit6. text+'%';
adoquery1. Parameters. ParamByName('p7'). Value: ='%'+edit7. text+'%';
adoquery1. Parameters. ParamByName('p8'). Value: ='%'+edit8. text+'%';
adoquery1. Parameters. ParamByName('p9'). Value: ='%'+edit9. text+'%';
adoquery1. Parameters. ParamByName('p10'). Value: ='%'+edit10. text+'%';
adoquery1. Parameters. ParamByName('p11'). Value: ='%'+edit11. text+'%';
adoquery1. Parameters. ParamByName('p12'). Value: ='%'+edit12. text+'%';
ADOQuery1. Active: = True;
