inF.DBGrid1.SelectedRows.Countgt;0 then.RowCount:=MainF.DBGrid1.SelectedRows.Count + 1; j:=0 to MainF.DBGrid1.SelectedRows.Count - 1 do.DBGrid1.DataSource.DataSet.GotoBookmark(pointer(MainF.DBGrid1.SelectedRows.Items[j]));.Cells[0,j+1]:=MainF.DBGrid1.Fields[0].AsString;.Cells[1,j+1]:=MainF.DBGrid1.Fields[1].AsString;;j:=1 to Tab.RowCount - 1 do.ADOQuery1.Close; .ADOQuery1.SQL.Clear;:= SELECT Найменування FROM Вещевое_імущество WHERE Код_вещевого_імущества=raquo;+Tab.Cells[0,j];.ADOQuery1.SQL.Add(search);.ADOQuery1.Open;.Cells[0,j]:=MainF.DBGrid1.Fields[0].AsString;;;j:=1 to Tab.RowCount - 2 dok:=j + 1 to Tab.RowCount - 1 doTab.Cells [0, j] gt; Tab.Cells [0, k] then:=Tab.Cells[0,j];.Cells[0,j]:=Tab.Cells[0,k];.Cells[0,k]:=sdf;:=Tab.Cells[1,j];.Cells[1,j]:=Tab.Cells[1,k];.Cells[1,k]:=sdf;;;TSkladF.Button3Click(Sender: TObject) ;. Close ;; TSkladF.Button2Click (Sender: TObject) ;: Variant ;, j: Integer;:=CreateOleObject(laquo;Excel.Applicationraquo;);.Visible:=true;.WorkBooks.Add;.Worksheets[3].Delete;.Worksheets[2].Delete;.Worksheets[1].Name:=laquo;Выдача довольствия raquo ;; i:=0 to Tab.ColCount - 1 doj:=0 to Tab.RowCount - 1 do.Cells [j + 1, i + 1] .value:=Tab.Cells [i, j] ;; TSkladF.Button1Click (Sender: TObject); i: integer; i:=0 to Tab.RowCount - 1 doTab.Cells [0, i]=Edit1.Text then.Row:=i; ( Знайдена запис на + IntToStr (i) + рядку. ) (handle, PChar ( Такого предмета немає ), PChar ( Увага ), 48) MessageBox (handle, PChar ( Такого предмета немає ), PChar ( Увага ), 48) ;;; (handle, PChar ( Такого предмета немає ), PChar ( Увага ), 48)
end;.
Форма «Новий предмет»
unit New ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB,;=class (TForm): TDataSource ;: TADOTable;:TDBGrid ;: TDBNavigator ;: TDBEdit ;: TDBEdit ;: TLabel ;: TLabel ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem; N2Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TNewT; Main;
{$ R * .dfm} TNewT.N2Click (Sender: TObject) ;. show; .Close ;; TNewT.FormCreate (Sender: TObject);
begin;.
Форма «Звіти за період».
unit Otchet ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ComCtrls, Printers, Grids, DBGrids, DB, ADODB, Menus;=class (TForm): TRadioButton ;: TRadioButton ;: TButton ;: TLabel ;: TLabel ;: TButton ;: TPrinterSetupDialog ;: TDataSource ;: TADOTable ;: TDBGrid ;: TMainMenu ;: TMenuItem ;: TMenuItem ;: TMenuItem ;: TDateTimePicker ;: TDateTimePicker;
//procedure probel (k: integer); OKClick (Sender: TObject); PrntClick (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction); N2Click (Sender: TObject); N3Click (Sender: TObject); FormCreate (Sender: TObject);
{Private declarations}
{Public declarations} ;: TOtchetF; Main;
{$ R * .dfm} TOtchetF.OKClick (Sender: TObject); Com.Checked then.Active:=False; .TableName:= Запит на прихід raquo ;;. Filter:= Дата gt;= + DateToStr (D1.Date) + AND Дата lt;= + DateToStr (D2.Date) ;. Filtered:=True; .Active:=True; .Visible:=True; else begin.Active:=False; .TableName:= Запит на витрату raquo ;;. Filter:= laquo ; Дата gt;= + DateToStr (D1.Date) + AND Дата lt;= + DateToStr (D2.Date) ;. Filtered:=True; .Active:=True; .Visible:=True ;;;; TOtchetF.PrntClick (Sender: TObject); Prntr: TPrinter;:=Printer; .ClientHeight:= 685; .Visible:=false;
OtchetF.Show; ( Для правильної друку потрібно, щоб Налаштування друку не накладає на форму звіту при натисканні кнопки ОК. );
if PrinterSetupDialog1.Execute then.BeginDoc; .Canvas.CopyRect (Rect (100,150, Prntr.PageWidth - 100, Prntr.PageHeight - 150),OtchetF.Canvas,Rect(0,0,OtchetF.ClientWidth,OtchetF.ClientHeight));.EndDoc;.Visible:=true;.ClientHeight:=717;;;TOtchetF.FormClose(Sender: TObject; var Action: TCloseAction) ;. ClientHeight:=717; .Visible:=true ;; TOtchetF.N2Click (Sender: TObject) ;. Close; .Show ;; TOtchetF.N3Click (Sender: TObject) ;. Close ;; TOtchetF.FormCreate (Sender: TObject) ;;.
Форма «Вхід» .Vxod ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls, TeeProcs, TeEngine, Chart, Series, DB, ADODB;=class (TForm): TLabel;:TLabel ;: TButton ;: TButton ;: TEdit ;: TEdit ;: TButton ;: TADOQuery ;: TADOConnection; Button3Click (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject); FormCreate (Sender: TObject ); FormShow (Sender: TObject); GClick (Sender: TObject); graf (k: longint);
{Private declarations}
{Public declarations} ;: TVxod; Main;
{$ R * .dfm} TVxod.Button3Click (Sender: TObject); ( Введіть Ваше ім'я користувача і пароль! , mtinformation, [mbOk], 0) ;; TVxod.Button2Click (Sender: TObject) ; .Terminate ;; TVxod.Button1Click (Sender: TObject) ;: string;: boolean; (Lo...
