UAS_Dasar_Pemrograman_lagi/unit1.lfm at main · AdilBusra/UAS_Dasar_Pemrograman_lagi · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
object Form1: TForm1
  Left = 140
  Height = 558
  Top = 70
  Width = 508
  Align = alLeft
  BorderStyle = bsNone
  Caption = 'Pesan Tiket'
  ClientHeight = 558
  ClientWidth = 508
  OnCreate = FormCreate
  LCLVersion = '3.6.0.0'
  WindowState = wsMaximized
  object ComboBoxDestinasi: TComboBox
    Left = 560
    Height = 23
    Top = 224
    Width = 100
    Align = alCustom
    ItemHeight = 15
    TabOrder = 0
    Text = 'Destinasi'
    OnChange = ComboBoxDestinasiChange
  end
  object ComboBoxKelas: TComboBox
    Left = 560
    Height = 23
    Top = 264
    Width = 100
    Align = alCustom
    ItemHeight = 15
    TabOrder = 1
    Text = 'Kelas'
  end
  object EditJumlah: TEdit
    Left = 560
    Height = 23
    Top = 306
    Width = 80
    Align = alCustom
    TabOrder = 2
  end
  object BtnCetak: TButton
    Left = 565
    Height = 25
    Top = 399
    Width = 75
    Align = alCustom
    Caption = 'Cetak'
    TabOrder = 3
    OnClick = BtnCetakClick
  end
  object BtnKeluar: TButton
    Left = 815
    Height = 25
    Top = 447
    Width = 75
    Align = alCustom
    Caption = 'Selesai'
    TabOrder = 4
    OnClick = BtnKeluarClick
  end
  object MemoHasil: TMemo
    Left = 696
    Height = 208
    Top = 216
    Width = 194
    Color = clWhite
    TabOrder = 5
    OnChange = MemoHasilChange
  end
  object LabelDestinasi: TLabel
    Left = 472
    Height = 15
    Top = 232
    Width = 73
    Align = alCustom
    Caption = 'Pilih Destinasi'
  end
  object LabelKelas: TLabel
    Left = 472
    Height = 15
    Top = 272
    Width = 53
    Align = alCustom
    Caption = 'Pilih Kelas'
  end
  object LabelJumlah: TLabel
    Left = 472
    Height = 15
    Top = 314
    Width = 66
    Align = alCustom
    Caption = 'Jumlah Tiket'
  end
  object BtnHapus: TButton
    Left = 472
    Height = 25
    Top = 400
    Width = 75
    Caption = 'Hapus'
    TabOrder = 6
    OnClick = BtnHapusClick
  end
  object lblprogram: TLabel
    Left = 5
    Height = 72
    Top = 15
    Width = 498
    Align = alTop
    Alignment = taCenter
    BorderSpacing.Top = 10
    BorderSpacing.Around = 5
    Caption = 'KAM Ticket Book'
    Font.CharSet = ANSI_CHARSET
    Font.Height = -64
    Font.Name = 'Georgia'
    Font.Pitch = fpVariable
    Font.Quality = fqDraft
    Font.Style = [fsBold]
    ParentBidiMode = False
    ParentFont = False
  end
  object lblsapa5: TLabel
    Left = 0
    Height = 38
    Top = 127
    Width = 508
    Align = alTop
    Alignment = taCenter
    BorderSpacing.Top = 40
    Caption = 'Silahkan lakukan pemesanan Tiket'
    Font.CharSet = ANSI_CHARSET
    Font.Height = -32
    Font.Name = 'Georgia'
    Font.Pitch = fpVariable
    Font.Quality = fqDraft
    ParentFont = False
  end
end