diff --git a/20_Task/M1/10_Variable/VariableForm.pas b/20_Task/M1/10_Variable/VariableForm.pas index ce9d2fe..275b890 100644 --- a/20_Task/M1/10_Variable/VariableForm.pas +++ b/20_Task/M1/10_Variable/VariableForm.pas @@ -2,6 +2,7 @@ interface + uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; @@ -18,6 +19,7 @@ TForm1 = class(TForm) // ÀÌ Æû(À¯´Ö)¿¡¼­¸¸ »ç¿ëÇÏ´Â º¯¼ö¿Í ÇÔ¼ö¸¦ ¼±¾ð { TODO : (1) Á¤¼ö Çü FSum º¯¼ö¸¦ ¼±¾ðÇϼ¼¿ä. } + FSum:integer; function AddNum(ANum: Integer): Integer; public @@ -36,7 +38,8 @@ function TForm1.AddNum(ANum: Integer): Integer; { TODO : (2) FSum º¯¼ö¿¡ ÆÄ¶ó¸ÞÅÍ ANum °ªÀ» ´õÇÕ´Ï´Ù. FSum º¯¼ö ¹Ýȯ } - Result := 0; + FSum := FSum + ANum; + result := FSum; end; procedure TForm1.Button1Click(Sender: TObject); diff --git a/20_Task/M1/20_Function/FunctionForm.pas b/20_Task/M1/20_Function/FunctionForm.pas index f9f7a4d..b4e42bc 100644 --- a/20_Task/M1/20_Function/FunctionForm.pas +++ b/20_Task/M1/20_Function/FunctionForm.pas @@ -32,6 +32,7 @@ TForm2 = class(TForm) ¹Ýȯ°ª: ¹®ÀÚ¿­(¸Þ½ÃÁö) (2-2) ÇÔ¼ö ¼±¾ð ÈÄ Ctrl + Shift + C¸¦ ´­·¯ ±¸ÇöºÎ »ý¼º } + function GetUserInfoMsg(AName: string; AAge: Integer; AIsMan: boolean): string; public // ´Ù¸¥ À¯´Ö¿¡¼­ ÂüÁ¶ÇÒ ¼ö ÀÖ´Â º¯¼ö¿Í ÇÔ¼ö ¼±¾ð end; @@ -66,6 +67,12 @@ function TForm2.GetAgeMsg(AName: string; AAge: Integer): string; ¹®ÀÚ¿­°ú º¯¼ö¸¦ Á¶ÇÕ(´õÇϱâ) Çϼ¼¿ä. Á¤¼ö´Â ¹®ÀÚ·Î º¯È¯(IntToStr)Çϼ¼¿ä. } + if AAge >= 20 then + Adult := '¼ºÀÎ' + else + Adult := '¹Ì¼º³â'; + Msg := GetNameMsg(AName); // Àλ縻 Ç¥½Ã´Â Àç»ç¿ë + Msg := Msg + #13#10 + AName + '´ÔÀº ' + inttostr(AAge) + '¼¼·Î ' + Adult + 'ÀÔ´Ï´Ù.' ; Result := Msg; end; @@ -103,16 +110,29 @@ procedure TForm2.Button3Click(Sender: TObject); Name := edtName.Text; Age := StrToInt(edtAge.Text); IsMan := rdoMan.Checked; - + MSg := GetUserInfoMsg(Name, Age, IsMan); { TODO : (2) Àλ縻 + ¼ºÀο©ºÎ È®ÀÎ + ¼ºº°È®ÀÎ ¸Þ½ÃÁö¸¦ ¹ÝȯÇÏ´Â ÇÔ¼ö(GetUserInfoMsg)¸¦ ÀÛ¼ºÇϼ¼¿ä Msg := GetUserInfoMsg(Name, Age, IsMan); } - ShowMessage(Msg); end; +function TForm2.GetUserInfoMsg(AName: string; AAge: Integer; + AIsMan: boolean): string; + var + s,Msg:string; +begin + if AIsMan = True then + s := '³²ÀÚ' + else + s := '¿©ÀÚ'; + Msg := GetAgeMsg(AName, AAge ); + Msg := Msg + #13#10 + AName + '´ÔÀº ' + s + 'ÀÔ´Ï´Ù.' ; + + result := Msg; +end; { TODO : (2-2) GetUserInfoMsg ÇÔ¼öÀÇ ±¸ÇöºÎ¿¡´Â Àλ縻 + ¼ºÀο©ºÎ È®ÀÎ + ¼ºº°È®ÀÎ ¸Þ½ÃÁö¸¦ ¹ÝȯÇϵµ·Ï ÀÛ¼ºÇϼ¼¿ä. diff --git a/20_Task/M1/30_Array/ArrayForm.pas b/20_Task/M1/30_Array/ArrayForm.pas index c495570..0b94dd1 100644 --- a/20_Task/M1/30_Array/ArrayForm.pas +++ b/20_Task/M1/30_Array/ArrayForm.pas @@ -60,6 +60,8 @@ procedure TForm3.Button1Click(Sender: TObject); Memo1.Lines.Clear; Memo1.Lines.Add('¹è¿­ ³»¿ë'); + for I := 0 to length(Fnumarr)-1 do + Memo1.Lines.Add(inttostr(FNumarr[I])); { TODO : (1) for ¹®À» ÀÌ¿ëÇØ ¹è¿­ÀÇ ³»¿ëÀ» Ãâ·ÂÇϼ¼¿ä. ¹è¿­ÀÇ Å©±â º¯°æµÇµµ µ¿ÀÛÇϵµ·Ï ¹Ýº¹ÀÇ ³¡Àº Length(FNumArr) - 1·Î ¼³Á¤ @@ -75,7 +77,8 @@ function TForm3.GetArraySum: Integer; begin Sum := 0; { TODO : (2) for ¹®À» ÀÌ¿ëÇØ ¹è¿­ÀÇ °ªÀ» ¸ðµÎ ´õÇØ ¹ÝȯÇϵµ·Ï ±¸Çö } - + for I := 0 to length(Fnumarr)-1 do + Sum := Sum + Fnumarr[I]; Result := Sum; end; @@ -87,7 +90,9 @@ function TForm3.GetArrayMaxNum: Integer; { TODO : (3) for ¹®À» ÀÌ¿ëÇØ ¹è¿­ÀÇ °ª Áß °¡Àå Å« °ªÀ» ¹ÝȯÇϵµ·Ï ±¸Çö if ¹®À» ÀÌ¿ëÇØ ¼ýÀÚ¸¦ ºñ±³ } - + for I := 0 to length(Fnumarr)-1 do + if Fnumarr[I] >= MaxNum then + MaxNum := Fnumarr[I]; Result := MaxNum; end; @@ -104,8 +109,13 @@ procedure TForm3.Button2Click(Sender: TObject); 50 ¹Ì¸¸(<)ÀÎ °æ¿ì CountUnder 1 Áõ°¡ Çϵµ·Ï ±¸Çö } - Memo1.Lines.Add('50 ÀÌ»óÀÎ ¼öÀÇ °¹¼ö: ' + IntToStr(CountOver)); - Memo1.Lines.Add('50 ¹Ì¸¸ÀÎ ¼öÀÇ °¹¼ö: ' + IntToStr(CountUnder)); + for I := 0 to length(Fnumarr)-1 do + if Fnumarr[I] >= 50 then + inc(CountOver) + else + inc(Countunder) ; + Memo1.Lines.Add('50 ÀÌ»óÀÎ ¼öÀÇ °¹¼ö: ' + IntToStr(CountOver)); + Memo1.Lines.Add('50 ¹Ì¸¸ÀÎ ¼öÀÇ °¹¼ö: ' + IntToStr(CountUnder)); end; end. diff --git a/20_Task/M2/Calculator.dpr b/20_Task/M2/Calculator.dpr new file mode 100644 index 0000000..da8f13d --- /dev/null +++ b/20_Task/M2/Calculator.dpr @@ -0,0 +1,23 @@ +program Calculator; + +uses + Vcl.Forms, + Mycal in 'Mycal.pas' {Cal}, + Vcl.Themes, + Vcl.Styles, + Usplash in 'Usplash.pas' {SplashForm}; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + SplashForm := TSplashForm.Create(Application); + TStyleManager.TrySetStyle('Sky'); + SplashForm.show; + SplashForm.Refresh; + Application.CreateForm(Tcal, cal); + SplashForm.Hide; + SplashForm.Free; + Application.Run; +end. diff --git a/20_Task/M2/Calculator.dproj b/20_Task/M2/Calculator.dproj new file mode 100644 index 0000000..acceb8d --- /dev/null +++ b/20_Task/M2/Calculator.dproj @@ -0,0 +1,625 @@ + + + {EE366DC8-34BA-42E0-90A5-BA2E4BC2708F} + 18.6 + VCL + Calculator.dpr + True + Debug + Win32 + 1 + Application + + + 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 + Calculator + Amakrits|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Amakrits.vsf;"Amethyst Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AmethystKamri.vsf";"Aqua Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaGraphite.vsf";"Aqua Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\AquaLightSlate.vsf";Auric|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Auric.vsf;Carbon|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Carbon.vsf;"Charcoal Dark Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CharcoalDarkSlate.vsf";"Cobalt XEMedia|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CobaltXEMedia.vsf";"Cyan Dusk|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CyanDusk.vsf";"Cyan Night|VCLSTYLE|$(BDSCOMMONDIR)\Styles\CyanNight.vsf";"Emerald Light Slate|VCLSTYLE|$(BDSCOMMONDIR)\Styles\EmeraldLightSlate.vsf";Glossy|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glossy.vsf;Glow|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Glow.vsf;"Golden Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\GoldenGraphite.vsf";"Iceberg Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\IcebergClassico.vsf";"Lavender Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\LavenderClassico.vsf";Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Light.vsf;Luna|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Luna.vsf;"Metropolis UI Black|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MetropolisUIBlack.vsf";"Metropolis UI Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MetropolisUIBlue.vsf";"Metropolis UI Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MetropolisUIDark.vsf";"Metropolis UI Green|VCLSTYLE|$(BDSCOMMONDIR)\Styles\MetropolisUIGreen.vsf";Obsidian|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Obsidian.vsf;"Onyx Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\OnyxBlue.vsf";"Ruby Graphite|VCLSTYLE|$(BDSCOMMONDIR)\Styles\RubyGraphite.vsf";"Sapphire Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SapphireKamri.vsf";Silver|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Silver.vsf;Sky|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Sky.vsf;"Slate Classico|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SlateClassico.vsf";"Smokey Quartz Kamri|VCLSTYLE|$(BDSCOMMONDIR)\Styles\SmokeyQuartzKamri.vsf";"Tablet Light|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletLight.vsf";TabletDark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TabletDark.vsf;"Turquoise Gray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\TurquoiseGray.vsf";Windows10|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10.vsf;"Windows10 Blue|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Blue.vsf";"Windows10 Dark|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Dark.vsf";"Windows10 Green|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Green.vsf";"Windows10 Purple|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10Purple.vsf";"Windows10 SlateGray|VCLSTYLE|$(BDSCOMMONDIR)\Styles\Windows10SlateGray.vsf" + + + DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;emsclientfiredac;tethering;svnui;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;FireDACIBDriver;fmxdae;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;emsclientfiredac;tethering;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;FireDACIBDriver;fmxdae;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 + true + 1033 + + + false + RELEASE;$(DCC_Define) + 0 + 0 + + + true + PerMonitorV2 + + + + MainSource + + +
Cal
+ dfm +
+ +
SplashForm
+ dfm +
+ + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + +
+ + Delphi.Personality.12 + Application + + + + Calculator.dpr + + + Embarcadero C++Builder Office 2000 Servers Package + Embarcadero C++Builder Office XP Servers Package + Microsoft Office 2000 Sample Automation Server Wrapper Components + Microsoft Office XP Sample Automation Server Wrapper Components + + + + + + Calculator.exe + true + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + classes + 1 + + + + + res\xml + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\armeabi + 1 + + + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + + + res\values + 1 + + + + + res\values-v21 + 1 + + + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + + + res\drawable-small + 1 + + + + + res\drawable-normal + 1 + + + + + res\drawable-large + 1 + + + + + res\drawable-xlarge + 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 + + + Contents\Resources\StartUp\ + 0 + + + Contents\Resources\StartUp\ + 0 + + + 0 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + 1 + + + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 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 + + + 1 + + + 1 + + + 1 + + + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + 1 + + + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + + + + + + + + + + True + False + + + 12 + + + + +
diff --git a/20_Task/M2/Calculator.res b/20_Task/M2/Calculator.res new file mode 100644 index 0000000..8d40fec Binary files /dev/null and b/20_Task/M2/Calculator.res differ diff --git a/20_Task/M2/Mycal.dfm b/20_Task/M2/Mycal.dfm new file mode 100644 index 0000000..332594a --- /dev/null +++ b/20_Task/M2/Mycal.dfm @@ -0,0 +1,355 @@ +object Cal: TCal + Left = 0 + Top = 0 + BorderStyle = bsToolWindow + Caption = #44228#49328#44592 + ClientHeight = 401 + ClientWidth = 397 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 80 + Width = 398 + Height = 321 + BorderStyle = bsSingle + TabOrder = 0 + object Btn1: TButton + Tag = 1 + Left = -1 + Top = -1 + Width = 80 + Height = 80 + Caption = '1' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = NumberButtonClick + end + object Btn2: TButton + Tag = 2 + Left = 78 + Top = -1 + Width = 80 + Height = 80 + Caption = '2' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + OnClick = NumberButtonClick + end + object Btn3: TButton + Tag = 3 + Left = 157 + Top = -1 + Width = 80 + Height = 80 + Caption = '3' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 2 + OnClick = NumberButtonClick + end + object Plus: TButton + Tag = 11 + Left = 236 + Top = -1 + Width = 80 + Height = 80 + Caption = '+' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 3 + OnClick = OPButtonClick + end + object Btn4: TButton + Tag = 4 + Left = -1 + Top = 78 + Width = 80 + Height = 80 + Caption = '4' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 4 + OnClick = NumberButtonClick + end + object Btn5: TButton + Tag = 5 + Left = 78 + Top = 78 + Width = 80 + Height = 80 + Caption = '5' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 5 + OnClick = NumberButtonClick + end + object Btn6: TButton + Tag = 6 + Left = 157 + Top = 78 + Width = 80 + Height = 80 + Caption = '6' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 6 + OnClick = NumberButtonClick + end + object minus: TButton + Tag = 12 + Left = 236 + Top = 78 + Width = 80 + Height = 80 + Caption = '-' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 7 + OnClick = OPButtonClick + end + object Btn7: TButton + Tag = 7 + Left = -1 + Top = 157 + Width = 80 + Height = 80 + Caption = '7' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 8 + OnClick = NumberButtonClick + end + object Btn8: TButton + Tag = 8 + Left = 78 + Top = 157 + Width = 80 + Height = 80 + Caption = '8' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 9 + OnClick = NumberButtonClick + end + object Btn9: TButton + Tag = 9 + Left = 157 + Top = 157 + Width = 80 + Height = 80 + Caption = '9' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 10 + OnClick = NumberButtonClick + end + object multi: TButton + Tag = 13 + Left = 236 + Top = 157 + Width = 80 + Height = 80 + Caption = '*' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 11 + OnClick = OPButtonClick + end + object BtnDot: TButton + Left = -1 + Top = 236 + Width = 80 + Height = 80 + Caption = '.' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 12 + OnClick = BtnDotClick + end + object equal: TButton + Left = 157 + Top = 236 + Width = 80 + Height = 80 + Caption = '=' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 13 + OnClick = equalClick + end + object Delete: TButton + Left = 315 + Top = -1 + Width = 80 + Height = 159 + Caption = #8592 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 14 + OnClick = DeleteClick + end + object division: TButton + Tag = 14 + Left = 236 + Top = 236 + Width = 80 + Height = 80 + Caption = '/' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 15 + OnClick = OPButtonClick + end + object Btn0: TButton + Left = 78 + Top = 236 + Width = 80 + Height = 80 + Caption = '0' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 16 + OnClick = NumberButtonClick + end + object Clear: TButton + Left = 315 + Top = 157 + Width = 80 + Height = 159 + Caption = 'C' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 17 + OnClick = ClearClick + end + end + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 397 + Height = 81 + Align = alTop + Caption = 'Panel2' + TabOrder = 1 + object Edit1: TEdit + Left = 1 + Top = 39 + Width = 395 + Height = 41 + Align = alBottom + Alignment = taRightJustify + AutoSize = False + BorderStyle = bsNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + NumbersOnly = True + ParentFont = False + ReadOnly = True + TabOrder = 0 + end + object Edit2: TEdit + Left = 1 + Top = 1 + Width = 395 + Height = 40 + Align = alTop + Alignment = taRightJustify + AutoSize = False + BorderStyle = bsNone + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + TabOrder = 1 + end + end +end diff --git a/20_Task/M2/Mycal.pas b/20_Task/M2/Mycal.pas new file mode 100644 index 0000000..3a0f49c --- /dev/null +++ b/20_Task/M2/Mycal.pas @@ -0,0 +1,189 @@ +unit Mycal; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; + +type + TCal = class(TForm) + Panel1: TPanel; + Plus: TButton; + Btn1: TButton; + Btn2: TButton; + Btn3: TButton; + Btn4: TButton; + Btn5: TButton; + Btn6: TButton; + minus: TButton; + Btn7: TButton; + Btn8: TButton; + Btn9: TButton; + multi: TButton; + BtnDot: TButton; + equal: TButton; + Delete: TButton; + division: TButton; + Btn0: TButton; + Clear: TButton; + Panel2: TPanel; + Edit1: TEdit; + Edit2: TEdit; + procedure NumberButtonClick(Sender: TObject); + procedure OPButtonClick(Sender: TObject); + procedure equalClick(Sender: TObject); + procedure ClearClick(Sender: TObject); + procedure DeleteClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure BtnDotClick(Sender: TObject); + private + Sum:Extended; + PreSign : String; //¾Õ¿¡ ÀÔ·ÂÇÑ ºÎÈ£ + IsSum : Boolean; + procedure InitCalc(); + procedure SumCalc(); + public + { Public declarations } + + end; + +var + Cal: TCal; + +implementation + +{$R *.dfm} + +procedure TCal.OPButtonClick(Sender: TObject); +var + ThisSign : string; //Áö±Ý ´©¸£´Â ±âÈ£ +begin + case (Sender as TButton).tag of + 11 : ThisSign := '+'; + 12 : ThisSign := '-'; + 13 : ThisSign := '*'; + 14 : ThisSign := '/'; + end; + + if IsSum then + begin + Edit2.Text := Copy(Edit2.Text, 1, Length(Edit2.Text)-1) + ThisSign; + PreSign := ThisSign; + end + else + begin + if PreSign = '' then + begin + Edit2.Text := Edit1.Text + ThisSign; + Sum := StrToFloat(Edit1.Text); + end + else + begin + Edit2.Text := Edit2.Text + Edit1.Text + ThisSign; + SumCalc(); + end; + + PreSign := ThisSign; + end; + + IsSum := True; +end; + +procedure TCal.SumCalc; +begin +try + if PreSign = '+' then + Sum := Sum + StrToFloat(Edit1.Text) + else if PreSign = '-' then + Sum := Sum - StrToFloat(Edit1.Text) + else if PreSign = '*' then + Sum := Sum * StrToFloat(Edit1.Text) + else if PreSign = '/' then + begin + if Edit1.Text = '0' then + begin + ShowMessage('0À¸·Î ³ª´­ ¼ö ¾ø½À´Ï´Ù.'); + InitCalc(); + end + else + Sum := Sum / StrToFloat(Edit1.Text); + end; +except + on e:EMathError do + showmessage(e.Message); +end; + + + Edit1.Text := FloatToStr(Sum); +end; + +procedure TCal.BtnDotClick(Sender: TObject); +begin + if Pos('.', Edit1.Text) = 0 then + Edit1.Text := Edit1.Text + '.'; +end; + +procedure TCal.ClearClick(Sender: TObject); +begin + InitCalc(); +end; + +procedure TCal.DeleteClick(Sender: TObject); +var +s:string; +begin + if Length(Edit1.Text) <= 1 then + Edit1.Text := '0' + else + Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1); +end; + +procedure TCal.equalClick(Sender: TObject); + +begin + if true then + begin + if PreSign = '' then + Sum := StrToFloat(Edit1.Text) + else + begin + SumCalc(); + end; + end; + IsSum := True; + Edit2.Clear; + Sum := 0; + PreSign := ''; +end; + +procedure TCal.FormShow(Sender: TObject); +begin + InitCalc(); + Edit1.SetFocus; +end; + +procedure TCal.InitCalc; +begin + Edit1.Text := '0'; + Edit2.Clear; + IsSum := False; + PreSign := ''; + Sum := 0; +end; + +procedure TCal.NumberButtonClick(Sender: TObject); +begin + if IsSum then + Edit1.Text := '0'; + if Edit1.Text <> '0'then + if Length(Edit1.Text) = 10 then + else + Edit1.Text := Edit1.Text + IntToStr((Sender as TButton).tag) + else + Edit1.Text := IntToStr((Sender as TButton).tag); + + IsSum := False; +end; + +end. diff --git a/20_Task/M2/Usplash.dfm b/20_Task/M2/Usplash.dfm new file mode 100644 index 0000000..b3f9a26 --- /dev/null +++ b/20_Task/M2/Usplash.dfm @@ -0,0 +1,743 @@ +object SplashForm: TSplashForm + Left = 0 + Top = 0 + BorderStyle = bsNone + Caption = 'SplashForm' + ClientHeight = 372 + ClientWidth = 376 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 376 + Height = 372 + Align = alClient + AutoSize = True + BorderStyle = bsSingle + Caption = 'Panel1' + TabOrder = 0 + object Image1: TImage + Left = 32 + Top = 16 + Width = 289 + Height = 225 + Picture.Data = { + 07544269746D6170D6540000424DD6540000000000007600000028000000F000 + 0000B4000000010004000000000060540000130B0000130B0000100000000000 + 0000000000000000800000800000008080008000000080008000808000007F7F + 7F00BFBFBF000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF + FF00BF38B00020071013030303023072010070172100438B8888337378F8837B + F88B83028FFFB820000000100000000001103300081000270000000040040001 + 0000000000371033001133393311138305041333338312101027101000000000 + 0000011111900020400000571000610210101400010001300000711010101031 + 178888388888B8B8127335323070217333333373323333737352702128BB3101 + 01030000000001000130388137200171000000030200000001000000207801F8 + 1033883889383371153173389337140201153031113939999999939938391011 + 2110300001010141111111140003410400003373700001933933713120317017 + 1007125370037373338383337838383377317178330120000009890521200001 + 7F81038000050000041000000101001000071010171005870173BBBBF8317139 + 3B31388BB3939315139395318937983833838333388313000113103019310131 + 1379999100000000000001030210117983771240770025211071341005011313 + 1113131000110035311020003388B33131178333363000018FF1100003000730 + 3000504100000830001B3000381000001003FFFBFB3113833FB8BBBFB839B893 + 9F38B11388383838838383338B83101113379011338910013FB7333911533310 + 1017014001F201138BB971013101010061171038933038B83388B71537183001 + 371414101888888331110000000000018FF71000000003205001210006031100 + 000500000100100200538BBFB713218B338B88BB8B8393398FF3979339371393 + 139317138B83170701F3183738B313017FF33793733317300011033103710303 + BFF7303000000000100530173F3053FF318BF39B110401070000217710030113 + 1000004041000101195110000000000002000100010837000000004002000000 + 1013133733317378113103113831311197911310101010001000000004010011 + 13735F3837811111131101000000000000001B81011214138BFB710038883730 + 0030007137131BB8318BF3779131010710101037010140731010100020016710 + 0010000000000000000040000000100010001000010000000201217317001000 + 0000183010000420010000000000000000000000000000020100201031188317 + 3111111101121131373333831001211737373115033733130517113032513783 + 138B31BBF3311301233007013121010710301010000003001000391911000100 + 0100101012107310000000000000000000000031102100301210083000100101 + 3010103003010703501031111210005011711171017311733183373793713317 + 13130110000010212100007310000070300200010103731701783038B3B51300 + 5101010170000200025030000010371200137833331300121333030735033337 + 1303000103000135101710613010318300031710383077041210010000010100 + 0040000000000000000000101037110017F30000000000000000993913300010 + 1031210701001000000010100000710000109999199110100000000010010101 + 0100000100000001010010100101010010101030100161010251610612100013 + 0002001020000133000027003330312100183000077200001223320000010200 + 01031070014000110371010002500430060033833B30310318BFF31078310370 + 1011737331710300133933333930000000010700121300000013010301001011 + 3799919110000000000001000000000001000001004070000010101151911110 + 0101000300000000010810010300000125000000000001024007001001001000 + 1130100101010000010033931101000120733120137700101602373710120110 + 333883888393330333700037037013730030030300006003FB39393831133338 + 30383000031610370003010001000070012143939B3933881000010000010101 + 0010010000130370000781783000000102100012013311313711371000001001 + 000283393100121001000010000001000050000004201077101339B889338333 + 73831373373378B8172383788B333383F3133339930312120137341010330127 + 000007310010100130101139BF83393710021231033000000000000100203020 + 000212120014100001001004037713818B738310002107020738833383300000 + 000074016000270101001010301052BB397388BFB39111030100000500010312 + 12511021010010303013339931313388B88B1338370701010010030010420500 + 70301333B83931000383388218323320327330407F8388B8BF33808B71030130 + 0000200100100005010100000040001232163333891001301030730001000323 + 7000000171020188333BBFFFF8933830373073003073173383B7831328300001 + 71983393391131333733337733103035000000072010020101013938B8833313 + 07FF3FF38F88FF38838F30121332033033036123030107907005000001712100 + 0002041010121527382138339311000021017300000125001010007037100101 + 81383BBFB9393313300210100701033171431307130500311078883333331000 + 0078373B7800008300011000100010000013788BB8B831030000000300000101 + 23720000088383038838B8383130131000000100000000000100012003400203 + 730788383331010017123500340003010200010000001601713888BBF3338838 + 3005004037304083000387100000378331333338898900300173331330301036 + 00183100007000070113BFFF83399830111117001000133883B8201012177007 + 7123332330300100100000000000000000000041012107083723B88BB3910000 + 0007F300010377204100770100000013313888BBB83900133013010100012131 + 10301300010001210333333833B903010008837838B803810070121000101010 + 0003FFB8338338B2383331050333210313833001000000001000010003110012 + 0100040030011010001001000010010363168838883100070003700070003300 + 1300730000101003713338B8B383103F037020000300008F2053008730037037 + 11B8888B83831010021037173537031200000041003000003193BBB839B31310 + 1717101200FF80017FFFF1024010010000019111113713000003000070593971 + 700000200070270738213733338933371003F700100777200000730073830001 + 3338BFFBF8810010120110701043013001212103100170100388383333391000 + 110000010000412100100000040025001888BB83933931711313307003FF8020 + 3FFFF20103002003733339399333100300103001003333331170000010010103 + 21273933983121200001000070003003830010503071210BB838BFFFFB810108 + 3012337000172383138371283533010019B88883333100007717010200100050 + 000000100010100173888B88338133737318311010383731FB73210000000037 + 3388333339130210010701002111001003810100003016071210739839311837 + 3330030001000103F800000271230FFBF39338BBB39100161004001210101100 + 040104002014200178BBB8BB8831301073310014014010000100000000000339 + 8B8BBFB833310000000000000025214383121031011111001199883839371000 + 120001711133911371B0000000002012382893938393331333F8000102142000 + 10107010333138BF831318B88313310101210140017700070130210101201070 + 3BB8BBBB8831012010520120123100000371003012500383BFFFBFBB83133131 + 13911370141003018339318833F338933938BB88833713130013133931881831 + 3911311111210520383B3333B393833031300102710014103020010250780301 + 333338B8B313710014021000127121000171000034100000388888B888310000 + 300104101253030007301010013013138FBBBBB3833FF3833883131331311712 + 3503317307313831733888333933338810037012137131111393333383103018 + 837038833891333700001210720100000010100130070002770138B889200010 + 3010124101001001310410100100501178333838333100100010210001000400 + 13701070330503339BB88991893333113531311101070131FB78B3101B313B33 + B8383389333FBFFB30101000101510701838B388BF31343773121B3939831010 + 37070833B77001033333833737370100301333F8391003000000001020050400 + 7010020000210000933989391831307001005007001501000070703050120831 + 8B8833333310011711351717131130018313313113803833F83339B8BB8377B8 + 100700010033310177838338B812312001F82988333112737712134313312021 + 213212731213001005339BFB8313410501001000410000100010141001001210 + 7333933313812130700120101020001003101011212101318888399938393171 + 3379313171731713831830381BB18F3001739383883333320101111001351010 + 13710373831373100373198983913013030307338383883F8803737383370000 + 1B338FFFF8900000000003000000100000000000000000413383939333310101 + 021005200141030014303070310703338B883389388310331737331331331303 + 1143113108813711093333931337030512138883113131000012530312178370 + 70130383399231250217033030333317370131337137012078388BFFF3130010 + 0070161012120000100210301001001013933339933070700140010502102500 + 0300101007030713FBFB88B3331303171253171373781310731B817818331139 + 993B83913083031200138B810371301001003030703312100001138838910003 + 73001838337183833F3333833373001303333BFFF39391203773610000383000 + 6137000882337303388939933931130101210120010011001001070130101318 + FFFF8B83900301110310316110731300711371371B813993988B833130730707 + 0500141011042030701310103073103013737988389300137000123121212130 + 1730737077350700017138BFF710021000100037030130311061071313100161 + 9B3338389331617000003041002173110210000000100018BFBB8BB933531273 + 37331016137300732072100150709333BFB88890127330120303016177114141 + 003222330033301412731379989303421323378883B737830331703121203030 + 103313BFB7103180332030731773738300107B38833730118883833833331213 + 0710001031013800010000100100352BFB88BB8313B701201217003102534301 + 030100120111333BBBBB33921173072010303010002003032323323A72731270 + 016131193939103070071301713070302130000010010010033988BFF3117131 + 701410212333312703030373373301017388888381133130038F310387101010 + 170103001350031FF83FF8920101025303000173213303373083000037218898 + 8B888921027730102700830133338A8A88A8A88ABF3712101631313789833733 + 38B3273373833338183337173371200031388BFFB91130000123034373737303 + 70041233373010017393339B312313121021025113510001081017100731001B + 838BF39003707030170121271317016121430712100113933393331030700030 + 10037002788ABFA88A88A8A8B82270103012F129393110161370173737373783 + 388383327737100177183FFF8977012000100000010214010121001210100209 + 3939398393123B310010010700307710310001000000017FB88B811610321000 + 737016133073133303732100000038311388B50001830616012083010288A88A + 888A3A82A3211070525030115393370330127003001001006010101010700101 + 01313BFBB3311400028333012701321070333001020101017398399311313380 + 0340143007013701710358301303013FB3333130101003030131200303112007 + 0131303083783B81213131073000100000573082088ABAB8A7A3833A83820000 + 001000313014030301210010010010101000030030107000311038FB89310001 + 434170000120010212100030001235017398388B538388301003010010000070 + 3010207037000168311710100000121001271337800010001273770183331881 + 1171120830000001003200107BEB88EBB8A88A8A8AB030103000100001301025 + 21733121210300200103010100100101017918B8893001000012737736121001 + 01001000013383011393338B3183383020100071001011317100101000170011 + 0103001601301403733010000353070703031212707083830313510000010000 + 0307000038AFABBA8A88A8A38B8200000000000100002100121703888388B88B + 38388383837300000BB338FB8930000001203030001403833838333333833373 + 1139308F12788101010521000700831030000000000201071000012013732010 + 3810000014303330251372108303120111713041003073000013338338BFBE8B + FB8A788BA8A83728332837103070300730300372132331370737373370371727 + 38899BFFFB97100177010701302003F3383888883888B8B83988918B21383034 + 0021050300117711707003307305002125010011020012070143103003034000 + 12303521870000103010101200013010007301337FB8AFBFAFAFAFAFFBFBFABF + AFBF00001300503007301703838383717333733533730273017938FFFF300000 + 333733737101000137120012113017001373128F114103010010010101731310 + 0101007010030101032043420501000130316000101010000353123011310002 + 3320000001100078012700007ABFBFAFB8B8BFBFAFFBFBF8B8A8100037120100 + 3100210373737332331333333735010009939FFFFF9003007010000100007103 + 13101001307330115911018B0201210005021250017117120000421027107817 + 0100000100040070070101070383373703338301213310218330301050201021 + 025333703FBEBBFBABEBFB8FBFBFBFBFABEB0270010113161031437138B8B873 + 8838388013830000133938BFF890000031212100037302008838331373300373 + 131003FF30520521001400030000000150010100102012100101003003201203 + 01102000018733270337830001F81010F821000121016000012378337BFBF8BB + 88BAFBFBEBEBE8AFB8B810870020006102302103033373331373333103370050 + 073738FFF3112502783706120725310373381130731013731100038301001000 + 0000101001010100000000000100000210011010011000050070100012010001 + 0701043083B810208305217B3713018712173020388BAB88ABBBBEBFBFFBFBFB + FAFA001001053017101317378838B7178B388383837310201B3733FBF3100000 + 0100110513333781370338303383303373000710033337333730040003313107 + 3100000000003401020730101030100025001000010100000103030373F81010 + F3030038371003780213217078A888A88A8A8BFAFBFBAFA8A8B8300000310113 + 00772303733373333833338333830101583333FFF91101010000000000000370 + 3312373013713313330173010010331703300105018833093001070030037300 + 071310240200703101370733701217250307103033FB12037010701072371200 + 410700007BBABBB8B8B8BABB8ABFFB8B88BA000001723124313218B83388B788 + 3F8883B738830021037983FFB973100033333232333330020081021833383388 + 3000300207037333370300201088110379120101750135010007301000101000 + 305312503071001210110610898810101303117013730103007303373BB8BBBB + B88A8BB8A8BAB8A8A8A810020001701010110731013433333337738727370100 + 031993BFF3381070783371317883311110313133113313171050010010170317 + 121000012017371BF31012121303830004031001000020050120001201161000 + 0703010183310307007013331300204012173373338888B888B8BA8BFFFFBFBB + FB3F001000030303833733783373138838330310317030010139378FB9310000 + 73633373333308B8B38830183388B3033000071003001000001830000073001B + F811010140001212101710210312100216101000430100001010701230530071 + 0301238378100030001B37373888888888B8BB8ABBBBBBABBABB350010317123 + 73731337377323383831373125330017038933BFF99030003313533308312371 + 7313731333838103000003121431241210321000001010177351060012107100 + 0207105033810301010160001072138207333303830213031012121333110000 + 333133213888888888888888B3BA3B888882710000000141000178333313888B + FB8333B8330501250389338FB7931101833333703303300000737378B8B88300 + 1271040100000120430500301000020010020101000124300103102000000004 + 216010200131021001313007F701073160251388383373337883833338888888 + 88888B8B8B88B8BABA8830027001301211030703212133733733333331212001 + 213938FFF8392100712503313333313171130331373315300037001030001001 + 0000000030000103021000000000010100171001083120301101037333833833 + 338883300000000310112133133117373313371338BBBBBBBB838B8888888B88 + BBBA0303B80371351338337388B383388B8888B38337010501733BFFFF311000 + 33333833888838B3338313770208B27711F30110100000000000007300701000 + 0100103027017300170330001330500107103014217100030371303035003017 + 001610173383139111737373388888B88B888BB8B8B8B8B88B880823FB031301 + 21713253137383373833388383310102013988BFFF3107017133313333133170 + 0121131005037112137102014000000000000030100107010177307173133110 + 0701007000000212012010001035207801030701730100703030137037313073 + 333073373FBBBB8BB8BBB888B88888B8B88B3833300000131120533328B8F8B8 + 8B7883888383301010538BFFFB92112083883337383311111111101111111100 + 0000014120000003703007171030700012010030100737000000013010001001 + 0701002101710010170161000000001700143031133711337113337333333338 + 3838888388B888B8B88B1F320833117131112123133373333733333333350000 + 0031BFBFF3901210171701301701033331339813313933130000100011830001 + 3070001300313010701203521212730312100270000040001177001037121200 + 0313012077031363301211733171383333733333133333333333333888BB3888 + BB886B303830173837121F888833F3883813888383812017010188BFF3901000 + 310113111310388883888B3B7338838310412012000000000000000000000000 + 0001000001001410371001737333306121130307017114001710352010171031 + 403031071391393393170333388883888883883888388B8888881B7073313311 + 311113373333337737337371837301730121333FB88121000000000000000013 + 1133331311313502000070004000007000000000000000000000000000000127 + 3737020131310300703501612131320003537210000330172141121111339339 + 8330383138838333883833333388BB8333887330000783333737378338838337 + 33383233838100140011788BF890011000000000000011133139399311711310 + 000000000000000000000001000101010100101000010313733010038BF33001 + 0310120311170033173331001611700310212183133333333931883078838388 + 83833888B8888383B83337000021111713311237333333131737313333312102 + 1602133BB8910700010000000000038939333833339335001200100000000000 + 0000003713833333831313738331770000000403333730017113130703710120 + 0311707000031077001708B33888888383338B83337383833738388888B83838 + 8833730100111111073703133888833330131338338310100101038FF8331000 + 4013010101000339339838389B33391060003000000000000000001420702021 + 21070201313033100120121288312403118F3001253138831373302100010212 + 1212111133331373371373017383733833373833833333833838300210637379 + 31311303133333131113118333330120010139BFF8BF13010178BF8313131833 + 8883813933383331000000000001000000000011113011111301113137399833 + 7000003037301001173830010317038127337113310001070141031333890337 + 3397311173333737337337373383838333383810101338339313188833888881 + 383F8888B88300141027383333F8100031331331113103838388893978833371 + 0000000000070000000000311310111311010111173138330000037133030021 + 3110107013731600031010617830003700231383333398337333333393435313 + 1717213738333378833238200001733138383733313383313373778383750103 + 01137F31F3000001011131113111311131371373389113120170000000000000 + 00000013381138383131188139133B1000000030712700410311000177110000 + 0701301008189016101013893333393333333333333337737333737337337737 + 377378100001379397337B788833B8B88B383333833300701771071287000000 + 0121113110101191993931339813911100000000000000000000013313313310 + 111013010301881000000000B833300171831271033730703111400037383033 + 7121738339311339318398331331733373773327637733373333370000037337 + 3171133733338333383333337134100000100000000000001111138811110383 + 83138131379338831000011300000000000003F88B838F313313371101183300 + 0000000010710010117100121790100001702101311700377000318939939393 + 3139333913193979311394001200040000407200000371371371378B88838888 + 388B8883B3730520170000000000000001011013133333137117939939399383 + 0000000130000000000000110301210121010101313315000000000003333003 + 733713611337183013391043700070772071213888383388818888B881319339 + 5379391000021007010110000001037331383037373333837333383781300101 + 0000000000000000119999939938811311731738833883370000007710130000 + 0000017111101110113111138F3FB20000000003713700012135021303311205 + 0311310000030167701053333339339339733333393133931397939301110010 + 00003000000111711053138B8B88B3833B38BBB8BFF300300000000000000003 + 3838339333393111519111933973937000000000000000000000001313113313 + 1113110103131100000000033373000173833137188310033838314100012008 + 2030338883831933933388888319989319393797179731320000000000011397 + 1331033337338333931333333331014000000000000000018838383893333113 + 137313739339339000000000000000000000011738313B888383313318338700 + 0000000073730521111052712135212711353000000710738803017113131399 + 39313713317173939139393939399700000000000005313153103888338BB883 + 8B888839B8830000000000000000000039333939333111111139117933933130 + 0000017700000000000000310100101010010050300310000000000033303001 + 17130337193318231793900000010017F8030339399193933398911891393938 + 8383833983373940000000000003911131171733338383333888383383331100 + 00000000000000001333339939911391938339378B8393830000000000000000 + 0000001130111103011303101011100000000000737303013135127303790730 + 3313300000000007770017131339933999393139371973371373793933933900 + 0000000000031179111138388B8888B8888838838B8700200000000000000001 + 88883883388B311339319133939139310000000000000000000001B811138891 + 1311101013133100000000001337300389312173133733070797100000000073 + 7216111899B3333333333333B319393911939383138391000000000000017333 + 3373133313731337333335373831001000000000000000003739739393933918 + B39938393333838300000000000000000000038899188831137111113378B300 + 0000000003701270373130370371120301333000000000737170138388883838 + 393131313139337971373791793939000000000000031153510133888BB88383 + 3838333330830110000000000000000183333988338839393939393993993333 + 0000000000000000000001133393313339131331103331000000000000730211 + 3973108313835821313790000000000373721333388333889193111111197339 + 1793999713739700000000000001133111703033333337373733771371821024 + 010000000000000031399313939813393383333B883398B70000000000000000 + 0000011338339338B3333B81119BB00000000000333007037137031311312103 + 0713300000000007073107133883883933379888831337371397373913379100 + 00000000000979191393588B8888B33733717B38B8B701100000000000000001 + 1193379983379839898983939839313100000000000000000000018838338398 + 8131188337388100000000000001020133710207039701601717100000000003 + 1614311333383339313338838339333913933997533793000000000000033173 + 1371313733737737143037377835012100000000000000001333393733339888 + B3838838388889310000000000000000000000373893383831173883B7388100 + 0000000000070331793717313171121013331000000000072032138838888833 + 3931111131597379717933939373910000000000000793117931104000010110 + 13050141010001100000000000000000399393339B8333393939993933939331 + 0000000000000000000003833883331333011011133110000000000000000001 + 3353000111310000779730000000000717141379339893139399399391393339 + 1397797133339700000000000009391393771210707070343430712130713171 + 3000000000000001888333393383183373839393983833830000000000000000 + 0000017333393733811301713831100000000000000000037933533737830700 + 1139100000000003163313B88833883338B83B33397933397133393998333900 + 0000000000037831733110010010141010101010500010110000000000000003 + 8388833138311393138377939839711000000000000000000000033318333111 + 0137113331371000000000000000001313901213039100000311300000000017 + 0305273737379313988833333339383917983739733839000000000000093991 + 9391100000000000000000000000042000000000000000003339119389113139 + 9373379738939310000000000000000000000011313131101111037313113000 + 0000000000000003838337371337103138383100000000721730137333937111 + 7888388BF3198337193393793333930000000000000373373983927700000000 + 0000000000000100000000000000000051791113393110038397931393133983 + 0000000000000000000001183883383183373111733110000000000000000001 + 3131020113901400713130000000000137030113117393833983931310797339 + 1379379998333100000000000007398339379373000000000400000000000000 + 0000000000000001B33313888BBF311339339393973939830000000000000000 + 0000001311311313313313033331100000000000000007037981031713833321 + 3738300000000003737071171338398333383391113933397973393973339100 + 0000000000011393173733100003730321272000000000000000000000000000 + 7117117337333010131179317198333000000000000000000000037137000071 + 1371383011088000000000000000000193970121339701011397300000000017 + 1331037393793731798931831179383333333783338399000000000000031711 + 3373170000002401030100010000000000000000000000000000000000000121 + 0113971193139910000000000000000000000000170000300013171000113000 + 0000000000000003737316171831727077395000000000730170313337137911 + 1373737313398339797833939838830000000000000111311111100373031032 + 7370810100000000000000000000000000000000000000010301339313983383 + 0000000000000000000000000000000000000000000000000000000000000001 + 71300121139310201313100000000001723503F3193339337311111191393339 + 7139397998339100000000000001399193131052121061010000600000000000 + 0000000000000000000000000000010101013919311833730000000000000000 + 0000000000000000000000000000000000000000000000133971121713813050 + 3833300000000003352103139339339799393939313983392973733973333100 + 0000000000011883891830037800006000033000000000000000000000000000 + 1939791993993939310183889311111000000000000000000000000000000000 + 0000000000000000000000000000000173170003133510011117100000000007 + 0734117183883399773883388319383939733979338393000000000000031737 + 311110201210030330000000000000000000000000000001133993939998398B + 9112135311131710000000000000000000000000000000000000000000000000 + 0000000000000003933103171371200073793000000000011013039373338333 + 3393733381133339039893979833910000000000000193939731101703037037 + 8000000000000001531000000000000388333378888388833811112171010100 + 0000000000000000000000000000000000000000000000000000000000000001 + 7981070313391130131310000000003737301373331838338331183831398339 + 3973379398333100000000000001133931131142003003010000000000000000 + 1000000000000000339339333333383933103151117117000000000000000000 + 00000000000000000000000000000000000000000000000139331217133378B8 + 1339100000000033831211111331111111713111317933391393973973379100 + 0000000000017883391833370070083013000000000000000000000000000001 + 1383138379389833911111000011100000000000000000000000000000000000 + 0000000000000000000000000000020373810337183137303798300000000001 + 3781211399313107121101171139833939737399733331000000000000039339 + 1179343137033013007300000000000000000000000000013939993939739333 + 9311310000001000000000000000000000000000000000000000000000000000 + 0000000000000013393133531333737073379000000000373373488388811113 + 1117133110398833133339793333910000000000000937971133310270037003 + 03033000000000000000000000000003883337337B7988388810000000000000 + 0000000000000000000000000000000000000000000000000000000000000003 + 838310371381100013733000000000031521133733351305171135017139B889 + 3383833738B83900000000000008393173790173333273803000730000000000 + 0000000000000000111111131331373317000000000000000000000000000000 + 0000000000000000000000000000000000000000000000017931003133313501 + 3733100000000000021001733731711311711117117333393397397333333100 + 00000000000B8339933712733701337340003700000000000000000000000001 + 7113979999999999311000000000000000000000000000000000000000000000 + 0000000000000000000000000000000333813317183130007393100000000007 + 0152531313711131137925311139883913333339788391000000000000011393 + 7935103700370033304070000000000000000000000000011391393373933337 + 1100000000000000000000000000000000000000000000000000000000000000 + 0000000000000009393903030331210039393000000000031731011813311717 + 1373313733398339398333933333310000000000000133333391107702710087 + 0001730510000000000000000000000131311373338338339300000000000000 + 0000000000000000000000000000000000000000000000000000000000000003 + 8383103313813333183330000000000000000171171311131131117131598839 + 1393393933839100000000000009199999131000100000000000000110000000 + 0000000000000000111139333393913117000000000000000000000000000000 + 0000000000000000000000000000000000000000000000033989021133313301 + 3838900000000000000003113151713517151171113383393338888938838100 + 0000000000188833883920182000000003300000000000000000000000000001 + 3919333393371139110000000000000000000000000000000000000000000000 + 0000000000000000000000000000000333390103993100013398900000000000 + 0000012501030111210121012179883939739799783391000000000000033713 + 3311106100000000000000000000000000000000000000018333131131939711 + 3710000000000000000000000000000000000000000000000000000000000000 + 0000000000000003888313393883330038833000000000000000011117111171 + 1131153111398839333833333333910000000000000711135113100000000213 + 0000000000000000000000000000000339399991993739199700000000000000 + 0000000000000000000000000000000000000000000000000000000000000003 + 9939939393999999999390000000000000000797397973977979739713833883 + 3333737938833100000000000001317131711000000000000000000000000000 + 0000000000000001888388383339138833100000000000000000000000000000 + 0000000000000000000000000000000000000000000000793389838383893333 + 3833910000000000000007379773797397737979719338393937337378333100 + 0000000000071112111700000000000000000000000000000000000000000001 + 3313933933139333330000000000000000000000000000000000000000000000 + 0000000000000000000000000000001389833338833983393333310000000000 + 0000097973997979739797373139833983333799338391000000000000011171 + 1531000000000000000000000000000000000000000000037793738839337B79 + 8830000000000000000000000000000000000000000000000000000000000000 + 0000000000000308338983833889B38333389000000000000000037397373737 + 3973737971338839933339333833310000000000001717131315100000000000 + 0000000000000000000000000000000013013017113171313700000000000000 + 0000000000000000000000000000000000000000000000000000000000000053 + 3389833378398333983830000000000000000000000001010710105301738339 + 3938337988839100000000000011101150139000000000000000010000000000 + 0000000000000000015011011111301010000000000000000000000000000000 + 0000000000000000000000000000000000000000000000313339833333893383 + 9B37100000000000000000000000000000000000033988393833333333338100 + 0000000000000000000110000000000000000000000000000000000000000001 + 3313171313511171150000000000000000000000000000000000000000000000 + 0000000000000000000000000000018399313333333983339999810000000000 + 0000000000000000000000000133383939833393388391000000100000000000 + 0000000000000000000000000000000000000000000000013193113131313191 + 3100000000000000000000000000000000000000000000000000000000000000 + 0000000000000013339933333339838933333000000000000000000000000000 + 0000000001838883883888383883310000000000000000000000000000000000 + 0000500000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000038 + 8B898B8388898339393390000000000000000000000000000000000003938839 + 3333333938333100000000000000000000000000000000000001100710000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000183839888338398339 + 3333900000000000000000000000000000000000013388893338398338833100 + 0000000000000000000000000000000000000001100000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000003838898B88383388833888900000000000 + 0000000000000000000000000173883333333339383331000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000018383988833889888338389000000000000000000000000000 + 0000000003398839333833333883910000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000013 + 7339337398313383933790000000000000000000000000000000000001388839 + 3398333938333100000000000000000000000000000000000000000000000000 + 0000000000000000000000015100000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000733393333373998389 + 3738100000000000000000000000000000000000037988393333393338339000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000997100000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000017383188B3333388833338100000000000 + 0000000000000000000000000133883988383833388331000000000000000000 + 0000000000000000000000000000000000000000000000000000000111000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000013939139933931399319390000000000000000000000000000 + 0000000003938833993339393883910000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000038 + 3839338398393339383810000000000000000000000000000000000001838888 + 8383388383383100000000000000000000000000000000000000000000000001 + 5000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000083391833398398339 + 3383100000000000000000000000000000000000033388388838888388833100 + 0000000000000000000000000000000000000000000000011000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000001F3831888398338883388B100000000000 + 0000000000000000000000000179838383838383838390000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000017373178833333788337831000000000000000000000000000 + 0000000003388838388388838388310000000000000000000000000000000000 + 0001500000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000300 + 0000141218303370000000000000000000000000000000000000000000098838 + 8839388838839000000000000000000000000000000000000001100000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000830017130308FB883F3 + 00000000000000000000000000000000000000000003888888939B3888890000 + 0000000000000000000000000000000000011053100000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000820017351103FF831730000000000000000 + 0000000000000000000000000003838338398838888310000000000000000000 + 0000000000000000000001151000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000700000107535837735000000000000000000000000000000000 + 0000000000098838389398888883100000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0070032372333200000000000000000000000000000000000000000000038383 + 8839383838390000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000073788388AF830 + 0000000000000000000000000000000000000000000337838391378888830000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000007737377783700000000000000000 + 0000000000000000000000000000733888333333317000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000167252700000000000000000000000000000000000 + 000000000000028BF8BF83882000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000272163630000000000000000000000000000000000000000000000008FF + FBFFB8FB70000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000004367270000 + 0000000000000000000000000000000000000000000007788373773830000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000003037000000000000000000000 + 0000000000000000000000000001011100171071000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000007700000000000000000000000000000000000000 + 0000000000011000000701151000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000007FF300000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000000000000003FF300000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000001771000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000370000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000017000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000} + Stretch = True + end + object Label1: TLabel + Left = 32 + Top = 264 + Width = 68 + Height = 16 + Caption = #51060#47492' : '#44204#44053#49688 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 32 + Top = 283 + Width = 194 + Height = 16 + Caption = #51060#47700#51068' : deni970728@gmail.com' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end + end +end diff --git a/20_Task/M2/Usplash.pas b/20_Task/M2/Usplash.pas new file mode 100644 index 0000000..ed5072e --- /dev/null +++ b/20_Task/M2/Usplash.pas @@ -0,0 +1,30 @@ +unit Usplash; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; + +type + TSplashForm = class(TForm) + Panel1: TPanel; + Image1: TImage; + Label1: TLabel; + Label2: TLabel; + private + { Private declarations } + + public + { Public declarations } + end; + +var + SplashForm: TSplashForm; + +implementation + +{$R *.dfm} + +end. + diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/Project_Login.dpr" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/Project_Login.dpr" new file mode 100644 index 0000000..268ca98 --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/Project_Login.dpr" @@ -0,0 +1,17 @@ +program Project_Login; + +uses + Vcl.Forms, + ULogin in 'ULogin.pas' {LOGIN}, + Vcl.Themes, + Vcl.Styles; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + TStyleManager.TrySetStyle('Aqua Light Slate 2'); + Application.CreateForm(TLOGIN, LOGIN); + Application.Run; +end. diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/Project_POS.dpr" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/Project_POS.dpr" new file mode 100644 index 0000000..02fd40b --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/Project_POS.dpr" @@ -0,0 +1,18 @@ +program Project_POS; + +uses + Vcl.Forms, + UMenu in 'UMenu.pas' {Form3}, + UDm in 'UDm.pas' {DataModule4: TDataModule}, + ULogin in 'ULogin.pas' {LOGIN}; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.CreateForm(TForm3, Form3); + Application.CreateForm(TDataModule4, DataModule4); + Application.CreateForm(TLOGIN, LOGIN); + Application.Run; +end. diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/Project_POS.dproj" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/Project_POS.dproj" new file mode 100644 index 0000000..8496e1c --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/Project_POS.dproj" @@ -0,0 +1,622 @@ + + + {11361C8F-572B-470A-9982-6ADDC5B20ACB} + 18.6 + VCL + Project_POS.dpr + True + Debug + Win32 + 1 + Application + + + 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 + Project_POS + + + DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;emsclientfiredac;tethering;svnui;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;FireDACIBDriver;fmxdae;office2K;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;emsclientfiredac;tethering;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;FireDACIBDriver;fmxdae;office2K;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 + + +
Form3
+ dfm +
+ +
DataModule4
+ dfm + TDataModule +
+ +
LOGIN
+ dfm +
+ + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + +
+ + Delphi.Personality.12 + Application + + + + Project_POS.dpr + + + + + + Project_POS.exe + true + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + classes + 1 + + + + + res\xml + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\armeabi + 1 + + + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + + + res\values + 1 + + + + + res\values-v21 + 1 + + + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + + + res\drawable-small + 1 + + + + + res\drawable-normal + 1 + + + + + res\drawable-large + 1 + + + + + res\drawable-xlarge + 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 + + + Contents\Resources\StartUp\ + 0 + + + Contents\Resources\StartUp\ + 0 + + + 0 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + 1 + + + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 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 + + + 1 + + + 1 + + + 1 + + + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + 1 + + + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + + + + + + + + + + True + False + + False + + 12 + + + + +
diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UDm.dfm" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UDm.dfm" new file mode 100644 index 0000000..4948e22 --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UDm.dfm" @@ -0,0 +1,31 @@ +object DataModule4: TDataModule4 + OldCreateOrder = False + Height = 442 + Width = 649 + object qryMenu: TFDQuery + Active = True + Connection = POS_Connection + SQL.Strings = ( + 'select * from menu') + Left = 176 + Top = 48 + end + object DataSource_Menu: TDataSource + AutoEdit = False + DataSet = qryMenu + Left = 256 + Top = 48 + end + object POS_Connection: TFDConnection + Params.Strings = ( + 'Database=C:\'#54532#47196#51229#53944'\DB\PROJECTDB.IB' + 'User_Name=SYSDBA' + 'Password=masterkey' + 'CharacterSet=UTF8' + 'DriverID=IB') + Connected = True + LoginPrompt = False + Left = 32 + Top = 40 + end +end diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UDm.pas" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UDm.pas" new file mode 100644 index 0000000..39ce441 --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UDm.pas" @@ -0,0 +1,33 @@ +unit UDm; + +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, FireDAC.Stan.Param, FireDAC.DatS, + FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, + FireDAC.Comp.Client; + +type + TDataModule4 = class(TDataModule) + qryMenu: TFDQuery; + DataSource_Menu: TDataSource; + POS_Connection: TFDConnection; + private + { Private declarations } + public + { Public declarations } + end; + +var + DataModule4: TDataModule4; + +implementation + +{%CLASSGROUP 'Vcl.Controls.TControl'} + +{$R *.dfm} + +end. diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/ULogin.dfm" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/ULogin.dfm" new file mode 100644 index 0000000..4d2c89b --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/ULogin.dfm" @@ -0,0 +1,109 @@ +object LOGIN: TLOGIN + Left = 0 + Top = 0 + Align = alClient + Caption = #47196#44536#51064 + ClientHeight = 622 + ClientWidth = 879 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + DesignSize = ( + 879 + 622) + PixelsPerInch = 96 + TextHeight = 13 + object Label1: TLabel + Left = 191 + Top = 134 + Width = 64 + Height = 25 + Alignment = taCenter + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = #47588#51109#53076#46300 + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [fsBold] + ParentFont = False + end + object Label2: TLabel + Left = 451 + Top = 134 + Width = 22 + Height = 25 + Alignment = taCenter + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = 'ID' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label3: TLabel + Left = 631 + Top = 134 + Width = 31 + Height = 25 + Alignment = taCenter + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = 'PW' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -21 + Font.Name = 'Tahoma' + Font.Style = [] + ParentFont = False + end + object Label4: TLabel + Left = 32 + Top = 18 + Width = 162 + Height = 74 + Anchors = [akLeft, akTop, akRight, akBottom] + Caption = #47196#44536#51064 + Font.Charset = ANSI_CHARSET + Font.Color = clWindowText + Font.Height = -64 + Font.Name = 'Cooper Black' + Font.Style = [] + ParentFont = False + end + object Store_Code: TEdit + Left = 191 + Top = 171 + Width = 200 + Height = 21 + Alignment = taCenter + Anchors = [akLeft, akRight] + AutoSize = False + TabOrder = 0 + end + object ID: TEdit + Left = 451 + Top = 171 + Width = 121 + Height = 21 + Alignment = taCenter + Anchors = [akLeft, akRight] + AutoSize = False + TabOrder = 1 + end + object Password: TEdit + Left = 631 + Top = 171 + Width = 121 + Height = 21 + Alignment = taCenter + Anchors = [akLeft, akRight] + AutoSize = False + TabOrder = 2 + end +end diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/ULogin.pas" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/ULogin.pas" new file mode 100644 index 0000000..0f39bc5 --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/ULogin.pas" @@ -0,0 +1,31 @@ +unit ULogin; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; + +type + TLOGIN = class(TForm) + Store_Code: TEdit; + ID: TEdit; + Password: TEdit; + Label1: TLabel; + Label2: TLabel; + Label3: TLabel; + Label4: TLabel; + private + { Private declarations } + public + { Public declarations } + end; + +var + LOGIN: TLOGIN; + +implementation + +{$R *.dfm} + +end. diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UMenu.dfm" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UMenu.dfm" new file mode 100644 index 0000000..7898009 --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UMenu.dfm" @@ -0,0 +1,130 @@ +object Form3: TForm3 + Left = 0 + Top = 0 + Align = alClient + Caption = 'Form3' + ClientHeight = 610 + ClientWidth = 850 + 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 = 481 + Height = 610 + Align = alLeft + TabOrder = 0 + object Panel2: TPanel + Left = 1 + Top = 496 + Width = 479 + Height = 113 + Align = alBottom + TabOrder = 0 + ExplicitWidth = 359 + object Panel4: TPanel + Left = 293 + Top = 1 + Width = 185 + Height = 111 + Align = alRight + TabOrder = 0 + ExplicitLeft = 144 + ExplicitTop = 40 + ExplicitHeight = 41 + object Button4: TButton + Left = 1 + Top = 56 + Width = 183 + Height = 54 + Align = alBottom + Caption = 'Button3' + TabOrder = 0 + ExplicitTop = 1 + end + object Button3: TButton + Left = 1 + Top = 1 + Width = 183 + Height = 54 + Align = alTop + Caption = 'Button3' + TabOrder = 1 + ExplicitLeft = 2 + ExplicitTop = 9 + end + end + object Button1: TButton + Left = 147 + Top = 1 + Width = 146 + Height = 111 + Align = alLeft + Caption = 'Button1' + TabOrder = 1 + ExplicitLeft = 1 + end + object Button2: TButton + Left = 1 + Top = 1 + Width = 146 + Height = 111 + Align = alLeft + Caption = 'Button1' + TabOrder = 2 + ExplicitLeft = 9 + ExplicitTop = 2 + end + end + object DBMemo1: TDBMemo + Left = 1 + Top = 1 + Width = 479 + Height = 495 + Align = alClient + TabOrder = 1 + ExplicitLeft = 264 + ExplicitTop = 272 + ExplicitWidth = 185 + ExplicitHeight = 89 + end + end + object Panel3: TPanel + Left = 481 + Top = 0 + Width = 369 + Height = 610 + Align = alClient + TabOrder = 1 + ExplicitLeft = 408 + ExplicitWidth = 442 + object DBEdit1: TDBEdit + Left = 56 + Top = 80 + Width = 257 + Height = 25 + TabOrder = 0 + end + object DBEdit2: TDBEdit + Left = 56 + Top = 125 + Width = 257 + Height = 25 + TabOrder = 1 + end + object DBEdit3: TDBEdit + Left = 56 + Top = 166 + Width = 257 + Height = 25 + TabOrder = 2 + end + end +end diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UMenu.pas" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UMenu.pas" new file mode 100644 index 0000000..941420b --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/Project/UMenu.pas" @@ -0,0 +1,37 @@ +unit UMenu; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Mask, Vcl.DBCtrls, Vcl.StdCtrls, + Vcl.ExtCtrls; + +type + TForm3 = class(TForm) + Panel1: TPanel; + Panel2: TPanel; + Panel3: TPanel; + DBMemo1: TDBMemo; + Panel4: TPanel; + Button1: TButton; + Button2: TButton; + Button4: TButton; + Button3: TButton; + DBEdit1: TDBEdit; + DBEdit2: TDBEdit; + DBEdit3: TDBEdit; + private + { Private declarations } + public + { Public declarations } + end; + +var + Form3: TForm3; + +implementation + +{$R *.dfm} + +end. diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/Project.dpr" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/Project.dpr" new file mode 100644 index 0000000..e7eb3cc --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/Project.dpr" @@ -0,0 +1,14 @@ +program Project; + +uses + Vcl.Forms, + UModelingSupport in 'UModelingSupport.pas' {Form3}; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.CreateForm(TForm3, Form3); + Application.Run; +end. diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/Project.dproj" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/Project.dproj" new file mode 100644 index 0000000..3267150 --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/Project.dproj" @@ -0,0 +1,648 @@ + + + {42FB7D65-77CB-4C98-8562-F39A22E68905} + 18.6 + VCL + Project.dpr + True + Debug + Win32 + 1 + Application + + + 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 + Project + + + DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;emsclientfiredac;tethering;svnui;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;FireDACIBDriver;fmxdae;office2K;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;emsclientfiredac;tethering;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;FmxTeeUI;emsedge;fmx;FireDACIBDriver;fmxdae;office2K;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 + + +
Form3
+ dfm +
+ + + + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + +
+ + Delphi.Personality.12 + Application + + + + Project.dpr + + + + + + .\ + true + + + + + .\ + true + + + + + .\ + true + + + + + .\ + true + + + + + Project.exe + true + + + + + .\ + true + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + classes + 1 + + + + + res\xml + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\armeabi + 1 + + + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + + + res\values + 1 + + + + + res\values-v21 + 1 + + + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + + + res\drawable-small + 1 + + + + + res\drawable-normal + 1 + + + + + res\drawable-large + 1 + + + + + res\drawable-xlarge + 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 + + + Contents\Resources\StartUp\ + 0 + + + Contents\Resources\StartUp\ + 0 + + + 0 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + 1 + + + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 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 + + + 1 + + + 1 + + + 1 + + + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + 1 + + + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + + + + + + + + + + True + False + + True + + 12 + + + + +
diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/UModelingSupport.dfm" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/UModelingSupport.dfm" new file mode 100644 index 0000000..6444a6b --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/UModelingSupport.dfm" @@ -0,0 +1,16 @@ +object Form3: TForm3 + Left = 0 + Top = 0 + Caption = 'Form3' + ClientHeight = 231 + ClientWidth = 505 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + PixelsPerInch = 96 + TextHeight = 13 +end diff --git "a/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/UModelingSupport.pas" "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/UModelingSupport.pas" new file mode 100644 index 0000000..16994a8 --- /dev/null +++ "b/40_Project/Kyeon_KANG_SU/\355\224\204\353\241\234\354\240\235\355\212\270/\354\234\240\354\212\244\354\274\200\354\235\264\354\212\244/UModelingSupport.pas" @@ -0,0 +1,24 @@ +unit UModelingSupport; + +interface + +uses + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs; + +type + TForm3 = class(TForm) + private + { Private declarations } + public + { Public declarations } + end; + +var + Form3: TForm3; + +implementation + +{$R *.dfm} + +end.