Дипломная работа: Автоматизация учета аренды площадей клиентами компании ООО "Дубрава-Р"

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

if Edt1.text='' then begin showmessage('Имя шаблона не может

быть пустым'); Edt1.SetFocus; exit; end;

if Edt2.text='' then begin showmessage('Необходимо выбрать

файл'); BitBtn1.SetFocus; exit; end;

if not

(FileExists(ExtractFilePath(ParamStr(0))+'shablon\'+Edt2.Text))

or (FileExists(Edt2.Text)) then begin showmessage('Указанный

файл шаблона не найден'); BitBtn1.SetFocus; exit; end;

if OpenDialog1.filename='' then

OpenDialog1.filename:=ExtractFilePath(ParamStr(0))+'shablon\'+Ed

t2.Text;

With AdoQuery1 do

begin

close;

SQl.clear;

SQL.add('UPDATE shablon SET caption = :caption, path = :path

WHERE id = :id');

Parameters.ParamByName('caption').value:=Edt1.text;

Parameters.ParamByName('path').value:=ExtractFileName(OpenDialog

1.Filename);

Parameters.ParamByName('id').value:=label3.caption;

execSQL;

end;

produre TFrm2.BitBtn4Click(Send: TObject);

var

Word:Variant;

begin

if fileExists(Edt2.text) then

begin

Word := CreateOleObject('Word.Application');

Word.Documents.Add(Edt2.text);

if not (copy(caption,length(caption)-1,1) = '*') then

caption:=caption+'*';

Word.visible:=true;

end

else

begin

Showmessage(' Файл '+Edt2.text+' не

найден.'+#10+#13+'Проверьте правильность названия файла и его

наличие в указанной папке.');

end;

end.

unit Connect;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms,

Dialogs, StdCtrls, Buttons;

type

TForm5 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

Uses DataM;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

var

SetF : TextFile;

s:array[1..9] of string;

i:integer;

begin

if Edit1.text='' then begin showmessage('Укажите имя сервера');

exit; end;

if Edit2.text='' then begin showmessage('Укажите логин'); exit;

end;

if Edit3.text='' then begin showmessage('Укажите пароль'); exit;

end;

if Edit4.text='' then begin showmessage('Укажите имя базы

данных'); exit; end;

AssignFile(SetF, ExtractFilePath(ParamStr(0))+'SetF.cfg');

reset(SetF);

For i:=1 to 4 do Readln(Setf,s[i]);

closeFile(SetF);

s[1]:=edit1.text;

s[2]:=edit2.text;

s[3]:=edit3.text;

s[4]:=edit4.text;

Rewrite(SetF);

For i:=1 to 9 do Writeln(Setf,s[i]);

closefile(Setf);

Close;

end;

end.

unit Main;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics,

Controls, Forms,

Dialogs, StdCtrls, DB, ADODB, ExtCtrls, Menus, ComObj;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: 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;

N16: TMenuItem;

N3: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

Panel1: TPanel;

ADOConnection1: TADOConnection;

Sotr: TADOTable;

Label1: TLabel;

Label2: TLabel;

GrUser: TADOTable;

Sotrid: TAutoIncField;

SotrFIO: TWideStringField;

SotrPhone: TWideStringField;

SotrGrUser: TIntegerField;

SotrGruserL: TStringField;

SotrPass: TWideStringField;

EdIzm: TADOTable;

Label3: TLabel;

EdIzmid: TAutoIncField;

EdIzmnaim: TWideStringField;

EdIzmPrim: TWideStringField;

N17: TMenuItem;

ZakazClient: TADOQuery;

ZakazClientid: TAutoIncField;

ZakazClientDater: TDateTimeField;

ZakazClientSumm: TBCDField;

ZakazClientStatus: TIntegerField;

ZakazClientSotrFIO: TWideStringField;

ZakazClientKlientFIO2: TWideStringField;

Label4: TLabel;

klient: TADOTable;

Label5: TLabel;

Postav: TADOTable;

Label6: TLabel;

klientid: TAutoIncField;

klientFIO: TWideStringField;

klientphone: TWideStringField;

klientadres: TWideStringField;

klientprim: TWideStringField;

Postavid: TAutoIncField;

PostavNaim: TWideStringField;

PostavPhone: TWideStringField;

PostavAdres: TWideStringField;

PostavPrim: TWideStringField;

ZakazPostav: TADOQuery;

Label7: TLabel;

ZakazPostavid: TAutoIncField;

ZakazPostavDater: TDateTimeField;

ZakazPostavFIO: TWideStringField;

ZakazPostavNaim: TWideStringField;

ZakazPostavStatus: TIntegerField;

ZakazPostavidSotr: TIntegerField;

ZakazPostavidPostav: TIntegerField;

Postup: TADOQuery;

Label8: TLabel;

PostupidZakaz: TIntegerField;

PostupPrim: TWideStringField;

PostupStatus: TIntegerField;

Postupdater: TDateTimeField;

PostupSumm: TBCDField;

PostupFIO: TWideStringField;

Prihod: TADOQuery;

Prihodid: TAutoIncField;

PrihodidZakaz: TIntegerField;

Prihodsumm: TBCDField;

PrihodDater: TDateTimeField;

PrihodPrim: TWideStringField;

PrihodidSotr: TIntegerField;

PrihodStatus: TIntegerField;

PrihodFIO: TWideStringField;

Label9: TLabel;

Rashod: TADOQuery;

Label10: TLabel;

RashodFIO: TWideStringField;

Rashodid: TAutoIncField;

Rashoddater: TDateTimeField;

Rashodsumm: TBCDField;

RashodidSotr: TIntegerField;

RashodPoluch: TWideStringField;

RashodPrim: TWideStringField;

RashodStatus2: TIntegerField;

Otgruz: TADOQuery;

Otgruzid: TAutoIncField;

OtgruzidZakaz: TIntegerField;

OtgruzSumm: TBCDField;

OtgruzidSotr: TIntegerField;

OtgruzPrim: TWideStringField;

OtgruzStatus: TIntegerField;

OtgruzDater: TDateTimeField;

OtgruzFIO: TWideStringField;

ZakaKlientTovar: TADOTable;

ZakaKlientTovarid: TAutoIncField;

ZakaKlientTovaridZakaz: TIntegerField;

ZakaKlientTovaridTovar: TIntegerField;

ZakaKlientTovarnum: TIntegerField;

ZakaKlientTovarprice: TBCDField;

Tovar: TADOTable;

Tovarid: TAutoIncField;

Tovarnaim: TWideStringField;

Tovarostatok: TIntegerField;

Tovared: TIntegerField;

ZakaKlientTovarTovarL: TStringField;

ZakaKlientTovarStoim: TCurrencyField;

Label11: TLabel;

Label12: TLabel;

Label13: TLabel;

TovarEdL: TStringField;

ZakazClientPrim: TWideStringField;

ZakazClientidKlient: TIntegerField;

ZakazClientidSotr: TIntegerField;

TovarPrice: TBCDField;

TovarOstatokL: TFloatField;

Источник: https://baza.diplomsite.ru/previewfile/2358

Смотрите также:







Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии