1 borland delphi объектіге бағытталған бағдарлау тілі 8 1 Delphі программалау тілін ќолдану тәсілі 8

Loading...


бет30/41
Дата22.06.2021
өлшемі1.24 Mb.
1   ...   26   27   28   29   30   31   32   33   ...   41
Database Desktop утилитасы арќылы дайындалған бос кестені программа арќылы (динамикалыќ түрде) дайындауға болады. Мысалы‚ Paradox типті My Databases алиасында Нөмірі‚ Шығарған завод‚ Маркасы‚ Шығарған жылы‚ Түсі‚ Бағасы атаулы алты өрістен тұратын Rous5.db кестенің өріс таќырыптарын дайындау тәсілі мына амалдар арќылы орындалады.

  1. Жаңа проект ашып‚ формада Table1, Button1 компоненттерін орнату.

  2. Код терезесінде Button1 компонентінің OnClіck оќиғасын өңдеуіш процедурасын ќұру керек.


Сурет 8- жарнамалық форма

unit Unit2;
interface
uses

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

Dialogs, StdCtrls, Buttons, Menus, DBTables, DB, Grids, DBGrids;
type

TForm2 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N11: TMenuItem;

N21: TMenuItem;

N31: TMenuItem;

N41: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N9: TMenuItem;

DataSource1: TDataSource;

Table1: TTable;

Query1: TQuery;

DBGrid1: TDBGrid;

Label1: TLabel;

Edit1: TEdit;

Edit2: TEdit;
procedure N11Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N31Click(Sender: TObject);

procedure N41Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }



end;
var

Form2: TForm2;

n,s:integer;

tt,t,s2,s1,s3:string;

implementation
uses Unit3, Unit7, Unit1, Unit5, Unit4;
{$R *.dfm}

procedure TForm2.N11Click(Sender: TObject);

begin

form4.Label4.Caption :='1';



n:=0;

s:=1;


table1.Active :=false;

datasource1.DataSet :=query1;

query1.Active :=false;

dbgrid1.Visible :=true;

query1.SQL.Clear ;

query1.SQL.Add('select * from leg_avto.db');

query1.Active :=true;

label1.Caption :='Легковые автомобилы';

end;
procedure TForm2.N14Click(Sender: TObject);

begin


form1.Show ;

form2.Hide ;

end;
procedure TForm2.N8Click(Sender: TObject);

begin


form5.label1.Caption :='3';

query1.Active :=false;

table1.Active :=false;

form5.DBNavigator1.DataSource :=datasource1;

form5.DBGrid1.DataSource :=datasource1;

datasource1.DataSet :=table1;

//-------------------

if s=1 then begin

table1.TableName :='leg_avto.db';

table1.Active :=true;

end;

//------------------------



if s=2 then begin

table1.TableName :='gruz_avto.db';

table1.Active :=true;

end;


//++++++++++++++++++++++++

if s=3 then begin

table1.TableName :='velo_moto.db';

table1.Active :=true;

end;

//++++++++++++++++++++++++



if s=4 then begin

table1.TableName :='zapch.db';

table1.Active :=true;

end;
//++++++++++++++++++++++++

form5.show;

form3.Hide ;

//**

end;
procedure TForm2.N21Click(Sender: TObject);



begin

form4.Label4.Caption :='2';

n:=0;

s:=2;


table1.Active :=false;

datasource1.DataSet :=query1;

query1.Active :=false;

dbgrid1.Visible :=true;

query1.SQL.Clear ;

query1.SQL.Add('select * from gruz_avto.db');

query1.Active :=true;

label1.Caption :='Грузовые автомобилы';

end;
procedure TForm2.N31Click(Sender: TObject);

begin


form4.Label4.Caption :='3';

n:=0;


s:=3;

table1.Active :=false;

datasource1.DataSet :=query1;

query1.Active :=false;

dbgrid1.Visible :=true;

query1.SQL.Clear ;

query1.SQL.Add('select * from velo_moto.db');

