Анализ требований к автоматизированным информационным системам

align="justify">else

//при  снятом флаге CheckBox2 не учитывается  заголовок, т.е. начальная строка  у листов где нет заголовка  = 1,

//а где  есть заголовок = 2

begin

//предполагаем что заголовок имеет рамку, и проверяем первую ячейку А1 на её наличие

  //XL.Visible := True;

  XL.Workbooks[1].Worksheets[nom_list].Cells[1,1].select;

  xlEdgeRight := 10;

  if XL.Selection.Borders[xlEdgeRight].LineStyle = 1 then

// = 1 есть  правая линия рамки, т.е. заголовок есть. Обходим его без флага

    str_n := 2

  else

// = -4142 то рамки нет  

    str_n := 1;

  //XL.Visible := false;

end;

End;

procedure TForm1.Button4Click(Sender: TObject);

begin

if ListBox2.ItemIndex=-1 then Application.MessageBox('   Выберите файл, чтобы открыть   ','Открыть',MB_OK);

if ListBox2.ItemIndex<>-1 then begin

   ShellExecute(Handle,nil,Pchar(path_txt + '\' + ListBox2.Items.Strings[ListBox2.ItemIndex]),'','',SW_SHOW); end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

//if ListBox1.ItemIndex=-1 then Application.MessageBox('   Выберите файл, чтобы открыть   ','Открыть',MB_OK);

//if ListBox1.ItemIndex<>-1 then begin

   //ShellExecute(Handle,nil,Pchar(path_xls + '\' + ListBox1.Items.Strings[ListBox1.ItemIndex]),'','',SW_SHOW); end;

if CheckListBox1.ItemIndex=-1 then Application.MessageBox('   Выберите файл, чтобы открыть   ','Открыть',MB_OK);

if CheckListBox1.ItemIndex<>-1 then begin

   ShellExecute(Handle,nil,Pchar(path_xls + '\' + CheckListBox1.Items.Strings[CheckListBox1.ItemIndex]),'','',SW_SHOW); end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.ShellTreeView1.Path := p_defa_xls;  //путь по умолчанию - папка в каталоге программы

Form2.Caption := 'Укажите каталог файлов .XLS';

Form2.ShowModal;  //открытие окна определения пути

if not prz_vib_p then Exit; //выход из процед.,если путь  не выбран

path_xls := p;

//p := ExtractFileDir(Application.ExeName)+'\Excel\';

s := path_xls + '\*.xls'#0;

CheckListBox1.Clear;

CheckListBox1.Perform(LB_DIR, DDL_ReadWrite, Longint(@S[1]));  {заполняем список .xls}

//если  флаг CheckBox1 не выставлен, товыставляем  влаги в списке CheckListBox1

{

if not CheckBox1.Checked then

  for i:=0 to CheckListBox1.Items.Count - 1 do

    CheckListBox1.Checked[i] := True;

}

RadioGroup1.ItemIndex := 1;

end;

procedure TForm1.ListBox2DblClick(Sender: TObject);

begin

Button4Click(Sender);

end;

procedure TForm1.CheckListBox1DblClick(Sender: TObject);

begin

Button5Click(Sender);

end;

procedure TForm1.CheckListBox1Click(Sender: TObject);

var s1:string;

begin

ListBox2.MultiSelect := False;

s1 := CheckListBox1.Items.Strings[CheckListBox1.ItemIndex];

s1 := copy(s1, 1, pos('.xls',s1)-1);  //исключаем расширение

ListBox2.MultiSelect := true;

for i := 0 to ListBox2.Items.Count - 1 do

//ищем  сопадение названия ф.Екс без расширения с 1 позицией ф.тхт и за именем следует знак _

  if (pos(s1, ListBox2.Items.Strings[i]) = 1)and(ListBox2.Items.Strings[i][Length(s1) + 1] = '_') then

  //begin  ListBox2.ItemIndex := i; break; end; //выделение первого файла .тхт из группы с именем от указанного ф.екселя

    ListBox2.Selected[i] := True; //выделение свех  файлов .тхт группы с именем  от указанного ф.екселя

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

if RadioGroup1.ItemIndex = 0 then

  for i:=0 to CheckListBox1.Items.Count - 1 do

    CheckListBox1.Checked[i] := True;

if RadioGroup1.ItemIndex = 1 then

  for i:=0 to CheckListBox1.Items.Count - 1 do

    CheckListBox1.Checked[i] := False;

end;

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Заключение 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Список  использованной литературы