예약관리 작성

김현철/CustomerForm.pas

@@ -0,0 +1,83 @@
+unit CustomerForm;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls,
+  Vcl.ExtCtrls, Data.DB, Vcl.Grids, Vcl.DBGrids, FireDAC.Stan.Intf,
+  FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
+  FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
+  FireDAC.Comp.DataSet, FireDAC.Comp.Client;
+
+type
+  TfrmCustomer = class(TForm)
+    CategoryPanelGroup1: TCategoryPanelGroup;
+    CategoryPanel1: TCategoryPanel;
+    DBEdit1: TDBEdit;
+    DBEdit2: TDBEdit;
+    DBEdit3: TDBEdit;
+    DBEdit4: TDBEdit;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    CategoryPanel3: TCategoryPanel;
+    Label7: TLabel;
+    DBEdit7: TDBEdit;
+    Label8: TLabel;
+    DBEdit8: TDBEdit;
+    Label9: TLabel;
+    DBEdit9: TDBEdit;
+    Label10: TLabel;
+    DBEdit10: TDBEdit;
+    CategoryPanel4: TCategoryPanel;
+    Label11: TLabel;
+    DBEdit11: TDBEdit;
+    Label12: TLabel;
+    DBEdit12: TDBEdit;
+    Label13: TLabel;
+    DBEdit13: TDBEdit;
+    CategoryPanel5: TCategoryPanel;
+    Label14: TLabel;
+    DBEdit14: TDBEdit;
+    Label15: TLabel;
+    DBEdit15: TDBEdit;
+    DBRadioGroup1: TDBRadioGroup;
+    CategoryPanel6: TCategoryPanel;
+    DBMemo1: TDBMemo;
+    CategoryPanel7: TCategoryPanel;
+    CategoryPanel8: TCategoryPanel;
+    DBGrid1: TDBGrid;
+    Edit1: TEdit;
+    Edit2: TEdit;
+    Label16: TLabel;
+    Label5: TLabel;
+    DBEdit5: TDBEdit;
+    Label6: TLabel;
+    DBEdit6: TDBEdit;
+    Label18: TLabel;
+    DBEdit16: TDBEdit;
+    DBText1: TDBText;
+    DBText2: TDBText;
+    DBEdit18: TDBEdit;
+    DataSource1: TDataSource;
+    FDTable1: TFDTable;
+    Panel1: TPanel;
+    DBNavigator1: TDBNavigator;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCustomer: TfrmCustomer;
+
+implementation
+
+{$R *.dfm}
+
+uses DataModule;
+
+end.

김현철/DataModule.dfm

@@ -1,12 +1,30 @@
 object DataModule1: TDataModule1
   OldCreateOrder = False
-  Height = 150
-  Width = 215
+  OnCreate = DataModuleCreate
+  OnDestroy = DataModuleDestroy
+  Height = 169
+  Width = 294
   object FDConnection1: TFDConnection
     Params.Strings = (
       'Database=D:\DelphiProject\EduMaster201901\'#44608#54788#52384'\ttms.sdb'
       'DriverID=SQLite')
-    Left = 31
-    Top = 40
+    Left = 55
+    Top = 96
+  end
+  object FDQueryManager: TFDQuery
+    Connection = FDConnection1
+    SQL.Strings = (
+      'SELECT * '
+      'FROM manager'
+      'WHERE pass = :pass')
+    Left = 159
+    Top = 94
+    ParamData = <
+      item
+        Name = 'PASS'
+        DataType = ftString
+        ParamType = ptInput
+        Value = '1234'
+      end>
   end
 end

김현철/DataModule.pas

@@ -7,11 +7,15 @@ interface
   FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
   FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.SQLite,
   FireDAC.Phys.SQLiteDef, FireDAC.Stan.ExprFuncs, FireDAC.VCLUI.Wait, Data.DB,
-  FireDAC.Comp.Client;
+  FireDAC.Comp.Client, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf,
+  FireDAC.DApt, FireDAC.Comp.DataSet;
 
 type
   TDataModule1 = class(TDataModule)
     FDConnection1: TFDConnection;
+    FDQueryManager: TFDQuery;
+    procedure DataModuleCreate(Sender: TObject);
+    procedure DataModuleDestroy(Sender: TObject);
   private
     { Private declarations }
   public
@@ -27,4 +31,15 @@ implementation
 
 {$R *.dfm}
 
+procedure TDataModule1.DataModuleCreate(Sender: TObject);
+begin
+  FDConnection1.Connected := True;
+  FDQueryManager.Open;
+end;
+
+procedure TDataModule1.DataModuleDestroy(Sender: TObject);
+begin
+  FDConnection1.Connected := False;
+end;
+
 end.