var Accept: Boolean);
begin
Accept:=Dataset[pole]=edit1.text;
end;
Форма 5 на ней показана информация о Программе.
ЗАКЛЮЧЕНИЕ
Данная программа пригодится небольшим фирмам занимающихся продажей и учетом лекарственных средств. Моя программа облегчит им работу, уменьшит работу с бумагами накладными и т.д.
После разработки своей программы я узнал более подробно о языке программирования Delphi и приложений к нему в частности BDE Administrator и Database Desktop . BDE Administrator нужен для установления псевдонима. При переносе базы данных на другой компьютер надо обязательно установить псевдоним т.е. каталог где она находится иначе при запуске базы данных выйдет сообщение об ошибке. Database Desktop нужна для создания и редактирования таблиц баз данных. Язык программирования Delphi является более простым для написания баз данных в нем есть все возможные компоненты упрощающие работу. На Delphi написано довольно большое число баз данных.
ЛИТЕРАТУРА
1. Delphi 3 и создание приложений баз данных Шумаков П.В. 704 с. иллюстрации есть.
2. Delphi 4 для профессионалов издание Питер М.Кенту 1088 с. иллюстрации есть.
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Grids, DBGrids, Db, DBTables, ComCtrls, Menus,
Buttons, Mask, DBCtrls;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
Label1: TLabel;
Panel1: TPanel;
GroupBox2: TGroupBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
GroupBox3: TGroupBox;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
N3: TMenuItem;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
SQL1: TMenuItem;
RadioGroup1: TRadioGroup;
CheckBox1: TCheckBox;
Edit1: TEdit;
Button6: TButton;
StatusBar1: TStatusBar;
N4: TMenuItem;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure SQL1Click(Sender: TObject);
procedure Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
procedure CheckBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ShowHint(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
If table1.State = dsBrowse then
table1.insert;
procedure TForm1.Button2Click(Sender: TObject);
table1.edit;
procedure TForm1.Button3Click(Sender: TObject);
If Messagedlg('',mtconfirmation,[mbYes,mbNo],0)=mrYes then
table1.delete;
procedure TForm1.Button4Click(Sender: TObject);
If table1.State in [dsInsert,dsEdit]then
table1.post;
procedure TForm1.Button5Click(Sender: TObject);
table1.Cancel;
procedure TForm1.BitBtn3Click(Sender: TObject);
Form2.show;
Form1.hide;
procedure TForm1.BitBtn4Click(Sender: TObject);
Form3.show;
procedure TForm1.N3Click(Sender: TObject);
close;
procedure TForm1.SQL1Click(Sender: TObject);
Form4.show;
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
Accept:=Dataset['Name_lek'] = Edit1.text;
procedure TForm1.CheckBox1Click(Sender: TObject);
Table1.Filtered:=CheckBox1.Checked;
Table1.Filtered:=true;
procedure TForm1.FormCreate(Sender: TObject);
Application.OnHint := ShowHint;
procedure TForm1.ShowHint(Sender: TObject);
StatusBar1.Panels[0].text := Application.Hint;
procedure TForm1.N4Click(Sender: TObject);
Form5.show;
procedure TForm1.Button6Click(Sender: TObject);
Table1.Filtered:=False;
end.
unit Unit2;
Grids, DBGrids, Db, DBTables, StdCtrls, ExtCtrls, ComCtrls, Buttons,
Mask, DBCtrls;
TForm2 = class(TForm)
DBGrid2: TDBGrid;
DataSource2: TDataSource;
Table2: TTable;
Button7: TButton;
Button8: TButton;
Label2: TLabel;
GroupBox4: TGroupBox;
Button9: TButton;
GroupBox5: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBEdit6: TDBEdit;
procedure Button9Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure OnActivate(Sender: TObject);
Form2: TForm2;
uses Unit1, Unit3;
procedure TForm2.Button1Click(Sender: TObject);
procedure TForm2.Button2Click(Sender: TObject);
procedure TForm2.Button3Click(Sender: TObject);
procedure TForm2.Button4Click(Sender: TObject);
procedure TForm2.Button9Click(Sender: TObject);
Страницы: 1, 2, 3, 4, 5