Автор работы: Пользователь скрыл имя, 08 Декабря 2011 в 13:01, реферат
Ақпаратты басқару компюьтерлерді қолданудың негізгі сферасы болып табылады және де, болашақта үлкен роль атқарады. Мәліметтер қорын басқару жүйесі компьютерлік техниканың даму жолдарына байланысты жетілдендіріліп тұрды, пайдаланушының қойған барлық күрделі деңгейдегі талаптарын орындауға бейімделді. Қазіргі қоғамның талаптарына сәйкес жаңа техналогиялардың даму барысында жұмыс орнын автоматтандыру негізгі мәселелердің бірі.
end;
function
sQLText2(par1,par2:string):
var SQL:TStringList;
begin
try
SQL:=TStringList.Create;
SQL.Clear;
SQL.Add('SELECT * FROM Койма ');
if Trim(par1)<>'' then
SQL.Add('WHERE Саны LIKE '+QuotedStr(par1));
if Trim(par2)<>'' then
begin
if Trim(par1)<>'' then
SQL.Add('AND Стеллаж LIKE '+QuotedStr(par2))
else
SQL.Add('WHERE Стеллаж LIKE '+QuotedStr(par2));
end;
Result:=SQL.Text;
finally
SQL.Free;
end;
end;
procedure TForm2.TntButton5Click(Sender: TObject);
begin
ADOQuery4.Close;
ADOQuery4.SQL.Text:=SQLText2(
ADOQuery4.Open;
datasource4.DataSet:=
end;
procedure
TForm2.TntButton10Click(
begin
tntedit17.clear;
tntedit20.Clear;
with aDOQuery4 do
begin
Close;
active:=false;
SQL.Clear;
SQL.Add(‘SELECT * FROM Койма’);
Open;
datasource4.DataSet:=
end;
end;
procedure
TForm2.TntButton11Click(
var i: integer;
begin
with aDOQuery4 do
begin
Close;
active:=false;
SQL.Clear;
SQL.Add('SELECT * FROM Койма ') ;
SQL.Add('WHERE' );
SQL.Add('Саны=0');
Open;
datasource4.DataSet:=
end; end;
procedure
TForm2.TntButton12Click(
begin
tntedit10.clear; tntedit2.clear; tntedit6.clear; tntedit11.clear;
end;
end.