ߔ
:
-33
..
___________/ . . /
"_____" _______________2011 .
_____________________
( )
. 4
1. . 5
1.1 . 5
1.2 . 6
1.3 : 8
2. . 11
2.1 : 11
2.2 . 12
. 13
.. 14
. 14
.. 18
: 18
Delphi 7 , .
Delphi- ᒺ- . , Delphi ᒺ, . ( ) , .
, , . .
, Delphi7.
1. .
.
: , , .
- , , .
ϳ , , , -.
-:
1.2
Label
|
|
|
|
|
|
|
|
|
|
, , . , . . .
|
|
1.3 :
(Form) | Windows. | , |
MainMenu | MainMenu ( ) Delphi . . | (, , ). |
DBGrid | , , - . | , . |
Table | . | . |
Panel | TPanel . | . |
DataSource | DataSource 䳺 TDataSet (TTable, TQuery, TStoredProc) Data Controls - , . | DataSource ' . |
Edit | (TEdit) , , . | . |
Button, BitBtn | -, . Standard. | 䳿 OnClick |
2.
2.1 :
- 1000 . . , .
() , .
.
2.2
ϳ , , . ϳ . ϳ , ( DBGrid).
|
|
. ϳ . . , .
, . ϳ , .
.
1. . . Pascal Delphi. .: -, 2004
2. , . Delphi 6 -, ----, 2001
3. .., .., .. . Turbo Pascal Delphi., 2008
4. . . . . : , 2001
5. . Delphi 7: . -: , 2004.
6. .. . .: BHV, 2005.
7. .. Delphi 7. -, 2003
Var
Form1: TForm1;
Implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.N6Click(Sender: TObject);
Begin
AboutBox.show;
End;
//
procedure TForm1.N2Click(Sender: TObject);
Begin
Panel1.Visible:= true;
Panel2.Visible:= false;
Panel3.Visible:= false;
End;
//
procedure TForm1.Button1Click(Sender: TObject);
Begin
if ((edit1.Text<>'') and (edit2.Text<>'')) then
Begin
Table1.Insert;
Table1.FieldByName('En').AsString:= edit1.Text;
Table1.FieldByName('Ukr').AsString:= edit2.Text;
table1.Post;
showmessage (' !');
edit1.Clear;
edit2.Clear;
End;
End;
//
procedure TForm1.N3Click(Sender: TObject);
Begin
Panel1.Visible:= false;
Panel2.Visible:= true;
Panel3.Visible:= false;
End;
//
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Begin
if messagedlg(' ?',mtinformation,[mbok,mbcancel],0)= mrcancel then
canclose:=false else begin
canclose:=true; animatewindow(handle,500,aw_blend or aw_hide); end;
End;
//
procedure TForm1.BitBtn2Click(Sender: TObject);
Begin
if messagedlg(' ?',mtinformation,[mbok,mbcancel],0)= mrok then
Begin
Table1.Delete;
ShowMessage(' !');
End;
End;
//
procedure TForm1.BitBtn1Click(Sender: TObject);
Begin
Table1.UpdateRecord;
ShowMessage(' !');
End;
//
procedure TForm1.N4Click(Sender: TObject);
Begin
Panel1.Visible:= false;
Panel2.Visible:= false;
Panel3.Visible:= true;
End;
//
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
var FieldVal:string;
Begin
if Edit3.Focused= true then
Begin
FieldVal:= DataSet['En'];
Accept:= copy(AnsiUpperCase(FieldVal), 1, length(edit3.text)) = AnsiUpperCase(edit3.Text);
End;
|
|
if Edit4.Focused= true then
Begin
FieldVal:= DataSet['Ukr'];
Accept:= copy(AnsiUpperCase(FieldVal), 1, length(edit4.text)) = AnsiUpperCase(edit4.Text);
End; end;
//
procedure TForm1.Edit3Change(Sender: TObject);
Begin
table1.Filtered:=false;
table1.Filtered:=true;
End;
//
procedure TForm1.Edit4Change(Sender: TObject);
Begin
table1.Filtered:=false;
table1.Filtered:=true;
End;
procedure TForm1.Button3Click(Sender: TObject);
Begin
Table1.Next;
End;
procedure TForm1.Button2Click(Sender: TObject);
Begin
Table1.Prior;
End;
End.
:
: