ComboBox komponenti quyidagi asosiy xususiyatlarga ega:
1. Items – mazkur ro’yxat elementlarini kiritish, o’chirish va taxrirlash
bo’limi;
2. Style – mazkur maydonni uslubini belgilovchi xususiyat. Odatda, csExDropDownList, csExDropDown va csExSimple qiymatlaridan biri tanlanadi.
3. Text – ComboBox kompoonentida nofaol holatda aks etuvchi matn.
4. Columns – Elementlar nechta usutun shaklida namoyon etishi belgilaydi;
5. DrawCount – ComboBox elementlarini umumiy soni. Mazkur komponentdan foydalanishda onChange, onKeyPress, onClick, onDbClick, va onContextPopup ko’p qo’llaniladigan hodisalar hisoblanadi.
Button komponenti quyidagi xususiyatlarga ega:
1. Caption – Button komponentining ma’lumoti ushbu xususiyatda satrli tip shaklida saqlanadi;
2. Style – xususiyatidagi qiymatlar orqali Button komponentini ko’rinishini o’zgartirish mumkin. U quyidagi qiymatlarning birida bo’lishi mumkin: bsPushButton, bsCommandLink va bsSplitButton;
3. ModalResult – xususiyati qiymatlari orqali Modal holatda ishlatilgandagi natijani olish mumkin.
Panel komponentlarining har ikkisi ham deyarli bir maqsadda ishlatilgani uchun ularning Enabled, Visible, Width, Height, Align, va Caption asosiy xususiyatlarga ega.
3.2. Dastur interfeysini ishlab chiqish
Ummumiy sxema
3.2.1-rasm Dasturning interfeys ko’rinishi
Dastur Delphi dasturlash muhitida yozilgan bo’lib.Interfeysi uchun Label, WebBrowser, Panel, dxRibbon, dxBarManager, dxBarLargeButton,FDConnection, FDTransaction, FDTable, FDPhysMySQLDriverLink komponentlardan foydalanilgan.Datchiklardan kelayotgan signallardan ma’lumotlarni Mysql bazasiga saqlanadi.
3.3. Dastur listingi
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinsDefaultPainters,
dxSkinValentine, dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
dxSkinXmas2008Blue, dxRibbonSkins, dxRibbonCustomizationForm, Vcl.StdCtrls,
dxBar, cxClasses, dxRibbon, Vcl.ExtCtrls, dxCameraControl, Vcl.OleCtrls,
SHDocVw, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error,
FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool,
FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.MySQL, FireDAC.Phys.MySQLDef,
FireDAC.VCLUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client;
SHDocVw, uCEFWinControl, uCEFChromiumWindow;
type
TForm1 = class(TForm)
Panel1: TPanel;
dxBarManager1: TdxBarManager;
dxRibbon1Tab1: TdxRibbonTab;
dxRibbon1: TdxRibbon;
dxBarManager1Bar1: TdxBar;
dxBarLargeButton1: TdxBarLargeButton;
Panel2: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
dxBarLargeButton2: TdxBarLargeButton;
WebBrowser1: TWebBrowser;
FDConnection1: TFDConnection;
FDTransaction1: TFDTransaction;
FDTable1: TFDTable;
FDPhysMySQLDriverLink1: TFDPhysMySQLDriverLink;
procedure dxBarLargeButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
uses Unit2;
procedure TForm1.dxBarLargeButton1Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('http://192.168.7.58');
end;
end.
Хулоса
Адабиётлар
|
