Geum.ru

Клиентское программное обеспечение автоматизации рабочего места

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

hi или о том, что лучше один раз увидеть, чем сто раз услышать., 2008

.Фаронов В. Программирование баз данных в Delphi 7-Реализация современных технологий баз данных средствами Delphi, -Москва :Питер учебный курс, 2006

. Фокс Дж. Программное обеспечение и его разработка / Пер. с англ. - М.: Мир, 1985. - 368 с., ил.

.Шкрыль Андрей Разработка клиент-серверных приложений в Delphi+видеокурс-Питер 2006

. Язык компьютера. Пер. с англ, под ред. и с предисл. В. М. Курочки-на. - М.: Мир, 1989. ~ 240 с., ил.

13.

14.

15.

16.

.

.

19.

20.

21.

 

Приложение

 

unit UMain;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, XPMan, ExtCtrls, ComCtrls, StdCtrls,shellapi;

TMAIN = 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;

XPManifest1: TXPManifest;

Timer1: TTimer;

N16: TMenuItem;

GroupBox1: TGroupBox;

PB: TProgressBar;

N17: TMenuItem;

Image1: TImage;

Timer2: TTimer;

procedure N8Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N16Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N14Click(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Timer2Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

MAIN: TMAIN;

s,ss:string;l:integer;UDM, UBASE, UDETAL, UINS_DET, UREP_INS, UREPORT, USET,Upoisk, UOPROG,

UAUTOR;

{$R *.dfm}TMAIN.N8Click(Sender: TObject);

//BASE:=TBASE.Create(SELF);.IBQuery1.Open;

//BASE.IBQuery4.Open;

//BASE.IBQuery7.Open;.IBTable1.Active:=TRUE;.IBTable2.Active:=TRUE;.BitBtn7.Visible:=TRUE;.BitBtn8.Visible:=FALSE; BASE.ShowModal;;TMAIN.N3Click(Sender: TObject);,ss:string;,FF:textfile;

{beginfileexists(ExtractFileDir(Application.ExeName)+\DB_path.set) then(f,ExtractFileDir(Application.ExeName)+\DB_path.set);(f);(f,s);(f);;fileexists(ExtractFileDir(Application.ExeName)+\server.set) then(f,ExtractFileDir(Application.ExeName)+\server.set);(f);(f,ss);(f);;.IBD.DatabaseName:=ss+:+s;;}FILEEXISTS(DB.LOG) THEN(FF,DB.LOG);(FF);WRITELN(FF,ПОДКЛЮЧЕНИЕ=+DATETIMETOSTR(NOW));(FF);BEGIN(FF,DB.LOG);(FF);WRITELN(FF,ПОДКЛЮЧЕНИЕ=+DATETIMETOSTR(NOW));(FF);;.IBD.Connected:=TRUE;.N8.Enabled:=TRUE;.N9.Enabled:=TRUE;

MAIN.N16.Enabled:=TRUE;(НЕ ПОЛУЧИЛОСЬ ПОДКЛЮЧИТЬСЯ К УДАЛЕННОМУ СЕРВЕРУ!+#13+#13+*ПРОВЕРЬТЕ ПРАВИЛЬНОСТЬ УКАЗАННОГО ПУТИ БАЗЫ ДАННЫХ,MTWARNING,[MBOK,MBHELP],0);

END;;TMAIN.N4Click(Sender: TObject);.IBD.Connected:=FALSE;.N8.Enabled:=FALSE;.N9.Enabled:=FALSE;

MAIN.N16.Enabled:=FALSE;(НЕ УДАЛОСЬ ОТКЛЮЧИТЬСЯ ОТ СЕРВЕРА+#13+ПОПРОБУЙТЕ ЕЩЕ РАЗ);

end;END;

TMAIN.N5Click(Sender: TObject);.IBD.Connected:=FALSE;

APPLICATION.Terminate;(ОШИБКА ЗАВЕРШЕНИЯ РАБОТЫ ПРОГРАММЫ!!!+#13+#13+

ПОПРОБУЙТЕ ЗАВЕРШИТЬ РАБОТУ КОМПЬЮТЕРА!!!);

END;;TMAIN.Timer1Timer(Sender: TObject);;DM.IBD.Connected=FALSE THEN.Position:=0.Position:=RANDOM(21)+80;;TMAIN.N16Click(Sender: TObject);_INS.Show;;TMAIN.N9Click(Sender: TObject);.IBQuery1.Open;.IBTable1.Active:=TRUE;.Show;

EXCEPT(НЕ УДАЛОСЬ ОТКРЫТЬ БАЗУ!ПОПРОБУЙТЕ ЕЩЕ РАЗ);

END;;TMAIN.N11Click(Sender: TObject);.ShowModal;;TMAIN.N17Click(Sender: TObject);.ShowModal;;TMAIN.N14Click(Sender: TObject);_prog.ShowModal;;TMAIN.FormDestroy(Sender: TObject);:TEXTFILE;FILEEXISTS(DB.LOG) THEN(FF,DB.LOG);(FF);WRITELN(FF,ВЫКЛЮЧЕНИЕ=+DATETIMETOSTR(NOW));(FF);BEGIN(FF,DB.LOG);(FF);WRITELN(FF,ВЫКЛЮЧЕНИЕ=+DATETIMETOSTR(NOW));(FF);;;

TMAIN.N13Click(Sender: TObject);(handle,open,pchar(WORKSTATHELP.HLP+#0),nil,nil,sw_shownormal);;TMAIN.N15Click(Sender: TObject);.ShowModal;;TMAIN.FormCreate(Sender: TObject);:=LENGTH(application.Title);:= +application.Title+ ;.Title:=s;;TMAIN.Timer2Timer(Sender: TObject);:=application.Title;.Title:=application.Title+COPY(sS,1,1);:=application.Title;(s,1,1);.Title:=s;;.UBASE;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, Grids, DBGrids, DB, IBCustomDataSet, IBQuery,

ExtCtrls, ToolWin, ComCtrls, Buttons, IBTable, XPMan;

TBASE = class(TForm)

IBQuery1: TIBQuery;

DataSource1: TDataSource;

IBQuery1ID: TIntegerField;

IBQuery1NAME: TIBStringField;

DBGrid1: TDBGrid;

IBQuery2: TIBQuery;

IBQuery3: TIBQuery;

GroupBox1: TGroupBox;

DBNavigator1: TDBNavigator;

Splitter1: TSplitter;

GroupBox2: TGroupBox;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Splitter2: TSplitter;

GroupBox3: TGroupBox;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

ToolBar1: TToolBar;

ToolBar2: TToolBar;

ToolBar3: TToolBar;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

BitBtn5: TBitBtn;

BitBtn6: TBitBtn;

IBQuery4: TIBQuery;

IBQuery5: TIBQuery;

IBQuery6: TIBQuery;

IBQuery7: TIBQuery;

IBQuery8: TIBQuery;

IBQuery9: TIBQuery;

DataSource2: TDataSource;

DataSource3: TDataSource;

IBQuery7ID: TIntegerField;

IBQuery7E_ID: TIntegerField;

IBQuery7DESCRIPTION: TIBStringField;

IBQuery10: TIBQuery;

IBTable1: TIBTable;

IBTable2: TIBTable;

IBQuery4ID: TIntegerField;

IBQuery4N_ID: TIntegerField;

IBQuery4NAME: TIBStringField;

BitBtn7: TBitBtn;

XPManifest1: TXPManifest;

IBTable1ID: TIntegerField;

IBTable1N_ID: TIntegerField;

IBTable1NAME: TIBStringField;

IBTable2ID: TIntegerField;

IBTable2E_ID: TIntegerField;

BitBtn8: TBitBtn;

IBTable2DESCRIPTION1: TIBStringField;

procedure ButtonClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

procedure BitBtn4Click(Sender: TObject);

procedure BitBtn5Click(Sender: TObject);

procedure BitBtn6Click(Sender: TObject);

procedure BitBtn7Click(Sender: TObject);

procedure BitBtn8Click(Sender: TObject);

// procedure BitBtn8Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

BASE: TBASE;UDM, UMain, UDETAL, UINS_DET, UREP_INS, UREPORT, USET, UPR;

{$R *.dfm}TBASE.ButtonClick(Sender: TObject);

VAR:STRING;:=INPUTBOX(ДОБАВЛЕНИЕ ГРУППЫ,ВВЕДИТЕ НАЗВАНИЕ ГРУППЫ,);

IBQuery2.Params.ParamByName(NAME).Value:=S;.ExecSQL;:=ERROR;.IBT.RollbackRetaining;;END;.IBT.CommitRetaining;.Close;.Open;;TBASE.FormClose(Sender: TObject; var Action: TCloseAction);.IBQuery1.Close;;TBASE.Button2Click(Sender: TObject);

beginMessageDlg(ВЫ ДЕЙСТВИТЕЛЬНО ХОТИТЕ УДАЛИТЬ ЭТУ ЗАПИСЬ?,

mtConfirmation,[mbYes,mbNo],0)=mrYes then

begin.Params.ParamByName(PAR1).Value:=ID.Value;.ExecSQL;(ОШИБКА УДАЛЕНИЯ!+#13+

ПОПРОБУЙТЕ ЕЩЕ РАЗ!ВОЗМОЖНО ЗАПИСЬ УДАЛЕНА!);

DM.IBT.RollbackRetaining;;

end;.IBT.CommitRetaining;.Close;.Open;

end;;TBASE.BitBtn3Click(Sender: TObject);

VAR:STRING;:=INPUTBOX(ДОБАВЛЕНИЕ ОБОРУДОВАНИЯ,ВВЕДИТЕ НАЗВАНИЕ ОБОРУДОВАНИЯ,);

IBQuery5.Params.ParamByName(NAME).Value:=S;.Params.ParamByName(N_ID).Value:=BASE.IBQuery1ID.Value;.E