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

unit UUserSecurity;interfaceuses 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;implementationuses UDM, UMain;{$R *.dfm}procedure TFormUserSecurity.Button2Click(Sender: TObject);begin FormUserSecurity.Close;end;procedure TFormUserSecurity.Button1Click(Sender: 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.IBQueryStudentInfo.FieldByName('type_u').Value; id_student:=MainDM.IBQueryStudentInfo.FieldByName('ID_STUDENT').Value; MainForm.caption:= MainDM.IBQueryStudentInfo.FieldByName('SURNAME').Value+' '+MainDM.IBQueryStudentInfo.FieldByName('NAME').Value+' '+MainDM.IBQueryStudentInfo.FieldByName('MIDLE_NAME').Value; FormMain.Show; end else begin showmessage('Пароль введен не верно'); end;end;end.unit UnitSprBank;interfaceuses 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;implementationuses UnitDetailBank;{$R *.dfm}procedure TFormSprBank.BitBtnCloseClick(Sender: 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;interfaceuses 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;implementationuses UDM;{$R *.dfm}procedure TFormDetailBank.ButtonCancelClick(Sender: TObject);begin FormDetailBank.Close;end;procedure TFormDetailBank.FormShow(Sender: TObject);beginif flag='fInsert' then begin FormDetailBank.Caption:='Добавление информации о банке'; Edit1.Text:= ''; Edit2.Text:= ''; Edit3.Text:= ''; Edit4.Text:= ''; Edit5.Text:= ''; end;if flag='fModify' then begin FormDetailBank.Caption:='Редактирование информации о банке'; Edit1.Text:= DM.QueryBank['Name']; Edit2.Text:= DM.QueryBank['KorrChet']; Edit3.Text:= DM.QueryBank['City']; Edit4.Text:= DM.QueryBank['Address']; Edit5.Text:= DM.QueryBank['Telephone']; end;end;procedure TFormDetailBank.ButtonOKClick(Sender: TObject);Var id_b: Integer;beginif flag='fInsert' then begin DM.Query.SQL.Clear; DM.Query.Close; DM.Query.SQL.Add ( 'SELECT ISNULL ( MAX ( id_b ), 0 ) as id_b FROM bank' ); DM.Query.Open; id_b:= DM.Query.FieldByName ( 'id_b' ).AsInteger +1; DM.Query.SQL.Clear; DM.Query.SQL.Add ('INSERT bank VALUES ('+ IntToStr ( id_b ) +',' +'''' + edit1.Text + '''' + ',' +'''' + edit2.Text + '''' + ',' +'''' + edit3.Text + '''' + ',' +'''' + edit4.Text + '''' + ',' +'''' + edit5.Text + '''' + ')'); DM.Query.ExecSQL;end;if flag='fModify' then begin DM.Query.SQL.Clear; DM.Query.SQL.Add ( 'update bank set name=' +'''' + edit1.Text + '''' + ', KorrChet =' +'''' + edit2.Text + '''' + ',City =' +'''' + edit3.Text + '''' + ',Address =' +'''' + edit4.Text + '''' + ',Telephone =' +'''' + edit5.Text + '''' + ' Where id_b ='+IntToStr(DM.QueryBank['id_b'] )); DM.Query.ExecSQL; end; DM.QueryBank.Close; DM.QueryBank.Open; FormDetailBank.Close;end;end.unit UnitSprCity;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids,UDM;type TFormSprCity = class(TForm) DBGridUnit: TDBGrid; Panel1: TPanel; BitBtnAdd: TBitBtn; BitBtnEdit: TBitBtn; BitBtnDel: TBitBtn; BitBtnClose: TBitBtn; procedure BitBtnCloseClick(Sender: TObject); procedure BitBtnAddClick(Sender: TObject); procedure BitBtnEditClick(Sender: TObject); procedure BitBtnDelClick(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declarations } public { Public declarations } end;var FormSprCity: TFormSprCity;implementationuses UnitDetailCity; {$R *.dfm}procedure TFormSprCity.BitBtnCloseClick(Sender: TObject);begin FormSprCity.Close;end;procedure TFormSprCity.BitBtnAddClick(Sender: TObject);begin flag:='fInsert'; FormDetailCity.Show;end;procedure TFormSprCity.BitBtnEditClick(Sender: TObject);begin flag:='fModify'; FormDetailCity.show;end;procedure TFormSprCity.BitBtnDelClick(Sender: TObject);begin DM.Query.SQL.Clear; DM.Query.SQL.Add ( 'Delete from city Where id_c ='+IntToStr(DM.QueryCity['id_c']) ); DM.Query.ExecSQL; DM.QueryCity.Close; DM.QueryCity.Open;end;procedure TFormSprCity.FormShow(Sender: TObject);begin DM.QueryCity.Close; DM.QueryCity.Open;end;end.unit UnitDetailCity;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TFormDetailCity = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Panel1: TPanel; ButtonOK: TButton; ButtonCancel: TButton; procedure ButtonCancelClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure ButtonOKClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var FormDetailCity: TFormDetailCity;implementationuses UDM;{$R *.dfm}procedure TFormDetailCity.ButtonCancelClick(Sender: TObject);begin FormDetailCity.Close;end;procedure TFormDetailCity.FormShow(Sender: TObject);beginif flag='fInsert' then begin FormDetailCity.Caption:='Добавление информации о городе'; Edit1.Text:= ''; Edit2.Text:= ''; end;if flag='fModify' then begin FormDetailCity.Caption:='Редактирование информации о городе'; Edit1.Text:= DM.QueryCity['country']; Edit2.Text:= DM.QueryCity['city_name']; end;end;procedure TFormDetailCity.ButtonOKClick(Sender: TObject);Var id_c: Integer;beginif flag='fInsert' then begin DM.Query.SQL.Clear; DM.Query.Close; DM.Query.SQL.Add ( 'SELECT ISNULL ( MAX ( id_c ), 0 ) as id_c FROM city' ); DM.Query.Open; id_c:= DM.Query.FieldByName ( 'id_c' ).AsInteger +1; DM.Query.SQL.Clear; DM.Query.SQL.Add ('INSERT city VALUES ('+ IntToStr ( id_c ) +',' +'''' + edit1.Text + '''' + ',' +'''' + edit2.Text + '''' + ')'); DM.Query.ExecSQL;end;if flag='fModify' then begin DM.Query.SQL.Clear; DM.Query.SQL.Add ( 'update city set country =' +'''' + edit1.Text + '''' + ', city_name =' +'''' + edit2.Text + '''' + ' Where id_c ='+IntToStr(DM.QueryCity['id_c'] )); DM.Query.ExecSQL; end; DM.QueryCity.Close; DM.QueryCity.Open; FormDetailCity.Close;end;end.unit UMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, Grids, DBGrids;type TFormMain = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; DBGrid1: TDBGrid; procedure N4Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N13Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N15Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var FormMain: TFormMain;implementationuses UnitSprUnit, UnitTypeNomen, UnitSprBank, UnitSprClient, UUserSecurity, UnitSprPostyplenieTMS, UnitSprPeremeshenieTMS, UnitSprSpisanieTMS, UnitSpravka, UnitSprNomenclatyre, UnitSptValuta, UnitSprCity;{$R *.dfm}procedure TFormMain.N4Click(Sender: TObject);begin FormMain.Close; FormUserSecurity.Close;end;procedure TFormMain.N6Click(Sender: TObject);begin FormSprUnit.ShowModal;end;procedure TFormMain.N7Click(Sender: TObject);begin FormSprTypeNomen.ShowModal;end;procedure TFormMain.N8Click(Sender: TObject);begin FormSprBank.ShowModal;end;procedure TFormMain.N9Click(Sender: TObject);begin FormSprClient.showmodal;end;procedure TFormMain.N10Click(Sender: TObject);begin FormSprPostypTMS.showmodal;end;procedure TFormMain.N11Click(Sender: TObject);begin FormSprPeremeshTMS.showmodal;end;procedure TFormMain.N12Click(Sender: TObject);begin FormSprSpisanieTMS.showmodal;end;procedure TFormMain.N5Click(Sender: TObject);begin FormSpravka.Show;end;procedure TFormMain.N13Click(Sender: TObject);beginFormSprNomenclature.show;end;procedure TFormMain.N14Click(Sender: TObject);begin FormSprValuta.Show;end;procedure TFormMain.N15Click(Sender: TObject);begin FormSprCity.show;end;end.