mrfluffy/Delphi-Projects
1
0
Fork 0
mirror of https://github.com/mrfluffy-dev/Delphi-Projects.git synced 2026-01-16 21:30:33 +00:00
Code Issues Packages Projects Releases Wiki Activity

V-0.4

Browse Source
This commit is contained in:
zastian00@gmail.com
2019-08-01 21:34:54 +02:00
parent d1c48fe0ad
commit 84991874cd
32 changed files with 6560 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
V-0.4/AdminAdd_u.dfm Normal file
View File

@@ -0,0 +1,106 @@
object FrmAdminAdd: TFrmAdminAdd
Left = 0
Top = 0
Caption = 'FrmAdminAdd'
ClientHeight = 398
ClientWidth = 770
Color = clDefault
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object edtUsername: TEdit
Left = 24
Top = 24
Width = 153
Height = 29
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'Usen Name'
OnDblClick = edtUsernameDblClick
OnEnter = edtUsernameEnter
end
object edtPassword: TEdit
Left = 24
Top = 72
Width = 153
Height = 29
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
Text = 'Password'
end
object edtIDNum: TEdit
Left = 24
Top = 120
Width = 153
Height = 29
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'Tahoma'
Font.Style = []
NumbersOnly = True
ParentFont = False
TabOrder = 2
Text = 'ID Number'
OnDblClick = edtIDNumDblClick
OnEnter = edtIDNumEnter
end
object Panel1: TPanel
Left = 24
Top = 168
Width = 153
Height = 33
Color = clWhite
ParentBackground = False
TabOrder = 3
object chkAdmin: TCheckBox
Left = 8
Top = 8
Width = 97
Height = 17
Caption = 'Is User Admin'
TabOrder = 0
end
end
object btnGeneratePass: TButton
Left = 183
Top = 72
Width = 130
Height = 29
Caption = 'Generate Password'
TabOrder = 4
OnClick = btnGeneratePassClick
end
object btnAddUser: TButton
Left = 24
Top = 216
Width = 83
Height = 33
Caption = 'Add User'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = btnAddUserClick
end
end

153
V-0.4/AdminAdd_u.pas Normal file
View File

