ميخواهم username & password درست كنم توضيح مي دهيد بايد چكار كنم؟

ميخواهم username & password درست كنم توضيح مي دهيد بايد چكار كنم؟


سوال ديگر
براي اينكه كل اطلاعات يكجدول در dbgrid نشان داده بشود بايد چكار كنم

سلام
در مورد سوال اولت این یوزر و پسوردو واسه چه کاری میخواهی اگه واسه کارهای معمولی میخواهی میتونی از encript و decriptاستفاده کنی اگه واسه بانک اطلاعاتی میخواهی معمولا از هر بانکی که استفاده میکنی این قابلیتو داره میتونی تو سایت بگردی ختما پیدا میکنی
در مورد سول دومت هم بستگی داره با چی به بانکت وصل میشی

با bde , datasource به بانكم وصل ميشوم

خب وقتی با datasource و یک tableوصل میشین به بانک وقتی خاصیت activeروtrueمیکنین تمام رکورها نشون داده میشن

ببخشید این کد شاید به دردتون بخوره

نقل قول:

---

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Grids, DBGrids;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Table1: TTable;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
const
s='C:\Program Files\Common Files\Borland Shared\Data\mobin.db';
begin
if not fileexists(s) then
halt;
else
begin
table1.TableName:='C:\Program Files\Common Files\Borland Shared\Data\sam.db';
datasource1.DataSet:=table1;
dbgrid1.DataSource:=datasource1;
// agar 3 fild dar jadval dashte bashim//
dbgrid1.Columns.Add;
dbgrid1.Columns[0].FieldName:='name';//name fild avar//
dbgrid1.Columns.Add;
dbgrid1.Columns[1].FieldName:='sen';//name fild dovom//
dbgrid1.Columns.Add;
dbgrid1.Columns[2].FieldName:='shahr';//name fild sevom//
table1.Active:=true;
end;
end;
end.

---