query1.Active :=true;

label1.Caption :='Вело-Мото';

end;
procedure TForm2.N41Click(Sender: TObject);

begin

form4.Label4.Caption :='4';



n:=0;

s:=4;


table1.Active :=false;

datasource1.DataSet :=query1;

query1.Active :=false;

dbgrid1.Visible :=true;

query1.SQL.Clear ;

query1.SQL.Add('select * from zapch.db');

query1.Active :=true;

label1.Caption :='Запчасти и принадлежности';

end;
procedure TForm2.N3Click(Sender: TObject);

begin


table1.Active :=false;

datasource1.DataSet :=query1;

if s=1 then begin

with Query1 do

begin

Query1.Close;



Query1.SQL.Clear;

sql.Add('Select * from "leg_avto.db"');

sql.Add('order by zena');

query1.open;

end;

end;


//-----------------------***

if s=2 then begin

with Query1 do

begin


Query1.Close;

Query1.SQL.Clear;

sql.Add('Select * from "gruz_avto.db"');

sql.Add('order by zena');

query1.open;

end;


end;

//-----------------------***

if s=3 then begin

with Query1 do

begin

Query1.Close;



Query1.SQL.Clear;

sql.Add('Select * from "velo_moto.db"');

sql.Add('order by zena');

query1.open;

end;

end;


//-----------------------***

if s=4 then begin

with Query1 do

begin


Query1.Close;

Query1.SQL.Clear;

sql.Add('Select * from "zapch.db"');

sql.Add('order by zena');

query1.open;

end;


end;

//-----------------------***


end;
procedure TForm2.N4Click(Sender: TObject);

begin


table1.Active :=false;

datasource1.DataSet :=query1;

if s=1 then begin

with Query1 do

begin

Query1.Close;



Query1.SQL.Clear;

sql.Add('Select * from "leg_avto.db"');

sql.Add('order by naim_tov');

query1.open;

end;

end;


//-----------------------***

if s=2 then begin

with Query1 do

begin


Query1.Close;

Query1.SQL.Clear;

sql.Add('Select * from "gruz_avto.db"');

sql.Add('order by naim_tov');

query1.open;

end;


end;

//-----------------------***

if s=3 then begin

with Query1 do

begin

Query1.Close;



Query1.SQL.Clear;

sql.Add('Select * from "velo_moto.db"');

sql.Add('order by naim_tov');

query1.open;

end;

end;


//-----------------------***

if s=4 then begin

with Query1 do

begin


Query1.Close;

Query1.SQL.Clear;

sql.Add('Select * from "zapch.db"');

sql.Add('order by naim_tov');

query1.open;

end;


end;

//-----------------------***

end;
procedure TForm2.N6Click(Sender: TObject);

begin


if s=1 then begin

s1:=InputBox('Фильтрация','Ввод Наименование товара','');

t:='where naim_tov ="'+s1+'"';

with Query1 do

begin

Query1.Close;



Query1.SQL.Clear;

sql.Add('Select * from "leg_avto.db"');

sql.Add(t);

query1.open;

end;

end;


//-------------------------------------

if s=2 then begin

s1:=InputBox('Фильтрация','Ввод Наименование товара','');

t:='where naim_tov ="'+s1+'"';

with Query1 do

begin


Query1.Close;

Query1.SQL.Clear;

sql.Add('Select * from "gruz_avto.db"');

sql.Add(t);

query1.open;

end;


end;

//-------------------------------------

if s=3 then begin

s1:=InputBox('Фильтрация','Ввод Наименование товара','');

t:='where naim_tov ="'+s1+'"';

with Query1 do

begin

Query1.Close;



Query1.SQL.Clear;

sql.Add('Select * from "velo_moto.db"');

sql.Add(t);

query1.open;

end;

end;


//-------------------------------------

if s=4 then begin

s1:=InputBox('Фильтрация','Ввод Наименование товара','');

t:='where naim_tov ="'+s1+'"';