@@ -0,0 +1,153 @@
unit AdminAdd_u;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls, Login_u, System.math;
type
TFrmAdminAdd = class(TForm)
edtUsername: TEdit;
edtPassword: TEdit;
edtIDNum: TEdit;
Panel1: TPanel;
chkAdmin: TCheckBox;
btnGeneratePass: TButton;
btnAddUser: TButton;
procedure btnGeneratePassClick(Sender: TObject);
procedure edtUsernameDblClick(Sender: TObject);
procedure edtIDNumDblClick(Sender: TObject);
procedure edtIDNumEnter(Sender: TObject);
procedure edtUsernameEnter(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btnAddUserClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
var
sRandomPass, sAdmin : string;
iCount, iRandomNum, iRandomChar, iRandomUp, iRandomLow : Integer;
end;
var
FrmAdminAdd: TFrmAdminAdd;
implementation
{$R *.dfm}
procedure TFrmAdminAdd.btnAddUserClick(Sender: TObject);
var
sUser, sPass, sID : string;
iConfirm : Integer;
begin
iConfirm:=0;
sUser:='';
sPass:='';
sID:='';
sAdmin:= BoolToStr(chkAdmin.Checked);
if Length(edtUsername.Text) >= 7 then
sUser:= edtUsername.Text
else
begin
ShowMessage('User Name must be 7 or more caractars');
exit
end;
if Length(edtPassword.Text) = 12 then
sPass:=edtPassword.Text
else
begin
ShowMessage('Press Random pass generator');
exit
end;
if Length(edtIDNum.Text) = 13 then
sID:=edtIDNum.Text
else
begin
ShowMessage('ID Number must be 13 digets long');
exit
end;
DataUser.adoUser.Close;
DataUser.adoUser.SQL.Clear;
DataUser.adoUser.SQL.Add('INSERT INTO Login(Username,IDnum,pass,Admin) VALUES(:par0,:par1,:par2,:par3)');
DataUser.adoUser.Parameters.ParamByName('par0').Value:=sUser;
DataUser.adoUser.Parameters.ParamByName('par1').Value:=sID;
DataUser.adoUser.Parameters.ParamByName('par2').Value:=sPass;
DataUser.adoUser.Parameters.ParamByName('par3').Value:= sAdmin;
iConfirm:= MessageDlg('Confirm Adding Acount', mtConfirmation, mbYesNo, 7);
if iConfirm = 7 then exit;
if iConfirm = 6 then DataUser.adoUser.ExecSQL;
end;
procedure TFrmAdminAdd.btnGeneratePassClick(Sender: TObject);
var
arrRandomChar : array[1..3] of Integer;
i : Integer;
begin
sRandomPass := '';
iCount := 0;
iRandomNum:= 0;
iRandomUP:= 0;
iRandomLow:= 0;
edtPassword.ReadOnly:=False;
while iCount < 12 do
begin
Randomize;
iRandomNum := RandomRange(48, 58);
iRandomUp := RandomRange(65, 91);
iRandomLow := RandomRange(97, 123);
arrRandomChar[1]:= iRandomNum;
arrRandomChar[2]:= iRandomUp;
arrRandomChar[3]:= iRandomLow;
i := random(3)+1;
iRandomChar:= arrRandomChar[i];
sRandomPass:= sRandomPass + Chr(iRandomChar);
iCount:= iCount + 1;
end;
edtPassword.ReadOnly:=True;
edtPassword.Text:=sRandomPass;
end;
procedure TFrmAdminAdd.edtIDNumDblClick(Sender: TObject);
begin
edtIDNum.Text:= '';
end;
procedure TFrmAdminAdd.edtIDNumEnter(Sender: TObject);
begin
edtIDNum.Hint:= 'Dubbel tapp to clear';
edtIDNum.ShowHint := True;
end;
procedure TFrmAdminAdd.edtUsernameDblClick(Sender: TObject);
begin
edtUsername.Text:= '';
end;
procedure TFrmAdminAdd.edtUsernameEnter(Sender: TObject);
begin
edtUsername.Hint:= 'Dubbel tap to clear';
edtUsername.ShowHint:= True;
end;
procedure TFrmAdminAdd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
end.

1655
V-0.4/AdminLogin_u.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

79
V-0.4/AdminLogin_u.pas Normal file
View File

@@ -0,0 +1,79 @@
unit AdminLogin_u;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
Vcl.ExtCtrls, Login_u, AdminAdd_u;
type
TfrmAdminLogin = class(TForm)
logo: TImage;
Label1: TLabel;
edtUsername: TEdit;
edtPassword: TEdit;
btnLogin: TButton;
procedure btnLoginClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmAdminLogin: TfrmAdminLogin;
implementation
{$R *.dfm}
uses UserPage_u, UserLogin_u;
procedure TfrmAdminLogin.btnLoginClick(Sender: TObject);
var
sUsername, sPassword : string;
iUser : Integer;
bolAdmin : Boolean;
begin
sUsername:= edtUsername.Text;
sPassword:= edtPassword.Text;
DataUser.adoUser.SQL.Clear;
DataUser.adoUser.SQL.Add('SELECT ID, Admin FROM Login WHERE Username = :reg0 AND pass = :reg1');
DataUser.adoUser.Parameters.ParamByName('reg0').Value:= sUsername;
DataUser.adoUser.Parameters.ParamByName('reg1').Value:= sPassword;
DataUser.adoUser.Open;
iUser:= DataUser.adoUser.FieldByName('ID').AsInteger;
bolAdmin := DataUser.adoUser.FieldByName('Admin').AsBoolean;
//ShowMessage(IntToStr(iUser));
if iUser > 0 then
begin
if bolAdmin = True then
begin
frmAdminLogin.Hide;
FrmAdminAdd.show;
end
else
begin
ShowMessage('User is Admin pleas use Admin login page');
exit
end;
end
else
begin
ShowMessage('Username or Password incorect');
DataUser.adoUser.Close;
exit
end;
end;
procedure TfrmAdminLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
end.

1627
V-0.4/Business_u.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

58
V-0.4/Business_u.pas Normal file
View File

@@ -0,0 +1,58 @@
unit Business_u;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Imaging.pngimage,
Vcl.ExtCtrls,UserLogin_u,AdminAdd_u, AdminLogin_u;
type
TfrmBusiness = class(TForm)
Image1: TImage;
btnAdmin: TButton;
btnLogin: TButton;
procedure btnLoginClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure close();
procedure btnAdminClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmBusiness: TfrmBusiness;
implementation
{$R *.dfm}
procedure TfrmBusiness.btnAdminClick(Sender: TObject);
begin
frmBusiness.Hide;
FrmAdminLogin.Show;
end;
procedure TfrmBusiness.btnLoginClick(Sender: TObject);
begin
frmUserLogin:= TfrmUserLogin.Create(nil);
frmUserLogin.show;
frmBusiness.hide;
end;
procedure TfrmBusiness.close;
begin
frmUserLogin.free;
frmBusiness.show;
end;
procedure TfrmBusiness.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
end.

24
V-0.4/Businss_p.dpr Normal file
View File

@@ -0,0 +1,24 @@
program Businss_p;
uses
Vcl.Forms,
Business_u in 'Business_u.pas' {frmBusiness},
UserLogin_u in 'UserLogin_u.pas' {frmUserLogin},
UserPage_u in 'UserPage_u.pas' {frmUserPage},
AdminAdd_u in 'AdminAdd_u.pas' {FrmAdminAdd},
Login_u in 'Login_u.pas' {DataUser: TDataModule},
AdminLogin_u in 'AdminLogin_u.pas' {frmAdminLogin};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TfrmBusiness, frmBusiness);
Application.CreateForm(TfrmUserLogin, frmUserLogin);
Application.CreateForm(TfrmUserPage, frmUserPage);
Application.CreateForm(TFrmAdminAdd, FrmAdminAdd);
Application.CreateForm(TDataUser, DataUser);
Application.CreateForm(TfrmAdminLogin, frmAdminLogin);
Application.Run;
end.

