Исходный код программы
unit cl1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, DBCtrls, Grids, DBGrids, StdCtrls, ExtCtrls, Menus;
type
TForm8 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Button1: TButton;
Edit1: TEdit;
DBNavigator1: TDBNavigator;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
Panel3: TPanel;
ADOTable1Fio: TStringField;
ADOTable1summa: TIntegerField;
ADOTable1photo: TBlobField;
DBGrid1: TDBGrid;
PopupMenu1: TPopupMenu;
Show1: TMenuItem;
Exit1: TMenuItem;
Button2: TButton;
DBImage1: TDBImage;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Show1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;buf:TBlobbyteData;St:TStream;
implementation
{$R *.dfm}
procedure TForm8.Button1Click(Sender: TObject);
var s:string;
begin
s:=Edit1.Text;
Adotable1.Locate('Fio',s,[])
end;
procedure TForm8.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
ADOTable1.Edit;
TBLOBField(ADOTable1.FieldByName('photo')).LoadFromFile( OpenDialog1.FileName);
AdoTAble1.Post;
end else
Exit;
end;
procedure TForm8.Button3Click(Sender: TObject);
begin
if SaveDialog1.Execute then
begin
// ADOTable1.Edit;
TBLOBField(ADOTable1.FieldByName('photo')).SaveToFile(SaveDialog1.FileName);
// AdoTAble1.Post;
end else
Exit;
end;
procedure TForm8.Show1Click(Sender: TObject);
begin
Showmessage('No');
end;
end.
П
риложение
Б
МИНОБРНАУКИ РОССИИ
Федеральное государственное бюджетное образовательное учреждение
высшего образования
«Чувашский государственный университет имени И.Н.Ульянова»
Последний лист курсового проекта
Курсовой проект выполнен мной самостоятельно. Все использованные в работе материалы из опубликованной научной и технической литературы, а также из других источников отмечены в виде ссылок в курсовом проекте.
Курсовой проект не содержит сведения, содержащие государственную и/или коммерческую тайну.
Оценка оригинальности текста ВКР по системе «Антиплагиат.ВУЗ» составляет ____%.
«_______»___________________2016 г.
____________________________ Иванов И.И. (подпись)