with Query1 do

begin


Query1.Close;

Query1.SQL.Clear;

sql.Add('Select * from "zapch.db"');

sql.Add(t);

query1.open;

end;


end;

//-------------------------------------


//-------------------------------------

end;
procedure TForm2.N7Click(Sender: TObject);

begin

form4.Label3.Caption :='avto';



form4.Show ;

//---------------------------------

end;

{procedure TForm2.N8Click(Sender: TObject);



begin

form5.label1.Caption :='1';

query1.Active :=false;

table1.Active :=false;

form5.DBNavigator1.DataSource :=datasource1;

form5.DBGrid1.DataSource :=datasource1;

datasource1.DataSet :=table1;

//-------------------

if s=1 then begin

table1.TableName :='kvar_I.db';

table1.Active :=true;

end;


//------------------------

if s=2 then begin

table1.TableName :='kvar_II.db';

table1.Active :=true;

end;

//++++++++++++++++++++++++



if s=3 then begin

table1.TableName :='kvar_III.db';

table1.Active :=true;

end;


//++++++++++++++++++++++++

if s=4 then begin

table1.TableName :='kvar_IV.db';

table1.Active :=true;

end;

//++++++++++++++++++++++++



if s=5 then begin

table1.TableName :='kvar_V.db';

table1.Active :=true;

end;


//++++++++++++++++++++++++

if s=6 then begin

table1.TableName :='kvar_VI.db';

table1.Active :=true;

end;
//++++++++++++++++++++++++

form5.show;

form3.Hide ;

//**
end;}

procedure TForm2.N12Click(Sender: TObject);

begin


s3:=InputBox('Поиск','Ввод Наименование товара','');

query1.Locate('naim_tov',s3,[loCaseInsensitive,lopartialkey]);

end;
procedure TForm2.N13Click(Sender: TObject);

begin


s3:=InputBox('Поиск','Ввод Наименование товара','');

query1.Locate('zena',s3,[loCaseInsensitive,lopartialkey]);

end;
end.
мұндағы Create Table (Кесте ќұру) – TTable компонентінің кесте ќұру әдісі. Олш таңдалған ќұрылым бойынша бос кесте ќұрады (әдісті Paradox не dBase форматында ғана пайдалану мүмкін); Table – берілгендер ќоры кестесіне ќол жеткізу компоненті.

Программада пайдаланылған ќасиеттер:

DatabaseName – алиас атауын аныќтау;



Достарыңызбен бөлісу:
1   ...   26   27   28   29   30   31   32   33   ...   41
Loading...




©melimde.com 2020
әкімшілігінің қараңыз

    Басты бет
Сабақтың тақырыбы
Сабақтың мақсаты
бойынша жиынтық
жиынтық бағалау
Сабақ тақырыбы
рсетілетін қызмет
ғылым министрлігі
Жалпы ережелер
қызмет стандарты
тоқсан бойынша
бекіту туралы
бағалауға арналған
Әдістемелік кешені
Сабақ жоспары
тоқсанға арналған
туралы хабарландыру
жиынтық бағалаудың
жиынтық бағалауға
арналған жиынтық
Қазақстан республикасы
бағалау тапсырмалары
арналған тапсырмалар
Қазақстан республикасының
бағалаудың тапсырмалары
республикасы білім
білім беретін
пәнінен тоқсанға
Жұмыс бағдарламасы
Қазақстан тарихы
біліктілік талаптары
арналған әдістемелік
әкімінің аппараты
туралы анықтама
мамандығына арналған
қойылатын жалпы
мерзімді жоспар
жалпы біліктілік
Конкурс туралы
Қазақ әдебиеті
мемлекеттік әкімшілік
Мектепке дейінгі
жалпы конкурс
оқыту әдістемесі
қатысушыларға қойылатын
Қазақстан облысы
әдістемелік кешені
болып табылады
мамандығы бойынша
ортақ біліктілік
қызмет регламенті
пәнінен тоқсан

Loading...