869
V-0.4/Businss_p.dproj Normal file
View File

@@ -0,0 +1,869 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{CE582A19-AC64-4E10-B1D3-B56473C6E7E9}</ProjectGuid>
<ProjectVersion>18.7</ProjectVersion>
<FrameworkType>VCL</FrameworkType>
<MainSource>Businss_p.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Application</AppType>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
<Cfg_1_Win32>true</Cfg_1_Win32>
<CfgParent>Cfg_1</CfgParent>
<Cfg_1>true</Cfg_1>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
<DCC_E>false</DCC_E>
<DCC_N>false</DCC_N>
<DCC_S>false</DCC_S>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
<SanitizedProjectName>Businss_p</SanitizedProjectName>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_UsePackage>DBXSqliteDriver;bindcompdbx;IndyIPCommon;RESTComponents;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;svnui;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;TeeDB;FireDAC;vcltouch;vcldb;bindcompfmx;svn;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;inetdb;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpress;FireDACIBDriver;fmx;fmxdae;xmlrtl;soapmidas;ibxbindings;fmxobj;vclwinx;vclib;rtl;Tee;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;TeeUI;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;vclie;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;inetdbxpress;IndyProtocols;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<DCC_UsePackage>DBXSqliteDriver;bindcompdbx;IndyIPCommon;RESTComponents;DBXInterBaseDriver;vcl;IndyIPServer;vclactnband;vclFireDAC;IndySystem;tethering;dsnapcon;FireDACADSDriver;FireDACMSAccDriver;fmxFireDAC;vclimg;TeeDB;FireDAC;vcltouch;vcldb;bindcompfmx;FireDACSqliteDriver;FireDACPgDriver;ibmonitor;inetdb;FMXTee;soaprtl;DbxCommonDriver;FmxTeeUI;ibxpress;FireDACIBDriver;fmx;fmxdae;xmlrtl;soapmidas;ibxbindings;fmxobj;vclwinx;vclib;rtl;Tee;DbxClientDriver;CustomIPTransport;vcldsnap;dbexpress;IndyCore;vclx;bindcomp;appanalytics;dsnap;FireDACCommon;IndyIPClient;bindcompvcl;RESTBackendComponents;TeeUI;VCLRESTComponents;soapserver;dbxcds;VclSmp;adortl;vclie;bindengine;DBXMySQLDriver;CloudService;dsnapxml;FireDACMySQLDriver;dbrtl;inetdbxpress;IndyProtocols;FireDACCommonODBC;FireDACCommonDriver;inet;fmxase;$(DCC_UsePackage)</DCC_UsePackage>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_DebugDCUs>true</DCC_DebugDCUs>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<DCC_RemoteDebug>true</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<DCC_RemoteDebug>false</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>0</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="Business_u.pas">
<Form>frmBusiness</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="UserLogin_u.pas">
<Form>frmUserLogin</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="UserPage_u.pas">
<Form>frmUserPage</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="AdminAdd_u.pas">
<Form>FrmAdminAdd</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="Login_u.pas">
<Form>DataUser</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="AdminLogin_u.pas">
<Form>frmAdminLogin</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Debug">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Application</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">Businss_p.dpr</Source>
</Source>
<Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k260.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp260.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Deployment Version="3">
<DeployFile LocalName="Win32\Debug\Businss_p.exe" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>Businss_p.exe</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClassesDexFile">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidFileProvider">
<Platform Name="Android">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV21">
<Platform Name="Android">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon24">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Strings">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources\StartUp\</RemoteDir>
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1024x768">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1536x2048">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1668">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch1668x2388">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2048x1536">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2048x2732">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2224">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2388x1668">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2732x2048">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch768x1024">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch1125">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch1136x640">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch1242">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch1242x2688">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch1334">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch1792">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch2208">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch2436">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch2688x1242">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch320">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch640">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch640x1136">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch750">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch828">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceResourceRules">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements">
<Platform Name="iOSDevice32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSInfoPList">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXDebug">
<Platform Name="OSX64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXEntitlements">
<Platform Name="OSX32">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>..\</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXInfoPList">
<Platform Name="OSX32">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\MacOS</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
</Deployment>
<Platforms>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>
<ModelSupport>False</ModelSupport>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

