Код:
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Data, Priv, UchetZap, helpPogr, ComObj, Otchet;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
Halt; //Выход
end;
//Вставляет Значение страны в запрос
procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
DataModule1.PutevkaSQL.Active:=False;
DataModule1.PutevkaSQL.Parameters.ParamByName('Strana').Value:=DBLookupComboBox1.KeyValue;
DataModule1.PutevkaSQL.Active:=active;
end;
//Делает видимым Комментарий
procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
Label14.Visible:=true;
DBMemo1.Visible:=true;
end;
//Вставка новой записи
procedure TForm1.N13Click(Sender: TObject);
begin
if PageControl1.ActivePage=TabSheet1 then DataModule1.Putevka.Insert;
if PageControl1.ActivePage=TabSheet2 then DataModule1.Klient.Insert;
if PageControl1.ActivePage=TabSheet3 then DataModule1.Sotrudniki.Insert;
if PageControl1.ActivePage=TabSheet4 then DataModule1.Country.Insert;
if PageControl1.ActivePage=TabSheet5 then DataModule1.DopUslugi.Insert;
if PageControl1.ActivePage=TabSheet6 then DataModule1.TurMarshrut.Insert;
end;
//удаление записи
procedure TForm1.N14Click(Sender: TObject);
begin
if PageControl1.ActivePage=TabSheet1 then DataModule1.Putevka.Delete;
if PageControl1.ActivePage=TabSheet2 then DataModule1.Klient.Delete;
if PageControl1.ActivePage=TabSheet3 then DataModule1.Sotrudniki.Delete;
if PageControl1.ActivePage=TabSheet4 then DataModule1.Country.Delete;
if PageControl1.ActivePage=TabSheet5 then DataModule1.DopUslugi.Delete;
if PageControl1.ActivePage=TabSheet6 then DataModule1.TurMarshrut.Delete;
end;
//Открытие окна разработчика
procedure TForm1.N6Click(Sender: TObject);
begin
OProgramme.ShowModal;
end;
//В зависимости от переключателя отображается таблица
procedure TForm1.DBRadioGroup1Change(Sender: TObject);
begin
if DBRadioGroup1.ItemIndex=0 then DBGrid1.DataSource:=DataModule1.DokumentiSource;
if DBRadioGroup1.ItemIndex=1 then DBGrid1.DataSource:=DataModule1.OteliSource;
if DBRadioGroup1.ItemIndex=2 then DBGrid1.DataSource:=DataModule1.TransportSource;
end;
//Открытеи формы отчета
procedure TForm1.ToolButton4Click(Sender: TObject);
begin
Report.ShowModal;
end;
//Вставка новой записи
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
if PageControl1.ActivePage=TabSheet1 then DataModule1.Putevka.Append;
if PageControl1.ActivePage=TabSheet2 then DataModule1.Klient.Append;
if PageControl1.ActivePage=TabSheet3 then DataModule1.Sotrudniki.Append;
if PageControl1.ActivePage=TabSheet4 then DataModule1.Country.Append;
if PageControl1.ActivePage=TabSheet5 then DataModule1.DopUslugi.Append;
if PageControl1.ActivePage=TabSheet6 then DataModule1.TurMarshrut.Append;
end;
procedure TForm1.ToolButton6Click(Sender: TObject);
begin
halt; //Выход
end;
//Сохранить
procedure TForm1.ToolButton3Click(Sender: TObject);
begin
DataModule1.Putevka.FieldByName('ФИО').AsString:=DBLookupComboBox3.text;
DataModule1.Putevka.FieldByName('Страна').AsString:=DBLookupComboBox1.KeyValue;
DataModule1.Putevka.FieldByName('НомерМаршрута').AsString:=DBLookupComboBox2.KeyValue;
DataModule1.Putevka.FieldByName('Стоимость').AsInteger:=StrToInt(DBEdit10.Text);
DataModule1.Putevka.Post;
end;
end.