If Messagedlg 'Аќпаратты жоясыз ба
жүктеу/скачать 0,63 Mb.
|
керек шыгар БАЛКИМ
|
Тез іздеу Table1.IndexName:='orin'; Table1.FindNearest([Edit6.Text]); Фильтр Form1.table1.filtered:=true; If RadioGroup1.ItemIndex=0 then form1.table1.filter:='Continent='+''''+edit1.text+''''; МҚ ақпаратты сақтау If Table1.State in [DsInsert,DsEdit] then Table1.Post; МҚ ақпаратты жою If table1.State=DsBrowse then If Messagedlg('Аќпаратты жоясыз ба?', mtconfirmation, [mbYes,mbNO],0) =mrYes then Table1.delete; МҚ ақпаратты қосу If table1.State=DsBrowse then Table1.Insert; МҚ ақпаратты іздеу If checkListBox1.Checked[0] then begin query1.SQL.Clear; query1.SQL.Add('select * from poezd where poezd=:poezd'); query1.Close; query1.ParamByName('poezd').Value:=edit1.Text; query1.Open; DBGrid1.DataSource:=Datasource2; Edit1.SetFocus; checkListBox1.Checked[0]:=false; end; //установка фильтра по дате вылета. После выбора даты вызывается эта процедура procedure TForm1.dtFilterCloseUp(Sender: TObject); begin CDSSold.AfterScroll := nil; FltDat := 'DatFly='+QuotedStr(DateToStr(dtFilter.Date)); //строка выражения фильтра CDSSold.Filter := FltDat; //присваиваем эту строку свойству Filter if FltRace <> '' then //если ранее был установлен фильтр и по направлению, CDSSold.Filter := FltDat + ' and '+ FltRace; //то строка фильтра дополняется и фильтром направления (через "and") CDSSold.Filtered := True; //присвоение этому свойству True запускает фильтр CDSSold.AfterScroll := CDSSoldAfterScroll; sbCancelFilterDat.Enabled := True; //делаем доступной кнопку, по которой можно фильтр убрать lDat.Caption := 'Ф'; end; //удаление (снятие) фильтра по дате вылета procedure TForm1.sbCancelFilterDatClick(Sender: TObject); begin CDSSold.AfterScroll := nil; FltDat := ''; if FltRace <> '' then begin //если фильтр по направлению рейса установлен, CDSSold.Filter := FltRace; //оставляем только его CDSSold.Filtered := True; end else begin //если фильтр по направлению не был ранее установлен, то CDSSold.Filter := ''; //строку фильтра вообще очищаем CDSSold.Filtered := False; end; CDSSold.AfterScroll := CDSSoldAfterScroll; sbCancelFilterDat.Enabled := False; //запрещаем нажатие кнопки сброса фильтра lDat.Caption := ''; end; толық жазып фильтрлеу CDSSold.AfterScroll := nil; if cbRace.ItemIndex = 0 then begin //индекс строки в списке раный 0 FltRace := ''; if FltDat <> '' then begin CDSSold.Filter := FltDat; CDSSold.Filtered := True; end else begin CDSSold.Filter := ''; CDSSold.Filtered := False; end; lRace.Caption := ''; end else begin FltRace := 'Race='+QuotedStr(cbRace.Items[cbRace.ItemIndex]); CDSSold.Filter := FltRace; if FltDat <> '' then CDSSold.Filter := FltDat + ' and '+ FltRace; CDSSold.Filtered := True; lRace.Caption := 'Ф'; end; CDSSold.AfterScroll := CDSSoldAfterScroll; end; Байланыс жасау procedure TForm12.FormCreate(Sender: TObject); Var i: integer; Begin ComboBox1.Items.Clear; ComboBox2.Items.Clear; form3.DBGrid1.DataSource.DataSet.First; form4.DBGrid1.DataSource.DataSet.First; For i:=0 to form3.DBGrid1.DataSource.DataSet.RecordCount-1 do begin ComboBox1.Items.Add (form4.DBGrid1.Fields [1].Text); ComboBox2.Items.Add (form3.DBGrid1.Fields [1].Text); ComboBox3.Items.Add (form6.DBGrid1.Fields [3].Text); form3.DBGrid1.DataSource.DataSet.Next; form4.DBGrid1.DataSource.DataSet.Next; form6.DBGrid1.DataSource.DataSet.Next; End; МҚ жазу Form10.Table1.FieldValues['Data']:=DateTimePicker1.Date; Form10.Table1.FieldValues['Time']:=DateTimePicker2.Time; Жүгіртпе жол procedure TForm1.FormCreate(Sender: TObject); begin a:=' -__"Тағамдар рецепі" бағдарламасына кош келдіңіздер!__- ' end; procedure TForm1.Timer1Timer(Sender: TObject); var i:integer; begin application.Title:=a; form1.Caption:=a; for i:=1 to (length(a)-1) do a[i]:=application.title[i+1]; a[length(a)]:=application.title[1]; end; Алғашқы терезе procedure TForm1.Timer1Timer(Sender: TObject); begin close; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action:=caFree; end; procedure TForm2.FormShow(Sender: TObject); begin Form1.showModal; end; Excelге шығару Uses ComObj var XLApp,Sheet,Colum:Variant; begin XLApp:=CreateOleObject('Excel.Application'); XLApp.Visible:=true; XLApp.Workbooks.Add (-4167); XLApp.Workbooks[1].WorkSheets[1].Name:='Отчет'; Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Columns; Colum.Columns[1].ColumnWidth:=25; Colum.Columns[2].ColumnWidth:=20; Colum.Columns[3].ColumnWidth:=20; Colum.Columns[4].ColumnWidth:=20; Colum.Columns[5].ColumnWidth:=20; Colum:=XLApp.Workbooks[1].WorkSheets['Отчет'].Rows; Colum.Columns[1].Font.Bold:=true; Colum.Rows[1].Font.Bold:=true; Colum.Rows[1].Font.Color:=clred; Colum.Rows[1].Font.Size:=14; Sheet:=XLApp.Workbooks[1].WorkSheets['Отчет']; Sheet.Cells[1,2]:='Жолдама қағазды ашу'; Sheet.Cells[2,2]:=' Күні '; Sheet.Cells[3,2]:='Уақыты'; Sheet.Cells[4,1]:='Жолдама №'; Sheet.Cells[6,3]:='Автокөлік туралы ақпарат'; Sheet.Cells[7,1]:='Авто көлік'; Sheet.Cells[8,1]:='Жүргізуші'; Sheet.Cells[10,1]:='Материал'; Sheet.Cells[11,1]:='Жіберу орны'; Sheet.Cells[12,1]:='Келу орны'; Sheet.Cells[2,3]:=datetostr(DateTimePicker1.Date); Sheet.Cells[3,3]:=timetostr(DateTimePicker2.Time); Sheet.Cells[4,2]:=Edit3.text; Sheet.Cells[7,2]:=combobox1.text; Sheet.Cells[8,2]:=combobox2.text; Sheet.Cells[10,2]:=combobox3.text; Sheet.Cells[11,2]:=Edit5.text; Sheet.Cells[12,2]:=combobox5.text; Sheet.Cells[14,2]:='Берілген мерзімі: '; Sheet.Cells[14,3]:=datetostr(date); end; Әріптеп іздеу if edit2.Text <> '' then SpeedButton7.Enabled := True else SpeedButton7.Enabled := False; Table1.AfterScroll := nil; if edit2.Text <> '' then begin FltDat := ''; Fltobk := ''; Table1.Filter := 'obekt='+QuotedStr(edit2.Text+'*'); Table1.Filtered := True; end else begin Table1.Filter := ''; Table1.Filtered := True; end; Table1.AfterScroll := Table1.AfterScroll; жүктеу/скачать 0,63 Mb. Достарыңызбен бөлісу:
|