30
V-0.4/Businss_p.dproj.local Normal file
View File

@@ -0,0 +1,30 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>2019/07/30 09:45:13.000.616,=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
<Transaction>2019/07/30 09:49:07.000.709,C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\Unit1.pas=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Busniss_u.pas</Transaction>
<Transaction>2019/07/30 09:49:07.000.709,C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\Unit1.dfm=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Busniss_u.dfm</Transaction>
<Transaction>2019/07/30 09:49:35.000.497,C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\Project1.dproj=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Businss_p.dproj</Transaction>
<Transaction>2019/07/30 11:49:46.000.376,=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Unit2.pas</Transaction>
<Transaction>2019/07/30 11:52:04.000.125,C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\UserLogin_u.dfm=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Unit2.dfm</Transaction>
<Transaction>2019/07/30 11:52:04.000.125,C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\UserLogin_u.pas=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Unit2.pas</Transaction>
<Transaction>2019/07/30 13:49:23.000.797,=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Unit3.pas</Transaction>
<Transaction>2019/07/30 13:51:05.000.314,C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Unit3.dfm=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\UserPage_u.dfm</Transaction>
<Transaction>2019/07/30 13:51:05.000.314,C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Unit3.pas=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\UserPage_u.pas</Transaction>
<Transaction>2019/07/30 20:32:29.000.824,C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Business_u.dfm=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Busniss_u.dfm</Transaction>
<Transaction>2019/07/30 20:32:29.000.824,C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Business_u.pas=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Busniss_u.pas</Transaction>
<Transaction>2019/07/30 22:36:58.000.768,=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Unit1.pas</Transaction>
<Transaction>2019/07/30 22:40:29.000.616,C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\UnitFormSwap_u.pas=C:\Users\mrfluffy\Documents\Embarcadero\Studio\Projects\pat\Unit1.pas</Transaction>
<Transaction>2019/07/31 09:54:36.000.890,C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\UnitFormSwap_u.pas=</Transaction>
<Transaction>2019/07/31 10:10:05.000.012,=C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Unit1.pas</Transaction>
<Transaction>2019/07/31 10:15:59.000.465,C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Unit1.pas=C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\AdminAdd_u.pas</Transaction>
<Transaction>2019/07/31 10:15:59.000.465,C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Unit1.dfm=C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\AdminAdd_u.dfm</Transaction>
<Transaction>2019/07/31 11:23:49.000.093,=C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Unit1.pas</Transaction>
<Transaction>2019/07/31 12:23:57.000.939,=C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Unit1.pas</Transaction>
<Transaction>2019/07/31 12:30:00.000.906,C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Unit1.dfm=C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Login_u.dfm</Transaction>
<Transaction>2019/07/31 12:30:00.000.906,C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Unit1.pas=C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Login_u.pas</Transaction>
<Transaction>2019/08/01 12:21:23.000.502,=C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Unit1.pas</Transaction>
<Transaction>2019/08/01 12:54:49.000.018,C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\AdminLogin_u.pas=C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Unit1.pas</Transaction>
<Transaction>2019/08/01 12:54:49.000.018,C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\AdminLogin_u.dfm=C:\Users\mrfluffy\OneDrive\Documents\Embarcadero\Studio\Projects\pat\Unit1.dfm</Transaction>
</Transactions>
</BorlandProject>

