ки.:=wdTable.Rows.Item (1) .Range;// Діапазон першого рядка.
wdRng.ParagraphFormat.Alignment:=wdAlignParagraphCenter; .Font.Size:=10;
wdRng.Font.Bold:=True;
//Оформлення першого рядка даних - це другий рядок у таблиці.
//При додаванні наступних рядків, їх оформлення буде копіюватися з цього рядка.:=wdTable.Rows.Item (2) .Range;// Діапазон другого рядка.
wdRng.ParagraphFormat.Alignment:=wdAlignParagraphLeft; .Font.Size:=10; .Font.Bold:=False; .Columns.Item (1) .Width:=280; .Columns.Item (2) .Width:=100; .Columns.Item (3) .Width:=60; .Cell (1, 1) .Range.Text:= Роботодавець raquo ;;. Cell (1, 2) .Range. Text:= Вакансія raquo ;;. Cell (1, 3) .Range.Text:= Зарплата raquo ;;. Cell (2, 1) .Range.Text:=vrab; .Cell (2, 2) .Range.Text:=vvak; .Cell (2, 3) .Range.Text:=vsum + руб. raquo ;;:=wdDoc.Range;
//Включення перемальовування вікна MS Word. У випадку, якщо wdApp.Visible:=True..ScreenUpdating:=True ;;. DisplayAlerts:=False;// Відключаємо режим показу предупрежденій..SaveAs (FileName:=Sd.FileName);// Запис документа в файл..DisplayAlerts:=True;// Включаємо режим показу попереджень.
end; .Activate ;; TForm1.StringReplaceExt (const S: string; OldPattern, NewPattern: array of string; Flags: TReplaceFlags): string ;: integer; (Length (OldPattern)=(Length ( NewPattern)));:=S; i:=Low (OldPattern) to High (OldPattern) do:=StringReplace (Result, OldPattern [i], NewPattern [i], Flags) ;; TForm1.mysql_real_escape_string (const unescaped_string: string ): string;:=StringReplaceExt (unescaped_string,
[ laquo ;, # 39, # 34, # 0, # 10, # 13, # 26], [raquo;laquo;,raquo;laquo;#39,raquo;laquo;#34,raquo; laquo;,raquo;nlaquo;,raquo;rlaquo;,raquo;Zraquo;] ,
[rfReplaceAll]
) ;; TForm1.getPostId (name: string): string; .Active:=false; .SQL.text:= SELECT `Код работодателя` FROM Роботодавець WHERE` Найменування работодателя`=raquo;laquo;raquo;+name+laquo;raquo;laquo;raquo;;.ExecSQL;.Active:=True;:=qry1.fields[0].asstring;.SQL.Clear;;TForm1.getDetId(name:string):string;.Active:=false;.SQL.text:=laquo;SELECT `Код вакансіі` FROM Вакансія WHERE Должность=raquo;laquo;raquo;+name+laquo;raquo;laquo;raquo;;.ExecSQL;.Active:=True;:=qry1.fields[0].asstring;.SQL.Clear;;TForm1.cbb_refresh();.Clear;.Clear;.Clear;.Clear;
//поставщікі.Active:=false;
qry1.SQL.Text:= SELECT `Найменування работодателя` FROM Роботодавець raquo ;;
qry1.ExecSQL; .Active:=True; not qry1.Eof do.AddItem (qry1.fields [0] .AsString, self) ;. AddItem (qry1.fields [0] .AsString, self) ;. Next ;;
//деталі.Active:=false; .SQL.Text:= SELECT `Должность` FROM` Вакансія` raquo ;;. ExecSQL; .Active:=True; not qry1.Eof do.AddItem(qry1.fields[0].AsString,self);.AddItem(qry1.fields[0].AsString,self);.Next;;;TForm1.tab_refresh();_refresh;.Active:=false;
qry1.SQL.Clear; .SQL.Add ( SELECT Заявка.`№п/П`, Работодатель.`Наіменованіе работодателя` AS Роботодавець, Вакансія.Должность AS Вакансія, Заявка.`Колічество вакансій`, Заявка.`Дата подачі заявкі`, Заявка.`Зарплата (в руб) ` + FROM Заявка, Вакансія, Роботодавець WHERE Заявка.`Код работодателя`=Работодатель.`Код работодателя` AND Заявка.`Код вакансіі`=Вакансія.`Код вакансіі` );
qry1.Active:=True;;TForm1.FormCreate (Sender: TObject); _ refresh ;; TForm1.btnAddClick (Sender: TObject); (Trim (ed1.Text)= ) or (Trim (ed2.Text)= ) or (FormatDateTime ( dmy raquo ;, ed4.date)= ) or (Trim (ed3.Text)= ) then
begin ( ласка, введіть дані );
exit ;;. Active:=False; .SQL.Clear; .SQL.Add ( INSERT INTO Заявка (`Код работодателя`,` Код вакансіі`, `Кількість вакансій`,` Дата подачі заявкі`, `Зарплата (в руб)`) VALUES (raquo;+getPostId(ed1.text)+laquo;,raquo;+getDetId(ed2.text)+laquo;,raquo;+ed3.text+laquo;,laquo;raquo;+FormatDateTime(laquo;d.m.yyyyraquo;, ed4.date)+laquo;raquo;,raquo;+ed5.text+laquo;)raquo;);.ExecSQL;.SQL.Clear;_refresh;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;.Text:=laquo;raquo;;e:Exception do ;; TForm1.btnDelClick (Sender: TObject); cur: string;:=qry1.fields [0] .asstring;
if Application.MessageBox ( Ви дійсно хочете видалити запис? , Видалити? , MB_YESNO)=IDYES then
begin.Active:=False; .SQL.Clear; .SQL.Add ( DELETE FROM Заявка WHERE `№п/П`= + cur) ;. ExecSQL; .SQL. Clear; _refresh ;; e: Exception do ;; TForm1.dbgrd1CellClick (Column: TColumn);:=laquo;.raquo;;.text:=qry1.fields[1].asstring;.text:=qry1.fields[2].asstring;.Date:=StrToDate(qry1.fields[4].asstring);.text:=qry1.fields[3].asstring;.text:=qry1.fields[5].asstring;;TForm1.btnSaveClick(Sender: TObject); cur: string; (Trim (ed1.Tex...
