1.3 Листинг программы
procedure TForm1.FormCreate(Sender: TObject);
begin
table1.FilterOptions:=[focaseInsensitive];
table1.Filtered:=false;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
table1.Filtered:=false;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
table1.Filtered:=true;
table1.Filter:=edit1.text;
end;
end.
1.4 Контрольный пример
Индивидуальное задание
База данных «Кафетерий Неделька»
Таблица базы данных содержит:
1)Главное Меню
2) Навигационный способ доступа к данным
3)Способ фильтрации
4)Поиск
5)Отчет
6)Регистрация
1 Постановка задачи
1.1Кафетерей Неделька
1.2 Листинг программы
procedure TForm5.Button1Click(Sender: TObject);
var
savetxt:TStringList;
iterIntCount:integer;
LoginandPass:String;
begin
if(Edit1.Text='') and (Edit2.Text ='')
then
Label5.Caption:='входневыполнен'
else
begin
savetxt:=TStringList.Create;
savetxt.LoadFromFile(ExtractFilePath(Application.ExeName)+'Vas.txt');
LoginandPass:=(Edit1.Text+' '+Edit2.Text);
For iterIntCount:=0 to savetxt.Count-1 do
Begin
If LoginandPass = savetxt[iterIntCount] then
begin
Label5.Caption:=('ВыВошлиКак' + Edit1.text); form1.show; form5.Hide ;
Break;
Close
End
Else
Begin //ShowMessage('Входневыполнен');
Label5.Caption:='Вход не Выполнен';
begin
Edit1.Text:='';
Edit2.Text:='';
end;
end;
end;
end;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
Close
end;
procedure TForm5.Button1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then Button2.Click
end;
procedure TForm5.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then Button1.Click
end;
procedure TForm5.FormActivate(Sender: TObject);
begin
with session do
begin
configmode:=cmSession;
try
addstandardalias('vas', ExtractFilePath(ParamStr(0))+'data\','paradox');
addstandardalias('vas1', ExtractFilePath(ParamStr(0))+'data\','paradox');
addstandardalias('vas2', ExtractFilePath(ParamStr(0))+'data\','paradox');
finally
configmode:=cmAll;
end;
end;
END;
procedure TForm5.N2Click(Sender: TObject);
begin
Panel2.Visible:=True
end;
procedure TForm5.N4Click(Sender: TObject);
begin
Panel2.Visible:=False
end;
procedure TForm5.Button4Click(Sender: TObject);
var
savetext:TStringList;
login,pass:String;
begin
savetext:=TStringList.Create;
savetext.LoadFromFile(ExtractFilePath(Application.ExeName)+'Vas.txt');
if (Edit3.Text <>'') and (Edit4.Text <>'') then
begin
login:=Trim(Edit3.Text);
pass:=Trim(Edit4.Text);
savetext.Add(login+' '+pass);
savetext.SaveToFile(ExtractFilePath(Application.ExeName)+'Vas.txt');
ShowMessage('Вы успешно зарегистрировались');
end;
edit3.Text:='';
Edit4.Text:='';
end;
procedure TForm5.FormCreate(Sender: TObject);
begin
Label2.Caption:=DateToStr(Date);
Edit4.PasswordChar:='*'
end;
procedure TForm5.Button4KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then Button4.Click;
end;
procedure TForm5.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then Button4.Click
end;
procedure TForm5.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(Time)
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form3.Show
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
form4.Show
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
form5.close;
close;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form5.close;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(time);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
label2.caption:=datetostr(date);
end;
end.
procedure TForm2.FormActivate(Sender: TObject);
begin
table1.DatabaseName:='vas';
table1.tableName:='vas.db';
table1.Active:=true;
Dbgrid1.Columns[0].Title.caption:='Товар';
Dbgrid1.Columns[1].Title.caption:='КГ';
Dbgrid1.Columns[2].Title.caption:='Кол-во';
Dbgrid1.Columns[3].Title.caption:='Цена';
table1.FilterOptions:=[focaseInsensitive];
table1.Filtered:=false;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
IF RadioButton1.Checked=true then
begin
table1.Filtered:=true;
table1.Filter:='Tovar='''+edit2.text+'''';
end;
IF RadioButton2.Checked=true then
begin
table1.Filtered:=true;
table1.Filter:='Kolvo='+edit2.text
end;
IF RadioButton3.Checked=true then
begin
table1.Filtered:=true;
table1.Filter:='KG='+edit2.Text
end;
IF RadioButton4.Checked=true then
begin
table1.Filtered:=true;
table1.Filter:='Cena='+edit2.Text
end;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
table1.Filtered:=false;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
form1.show;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Close;
end;
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(time)
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Label2.Caption:=datetostr(date)
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
if not Table1.Locate('Tovar',Edit2.Text,[loCaseInsensitive,loPartialKey])then
ShowMessage('Запись не найдена');
end;
procedure TForm2.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Table1.IndexName :='Tov'
end;
procedure TForm2.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then
Table1.IndexName :='K'
end;
procedure TForm2.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then
Table1.IndexName :='Kol'
end;
procedure TForm2.CheckBox4Click(Sender: TObject);
begin
if CheckBox4.Checked then
Table1.IndexName :='Cen'
end;
end.
procedure TForm3.BitBtn1Click(Sender: TObject);
begin
close
end;
procedure TForm3.FormActivate(Sender: TObject);
begin
table1.DatabaseName:='vas2';
table1.tableName:='vas2.db';
table1.Active:=true;
Dbgrid1.Columns[0].Title.caption:='Товар';
//Dbgrid1.Columns[1].Title.caption:='КГ';
Dbgrid1.Columns[1].Title.caption:='Кол-во';
Dbgrid1.Columns[2].Title.caption:='Цена';
table1.FilterOptions:=[focaseInsensitive];
table1.Filtered:=false;
end;
procedure TForm3.Button2Click(Sender: TObject);
begin
table1.Filtered:=false;
end;
procedure TForm3.Button3Click(Sender: TObject);
begin
IF RadioButton1.Checked=true then
begin
table1.Filtered:=true;
table1.Filter:='Kolvo='+edit1.text;
end;
IF RadioButton2.Checked=true then
begin
table1.Filtered:=true;
table1.Filter:='Cena='+edit1.text
end;
IF RadioButton3.Checked=true then
begin
table1.Filtered:=true;
table1.Filter:='Tovar='''+edit1.text+'''';
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm3.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(time)
end;
procedure TForm3.FormCreate(Sender: TObject);
begin
Label2.Caption:=datetostr(date)
end;
procedure TForm3.Button4Click(Sender: TObject);
begin
if not Table1.Locate('Tovar',Edit1.Text,[loCaseInsensitive,loPartialKey])then
ShowMessage('Запись не найдена');
end;
procedure TForm3.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Table1.IndexName :='Tov'
end;
procedure TForm3.RadioGroup2Click(Sender: TObject);
begin
if CheckBox2.Checked then
Table1.IndexName :='Kol'
end;
procedure TForm3.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then
Table1.IndexName :='Cen'
end;
end.
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
Close
end;
procedure TForm4.FormActivate(Sender: TObject);
begin
table1.DatabaseName:='vas1';
table1.tableName:='vas1.db';
table1.Active:=true;
Dbgrid1.Columns[0].Title.caption:='Товар';
Dbgrid1.Columns[1].Title.caption:='Кол-во';
Dbgrid1.Columns[2].Title.caption:='Цена';
table1.FilterOptions:=[focaseInsensitive];
table1.Filtered:=false;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
IF RadioButton1.Checked=true then
begin
table1.Filtered:=true;
table1.Filter:='Tovar='''+edit1.text+'''';
end;
IF RadioButton2.Checked=true then
begin
table1.Filtered:=true;
table1.Filter:='Kolvo='+edit1.text
end;
IF RadioButton3.Checked=true then
begin
table1.Filtered:=true;
table1.Filter:='Cena='+edit1.Text
end;
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
table1.Filtered:=false;
end;
procedure TForm4.Button3Click(Sender: TObject);
begin
close
end;
procedure TForm4.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(time)
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
Label2.Caption:=datetostr(date);
end;
procedure TForm4.Button4Click(Sender: TObject);
begin
if not Table1.Locate('Tovar',Edit1.Text,[loCaseInsensitive,loPartialKey])then
ShowMessage('Запись не найдена');
end;
procedure TForm4.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
Table1.IndexName :='cen'
end;
procedure TForm4.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then
Table1.IndexName :='Tov'
end;
procedure TForm4.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then
Table1.IndexName :='Kol'
end;
end.