Загрузка данных


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    edTaskNum: TEdit;
    edExecutor: TEdit;
    edUnit: TEdit;
    edExecutorDef: TEdit;
    edStatus: TEdit;
    dtpTaskDate: TDateTimePicker;
    dtpPlanned: TDateTimePicker;
    dtpCheckDate: TDateTimePicker;
    dtpActual: TDateTimePicker;
    dtpExtra: TDateTimePicker;
    btnAdd: TButton;
    btnSave: TButton;
    btnCancel: TButton;
    btnDelete: TButton;
    btnFind: TButton;
    GroupBox1: TGroupBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

end.