Page 62
Ф-ОБ-001/033
63
2.2 Delphi-де бағдарламалық құрылымын сипаттау
Негізінен бұл форманы құрғанда Panel, AboutBox, Tbutton, Label1
компоненттері пайдаланып құрылған. Бұл терезені құру мақсатым диплом
такырыбы және бағдарлама аты туралы мәліметті көрсету.
unit about;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls;
type
TAboutBox = class(TForm)
Panel1: TPanel;
ProgramIcon: TImage;
ProductName: TLabel;
Version: TLabel;
Copyright: TLabel;
OKButton: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
AboutBox: TAboutBox;
implementation
{$R *.dfm}
end.
Ф-ОБ-001/033
64
Келесі терезені құру мақсатым бағыттар бойынша бағыттың аты,
аудандар, қалалар, көлік түрлері, тұратын жері, бағасы туралы ақпарат
беру үшін жасалды. Бұл бұл форманы құру барысында BitBtn, PageControl,
TabSheet, DBMemo, DataSource, DBLookupComboBox, DBEdit, Label1
компоненттері пайдаланып, procedure TFrmEdit.FormCloseQuery(Sender:
TObject; var CanClose: Boolean) процедурасы құрылды.
unit editu;
//модуь ввода и редактирования данных
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls, DB, DBTables, ADODB, ComCtrls;
type
TFrmEdit = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
DBMemo1: TDBMemo;
DataSource1: TDataSource;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Label3: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
Достарыңызбен бөлісу: |
