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

[hamidehsadat]

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


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

[ghoghnoose_dana]

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

[hamidehsadat]

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

[ghoghnoose_dana]

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

[ghoghnoose_dana]

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

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.