146
end;
if(ready) then
if(MessageDlg('СОХРАНИТЬ ОБРАЩЕНИЕ',mtInformation, [mbYes, mbNo],0)=mrYes)
then
begin
// вставляем причину обращения
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Text:='Select MAX(Num) as Num from dbo.gur_reg_org';
ADOQuery1.Close();
ADOQuery1.Open();
if(ADOQuery1.FieldByName('Num').AsString='NULL') then
idDocum:=1
else
idDocum:=ADOQuery1.FieldByName('Num').AsInteger+1;
ADOConnection1.Open();
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Text:='Select Num from dbo.Users where Login='''+Login+'''';
ADOQuery1.Close();
ADOQuery1.Open();
if(ADOQuery1.RecordCount=0) then
ShowMessage('Данный пользователь не авторизован!')
else
begin
idLogin:=ADOQuery1.FieldByName('Num').AsString;
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Text:='Select Num from dbo.Reson where
Reason='''+PrObrComboBox2.Text+'''';
ADOQuery1.Close();
ADOQuery1.Open();
if(ADOQuery1.RecordCount=0) then
ShowMessage('Введеной причины обращения нет в базе!')
else
begin
idPrich:=ADOQuery1.FieldByName('Num').AsString;
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Text:='Select MAX(nomer) as Num from dbo.gur_reg_org';
ADOQuery1.Close();
ADOQuery1.Open();
if(ADOQuery1.FieldByName('Num').AsString='NULL') then
id_gur_org:=1
else
id_gur_org:=ADOQuery1.FieldByName('Num').AsInteger+1;
147
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Text:='Insert into dbo.gur_reg_org
values('+IntToStr(idDocum)+','+IntToStr(id_gur_org)+','''+DocumNomText+''','''+NameOrgLabe
ledEdit.Text+''',GETDATE(),'''+idPrich+''','''+idLogin+''')';
ADOQuery1.Close();
ADOQuery1.ExecSQL();
ShowMessage('Выполнено');
end;
end;
end;
ADOConnection1.Close();
end;
procedure TAddForm.PersNumMaskEditKeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13) then
FamilyLabeledEdit.SetFocus;
end;
procedure TAddForm.FamilyLabeledEditKeyPress(Sender: TObject;
var Key: Char);
begin
if(Key=#13) then
Name1LabeledEdit.SetFocus;
end;
procedure TAddForm.Name1LabeledEditKeyPress(Sender: TObject;
var Key: Char);
begin
if(Key=#13) then
Name2LabeledEdit.SetFocus;
end;
procedure TAddForm.Name2LabeledEditKeyPress(Sender: TObject;
var Key: Char);
begin
if(Key=#13) then
DateRogDateTimePicker.SetFocus;
end;
procedure TAddForm.DateRogDateTimePickerKeyPress(Sender: TObject;
var Key: Char);
begin
148
if(Key=#13) then
VidDocumComboBox.SetFocus;
end;
procedure TAddForm.VidDocumComboBoxKeyPress(Sender: TObject;
var Key: Char);
begin
if(Key=#13) then
SeriaLabeledEdit.SetFocus;
end;
procedure TAddForm.SeriaLabeledEditKeyPress(Sender: TObject;
var Key: Char);
begin
if(Key=#13) then
NomerDLabeledEdit.SetFocus;
end;
procedure TAddForm.NomerDLabeledEditKeyPress(Sender: TObject;
var Key: Char);
begin
if(Key=#13) then
DateVidDateTimePicker.SetFocus;
end;
procedure TAddForm.DateVidDateTimePickerKeyPress(Sender: TObject;
var Key: Char);
begin
if(Key=#13) then
KemVydanLabeledEdit.SetFocus;
end;
procedure TAddForm.KemVydanLabeledEditKeyPress(Sender: TObject;
var Key: Char);
begin
if(Key=#13) then
NPLabeledEdit.SetFocus;
end;
procedure TAddForm.NPLabeledEditKeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13) then
UlicaLabeledEdit.SetFocus;
end;
procedure TAddForm.UlicaLabeledEditKeyPress(Sender: TObject;
149
var Key: Char);
begin
if(Key=#13) then
DomLabeledEdit.SetFocus;
end;
procedure TAddForm.DomLabeledEditKeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13) then
KorpLabeledEdit.SetFocus;
end;
procedure TAddForm.KorpLabeledEditKeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13) then
KvLabeledEdit.SetFocus;
end;
procedure TAddForm.KvLabeledEditKeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13) then
PrichObrComboBox.SetFocus;
end;
procedure TAddForm.TabSheet2Show(Sender: TObject);
var s:string;
begin
if((Alias='MSK') and (TabSheet2.Caption='Прочее')) then
begin
s:=TabSheet1.Caption;
TabSheet1.Caption:=TabSheet2.Caption;
TabSheet2.Caption:=s;
ADOConnection1.Open();
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Text:='Select REASON from dbo.RESON where metka=''CLS''';
ADOQuery1.Open();
ADOQuery1.First;
PrichObrComboBox.Items.Clear;
while not ADOQuery1.eof do
begin
PrichObrComboBox.Items.Add(ADOQuery1.FieldByName('REASON').AsString);
ADOQuery1.Next;
end;
ADOConnection1.Close;
end
150
else
begin
s:=TabSheet1.Caption;
TabSheet1.Caption:=TabSheet2.Caption;
TabSheet2.Caption:=s;
ADOConnection1.Open();
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Text:='Select REASON from dbo.RESON where metka=''MSK''';
ADOQuery1.Open();
ADOQuery1.First;
PrichObrComboBox.Items.Clear;
while not ADOQuery1.eof do
begin
PrichObrComboBox.Items.Add(ADOQuery1.FieldByName('REASON').AsString);
ADOQuery1.Next;
end;
ADOConnection1.Close;
end;
end;
procedure TAddForm.PageControl1Change(Sender: TObject);
begin
if((Alias='MSK') and(PageControl1.ActivePageIndex=1)) then
PageControl1.ActivePageIndex:=0;
end;
procedure TAddForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if(Key=#13) then
PersNumMaskEdit.SetFocus;
end;
procedure TAddForm.PersNumMaskEditClick(Sender: TObject);
begin
PersNumMaskEdit.SelStart:=0;
end;
procedure TAddForm.RegNMaskEditClick(Sender: TObject);
begin
RegNMaskEdit.SelStart:=0;
end;
end.