136
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBText1: TDBText;
DBLookupComboBox1: TDBLookupComboBox;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormNewOS: TFormNewOS;
implementation
{$R *.dfm}
uses datamod;
procedure TFormNewOS.Button1Click(Sender: TObject);
begin
datamod.dm.Table_OS.Post;
datamod.dm.Table_OS.Refresh;
end;
procedure TFormNewOS.Button2Click(Sender: TObject);
begin
FormNewOS.Close;
end;
end.
unit Unit_redakt_OS;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Mask, Vcl.DBCtrls,
Vcl.ExtCtrls;
type
TForm_OS_redakt = class(TForm)
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
137
DBEdit3: TDBEdit;
Button2: TButton;
Button1: TButton;
DBNavigator1: TDBNavigator;
Button3: TButton;
Panel1: TPanel;
DBText1: TDBText;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_OS_redakt: TForm_OS_redakt;
implementation
{$R *.dfm}
uses datamod;
procedure TForm_OS_redakt.Button1Click(Sender: TObject);
begin
datamod.dm.Table_OS.Post;
datamod.dm.Table_OS.Refresh;
end;
procedure TForm_OS_redakt.Button2Click(Sender: TObject);
begin
Form_OS_redakt.Close;
end;
procedure TForm_OS_redakt.Button3Click(Sender: TObject);
begin
if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbOK, mbCancel],0)
= mrOK then
datamod.dm.Table_OS.Delete;
end;
end.
unit Unit_Spisan;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.Mask,
Vcl.ExtCtrls;
type
TForm_Spisan = class(TForm)
Label1: TLabel;
Panel1: TPanel;
DBText1: TDBText;
138
Label3: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
Label4: TLabel;
DBEdit2: TDBEdit;
DBNavigator1: TDBNavigator;
Button3: TButton;
Button1: TButton;
Button2: TButton;
Button4: TButton;
procedure Button4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_Spisan: TForm_Spisan;
implementation
{$R *.dfm}
uses datamod;
procedure TForm_Spisan.Button1Click(Sender: TObject);
begin
datamod.dm.Table_Spisan.Post;
datamod.dm.Table_Spisan.Refresh;
end;
procedure TForm_Spisan.Button2Click(Sender: TObject);
begin
Form_Spisan.Close;
end;
procedure TForm_Spisan.Button4Click(Sender: TObject);
begin
if MessageDlg('Подтвердите удаление записи', mtConfirmation,[mbOK, mbCancel],0)
= mrOK then
datamod.dm.Table_Spisan.Delete;
end;
end.
unit Unit_SPISOK_OS;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids,
Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.DBCtrls;
type
139
TForm_Spisok_OS = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button2: TButton;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_Spisok_OS: TForm_Spisok_OS;
implementation
{$R *.dfm}
uses datamod;
procedure TForm_Spisok_OS.Button2Click(Sender: TObject);
begin
Form_Spisok_OS.Close;
end;
end.
unit Unit_Sprav;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.ExtCtrls, Vcl.DBCtrls,
Vcl.Grids, Vcl.DBGrids;
type
TForm_Sprav = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_Sprav: TForm_Sprav;
implementation
{$R *.dfm}
end.
unit Unit_Zapros;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.Grids, Vcl.DBGrids,
Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls, MyWord, Vcl.Menus, Vcl.Buttons;
type
140
TForm_Zapros = class(TForm)
DBNavigator1: TDBNavigator;
DBGrid1: TDBGrid;
ReportToWord: TSpeedButton;
Label1: TLabel;
Button2: TButton;
procedure ReportToWordClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_Zapros: TForm_Zapros;
implementation
{$R *.dfm}
uses datamod;
procedure TForm_Zapros.Button2Click(Sender: TObject);
begin
Form_Zapros.Close;
end;
procedure TForm_Zapros.ReportToWordClick(Sender: TObject);
var
table:integer;
begin
if CreateWord then
begin
VisibleWord(false);
AddDoc;
//Table1.DisableControls;
StartOfDoc;
PasteTextDoc(Form_Zapros.Caption);;
WordTableAddFromDBGrid(DBGrid1,true,table);
VisibleWord(true);
//Table1.EnableControls;
end;
end;
end.