47881 (588504), страница 4
Текст из файла (страница 4)
IBQuery4.Params.ParamByName('Nom_strax_sved').Value:=Edit38.Text;
IBQuery4.Params.ParamByName('INN').Value:=Edit39.Text;
try
IBQuery4.ExecSQL;
Except
DataModule2.IBTransaction1.RollbackRetaining;
ShowMessage('Запись не добавлена');
exit;
end;
DataModule2.IBTransaction1.CommitRetaining;
ShowMessage('Запись обновлена');
IBQuery1.Close;
IBQuery1.Open;
end;
end;
procedure TForm1.IBQuery1AfterScroll(DataSet: TDataSet);
begin
if IBQuery1.FieldValues['Fam']<> null then
Edit29.Text:=IBQuery1.FieldValues['Fam'];
if IBQuery1.FieldValues['Name']<> null then
Edit30.Text:=IBQuery1.FieldValues['Name'];
if IBQuery1.FieldValues['Otch']<> null then
Edit31.Text:=IBQuery1.FieldValues['Otch'];
if IBQuery1.FieldValues['Pol']<> null then
Edit33.Text:=IBQuery1.FieldValues['Pol'];
if IBQuery1.FieldValues['DR']<> null then
Edit32.Text:=IBQuery1.FieldValues['DR'];
if IBQuery1.FieldValues['Ves']<> null then
Edit34.Text:=IBQuery1.FieldValues['Ves'];
if IBQuery1.FieldValues['Rost']<> null then
Edit35.Text:=IBQuery1.FieldValues['Rost'];
if IBQuery1.FieldValues['Adr_str']<> null then
Edit43.Text:=IBQuery1.FieldValues['Adr_str'];
if IBQuery1.FieldValues['Adr_obl']<> null then
Edit44.Text:=IBQuery1.FieldValues['Adr_obl'];
if IBQuery1.FieldValues['Adr_gor']<> null then
Edit45.Text:=IBQuery1.FieldValues['Adr_gor'];
if IBQuery1.FieldValues['Adr_yl']<> null then
Edit46.Text:=IBQuery1.FieldValues['Adr_yl'];
if IBQuery1.FieldValues['Adr_dom']<> null then
Edit47.Text:=IBQuery1.FieldValues['Adr_dom'];
if IBQuery1.FieldValues['Adr_kv']<> null then
Edit48.Text:=IBQuery1.FieldValues['Adr_kv'];
if IBQuery1.FieldValues['Adr_ind']<> null then
Edit50.Text:=IBQuery1.FieldValues['Adr_ind'];
if IBQuery1.FieldValues['Adr_tel']<> null then
Edit49.Text:=IBQuery1.FieldValues['Adr_tel'];
if IBQuery1.FieldValues['Mroz_str']<> null then
Edit40.Text:=IBQuery1.FieldValues['Mroz_str'];
if IBQuery1.FieldValues['Mroz_obl']<> null then
Edit41.Text:=IBQuery1.FieldValues['Mroz_obl'];
if IBQuery1.FieldValues['Paspost_nom']<> null then
Edit53.Text:=IBQuery1.FieldValues['Paspost_nom'];
if IBQuery1.FieldValues['Mroz_gor']<> null then
Edit42.Text:=IBQuery1.FieldValues['Mroz_gor'];
if IBQuery1.FieldValues['Paspost_ser']<> null then
Edit54.Text:=IBQuery1.FieldValues['Paspost_ser'];
if IBQuery1.FieldValues['Paspost_vidan']<> null then
Edit55.Text:=IBQuery1.FieldValues['Paspost_vidan'];
if IBQuery1.FieldValues['Paspost_data']<> null then
Edit56.Text:=IBQuery1.FieldValues['Paspost_data'];
if IBQuery1.FieldValues['Tryd_kn_seriya']<> null then
Edit51.Text:=IBQuery1.FieldValues['Tryd_kn_seriya'];
if IBQuery1.FieldValues['Tryd_kn_nomer']<> null then
Edit52.Text:=IBQuery1.FieldValues['Tryd_kn_nomer'];
if IBQuery1.FieldValues['Obrazov']<> null then
Edit36.Text:=IBQuery1.FieldValues['Obrazov'];
if IBQuery1.FieldValues['Grazdan']<> null then
Edit37.Text:=IBQuery1.FieldValues['Grazdan'];
if IBQuery1.FieldValues['Nom_strax_sved']<> null then
Edit38.Text:=IBQuery1.FieldValues['Nom_strax_sved'];
if IBQuery1.FieldValues['INN']<> null then
Edit39.Text:=IBQuery1.FieldValues['INN'];
end;
procedure TForm1.N5Click(Sender: TObject);
begin
Form4.Notebook1.PageIndex := 0;
Form4.GroupBox1.Caption := ' По фамилии: ';
Form4.ShowModal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
Form4.Notebook1.PageIndex := 1;
Form4.GroupBox1.Caption := ' По полу: ';
Form4.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
Form4.Notebook1.PageIndex := 2;
Form4.GroupBox1.Caption := ' По дате рождения: ';
Form4.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select * from anketa order by fam');
IBQuery1.Open;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select * from anketa order by dr');
IBQuery1.Open;
end;
procedure TForm1.N11Click(Sender: TObject);
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select * from anketa order by rost');
IBQuery1.Open;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute Then
begin
DBImage3.Picture.LoadFromFile(OpenPictureDialog1.FileName);
IBQueryFoto.ParamByName('FOTO').LoadFromFile(OpenPictureDialog1.FileName,ftBlob);
IBQueryFoto.ParamByName('Nom').Value := IBQuery1.FieldByName('Nom').Value;
Try
IBQueryFoto.ExecSQL;
Except
DataModule2.IBTransaction1.RollbackRetaining;
ShowMessage('Ошибка установки фотографии');
Exit;
End;
DataModule2.IBTransaction1.CommitRetaining;
IBQuery1.Close;
IBQuery1.Open;
ShowMessage('Фотография установлена');
end;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 1;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 2;
end;
procedure TForm1.N15Click(Sender: TObject);
begin
if MessageBox(Handle,'Вы действительно хотите удалить запись?','Подтверждение удаления', MB_YESNO or MB_ICONWARNING)=mrYes then
begin
IBQuery3.ParamByName('NOM').Value := IBQuery1.FieldByName('NOM').Value;
Try
IBQuery3.ExecSQL;
Except
DataModule2.IBTransaction1.RollbackRetaining;
MessageBox(Handle,'Невозможно удалить запись.','Ошибка удаления записи', MB_OK or MB_ICONERROR);
Exit;
End;
DataModule2.IBTransaction1.CommitRetaining;
IBQuery1.Close;
IBQuery1.Open;
MessageBox(Handle,'Запись удалина.','Событие', MB_OK or MB_ICONINFORMATION);
end;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
IBQuery1.Open;
end;
procedure TForm1.N16Click(Sender: TObject);
begin
Form5.ShowModal;
end;
procedure TForm1.N18Click(Sender: TObject);
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('SELECT * FROM ANKETA');
IBQuery1.Open;
end;
end.
Модуль формы с фильтрацией
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm4 = class(TForm)
GroupBox1: TGroupBox;
Notebook1: TNotebook;
Label1: TLabel;
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Button4: TButton;
Button5: TButton;
Edit2: TEdit;
Label2: TLabel;
Label3: TLabel;
Edit3: TEdit;
Button6: TButton;
Button7: TButton;
Button8: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1, Unit2, Unit3;
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
Form1.IBQuery1.Close;
form1.IBQuery1.SQL.Clear;
Form1.IBQuery1.SQL.Add('SELECT * FROM ANKETA WHERE Fam='+#39+Edit1.text+#39'');
Form1.IBQuery1.Open;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
Form1.IBQuery1.Close;
form1.IBQuery1.SQL.Clear;
Form1.IBQuery1.SQL.Add('SELECT * FROM ANKETA');
Form1.IBQuery1.Open;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
Edit1.Text:='';
end;
procedure TForm4.Button5Click(Sender: TObject);
begin
Form1.IBQuery1.Close;
form1.IBQuery1.SQL.Clear;
Form1.IBQuery1.SQL.Add('SELECT * FROM ANKETA');
Form1.IBQuery1.Open;
end;
procedure TForm4.Button4Click(Sender: TObject);
begin
Form1.IBQuery1.Close;
form1.IBQuery1.SQL.Clear;
if RadioButton1.Checked=true then
Form1.IBQuery1.SQL.Add('SELECT * FROM ANKETA WHERE POL='+#39+'М'+#39);
if RadioButton2.Checked=true then
Form1.IBQuery1.SQL.Add('SELECT * FROM ANKETA WHERE POL='+#39+'Ж'+#39);
Form1.IBQuery1.Open;
end;
procedure TForm4.Button6Click(Sender: TObject);
begin
Form1.IBQuery1.Close;
form1.IBQuery1.SQL.Clear;
Form1.IBQuery1.SQL.Add('SELECT * FROM ANKETA WHERE(DR>='+#39+Edit2.text+#39+') and (DR<='+#39+Edit3.text+#39+') ');
Form1.IBQuery1.Open;
end;
procedure TForm4.Button8Click(Sender: TObject);
begin
Edit2.Text:='';
Edit3.Text:='';
end;
procedure TForm4.Button7Click(Sender: TObject);
begin
Form1.IBQuery1.Close;
form1.IBQuery1.SQL.Clear;
Form1.IBQuery1.SQL.Add('SELECT * FROM ANKETA');
Form1.IBQuery1.Open;
end;
end.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
