درخواست برنامه یا چگونه نوشتن برنامه

[Hamed Zarei]

سلام به همه ی بچه ها یه درخواست یا حداقل کمک :خجالت:
من میخوام برنامه ای بنویسم که با اون بشه یک فولدر را قفل کنیم و وقتی شخص مقابل بر روی فولدر کلیک کرد یک فورم باز شود و درخواست پسورد کند و تا وقتی پسورد اصلی را وارد نکرد شخص مقابل ، فولدر باز نشود
اگر امکانش هست سورسه برنامه را به من بدهید...
خیلی ممنونم
یا علی

[Mask]

با سلام
نمونه کد با Delphi Prism میخای.
یا با دلفی؟

[fahimi]

procedure TForm6.Button1Click(Sender: TObject);
var
a,b,user:string;
begin
begin
query2.Close;
query2.SQL.Clear;
query2.sql.Add('SELECT Karbar, Pass FROM "karbar.Dat" where Karbar='''+combobox1.Text+'''');
query2.Open;
if query2.RecordCount>0 then
begin
a:=query2.FieldByName('Pass').AsString;
user:=query2.FieldByName('Karbar').AsString;
b:=edit1.Text;
if (edit1.Text=a) and (user=combobox1.Text) then
begin
query2.Close;
form6.Visible:=false;
form1.show;
edit1.Text:='';
end
else application.Terminate;;
end;

قسمتی از کد برنامه ام را کپی کردم در این روش رمز و کاربر در یک جدول ذخیره و با کد بالا بازیابی میشود فرم 6 فرم که رمز از کاربر میگیرد و در صورت صحیح بودن رمز فرم یک را نمایش میدهد

[vcldeveloper]

قسمتی از کد برنامه ام را کپی کردم در این روش رمز و کاربر در یک جدول ذخیره و با کد بالا بازیابی میشود فرم 6 فرم که رمز از کاربر میگیرد و در صورت صحیح بودن رمز فرم یک را نمایش میدهد
این چه ربطی به سوال کاربر داشت؟ کاربر میخواید یک فایل یا پوشه را قفل کنه؛ کد شما چیزی برای قفل کردن فایل یا پوشه نداره.