1. ., . -: - / Center for Information Systems Research, Sloan, 2009.
2. ., . : , . .: , 2008.
3. .., .. . .: , 2008.
4. http://www.iprbookshop.ru/
5. ., . : . - .: , 2006.
6. . . : / . . .: , 2005.
7. . ., . . . . - .: ; , 2004.
8. . . . .: , 2006.
9. .., .., .. , . .: , 2008.
10. - : Visual Basic, Delphi, Borland Pascal
11. http://www.silicontaiga.ru/
12. http://www.cio-world.ru/ CIO
13. http://www.erp-online.ru/ ERP-
1
.
. 9 -
. 10 Delphi 7
. 11
. 12 . Delphi 7.
. 13 Windows XP
. 14 .
. 15 .
2
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses unit5, unit6, unit7, unit3;
{$R *.dfm}
procedure TForm2.Button2Click(Sender: TObject);
begin
if not assigned(table_edit) then
table_edit:=Ttable_edit.create(self);
table_edit.Show;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
if not assigned(cost_edit) then
cost_edit:=Tcost_edit.create(self);
cost_edit.Show;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
if not assigned(recost_edit) then
|
|
|
recost_edit:=Trecost_edit.create(self);
recost_edit.Show;
end;
end.
:
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, StdCtrls;
type
Ttable_edit = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
DBGrid1: TDBGrid;
table_list: TComboBox;
Button2: TButton;
OpenDialog1: TOpenDialog;
Button1: TButton;
Panel3: TPanel;
Edit1: TEdit;
Button6: TButton;
Button7: TButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
procedure FormShow(Sender: TObject);
procedure table_listSelect(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
table_edit: Ttable_edit;
implementation
uses unit3, Unit2;
{$R *.dfm}
procedure Ttable_edit.FormShow(Sender: TObject);
begin
DataBase.ADOConnection1.GetTableNames(table_list.Items);
end;
procedure Ttable_edit.table_listSelect(Sender: TObject);
begin
DataBase.ADOTable1.Active:=false;
DataBase.ADOTable1.TableName:=table_list.Text;
DataBase.ADOTable1.Active:=true;
end;
procedure Ttable_edit.Button2Click(Sender: TObject);
begin
if opendialog1.Execute=true then
begin
DataBase.ADOConnection1.Connected:=false;
DataBase.ADOTable1.Active:=false;
DataBase.ADOConnection1.ConnectionString:=opendialog1.FileName;
DataBase.ADOConnection1.GetTableNames(table_list.Items);
DataBase.ADOConnection1.Connected:=true;
DataBase.ADOTable1.Active:=true;
end
end;
procedure Ttable_edit.Button1Click(Sender: TObject);
begin
if DataBase.ADOTable1.Modified=true then
DataBase.ADOTable1.Post;
end;
procedure Ttable_edit.Button7Click(Sender: TObject);
var i:integer; //
Edit:array [0..6] of string; //
begin
i:=0;
Edit [0]:=edit1.Text;
Edit [1]:=edit2.Text;
Edit [2]:=edit3.Text;
Edit [3]:=edit4.Text;
Edit [4]:=edit5.Text;
Edit [5]:=edit6.Text;
Edit [6]:=edit6.Text;
DataBase.ADOTable1.Open;
DataBase.ADOTable1.Edit;
DataBase.ADOTable1.Insert;
for i:=0 to 6 do
begin
DataBase.ADOTable1.Fields[i+1].AsString:=list[i];
end;
DataBase.ADOTable1.Post;
DataBase.ADOTable1.Close;
DataBase.ADOTable1.Active:=true; //
end;
procedure Ttable_edit.Button6Click(Sender: TObject);
begin
DataBase.ADOTable1.Open; //
DataBase.ADOTable1.Edit; //
DataBase.ADOTable1.Delete; //
DataBase.ADOTable1.Close; //
DataBase.ADOTable1.Active:=true; //
end;
procedure Ttable_edit.FormCreate(Sender: TObject);
begin
DataBase.ADOConnection1.Connected:=false;
DataBase.ADOTable1.Active:=false; //
DataBase.ADOConnection1.ConnectionString:='cadr.mdb'; //
DataBase.ADOConnection1.GetTableNames(table_list.Items);
DataBase.ADOTable1.TableName:= table_list.Items.Strings[0];
|
|
|
DataBase.ADOConnection1.Connected:=true;
DataBase.ADOTable1.Active:=true; //
form2.Visible:=false; //
end;
procedure Ttable_edit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Close; //
end;
end.
3
| - _________________.. _____________________2014 . | - _________________.. _____________________2014 . |
| - _________________.. __________________2014 . |
001
2014 .
1 , , ,
1.1 : .
1.2 : 001.
1.3 : . . 1 2014 . 001.
1.4 : Nice Softaware, . .
1.5 : 1 2014 .
2 ,
2.1 , .
2.2
3
3.1
3.1.1 Windows XP SP3, 32 .
3.1.2 86 1 . 1.
3.1.3 :
-. Asrock, LGA775.
- Pentium Dual Core E6600 3.31.
- Intel G41.
- Realtek 10/100Mbit.
- 300, HuntKey.
- RAM DDR3 1600 3 . Zeppelin.
3.2
3.2.1 :
3.2.1.1 .
, , .
:
| | | 1986 | | 2009
:
" ", " ", " ".
, :
" ".
"", "" (. ) " ".
3.2.1.2 .
, , .
:
| - | |
:
" ", " ", " ".
, :
:
"", , , . .
3.2.1.3 /.
, .
:
| | | (.. /)
:
" ", " ", " ".
, :
:
,
|
|
|
4 -
4.1 -
5 -
6.1. , :
6.1.1.
6.1.2.
6.1.3. FAQ ( )
6
6.1 .
7
7.1 , . . 1 2014 . 001.
8
8.1 15 .
. .
