SKPLite/ModulSrc.dfm at master · rezox/SKPLite · 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
object DM: TDM
  OldCreateOrder = False
  Height = 249
  Width = 410
  object MyConn: TZConnection
    ControlsCodePage = cCP_UTF16
    Connected = True
    Port = 0
    Database = 'F:\Delphi\SKP\SKPlite.sqd'
    Protocol = 'sqlite-3'
    LibraryLocation = 'F:\Delphi\sqlite3.dll'
    Left = 68
    Top = 108
  end
  object Qexec: TZQuery
    Connection = MyConn
    Params = <>
    Left = 68
    Top = 8
  end
  object tblpejabat: TZTable
    Connection = MyConn
    TableName = 'tbl_pegawai'
    Left = 148
    Top = 12
  end
  object DsPegawai: TDataSource
    DataSet = QPegawai
    Left = 148
    Top = 68
  end
  object tbljabatan: TZTable
    Connection = MyConn
    TableName = 'tbl_jabatan'
    Left = 216
    Top = 12
    object tbljabatangolongan: TWideStringField
      FieldName = 'golongan'
      Required = True
      Size = 8
    end
    object tbljabatanpangkat: TWideStringField
      FieldName = 'pangkat'
      Size = 40
    end
    object tbljabatanjabatan: TWideStringField
      FieldName = 'jabatan'
      Size = 40
    end
  end
  object DsJabatan: TDataSource
    DataSet = tbljabatan
    Left = 220
    Top = 68
  end
  object tblsatker: TZTable
    Connection = MyConn
    TableName = 'tbl_satker'
    Left = 272
    Top = 12
    object tblsatkerid_satker: TWideStringField
      FieldName = 'id_satker'
      Required = True
      Size = 12
    end
    object tblsatkerNama_satker: TWideStringField
      FieldName = 'Nama_satker'
      Size = 70
    end
    object tblsatkersatker_lengkap: TWideStringField
      FieldName = 'satker_lengkap'
      Size = 90
    end
    object tblsatkeralamat: TWideStringField
      FieldName = 'alamat'
      Size = 90
    end
    object tblsatkerwebsite: TWideStringField
      FieldName = 'website'
      Size = 80
    end
    object tblsatkeremail: TWideStringField
      FieldName = 'email'
      Size = 60
    end
    object tblsatkertelp: TWideStringField
      FieldName = 'telp'
      Size = 24
    end
    object tblsatkerfax: TWideStringField
      FieldName = 'fax'
      Size = 24
    end
  end
  object Dssatker: TDataSource
    DataSet = tblsatker
    Left = 300
    Top = 72
  end
  object QTemp: TZQuery
    Connection = MyConn
    Params = <>
    Left = 116
    Top = 140
  end
  object QPegawai: TZQuery
    Connection = MyConn
    SQL.Strings = (
      'Select * from Tbl_pegawai')
    Params = <>
    Left = 176
    Top = 144
  end
  object TblPosisi: TZTable
    Connection = MyConn
    TableName = 'tbl_posisi'
    Left = 280
    Top = 136
  end
  object DsPosisi: TDataSource
    DataSet = TblPosisi
    Left = 284
    Top = 188
  end
end