BIN
V-0.4/Businss_p.identcache Normal file
View File

Binary file not shown.

BIN
V-0.4/Businss_p.res Normal file
View File

Binary file not shown.

BIN
V-0.4/Huawei-Logo.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 44 KiB

21
V-0.4/Login_u.dfm Normal file
View File

@@ -0,0 +1,21 @@
object DataUser: TDataUser
OldCreateOrder = False
Height = 396
Width = 655
object dtaUsers: TDataSource
DataSet = adoUser
Left = 168
Top = 128
end
object adoUser: TADOQuery
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\mrfluffy\O' +
'neDrive\Documents\Embarcadero\Studio\Projects\pat\Users.mdb;Pers' +
'ist Security Info=False'
Parameters = <>
SQL.Strings = (
'INSERT INTO Login(Username) VALUES("'#39'+ sUser +'#39'")')
Left = 80
Top = 128
end
end

27
V-0.4/Login_u.pas Normal file
View File

@@ -0,0 +1,27 @@
unit Login_u;
interface
uses
System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;
type
TDataUser = class(TDataModule)
dtaUsers: TDataSource;
adoUser: TADOQuery;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataUser: TDataUser;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
end.

19
V-0.4/UnitFormSwap_u.pas Normal file
View File

@@ -0,0 +1,19 @@
unit UnitFormSwap_u;
interface
uses
System.sysutils, Winapi.Messages;
type
FormSwap = class(TObject);
public
//function swapBtoL : string;
implementation
procedure FormSwap.swapBtoL();
begin
end;
end.

1657
V-0.4/UserLogin_u.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

96
V-0.4/UserLogin_u.pas Normal file
View File

@@ -0,0 +1,96 @@
unit UserLogin_u;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Imaging.pngimage, Vcl.ExtCtrls,
Vcl.StdCtrls,UserPage_u,Login_u;
type
TfrmUserLogin = class(TForm)
edtUsername: TEdit;
edtPassword: TEdit;
btnLogin: TButton;
logo: TImage;
Label1: TLabel;
procedure edtPasswordDblClick(Sender: TObject);
procedure edtUsernameDblClick(Sender: TObject);
procedure btnLoginClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
var
Closed : Boolean;
end;
var
frmUserLogin: TfrmUserLogin;
implementation
{$R *.dfm}
procedure TfrmUserLogin.btnLoginClick(Sender: TObject);
var
sUsername, sPassword : string;
iUser : Integer;
bolAdmin : Boolean;
begin
sUsername:= edtUsername.Text;
sPassword:= edtPassword.Text;
DataUser.adoUser.SQL.Clear;
DataUser.adoUser.SQL.Add('SELECT ID, Admin FROM Login WHERE Username = :reg0 AND pass = :reg1');
DataUser.adoUser.Parameters.ParamByName('reg0').Value:= sUsername;
DataUser.adoUser.Parameters.ParamByName('reg1').Value:= sPassword;
DataUser.adoUser.Open;
iUser:= DataUser.adoUser.FieldByName('ID').AsInteger;
bolAdmin := DataUser.adoUser.FieldByName('Admin').AsBoolean;
// ShowMessage(IntToStr(iUser));
if iUser > 0 then
begin
if bolAdmin = False then
begin
frmUserPage.Show;
frmUserLogin.Hide;
end
else
begin
ShowMessage('User is Admin pleas use Admin login page');
exit
end;
end
else
begin
ShowMessage('Username or Password incorect');
DataUser.adoUser.Close;
exit
end;
end;
procedure TfrmUserLogin.edtUsernameDblClick(Sender: TObject);
begin
edtUsername.Text:='';
end;
procedure TfrmUserLogin.edtPasswordDblClick(Sender: TObject);
begin
edtPassword.Text:='';
end;
procedure TfrmUserLogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
end.

51
V-0.4/UserPage_u.dfm Normal file
View File

@@ -0,0 +1,51 @@
object frmUserPage: TfrmUserPage
Left = 0
Top = 0
Caption = 'User Page'
ClientHeight = 533
ClientWidth = 772
Color = clDefault
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object caleUser: TCalendar
Left = 8
Top = 8
Width = 296
Height = 264
StartOfWeek = 0
TabOrder = 0
end
object RichEdit1: TRichEdit
Left = 310
Top = 8
Width = 454
Height = 264
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Lines.Strings = (
'RichEdit1')
ParentFont = False
TabOrder = 1
Zoom = 100
end
object MainMenu1: TMainMenu
Left = 8
Top = 288
object Logout1: TMenuItem
Caption = 'Logout'
OnClick = Logout1Click
end
end
end

66
V-0.4/UserPage_u.pas Normal file
View File

@@ -0,0 +1,66 @@
unit UserPage_u;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls, Vcl.Grids,
Vcl.Samples.Calendar, Vcl.Menus;
type
TfrmUserPage = class(TForm)
caleUser: TCalendar;
RichEdit1: TRichEdit;
MainMenu1: TMainMenu;
Logout1: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ComboBox1Change(Sender: TObject);
procedure Logout1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
var
closed : Boolean;
end;
var
frmUserPage: TfrmUserPage;
implementation
{$R *.dfm}
uses Business_u;
procedure TfrmUserPage.Button1Click(Sender: TObject);
begin
closed:=True;
end;
procedure TfrmUserPage.ComboBox1Change(Sender: TObject);
begin
// if ComboBox1.Text = 'LogOut' then
// closed:= True;
end;
procedure TfrmUserPage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Application.Terminate;
end;
procedure TfrmUserPage.FormCreate(Sender: TObject);
begin
closed:=False;
end;
procedure TfrmUserPage.Logout1Click(Sender: TObject);
begin
frmBusiness.show;
frmUserPage.Free;
end;
end.

BIN
V-0.4/Users.ldb Normal file
View File

Binary file not shown.

BIN
V-0.4/Users.mdb Normal file
View File

Binary file not shown.

BIN
V-0.4/Win32/Debug/AdminAdd_u.dcu Normal file
View File

Binary file not shown.

BIN
V-0.4/Win32/Debug/AdminLogin_u.dcu Normal file
View File

Binary file not shown.

BIN
V-0.4/Win32/Debug/Business_u.dcu Normal file
View File

Binary file not shown.

22
V-0.4/Win32/Debug/Businss_p.cmds Normal file
View File

@@ -0,0 +1,22 @@
-I"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\debug"
-I"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release"
-I"C:\Users\mrfluffy\Documents\Embarcadero\Studio\20.0\Imports"
-I"c:\program files (x86)\embarcadero\studio\20.0\Imports"
-I"C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp"
-I"c:\program files (x86)\embarcadero\studio\20.0\include"
-O"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release"
-O"C:\Users\mrfluffy\Documents\Embarcadero\Studio\20.0\Imports"
-O"c:\program files (x86)\embarcadero\studio\20.0\Imports"
-O"C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp"
-O"c:\program files (x86)\embarcadero\studio\20.0\include"
-R"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release"
-R"C:\Users\mrfluffy\Documents\Embarcadero\Studio\20.0\Imports"
-R"c:\program files (x86)\embarcadero\studio\20.0\Imports"
-R"C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp"
-R"c:\program files (x86)\embarcadero\studio\20.0\include"
-U"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\debug"
-U"c:\program files (x86)\embarcadero\studio\20.0\lib\Win32\release"
-U"C:\Users\mrfluffy\Documents\Embarcadero\Studio\20.0\Imports"
-U"c:\program files (x86)\embarcadero\studio\20.0\Imports"
-U"C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp"
-U"c:\program files (x86)\embarcadero\studio\20.0\include"

BIN
V-0.4/Win32/Debug/Businss_p.exe Normal file
View File

Binary file not shown.

BIN
V-0.4/Win32/Debug/Businss_p.rsm Normal file
View File

Binary file not shown.

BIN
V-0.4/Win32/Debug/Busniss_u.dcu Normal file
View File

Binary file not shown.

BIN
V-0.4/Win32/Debug/Login_u.dcu Normal file
View File

Binary file not shown.

BIN
V-0.4/Win32/Debug/Unit1.dcu Normal file
View File

Binary file not shown.

BIN
V-0.4/Win32/Debug/UserLogin_u.dcu Normal file
View File

Binary file not shown.

BIN
V-0.4/Win32/Debug/UserPage_u.dcu Normal file
View File

Binary file not shown.