diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/.gitignore" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/.gitignore" new file mode 100644 index 0000000..0cd829e --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/.gitignore" @@ -0,0 +1,3 @@ +*.dcu +*.~* +*.exe \ No newline at end of file diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/CompanyForm.dfm" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/CompanyForm.dfm" new file mode 100644 index 0000000..ed5e812 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/CompanyForm.dfm" @@ -0,0 +1,207 @@ +object frmCompany: TfrmCompany + Left = 0 + Top = 0 + Caption = #50629#52404' '#46321#47197 + ClientHeight = 615 + ClientWidth = 589 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 589 + Height = 129 + Align = alTop + TabOrder = 0 + object Label1: TLabel + Left = 24 + Top = 16 + Width = 36 + Height = 13 + Caption = #50629#52404' '#47749 + end + object Label2: TLabel + Left = 24 + Top = 43 + Width = 22 + Height = 13 + Caption = #51452#49548 + end + object Label3: TLabel + Left = 24 + Top = 70 + Width = 44 + Height = 13 + Caption = #51204#54868#48264#54840 + end + object Label4: TLabel + Left = 323 + Top = 43 + Width = 22 + Height = 13 + Caption = #44160#49353 + end + object Button1: TButton + Left = 200 + Top = 40 + Width = 89 + Height = 51 + Caption = #46321#47197 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 351 + Top = 88 + Width = 75 + Height = 25 + Caption = #49325#51228 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 439 + Top = 88 + Width = 75 + Height = 25 + Caption = #45803#44592 + TabOrder = 2 + OnClick = Button3Click + end + object edtName: TDBEdit + Left = 73 + Top = 13 + Width = 121 + Height = 21 + DataField = 'CP_NAME' + DataSource = DataSource1 + TabOrder = 3 + end + object edtAddress: TDBEdit + Left = 73 + Top = 40 + Width = 121 + Height = 21 + DataField = 'CP_ADDRESS' + DataSource = DataSource1 + TabOrder = 4 + end + object edtPhone: TDBEdit + Left = 73 + Top = 67 + Width = 121 + Height = 21 + DataField = 'CP_PHONE' + DataSource = DataSource1 + TabOrder = 5 + end + object CheckBox1: TCheckBox + Left = 323 + Top = 13 + Width = 97 + Height = 17 + Caption = #50629#52404#47749 + Checked = True + State = cbChecked + TabOrder = 6 + end + object CheckBox2: TCheckBox + Left = 411 + Top = 13 + Width = 97 + Height = 17 + Caption = #51204#54868#48264#54840 + Checked = True + State = cbChecked + TabOrder = 7 + end + object Edit1: TEdit + Left = 360 + Top = 36 + Width = 121 + Height = 21 + TabOrder = 8 + OnKeyUp = Edit1KeyUp + end + end + object StatusBar1: TStatusBar + Left = 0 + Top = 596 + Width = 589 + Height = 19 + Panels = <> + end + object DBGrid1: TDBGrid + Left = 0 + Top = 129 + Width = 589 + Height = 467 + Align = alClient + DataSource = DataSource1 + Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 2 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + end + object Button4: TButton + Left = 200 + Top = 9 + Width = 89 + Height = 25 + Caption = #49888#44508' '#52628#44032 + TabOrder = 3 + OnClick = Button4Click + end + object DataSource1: TDataSource + DataSet = qryCP + Left = 448 + Top = 200 + end + object qryCP: TFDQuery + Active = True + Connection = DataAccessModule.FDConnection1 + UpdateOptions.AutoIncFields = 'CP_SEQ' + SQL.Strings = ( + 'SELECT * FROM CP') + Left = 448 + Top = 272 + object qryCPCP_SEQ: TIntegerField + DisplayLabel = #51068#47144#48264#54840 + DisplayWidth = 8 + FieldName = 'CP_SEQ' + Origin = 'CP_SEQ' + ProviderFlags = [pfInUpdate, pfInWhere, pfInKey] + end + object qryCPCP_NAME: TStringField + DisplayLabel = #50629#52404' '#47749 + DisplayWidth = 16 + FieldName = 'CP_NAME' + Origin = 'CP_NAME' + Size = 30 + end + object qryCPCP_PHONE: TStringField + DisplayLabel = #50629#52404' '#51204#54868#48264#54840 + FieldName = 'CP_PHONE' + Origin = 'CP_PHONE' + Size = 15 + end + object qryCPCP_ADDRESS: TStringField + DisplayLabel = #50629#52404' '#51452#49548 + DisplayWidth = 60 + FieldName = 'CP_ADDRESS' + Origin = 'CP_ADDRESS' + Size = 300 + end + end +end diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/CompanyForm.pas" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/CompanyForm.pas" new file mode 100644 index 0000000..356cf5e --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/CompanyForm.pas" @@ -0,0 +1,125 @@ +unit CompanyForm; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.ComCtrls, + 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, DMForm, Vcl.Mask, Vcl.DBCtrls; + +type + TfrmCompany = class(TForm) + Button1: TButton; + Panel1: TPanel; + Button2: TButton; + StatusBar1: TStatusBar; + DBGrid1: TDBGrid; + Button3: TButton; + DataSource1: TDataSource; + edtName: TDBEdit; + edtAddress: TDBEdit; + edtPhone: TDBEdit; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + qryCP: TFDQuery; + qryCPCP_SEQ: TIntegerField; + qryCPCP_NAME: TStringField; + qryCPCP_ADDRESS: TStringField; + qryCPCP_PHONE: TStringField; + Button4: TButton; + Label4: TLabel; + CheckBox1: TCheckBox; + CheckBox2: TCheckBox; + Edit1: TEdit; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button3Click(Sender: TObject); + procedure Button4Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); + procedure Button2Click(Sender: TObject); + + private + { Private declarations } + public + { Public declarations } + end; + +var + frmCompany: TfrmCompany; + +implementation + +{$R *.dfm} + +procedure TfrmCompany.Button1Click(Sender: TObject); +begin + qryCP.Post; + qryCP.Refresh; +end; + +procedure TfrmCompany.Button2Click(Sender: TObject); +var seq,name,address,phone,mag:string; +begin + seq:=qryCP.FieldByName('CP_SEQ').AsString; + name:=qryCP.FieldByName('CP_NAME').AsString; + address:=qryCP.FieldByName('CP_address').AsString; + + mag:=Format('[%s] Ͻðڽϱ?',[name]); + if MessageDlg(mag,mtInformation,[mbYes,mbNo],0)=mrNo then + Exit; + + qryCP.Delete; + if qryCP.State <> dsEdit then + qryCP.Edit; + + end; + +procedure TfrmCompany.Button3Click(Sender: TObject); +begin + close; +end; + +procedure TfrmCompany.Button4Click(Sender: TObject); +begin + qryCP.Append; + edtName.SetFocus; + edtAddress.SetFocus; + edtPhone.SetFocus; +end; + + + +procedure TfrmCompany.Edit1KeyUp(Sender: TObject; var Key: Word; + Shift: TShiftState); +var Filter:string; +begin + Filter:=''; + +if Edit1.Text<>'' then + begin + if CheckBox1.Checked then + Filter := Format('CP_NAME like''%%%s%%''',[Edit1.Text]); + if CheckBox2.Checked then + begin + if Filter <>'' then + Filter:= Filter+' or '; + Filter := Filter+Format('CP_PHONE like''%%%s%%''',[Edit1.Text]); + // CP_PHOME LIKE '%tet%' + end; + end; + + qryCP.Filter:= Filter; + qryCP.Filtered:=(Filter<>''); +end; + +procedure TfrmCompany.FormClose(Sender: TObject; var Action: TCloseAction); +begin + Action :=caFree; + +end; + +end. diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/DB/REQUEST.IB" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/DB/REQUEST.IB" new file mode 100644 index 0000000..460fc0c Binary files /dev/null and "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/DB/REQUEST.IB" differ diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/DMForm.dfm" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/DMForm.dfm" new file mode 100644 index 0000000..830ef55 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/DMForm.dfm" @@ -0,0 +1,32 @@ +object DataAccessModule: TDataAccessModule + OldCreateOrder = False + Height = 292 + Width = 337 + object FDConnection1: TFDConnection + Params.Strings = ( + 'User_Name=sysdba' + 'Password=masterkey' + 'Database=C:\Masterdelphi\DB\REQUEST.IB' + 'DriverID=IB') + Connected = True + LoginPrompt = False + Left = 240 + Top = 32 + end + object qryEMP: TFDQuery + Active = True + Connection = FDConnection1 + SQL.Strings = ( + 'SELECT * FROM EMP') + Left = 64 + Top = 120 + end + object qryODER: TFDQuery + Active = True + Connection = FDConnection1 + SQL.Strings = ( + 'SELECT * FROM ODER') + Left = 208 + Top = 120 + end +end diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/DMForm.pas" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/DMForm.pas" new file mode 100644 index 0000000..c44bc00 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/DMForm.pas" @@ -0,0 +1,33 @@ +unit DMForm; + +interface + +uses + System.SysUtils, System.Classes, 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.IB, + FireDAC.Phys.IBDef, FireDAC.VCLUI.Wait, Data.DB, FireDAC.Comp.Client, + FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, + FireDAC.Comp.DataSet; + +type + TDataAccessModule = class(TDataModule) + FDConnection1: TFDConnection; + qryEMP: TFDQuery; + qryODER: TFDQuery; + private + { Private declarations } + public + { Public declarations } + end; + +var + DataAccessModule: TDataAccessModule; + +implementation + +{%CLASSGROUP 'Vcl.Controls.TControl'} + +{$R *.dfm} + +end. diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/LoginForm.dfm" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/LoginForm.dfm" new file mode 100644 index 0000000..0ef7235 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/LoginForm.dfm" @@ -0,0 +1,47 @@ +object FrmLogin: TFrmLogin + Left = 0 + Top = 0 + Caption = #47196#44536#51064 + ClientHeight = 249 + ClientWidth = 342 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 80 + Top = 192 + Width = 178 + Height = 13 + Caption = #50500#51060#46356','#48708#48128#48264#54840' '#48516#49892#49884' '#51204#49328#49892' '#51204#54868 + end + object Edit1: TEdit + Left = 80 + Top = 96 + Width = 121 + Height = 21 + TabOrder = 0 + TextHint = #50500#51060#46356 + end + object Edit2: TEdit + Left = 80 + Top = 132 + Width = 121 + Height = 21 + TabOrder = 1 + TextHint = #48708#48128' '#48264#54840 + end + object Button1: TButton + Left = 224 + Top = 94 + Width = 75 + Height = 59 + Caption = #47196#44536#51064 + TabOrder = 2 + end +end diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/LoginForm.pas" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/LoginForm.pas" new file mode 100644 index 0000000..95f0469 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/LoginForm.pas" @@ -0,0 +1,30 @@ +unit LoginForm; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; + +type + TFrmLogin = class(TForm) + Edit1: TEdit; + Edit2: TEdit; + Button1: TButton; + Label1: TLabel; + private + { Private declarations } + public + { Public declarations } + end; + +var + FrmLogin: TFrmLogin; + +implementation + +{$R *.dfm} + + + +end. diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MainForm.dfm" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MainForm.dfm" new file mode 100644 index 0000000..fbd6733 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MainForm.dfm" @@ -0,0 +1,77 @@ +object frmMain: TfrmMain + Left = 0 + Top = 0 + Caption = #50836#52397#49436' '#54532#47196#44536#47016 + ClientHeight = 507 + ClientWidth = 690 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 690 + Height = 97 + Align = alTop + TabOrder = 0 + DesignSize = ( + 690 + 97) + object Button1: TButton + Left = 16 + Top = 16 + Width = 89 + Height = 57 + Caption = #49888#44508' '#50836#52397#49436' '#46321#47197 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 127 + Top = 16 + Width = 90 + Height = 57 + Caption = #49888#44508' '#50629#52404' '#46321#47197 + TabOrder = 1 + OnClick = Button2Click + end + object Button3: TButton + Left = 594 + Top = 16 + Width = 81 + Height = 57 + Anchors = [akTop, akRight] + Caption = #51333#47308 + TabOrder = 2 + OnClick = Button3Click + end + object Button4: TButton + Left = 383 + Top = 16 + Width = 75 + Height = 25 + Caption = #44160#49353 + TabOrder = 3 + end + object DBEdit1: TDBEdit + Left = 256 + Top = 18 + Width = 121 + Height = 21 + TabOrder = 4 + end + end + object StatusBar1: TStatusBar + Left = 0 + Top = 488 + Width = 690 + Height = 19 + Panels = <> + end +end diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MainForm.pas" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MainForm.pas" new file mode 100644 index 0000000..3a58a5d --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MainForm.pas" @@ -0,0 +1,57 @@ +unit MainForm; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Data.DB, + Vcl.Grids, Vcl.DBGrids, Vcl.StdCtrls, RequestForm, Vcl.Menus, Vcl.Mask, + Vcl.DBCtrls, DMForm; + +type + TfrmMain = class(TForm) + Panel1: TPanel; + StatusBar1: TStatusBar; + Button1: TButton; + Button2: TButton; + Button3: TButton; + Button4: TButton; + DBEdit1: TDBEdit; + procedure Button3Click(Sender: TObject); + procedure Button1Click(Sender: TObject); + procedure Button2Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmMain: TfrmMain; + +implementation + +{$R *.dfm} + +uses CompanyForm; + +procedure TfrmMain.Button1Click(Sender: TObject); +var frmRequest: TfrmRequest; +begin + frmRequest:= TfrmRequest.Create(self); + frmRequest.Show; +end; + +procedure TfrmMain.Button2Click(Sender: TObject); +var frmCompany: TfrmCompany; +begin + frmCompany:= TfrmCompany.Create(self); + frmCompany.Show; +end; + +procedure TfrmMain.Button3Click(Sender: TObject); +begin +Close; +end; + +end. diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.dpr" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.dpr" new file mode 100644 index 0000000..1e16131 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.dpr" @@ -0,0 +1,19 @@ +program MasterProject; + +uses + Vcl.Forms, + MainForm in 'MainForm.pas' {frmMain}, + RequestForm in 'RequestForm.pas' {frmRequest}, + CompanyForm in 'CompanyForm.pas' {frmCompany}, + DMForm in 'DMForm.pas' {DataAccessModule: TDataModule}, + RequestForm2 in 'RequestForm2.pas' {frmRequest2}; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.CreateForm(TfrmMain, frmMain); + Application.CreateForm(TDataAccessModule, DataAccessModule); + Application.Run; +end. diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.dproj" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.dproj" new file mode 100644 index 0000000..9668d33 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.dproj" @@ -0,0 +1,928 @@ + + + {53AD9688-CD43-44CA-A6DD-E73E51353807} + 19.1 + VCL + True + Debug + Win32 + 1 + Application + MasterProject.dpr + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + true + Cfg_2 + true + true + + + .\$(Platform)\$(Config) + .\$(Platform)\$(Config) + false + false + false + false + false + System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) + $(BDS)\bin\delphi_PROJECTICON.ico + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png + MasterProject + + + DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;bindcompvclsmp;emsclientfiredac;tethering;svnui;DataSnapFireDAC;FireDACADSDriver;frx27;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;FireDACIBDriver;fmxdae;vcledge;FireDACDBXDriver;dbexpress;IndyCore;vclx;frxTee27;dsnap;emsclient;DataSnapCommon;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;IndyIPCommon;bindcompdbx;frxDB27;vcl;IndyIPServer;DBXSybaseASEDriver;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;TeeDB;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;soaprtl;DbxCommonDriver;Tee;DataSnapServer;xmlrtl;soapmidas;DataSnapNativeClient;fmxobj;vclwinx;FireDACDSDriver;rtl;emsserverresource;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;frxe27;TeeUI;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;IndyProtocols;inetdbxpress;FireDACMongoDBDriver;DataSnapServerMidas;$(DCC_UsePackage) + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= + 1033 + $(BDS)\bin\default_app.manifest + + + DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;bindcompvclsmp;emsclientfiredac;tethering;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;FireDACIBDriver;fmxdae;vcledge;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;emsclient;DataSnapCommon;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;IndyIPCommon;bindcompdbx;vcl;IndyIPServer;DBXSybaseASEDriver;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;TeeDB;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;soaprtl;DbxCommonDriver;Tee;DataSnapServer;xmlrtl;soapmidas;DataSnapNativeClient;fmxobj;vclwinx;FireDACDSDriver;rtl;emsserverresource;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;TeeUI;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;IndyProtocols;inetdbxpress;FireDACMongoDBDriver;DataSnapServerMidas;$(DCC_UsePackage) + + + DEBUG;$(DCC_Define) + true + false + true + true + true + + + false + true + PerMonitorV2 + true + 1033 + C:\Masterdelphi\Win32\ + + + false + RELEASE;$(DCC_Define) + 0 + 0 + + + true + PerMonitorV2 + + + + MainSource + + +
frmMain
+ dfm + + +
frmRequest
+ dfm + + +
frmCompany
+ dfm + + +
DataAccessModule
+ dfm + TDataModule + + +
frmRequest2
+ dfm + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Application + + + + MasterProject.dpr + + + Microsoft Office 2000 Sample Automation Server Wrapper Components + Microsoft Office XP Sample Automation Server Wrapper Components + + + + + + MasterProject.exe + true + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + classes + 1 + + + classes + 1 + + + + + res\xml + 1 + + + res\xml + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\armeabi + 1 + + + library\lib\armeabi + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\mips + 1 + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\values-v21 + 1 + + + res\values-v21 + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + res\drawable-ldpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + + + + + res\drawable-small + 1 + + + res\drawable-small + 1 + + + + + res\drawable-normal + 1 + + + res\drawable-normal + 1 + + + + + res\drawable-large + 1 + + + res\drawable-large + 1 + + + + + res\drawable-xlarge + 1 + + + res\drawable-xlarge + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + Contents\MacOS + 1 + .framework + + + Contents\MacOS + 1 + .framework + + + 0 + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + 0 + .dll;.bpl + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + 0 + .bpl + + + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + Contents\Resources\StartUp\ + 0 + + + Contents\Resources\StartUp\ + 0 + + + 0 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + + + 1 + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).launchscreen + 64 + + + ..\$(PROJECTNAME).launchscreen + 64 + + + + + 1 + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + + + Contents + 1 + + + Contents + 1 + + + + + Contents\Resources + 1 + + + Contents\Resources + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + library\lib\armeabi-v7a + 1 + + + + + 1 + + + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + + + + + + + + + + + True + False + + + 12 + + + + + diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.dproj.local" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.dproj.local" new file mode 100644 index 0000000..840f5ca --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.dproj.local" @@ -0,0 +1,34 @@ + + + + 1899-12-30 00:00:00.000.406,C:\Masterdelphi\Unit1.dfm=C:\Masterdelphi\RequestForm2.dfm + 1899-12-30 00:00:00.000.177,C:\Masterdelphi\Unit1.dfm=C:\Masterdelphi\CompanyForm.dfm + 1899-12-30 00:00:00.000.200,C:\Masterdelphi\LoginForm.pas= + 1899-12-30 00:00:00.000.268,C:\Users\user\Desktop\BOOKRENTAL-master\BOOKRENTAL-master\Source_5_완성\DataAccessModule.pas= + 1899-12-30 00:00:00.000.730,C:\Masterdelphi\RequestForm.dfm=C:\Masterdelphi\Unit1.dfm + 1899-12-30 00:00:00.000.339,C:\Masterdelphi\LoginForm.dfm=C:\Users\user\Documents\Embarcadero\Studio\Projects\LoginForm.dfm + 1899-12-30 00:00:00.000.001,=C:\Users\user\Desktop\BOOKRENTAL-master\BOOKRENTAL-master\Source_5_완성\DataAccessModule.pas + 1899-12-30 00:00:00.000.620,C:\Masterdelphi\MainForm.pas=C:\Users\user\Documents\Embarcadero\Studio\Projects\MainForm.pas + 1899-12-30 00:00:00.000.619,C:\Users\user\Documents\Embarcadero\Studio\Projects\LoginForm.dfm=C:\Users\user\Documents\Embarcadero\Studio\Projects\Unit1.dfm + 1899-12-30 00:00:00.000.730,C:\Masterdelphi\RequestForm.pas=C:\Masterdelphi\Unit1.pas + 1899-12-30 00:00:00.000.623,=C:\Users\user\Documents\Embarcadero\Studio\Projects\Unit2.pas + 1899-12-30 00:00:00.000.339,C:\Masterdelphi\LoginForm.pas=C:\Users\user\Documents\Embarcadero\Studio\Projects\LoginForm.pas + 1899-12-30 00:00:00.000.472,C:\Users\user\Documents\Embarcadero\Studio\Projects\MainForm.dfm=C:\Users\user\Documents\Embarcadero\Studio\Projects\Unit2.dfm + 1899-12-30 00:00:00.000.670,C:\Masterdelphi\MasterProject.dproj=C:\Users\user\Documents\Embarcadero\Studio\Projects\Project1.dproj + 1899-12-30 00:00:00.000.620,C:\Masterdelphi\MainForm.dfm=C:\Users\user\Documents\Embarcadero\Studio\Projects\MainForm.dfm + 1899-12-30 00:00:00.000.177,C:\Masterdelphi\Unit1.pas=C:\Masterdelphi\CompanyForm.pas + 1899-12-30 00:00:00.000.153,=C:\Masterdelphi\Unit1.pas + 1899-12-30 00:00:00.000.428,=C:\Masterdelphi\Unit1.pas + 1899-12-30 00:00:00.000.406,C:\Masterdelphi\Unit1.pas=C:\Masterdelphi\RequestForm2.pas + 1899-12-30 00:00:00.000.900,C:\Masterdelphi\DMForm.dfm=C:\Masterdelphi\Unit1.dfm + 1899-12-30 00:00:00.000.619,C:\Users\user\Documents\Embarcadero\Studio\Projects\LoginForm.pas=C:\Users\user\Documents\Embarcadero\Studio\Projects\Unit1.pas + 1899-12-30 00:00:00.000.534,=C:\Users\user\Documents\Embarcadero\Studio\Projects\Unit1.pas + 1899-12-30 00:00:00.000.137,=C:\Masterdelphi\Unit1.pas + 1899-12-30 00:00:00.000.900,C:\Masterdelphi\DMForm.pas=C:\Masterdelphi\Unit1.pas + 1899-12-30 00:00:00.000.472,C:\Users\user\Documents\Embarcadero\Studio\Projects\MainForm.pas=C:\Users\user\Documents\Embarcadero\Studio\Projects\Unit2.pas + 1899-12-30 00:00:00.000.006,=C:\Masterdelphi\Unit1.pas + 1899-12-30 00:00:00.000.188,=C:\Masterdelphi\Unit1.pas + 1899-12-30 00:00:00.000.389,=C:\Masterdelphi\Unit1.pas + 1899-12-30 00:00:00.000.282,=C:\Masterdelphi\Unit1.pas + + diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.identcache" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.identcache" new file mode 100644 index 0000000..2a5d2fa Binary files /dev/null and "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.identcache" differ diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.res" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.res" new file mode 100644 index 0000000..2101fdf Binary files /dev/null and "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/MasterProject.res" differ diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm.dfm" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm.dfm" new file mode 100644 index 0000000..02dc305 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm.dfm" @@ -0,0 +1,71 @@ +object frmRequest: TfrmRequest + Left = 0 + Top = 0 + Caption = #50836#52397#49436' '#51089#49457 + ClientHeight = 386 + ClientWidth = 454 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 454 + Height = 41 + Align = alTop + TabOrder = 0 + object Button1: TButton + Left = 24 + Top = 9 + Width = 75 + Height = 25 + Caption = #46321#47197 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 120 + Top = 10 + Width = 75 + Height = 25 + Caption = #49325#51228 + TabOrder = 1 + end + object Button3: TButton + Left = 368 + Top = 10 + Width = 75 + Height = 25 + Caption = #45803#44592 + TabOrder = 2 + OnClick = Button3Click + end + end + object DBGrid1: TDBGrid + Left = 0 + Top = 41 + Width = 454 + Height = 345 + Align = alClient + DataSource = DataSource1 + Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + end + object DataSource1: TDataSource + DataSet = DataAccessModule.qryODER + Left = 330 + Top = 152 + end +end diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm.pas" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm.pas" new file mode 100644 index 0000000..64449c1 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm.pas" @@ -0,0 +1,56 @@ +unit RequestForm; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, 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, DMForm; + +type + TfrmRequest = class(TForm) + Panel1: TPanel; + Button1: TButton; + DBGrid1: TDBGrid; + Button2: TButton; + Button3: TButton; + DataSource1: TDataSource; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure Button1Click(Sender: TObject); + procedure Button3Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmRequest: TfrmRequest; + +implementation + +{$R *.dfm} + +uses RequestForm2; + +procedure TfrmRequest.Button1Click(Sender: TObject); +var frmRequest2: TfrmRequest2; +begin + frmRequest2:= TfrmRequest2.Create(Application); + frmRequest2.Show; +end; + +procedure TfrmRequest.Button3Click(Sender: TObject); +begin +Close; +end; + +procedure TfrmRequest.FormClose(Sender: TObject; var Action: TCloseAction); +begin +Action := caFree; +end; + +end. diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm2.dfm" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm2.dfm" new file mode 100644 index 0000000..c9c2e44 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm2.dfm" @@ -0,0 +1,136 @@ +object frmRequest2: TfrmRequest2 + Left = 0 + Top = 0 + Caption = 'RequestForm2' + ClientHeight = 436 + ClientWidth = 666 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnClose = FormClose + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 666 + Height = 65 + Align = alTop + TabOrder = 0 + DesignSize = ( + 666 + 65) + object Button1: TButton + Left = 24 + Top = 21 + Width = 81 + Height = 28 + Caption = #51200#51109 + TabOrder = 0 + end + object Button2: TButton + Left = 548 + Top = 20 + Width = 89 + Height = 28 + Anchors = [akTop, akRight] + Caption = #51333#47308 + TabOrder = 1 + OnClick = Button2Click + end + end + object StatusBar1: TStatusBar + Left = 0 + Top = 417 + Width = 666 + Height = 19 + Panels = <> + end + object Panel2: TPanel + Left = 0 + Top = 65 + Width = 666 + Height = 352 + Align = alClient + TabOrder = 2 + object Label1: TLabel + Left = 50 + Top = 32 + Width = 36 + Height = 13 + Caption = #50629#52404' '#47749 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 50 + Top = 80 + Width = 22 + Height = 13 + Caption = #51452#49548 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end + object Label3: TLabel + Left = 57 + Top = 160 + Width = 47 + Height = 13 + Caption = #50836#44396' '#49324#54637 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end + object Label4: TLabel + Left = 50 + Top = 120 + Width = 44 + Height = 13 + Caption = #51204#54868#48264#54840 + end + object edtName: TDBEdit + Left = 216 + Top = 29 + Width = 121 + Height = 21 + TabOrder = 0 + end + object edtAddress: TDBEdit + Left = 216 + Top = 77 + Width = 121 + Height = 21 + TabOrder = 1 + end + object DBMemo1: TDBMemo + Left = 216 + Top = 157 + Width = 377 + Height = 164 + ScrollBars = ssVertical + TabOrder = 2 + end + object edtPhone: TDBEdit + Left = 216 + Top = 117 + Width = 121 + Height = 21 + TabOrder = 3 + end + end +end diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm2.pas" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm2.pas" new file mode 100644 index 0000000..49cf35b --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Masterdelphi/RequestForm2.pas" @@ -0,0 +1,50 @@ +unit RequestForm2; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.StdCtrls, + Vcl.DBCtrls, Vcl.Mask; + +type + TfrmRequest2 = class(TForm) + Panel1: TPanel; + StatusBar1: TStatusBar; + Button1: TButton; + Button2: TButton; + Panel2: TPanel; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + edtName: TDBEdit; + edtAddress: TDBEdit; + DBMemo1: TDBMemo; + Label4: TLabel; + edtPhone: TDBEdit; + procedure Button2Click(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + private + { Private declarations } + public + { Public declarations } + end; + +var + frmRequest2: TfrmRequest2; + +implementation + +{$R *.dfm} + +procedure TfrmRequest2.Button2Click(Sender: TObject); +begin +close; +end; + +procedure TfrmRequest2.FormClose(Sender: TObject; var Action: TCloseAction); +begin +Action:=caFree; +end; + +end. diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.dpr" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.dpr" new file mode 100644 index 0000000..fe8c948 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.dpr" @@ -0,0 +1,16 @@ +program CAFEProject; + +uses + Vcl.Forms, + Umain in 'Umain.pas' {Form1}, + Unit2 in 'Unit2.pas' {Form2}; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.CreateForm(TForm1, Form1); + Application.CreateForm(TForm2, Form2); + Application.Run; +end. diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.dproj" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.dproj" new file mode 100644 index 0000000..3d9113b --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.dproj" @@ -0,0 +1,908 @@ + + + {6F22C1CF-469C-42EB-BBF0-255ED5897149} + 19.1 + VCL + True + Debug + Win32 + 1 + Application + CAFEProject.dpr + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + true + Cfg_2 + true + true + + + .\$(Platform)\$(Config) + .\$(Platform)\$(Config) + false + false + false + false + false + System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) + $(BDS)\bin\delphi_PROJECTICON.ico + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png + CAFEProject + + + DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;bindcompvclsmp;emsclientfiredac;tethering;svnui;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;FireDACIBDriver;fmxdae;vcledge;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;emsclient;DataSnapCommon;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;IndyIPCommon;bindcompdbx;vcl;IndyIPServer;DBXSybaseASEDriver;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;TeeDB;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;soaprtl;DbxCommonDriver;Tee;DataSnapServer;xmlrtl;soapmidas;DataSnapNativeClient;fmxobj;vclwinx;FireDACDSDriver;rtl;emsserverresource;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;TeeUI;vclribbon;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;IndyProtocols;inetdbxpress;FireDACMongoDBDriver;DataSnapServerMidas;$(DCC_UsePackage) + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= + 1033 + $(BDS)\bin\default_app.manifest + + + DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;bindcompvclsmp;emsclientfiredac;tethering;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;FireDACIBDriver;fmxdae;vcledge;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;emsclient;DataSnapCommon;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;IndyIPCommon;bindcompdbx;vcl;IndyIPServer;DBXSybaseASEDriver;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;TeeDB;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;FMXTee;soaprtl;DbxCommonDriver;Tee;DataSnapServer;xmlrtl;soapmidas;DataSnapNativeClient;fmxobj;vclwinx;FireDACDSDriver;rtl;emsserverresource;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;TeeUI;vclribbon;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;IndyProtocols;inetdbxpress;FireDACMongoDBDriver;DataSnapServerMidas;$(DCC_UsePackage) + + + DEBUG;$(DCC_Define) + true + false + true + true + true + + + false + true + PerMonitorV2 + + + false + RELEASE;$(DCC_Define) + 0 + 0 + + + true + PerMonitorV2 + + + + MainSource + + +
Form1
+ dfm + + +
Form2
+ dfm + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Application + + + + CAFEProject.dpr + + + + + + CAFEProject.exe + true + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + classes + 1 + + + classes + 1 + + + + + res\xml + 1 + + + res\xml + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\armeabi + 1 + + + library\lib\armeabi + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\mips + 1 + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\values-v21 + 1 + + + res\values-v21 + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + res\drawable-ldpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + + + + + res\drawable-small + 1 + + + res\drawable-small + 1 + + + + + res\drawable-normal + 1 + + + res\drawable-normal + 1 + + + + + res\drawable-large + 1 + + + res\drawable-large + 1 + + + + + res\drawable-xlarge + 1 + + + res\drawable-xlarge + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + Contents\MacOS + 1 + .framework + + + Contents\MacOS + 1 + .framework + + + 0 + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + 0 + .dll;.bpl + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + 0 + .bpl + + + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + Contents\Resources\StartUp\ + 0 + + + Contents\Resources\StartUp\ + 0 + + + 0 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + + + 1 + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).launchscreen + 64 + + + ..\$(PROJECTNAME).launchscreen + 64 + + + + + 1 + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + + + Contents + 1 + + + Contents + 1 + + + + + Contents\Resources + 1 + + + Contents\Resources + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + library\lib\armeabi-v7a + 1 + + + + + 1 + + + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + + + + + + + + + + + True + False + + + 12 + + + + + diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.dproj.local" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.dproj.local" new file mode 100644 index 0000000..37117ad --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.dproj.local" @@ -0,0 +1,11 @@ + + + + 2020-11-18 15:22:31.103,=C:\Users\김용규\Documents\Embarcadero\Studio\Projects\Unit1.pas + 2020-11-18 15:24:04.540,=C:\Users\김용규\Documents\Embarcadero\Studio\Projects\Unit2.pas + 2020-11-18 15:24:13.263,=C:\Users\김용규\Documents\Embarcadero\Studio\Projects\Unit2.pas + 2020-11-18 15:28:37.054,C:\Users\김용규\Documents\Embarcadero\Studio\Projects\Umain.pas=C:\Users\김용규\Documents\Embarcadero\Studio\Projects\Unit1.pas + 2020-11-18 15:28:37.054,C:\Users\김용규\Documents\Embarcadero\Studio\Projects\Umain.dfm=C:\Users\김용규\Documents\Embarcadero\Studio\Projects\Unit1.dfm + 2020-11-18 15:28:50.959,C:\Users\김용규\Documents\Embarcadero\Studio\Projects\CAFEProject.dproj=C:\Users\김용규\Documents\Embarcadero\Studio\Projects\Project1.dproj + + diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.res" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.res" new file mode 100644 index 0000000..3968e58 Binary files /dev/null and "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/CAFEProject.res" differ diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/DB/CAFE.IB" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/DB/CAFE.IB" new file mode 100644 index 0000000..d8b525a Binary files /dev/null and "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/DB/CAFE.IB" differ diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/DB/script.txt.txt" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/DB/script.txt.txt" new file mode 100644 index 0000000..f7bda7c --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/DB/script.txt.txt" @@ -0,0 +1,53 @@ +/* 메뉴 정보 */ +CREATE TABLE MENUS ( + MENU_SEQ INTEGER NOT NULL, + MENU_NAME VARCHAR(50), + CONSTRAINT MENU_SEQ_PK PRIMARY KEY ("MENU_SEQ") +); + +/* 제너레이터 생성 */ +CREATE GENERATOR MENU_SEQ_GEN; +/* 트리거 생성 */ +CREATE TRIGGER "SET_MENU_SEQ" FOR MENUS +ACTIVE BEFORE INSERT POSITION 0 AS +BEGIN + new.MENU_SEQ = gen_id(MENU_SEQ_GEN, 1); +END; + + + +/* 지점 정보 */ +CREATE TABLE SHOPS ( + SHOP_SEQ INTEGER NOT NULL, + SHOP_NAME VARCHAR(50), + CONSTRAINT SHOP_SEQ_PK PRIMARY KEY ("SHOP_SEQ") +); + +/* 제너레이터 생성 */ +CREATE GENERATOR SHOP_SEQ_GEN; +/* 트리거 생성 */ +CREATE TRIGGER "SET_SHOP_SEQ" FOR SHOPS +ACTIVE BEFORE INSERT POSITION 0 AS +BEGIN + new.SHOP_SEQ = gen_id(SHOP_SEQ_GEN, 1); +END; + + + +/* 지점별 정보 */ +CREATE TABLE SHOPMENU ( + SM_SEQ INTEGER NOT NULL, + SHOP_SEQ INTEGER NOT NULL, + MENU_SEQ INTEGER NOT NULL, + CONSTRAINT SM_SEQ_PK PRIMARY KEY ("SM_SEQ") +); + +/* 제너레이터 생성 */ +CREATE GENERATOR SM_SEQ_GEN; +/* 트리거 생성 */ +CREATE TRIGGER "SET_SM_SEQ" FOR SHOPMENU +ACTIVE BEFORE INSERT POSITION 0 AS +BEGIN + new.SM_SEQ = gen_id(SM_SEQ_GEN, 1); +END; + diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Project1.identcache" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Project1.identcache" new file mode 100644 index 0000000..12a8539 Binary files /dev/null and "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Project1.identcache" differ diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Project1.res" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Project1.res" new file mode 100644 index 0000000..b43300a Binary files /dev/null and "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Project1.res" differ diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Umain.dfm" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Umain.dfm" new file mode 100644 index 0000000..941849b --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Umain.dfm" @@ -0,0 +1,34 @@ +object Form1: TForm1 + Left = 0 + Top = 0 + Caption = #46321#47197 + ClientHeight = 306 + ClientWidth = 349 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 + object Button1: TButton + Left = 48 + Top = 40 + Width = 105 + Height = 33 + Caption = #47700#45684' '#46321#47197 + TabOrder = 0 + OnClick = Button1Click + end + object Button2: TButton + Left = 192 + Top = 40 + Width = 97 + Height = 33 + Caption = #51648#51216' '#46321#47197 + TabOrder = 1 + OnClick = Button1Click + end +end diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Umain.pas" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Umain.pas" new file mode 100644 index 0000000..1d78af2 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Umain.pas" @@ -0,0 +1,36 @@ +unit Umain; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; + +type + TForm1 = class(TForm) + Button1: TButton; + Button2: TButton; + procedure Button1Click(Sender: TObject); + private + { Private declarations } + public + { Public declarations } + end; + +var + Form1: TForm1; + +implementation + +{$R *.dfm} + +uses Unit2; + +procedure TForm1.Button1Click(Sender: TObject); +begin + Form2 := TForm2.Create(Application); + + +end; + +end. diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Unit2.dfm" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Unit2.dfm" new file mode 100644 index 0000000..d32d07b --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Unit2.dfm" @@ -0,0 +1,78 @@ +object Form2: TForm2 + Left = 0 + Top = 0 + Caption = 'Form2' + ClientHeight = 320 + ClientWidth = 513 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + DesignSize = ( + 513 + 320) + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 112 + Top = 184 + Width = 32 + Height = 24 + Caption = #47700#45684 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -20 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object DBGrid1: TDBGrid + Left = 32 + Top = 8 + Width = 450 + Height = 145 + Anchors = [akLeft, akTop, akRight] + Options = [dgEditing, dgAlwaysShowEditor, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack] + TabOrder = 0 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + end + object Button1: TButton + Left = 208 + Top = 264 + Width = 121 + Height = 33 + Caption = #51200#51109 + TabOrder = 1 + end + object Button2: TButton + Left = 361 + Top = 264 + Width = 121 + Height = 33 + Caption = #52712#49548 + TabOrder = 2 + end + object Edit1: TEdit + Left = 232 + Top = 184 + Width = 145 + Height = 21 + TabOrder = 3 + end + object DataSource1: TDataSource + DataSet = FDQuery1 + Left = 272 + Top = 56 + end + object FDQuery1: TFDQuery + Left = 368 + Top = 72 + end +end diff --git "a/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Unit2.pas" "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Unit2.pas" new file mode 100644 index 0000000..d5d1a61 --- /dev/null +++ "b/\354\210\230\353\243\214\355\224\204\353\241\234\354\240\235\355\212\270/\352\271\200\354\232\251\352\267\234/Sample/Unit2.pas" @@ -0,0 +1,34 @@ +unit Unit2; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids, + Vcl.StdCtrls, 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 + TForm2 = class(TForm) + DBGrid1: TDBGrid; + Button1: TButton; + Button2: TButton; + Label1: TLabel; + Edit1: TEdit; + DataSource1: TDataSource; + FDQuery1: TFDQuery; + private + { Private declarations } + public + { Public declarations } + end; + +var + Form2: TForm2; + +implementation + +{$R *.dfm} + +end.