delphi - wrong database name showing on my main form -


it seems cant work properly. somehow messing "if then" sequence.

i got on login form:

procedure tlogin_form.advglowbutton1click(sender: tobject); begin   data_module.login.active:=false;   data_module.login.sql.clear;   data_module.login.sql.text:= 'select [loc_id],[user],[password],[access] users [user] ='+quotedstr(cxlookupcombobox1.text) +' , [password]='+quotedstr(cxtextedit1.text);   data_module.login.open;    if data_module.login.fieldbyname('password').asstring<>''   begin     if data_module.login.fieldbyname('loc_id').asinteger = 1       data_module.acrdatabase1.databasefilename := extractfilepath(application.exename)+ '..\database\db1.adb';     data_module.acrdatabase1.databasename :='database1';     data_module.acrdatabase1.connected:=true;     if data_module.login.fieldbyname('loc_id').asinteger = 2       data_module.acrdatabase1.databasefilename := extractfilepath(application.exename)+ '..\database\db2.adb';     data_module.acrdatabase1.databasename :='database2';     data_module.acrdatabase1.connected:=true;     modalresult := mrok   end   else     modalresult := mrnone;    cxtextedit1.clear;   dxstatusbar1.panels[1].text :='wrong password !';   cxtextedit1.setfocus; end;

modalresult ok shows main form.

just check database name if shows right....

procedure tmain_form.formshow(sender: tobject); begin   if data_module.acrdatabase1.connected     advofficestatusbar1.panels[0].text := data_module.acrdatabase1.databasename   else     advofficestatusbar1.panels[0].text :=''; end;

somehow, end wrong database name on mainform. doing wrong ? tried various ways failed.

also wondering if "case" statement can used here this:

case data_module.login.fieldbyname('loc_id').value of 1:begin

since have 5 databases choose ?

we use begin end blocks when write multiple lines of code.

procedure tlogin_form.advglowbutton1click(sender: tobject); begin   data_module.login.active:=false;   data_module.login.sql.clear;   data_module.login.sql.text:= 'select [loc_id],[user],[password],[access]     users [user] ='+quotedstr(cxlookupcombobox1.text) +' ,     [password]='+quotedstr(cxtextedit1.text);   data_module.login.open;    if data_module.login.fieldbyname('password').asstring<>''   begin     if data_module.login.fieldbyname('loc_id').asinteger = 1       begin         data_module.acrdatabase1.databasefilename :=     extractfilepath(application.exename)+ '..\database\db1.adb';         data_module.acrdatabase1.databasename :='database1';       end     else if data_module.login.fieldbyname('loc_id').asinteger = 2       begin         data_module.acrdatabase1.databasefilename :=     extractfilepath(application.exename)+ '..\database\db2.adb';         data_module.acrdatabase1.databasename :='database2';       end;      data_module.acrdatabase1.connected:=true;     modalresult := mrok   end   else     modalresult := mrnone;    cxtextedit1.clear;   dxstatusbar1.panels[1].text :='wrong password !';   cxtextedit1.setfocus; end;

yes, can use case statement that.

with case of statement

  case data_module.login.fieldbyname('loc_id').asinteger of     1:begin       data_module.acrdatabase1.databasefilename :=     extractfilepath(application.exename)+ '..\database\db1.adb';       data_module.acrdatabase1.databasename :='database1';     end;     2:begin       data_module.acrdatabase1.databasefilename :=     extractfilepath(application.exename)+ '..\database\db2.adb';       data_module.acrdatabase1.databasename :='database2';     end;   end;

Comments

Post a Comment

Popular posts from this blog

android - Pass an Serializable object in AIDL -

i have defined aidl file interface imyfeature { void dotask(class clazz); } but need pass class object process. possible in android? if so, how? i tried: interface imyfeature { serializable class; void dotask(class clazz); } but doesn’t work. aidl in android supports custom class implement parcelable interface. in case want send class object not possible. can send class canonical name , retrieve in service. for example have aidl file interface imyfeature { void dotask(string classname); } then call : binder.dotask(myclass.class.getcanonicalname()); and in service binder stub implementation : private final imyfeature mbinder = new imyfeature.stub() { public void dotask(string classname) { try { class<?> clazz = class.forname(classname); constructor<?> ctor = clazz.getconstructor((class[]) null); object object = ctor.newinstance(); ...
Read more

How to provide Authorization & Authentication using Asp.net, C#? -

Image
i have asp.net application in c#. i have provide page authorization specific user/usergroup. i have created 2 tables in database: 1) pagename 2)permissions[insert, update, view, delete] but i'm unable match tables , permissions assigning... can 1 please me, how created tables in database , how coding. please me. you can below explanation. configure access specific file , folder, set forms-based authentication. request page in application redirected logon.aspx automatically. in web.config file, type or paste following code. this code grants users access default1.aspx page , subdir1 folder . <configuration> <system.web> <authentication mode="forms" > <forms loginurl="login.aspx" name=".aspnetauth" protection="none" path="/" timeout="20" > </forms> </authentication> <!-- section denies access files in...
Read more

How to use Authorization & Authentication in Asp.net, C#? -

i using roll management , trying give page , folder access according user or user group, using server created ad group user authentication. i have default1.aspx page default , subdir1 folder give different access separate user group i using below logic in web.config. <location path="subdir1"> <system.web> <authorization> <allow users ="?" /> </authorization> </system.web> </location> i facing problem provide same access 2 or more directory same user should have provide allow user code twice both folder? i can use logic repeating value folder want access providing in 1 logic. i have got answer configure folder/page access, have make different access shown below.. configure access specific file , folder, set forms-based authentication. request page in application redirected logon.aspx automatically. in web.config file, done following code. this code grants user...
Read more