CARA MEMBUAT PROGRAM TICKET PESAWAT MENGGUNAKAN PEMROGRAMAN DELPHI

object Form1: TForm1 Left = 0 Top = 0 Caption = 'menjumlahkan' ClientHeight = 411 ClientWidth = 662 Color = clOlive Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -24 Font.Name = 'Poor Richard' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 28 object Label1: TLabel Left = 136 Top = 8 Width = 410 Height = 26 Caption = 'DAFTAR HARGA TICKET PESAWAT' Color = clNavy Font.Charset = ANSI_CHARSET Font.Color = clGreen Font.Height = -24 Font.Name = 'Algerian' Font.Style = [fsBold] ParentColor = False ParentFont = False end object Label2: TLabel Left = 1 Top = 72 Width = 148 Height = 23 Caption = 'kode penerbangan' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -21 Font.Name = 'Times New Roman' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 1 Top = 120 Width = 148 Height = 29 Caption = 'kode pesawat' Font.Charset = DEFAULT_CHARSET Font.Color = clGreen Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 1 Top = 150 Width = 156 Height = 29 Caption = 'nama pesawat' Font.Charset = DEFAULT_CHARSET Font.Color = clPurple Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 1 Top = 212 Width = 67 Height = 29 Caption = 'tujuan' Font.Charset = DEFAULT_CHARSET Font.Color = clFuchsia Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label7: TLabel Left = 48 Top = 276 Width = 5 Height = 30 Font.Charset = ANSI_CHARSET Font.Color = clAqua Font.Height = -24 Font.Name = 'Showcard Gothic' Font.Style = [] ParentFont = False end object Label8: TLabel Left = 1 Top = 327 Width = 281 Height = 29 Caption = 'harga yang harus di bayar' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label9: TLabel Left = 8 Top = 374 Width = 78 Height = 29 Caption = 'diskon' Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -24 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 71 Top = 30 Width = 565 Height = 28 Caption = 'diskon 20% untuk pesawat merpati untuk jakarta ke surabaya' end object Edit1: TEdit Left = 280 Top = 64 Width = 121 Height = 36 TabOrder = 0 end object Edit2: TEdit Left = 280 Top = 160 Width = 121 Height = 36 TabOrder = 1 Text = 'Edit2' end object Edit3: TEdit Left = 280 Top = 252 Width = 121 Height = 36 TabOrder = 2 Text = 'Edit3' end object ComboBox1: TComboBox Left = 280 Top = 118 Width = 121 Height = 36 ItemHeight = 28 TabOrder = 3 Text = 'Combobox1' OnChange = ComboBox1Change Items.Strings = ( 'G' 'M' 'L') end object ComboBox2: TComboBox Left = 280 Top = 210 Width = 121 Height = 36 ItemHeight = 28 TabOrder = 4 Text = 'ComboBox2' OnChange = ComboBox2Change Items.Strings = ( 'Mks-Srb' 'Mks-Jkt' 'Mks-Btm') end object Edit4: TEdit Left = 279 Top = 325 Width = 121 Height = 36 TabOrder = 5 Text = 'Edit4' end object Button1: TButton Left = 279 Top = 296 Width = 75 Height = 25 Caption = 'Button1' TabOrder = 6 OnClick = Button1Click end object Edit5: TEdit Left = 279 Top = 367 Width = 121 Height = 36 TabOrder = 7 Text = 'Edit5' end end