Правила сохранения результатов вычислений в удаленной БД с помощью SQL
Оператор UPDATE обновляет столбцы в соответствии с их новыми значениями в строках существующей таблицы.
UPDATE [LOW_PRIORITY] [IGNORE] tbl_name
SET col_name1=expr1 [, col_name2=expr2 ...]
[WHERE where_definition]
[ORDER BY ...]
[LIMIT rows]
или
UPDATE [LOW_PRIORITY] [IGNORE] tbl_name [, tbl_name ...]
SET col_name1=expr1 [, col_name2=expr2 ...]
[WHERE where_definition]
В выражении SET указывается, какие именно столбцы следует модифицировать и какие величины должны быть в них установлены. В выражении WHERE, если оно присутствует, задается, какие строки подлежат обновлению. В остальных случаях обновляются все строки. Если задано выражение ORDER BY, то строки будут обновляться в указанном в нем порядке.
Если указывается ключевое слово LOW_PRIORITY, то выполнение данной команды UPDATE задерживается до тех пор, пока другие клиенты не завершат чтение этой таблицы.
Если указывается ключевое слово IGNORE, то команда обновления не будет прервана, даже если при обновлении возникнет ошибка дублирования ключей. Строки, из-за которых возникают конфликтные ситуации, обновлены не будут.
Если доступ к столбцу из указанного выражения осуществляется по аргументу tbl_name, то команда UPDATE использует для этого столбца его текущее значение.
Если столбец устанавливается в его текущее значение, то MySQL замечает это и не обновляет его. Команда UPDATE возвращает количество фактически измененных строк.
3.6 Правила оформления в формате *.docx путем экспорта данных из созданного приложения по предложенной форме и правила вывода на удаленный принтер
В формат *.docx, используя Delphi, можно экспортировать различные данные.
Есть два замечательных способа добывать информацию об интерфейсе Word:
1. Для того чтобы узнать, как что-то сделать из Delphi в Word-e надо в Word-е зайти в меню Сервис/Макрос/Начать запись... Потом сделать в Word-e то, что надо сделать из Delphi и закончить запись макроса. И наконец Сервис/Макрос/Макросы...выбираем записанный...Изменить и смотрим, как он устроен. После этого первод синтаксиса VBA в синтаксис Delphi осуществляется просто и непринужденно.
2. Еще одним хорошим инструментом получения знаний являются компоненты типа TWordApplication. Кидаем его на форму, в любом операторе набираем WordApplication1., нажимаем ctrl+пробел и внимательно читаем. Смысл доступных функций и свойств обычно понятен интуитивно.
Еще есть полезные объекты selection – выбранная область и range – диапазон, а так-же функция select – выбрать.
Правила вывода на удаленный принтер:
Для печати документа достаточно использовать две команды WordBasic —процедуру просмотра FilePrintPreview и процедуру печати документа FilePrint. Последнюю процедуру можно вызывать без аргументов или с аргументами, например для задания числа копий печати.
Примеры использования данных процедур в приложениях Delphi:
Печать документов Word
procedure TForml.Buttonl7Click(Sender: TObject);
begin
WB.FilePrintPreview;
end;
procedure TForml.Buttonl6Click(Sender: TObject);
begin
WB.FilePrint;
end;
В процедуре для печати вместо команды FilePrint можно использовать команду FilePrintDefault или команду FilePrint(c:integer), где с — количество печатаемых копий. Для предварительного просмотра печати также можно использовать команду FilePrintPreviewFullScreen, которая разворачивает окно предварительного просмотра печати во весь экран. Для просмотра в окне нескольких печатаемых страниц применяется команда FilePrintPreviewPages(p:integer), где р — количество одновременно отображаемых страниц в одном окне. Следующий пример программного кода иллюстрирует использование данных функций.
Печать документов Word
procedure TForml.Buttonl6Click(Sender: TObject);
begin
WB.FilePrint(2);
end;
procedure TForml.Buttonl7Click(Sender: TObject);
begin
WB.FilePrintPreviewPages(2) ;
end;
Приложение
Код программы:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Grids, DBGrids, XPMan, DBCtrls, DB, ADODB,
Mask, ExtCtrls, ZAbstractTable,
ZDataset, ZConnection, ZAbstractRODataset, ZAbstractDataset;
type
TForm1 = class(TForm)
Label8: TLabel;
Label9: TLabel;
ScrollBox1: TScrollBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
StaticText1: TStaticText;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Familia: TDBEdit;
Imia: TDBEdit;
Otchestvo: TDBEdit;
Grazhdanstvo: TDBEdit;
Nacional: TDBEdit;
DataSource1: TDataSource;
Pol: TDBComboBox;
SocPol: TDBComboBox;
Index: TDBEdit;
Kray: TDBEdit;
Oblast: TDBEdit;
NaselPunkt: TDBEdit;
Ulica: TDBEdit;
Dom: TDBEdit;
Kvartira: TDBEdit;
Telephon: TDBEdit;
KontTelephon: TDBEdit;
FormObuch: TDBComboBox;
Lgot: TDBEdit;
DocLgot: TDBEdit;
Label25: TLabel;
Armia: TDBComboBox;
Label26: TLabel;
VoenBilet: TDBEdit;
Label27: TLabel;
Data: TDBEdit;
DBGrid1: TDBGrid;
Okonchil: TDBEdit;
StaticText16: TStaticText;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label33: TLabel;
Seria: TDBEdit;
Label34: TLabel;
Nomer: TDBEdit;
Label35: TLabel;
SredBall: TDBEdit;
Label37: TLabel;
TrudStazh: TDBEdit;
Label40: TLabel;
Label42: TLabel;
StaticText17: TStaticText;
StaticText18: TStaticText;
Label43: TLabel;
Label45: TLabel;
Label49: TLabel;
DolzhnostOtca: TDBEdit;
FamiliaOtca: TDBEdit;
Label50: TLabel;
Label52: TLabel;
Obrazovanie: TDBComboBox;
Forma: TDBComboBox;
Iazk: TDBComboBox;
StaticText19: TStaticText;
Obshezhitie: TDBComboBox;
Label41: TLabel;
Label58: TLabel;
ImiaOtca: TDBEdit;
Label59: TLabel;
OtchestvoOtca: TDBEdit;
Label61: TLabel;
MestoOtca: TDBEdit;
Label44: TLabel;
TelephonOtca: TDBEdit;
Label46: TLabel;
Label47: TLabel;
FamiliaMam: TDBEdit;
ImiaMam: TDBEdit;
Label48: TLabel;
Label62: TLabel;
OtchestoMam: TDBEdit;
TelephonMam: TDBEdit;
Label65: TLabel;
Label64: TLabel;
DolzhnostMam: TDBEdit;
MestoMam: TDBEdit;
Label63: TLabel;
Mnogodetnaia: TDBComboBox;
SemeinoePolozhenie: TDBComboBox;
StaticText20: TStaticText;
PervoeVsshee: TDBComboBox;
StaticText21: TStaticText;
StaticText22: TStaticText;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
StaticText23: TStaticText;
CheckBox3: TCheckBox;
StaticText24: TStaticText;
StaticText25: TStaticText;
Label24: TLabel;
DBGrid10: TDBGrid;
DataSource10: TDataSource;
DBGrid11: TDBGrid;
DataSource11: TDataSource;
NomerStrahovogo: TDBEdit;
Label32: TLabel;
Pasport: TDBEdit;
Button2: TButton;
DataSource2: TDataSource;
DataSource3: TDataSource;
Button1: TButton;
Timer1: TTimer;
ZConnection1: TZConnection;
zZaiavlenie: TZTable;
zOtec: TZTable;
zMat: TZTable;
procedure FormObuchChange(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure PolChange(Sender: TObject);
procedure ArmiaChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i: integer;
puti: string;
host : string = 'localhost';
implementation
uses Unit2,Unit3;
{$R *.dfm}
procedure TForm1.FormObuchChange(Sender: TObject);
begin
If FormObuch.ItemIndex=6 then //доступ к полям связанным с вне конкурсной формой обучения
begin
Label21.Visible:=true;
Label22.Visible:=true;
Lgot.Visible:=true;
DocLgot.Visible:=true;
end
else
begin
Label21.Visible:=false;
Label22.Visible:=false;
Lgot.Visible:=false;
DocLgot.Visible:=false;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
DBGrid1.DataSource.DataSet.Post;
DBGrid10.DataSource.DataSet.Post;
DBGrid11.DataSource.DataSet.Post;
form1.Visible:=false;
form2.Visible:=true;
end;
procedure TForm1.PolChange(Sender: TObject);
begin
Case Pol.ItemIndex of
0: begin
SemeinoePolozhenie.Items.Strings[0]:='Холост';
SemeinoePolozhenie.Items.Strings[1]:='Женат';
end;
1: begin
SemeinoePolozhenie.Items.Strings[0]:='Не замужем';
SemeinoePolozhenie.Items.Strings[1]:='Замужем';
end;
end;
end;
procedure TForm1.ArmiaChange(Sender: TObject);
begin
If (Armia.ItemIndex=0) or (Armia.ItemIndex=3) then
begin
Label26.Visible:=true;
VoenBilet.Visible:=true;
end
else
begin
Label26.Visible:=false;
VoenBilet.Visible:=false;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
if length(paramstr(1))>0 then host:=paramstr(1);
timer1.Enabled:=true;
GetDir(0,Puti);
form1.ZConnection1.disconnect;
form1.ZConnection1.hostname:=host;
form1.ZConnection1.connect;
zZaiavlenie.Active:=true;
zMat.Active:=true;
zOtec.Active:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=false;
form1.Visible:=false;
form2.Show;
end;
end.