даних в Delphi 7. Самовчитель/В. Понамарьов СПб .: Питер, 2003. - 224 с.
Луні, К., Брила, Б. 101: Oracle Database 10g Настільна книга адміністратора/К. Луні, Б. Брила М .: Видавництво «Лорі», 2008. - 729 с.
Коннолі, Томас, Бегг, Каролін Бази даних. Проектування, реалізація і супровід. Теорія і практика. Третій видання .: Пер. з англ.- М .: Видавничий дім Вільямові, 2003. - 1440 с.
ДОДАТОК
unit UDolj;
interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, DB, ADODB, Menus, ExtCtrls, DBCtrls;=class (TForm): TDBGrid ;: TMainMenu;:TMenuItem ;: TMenuItem ;: TDBNavigator; N2Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); N1Click (Sender: TObject);
{Private declarations} VisibleEdit (bRight: Boolean);
{Public declarations} ;: TFormDolj ;, UFilterDolj;
{$ R * .dfm} TFormDolj.VisibleEdit (bRight: Boolean) ;. Visible:=bRight; .ReadOnly:=bRight ;; TFormDolj.N2Click (Sender: TObject) ;. ADOQueryDolj.Active :=False; .ADOQueryDolj.SQL.Text:= Select * from Должностиraquo;;.ADOQueryDolj.ExecSQL;.ADOQueryDolj.Active:=True;;TFormDolj.FormClose(Sender: TObject; var Action: TCloseAction);:=caFree ;; TFormDolj.N1Click (Sender: TObject) ;. ShowModal ;;. UFilterDolj ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, jpeg;= class (TForm): TButton ;: TButton ;: TImage ;: TLabeledEdit ;: TLabeledEdit ;: TLabeledEdit; Button2Click (Sender: TObject); Button1Click (Sender: TObject);
{Private declarations}
{Public declarations};
Фільтр посади
var: TFormFilterDolj ;;
{$ R * .dfm} TFormFilterDolj.Button2Click (Sender: TObject) ;;; TFormFilterDolj.Button1Click (Sender: TObject) ;: Boolean;:=False; .ADOQueryDolj.Active:=False;.ADOQueryDolj.SQL.Text:= SELECT * FROM Посади raquo ;; LEName.Text lt; gt; thenb=False then:=True; .ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text + where raquo ;;. ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text + and raquo ;;. ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text +
Найменування= + LEName.Text + raquo ;;
end; LEOklad.Text lt; gt; thenb=False then:=True; .ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text + where raquo ;;. ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text + and raquo ;;. ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text +
Оклад gt;= + LEOklad.Text ;; LEOtpusk.Text lt; gt; thenb=False then:=True; .ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text + where raquo ;;. ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text + and raquo ;;. ADOQueryDolj.SQL.Text:=DM.ADOQueryDolj.SQL.Text +
Відпустка= + LEOtpusk.Text ;;. ADOQueryDolj.Active:=True;;;.UMain ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Menus, DB, DBTables, ADODB, jpeg, ExtCtrls ;=class (TForm): TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TImage; FormShow (Sender: TObject ); MKaskadClick (Sender: TObject); MVertClick (Sender: TObject); MHorizClick (Sender: TObject); MDoctorClick (Sender: TObject); MPacientClick (Sender: TObject); MDoljnClick (Sender: TObject); N1Click (Sender: TObject) ; N2Click (Sender: TObject); N3Click (Sender: TObject);
{Private declarations}: Boolean;
{Public declarations};
Головна форма
: TFMain ;, UString, UDoctors, UDolj, UOtdel, UPalata, UPacient, UDoljn ,, UEnter;
{$ R * .dfm} TFMain.FormShow (Sender: TObject) ;. ShowModal; .ShowModal ;; TFMain.MKaskadClick (Sender: TObject) ;;; TFMain.MVertClick (Sender: TObject) ;:=tbVertical ;;; TFMain.MHorizClick (Sender: TObject);:=tbHorizontal ;;; TFMain.MDoctorClick (Sender: TObject);:=TFDoctors.Create (Self) ;. VisibleEdit (bRight) ;. Show ;; TFMain.MPacientClick (Sender: TObject);:=TFTablePacients.Create (Self) ;. VisibleEdit (bRight) ;. Show ;; TFMain.MDoljnClick (Sender: TObject);:=TFormDolj.Create (Self) ;. VisibleEdit (bRight ) ;. Show ;; TFMain.N1Click (Sender: TObject);:=TFOtdel.Create (Self) ;. VisibleEdit (bRight) ;. Show ;; TFMain.N2Click (Sender: TObject);:=TFPalata.Create (Self ) ;. VisibleEdit (bRight) ;. Show ;; TFMain.N3Click (Sender: TObject);:=TFDiagnoz.Create (Self) ;. VisibleEdit (bRight) ;. Show ;;.
Пароль
UPassword ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCt...