|
|
| бет | 24/26 | | Дата | 08.06.2022 | | өлшемі | 0,55 Mb. | | #36560 |
| Байланысты: Delphi joba (1)Қолданылған әдебиеттер
Архангельский А.Я. Программирование в Delphi 6. – М.:ЗАО «Издательство БИНОМ», 2003г.-1120 с.
Бобровский С. Delphi 6 и Kylix: библиотека программиста. – сПб.:Питер, 2002. – 560 с.
Бобровский С. Delphi 5. учебный курс – сПб.:Питер, 2001г.
Дантеманн Д., Мишел Д., Тейлор Д. Программирование в среде Delphi / Пер. с англ. – К.: НИПФ «Диа Софт Лтд.», 1995г. – 608 с.
Культин Н. Delphi в задачах и примерах. – СПб.: БХВ-Петербург, 2004. – 288 с.
Мозговой М.В. Занимательное программирование: Самоучитель. – СПб.: Питер, 2004 – 208 с.
Понамарев В.Базы данных в Delphi 7. Самоучитель. – СПб.:Питер, 2003. – 224 с.
Фаронов В. В. Delphi 6. Учебный курс.-М.: Издатель Молгачева С.В., 2001. – 672 с.
Флёнов М.Е. Библия Delphi. – СПб.: БХВ-Петербург, 2004. – 880 с.
Хомоненко А.Д. и др. Delphi 7/ Под общ. ред. А.Д.Хомоненко. – СПб.:БХВ-Петербург, 2004.-1216 с.
ҚОСЫМША А
Пароль орнату коды
unit PasUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TPasForm = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
PasForm: TPasForm;
implementation
uses MainUnit;
{$R *.dfm}
procedure TPasForm.Button1Click(Sender: TObject);
const h='ЭСЕЛЬ';
var str:string;
begin
str:=edit1.Text;
if (str=h) then PasForm.Visible:=true;
if (str=h) then MainForm.Visible:=true;
end;
procedure TPasForm.Button2Click(Sender: TObject);
begin
Close;
MainForm.Close;
end;
end.
Достарыңызбен бөлісу: |
|
|
