кто сможет написать програмку по листингу

[алексей errrr]

unit UUserSecurity;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask;
type
TFormUserSecurity = class(TForm)
Label1: TLabel;
EditUserLogin: TEdit;
Label2: TLabel;
MaskEditPass: TMaskEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormUserSecurity: TFormUserSecurity;
implementation
uses UDM, UMain;
{$R *.dfm}
procedure TFormUserSecurity.Button2Click(Send er: TObject);
begin
FormUserSecurity.Close;
end;
procedure TFormUserSecurity.Button1Click(Send er: TObject);
begin
DM.QueryUsersSec.Close;
DM.QueryUsersSec.ParamByName('Login ').Value:= trim(EditUserLogin.Text);
DM.QueryUsersSec.ParamByName('PASS' ).Value:= trim(MaskEditPass.Text);
DM.QueryUsersSec.Open;
if DM.QueryUsersSec.FieldByName('ID_u' ).Value>0
then
begin
id_type_u:=MainDM.IBQueryStudentInf o.FieldByName('type_u').Value ; id_student:=MainDM.IBQueryStudentIn fo.FieldByName('ID_STUDENT').Value;
MainForm.caption:= MainDM.IBQueryStudentInfo.FieldByNa me('SURNAME').Value+' '+MainDM.IBQueryStudentInfo.FieldBy Name('NAME').Value+' '+MainDM.IBQueryStudentInfo.FieldBy Name('MIDLE_NAME').Value;
FormMain.Show;
end
else
begin
showmessage('Пароль введен не верно');
end;
end;
end.

unit UnitSprBank;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids,UDM;
type
TFormSprBank = class(TForm)
DBGridUnit: TDBGrid;
Panel1: TPanel;
BitBtnAdd: TBitBtn;
BitBtnEdit: TBitBtn;
BitBtnDel: TBitBtn;
BitBtnClose: TBitBtn;
procedure BitBtnCloseClick(Sender: TObject);
procedure BitBtnDelClick(Sender: TObject);
procedure BitBtnAddClick(Sender: TObject);
procedure BitBtnEditClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormSprBank: TFormSprBank;
implementation
uses UnitDetailBank;
{$R *.dfm}
procedure TFormSprBank.BitBtnCloseClick(Sende r: TObject);
begin
FormSprBank.Close;
end;
procedure TFormSprBank.BitBtnDelClick(Sender: TObject);
begin
DM.Query.SQL.Clear;
DM.Query.SQL.Add ( 'Delete from bank Where id_b ='+IntToStr(DM.QueryBank['id_b']) );
DM.Query.ExecSQL;
DM.QueryBank.Close;
DM.QueryBank.Open;
end;
procedure TFormSprBank.BitBtnAddClick(Sender: TObject);
begin
flag:='fInsert';
FormDetailBank.show;
end;
procedure TFormSprBank.BitBtnEditClick(Sender : TObject);
begin
flag:='fModify';
FormDetailBank.show;
end;
procedure TFormSprBank.FormShow(Sender: TObject);
begin
DM.QueryBank.Close;
DM.QueryBank.Open;
end;
end.

unit UnitDetailBank;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TFormDetailBank = class(TForm)
Label1: TLabel;
Panel1: TPanel;
ButtonOK: TButton;
ButtonCancel: TButton;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
procedure ButtonCancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ButtonOKClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormDetailBank: TFormDetailBank;
implementation
uses UDM;
{$R *.dfm}
procedure TFormDetailBank.ButtonCancelClick(S ender: TObject);
begin
FormDetailBank.Close;
end;

[tarakan1983]

а что за это будет?

[алексей errrr]

много пива(пиши на почту aleks261182@mail.ru)

[alexiz]

Напишу. Как быстро надо?

[phomm]

Нет модулей UDM и Umain