Вот код 1 формы с таблицей:
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, DB, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, Menus,
ComCtrls, ToolWin, ImgList, XPMan;
const //объявляем необходимую константу
QuerySQL = 'SELECT * FROM Corespondents';
type
TMain = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
sql1: TADOQuery;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
ImageList1: TImageList;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
XPManifest1: TXPManifest;
ToolBar2: TToolBar;
ToolButton5: TToolButton;
ImageList2: TImageList;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
PopupMenu1: TPopupMenu;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
ADOConnection1: TADOConnection;
procedure FormCreate(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Main: TMain;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit10, Unit11;
{$R *.dfm}
procedure TMain.FormCreate(Sender: TObject);
begin
sql1.SQL.Add(QuerySQL);
sql1.Open;
end;
procedure TMain.DBGrid1TitleClick(Column: TColumn);
begin
with sql1 do
begin
DisableControls;
SQL.Clear;
Close;
SQL.Add(QuerySQL);
SQL.Add('ORDER BY ' + Column.FieldName);
Open;
// Восстанавливаем настройки заголовка
EnableControls;
end;
end;
procedure TMain.N2Click(Sender: TObject);
begin
Firm.showmodal;
end;
procedure TMain.N3Click(Sender: TObject);
begin
City.showmodal;
end;
procedure TMain.N5Click(Sender: TObject);
begin
Contry.showmodal;
end;
procedure TMain.N4Click(Sender: TObject);
begin
Region.showmodal;
end;
procedure TMain.N7Click(Sender: TObject);
begin
close;
end;
procedure TMain.ToolButton1Click(Sender: TObject);
begin
N2.Click;
end;
procedure TMain.ToolButton2Click(Sender: TObject);
begin
n5.Click
end;
procedure TMain.ToolButton3Click(Sender: TObject);
begin
n3.Click
end;
procedure TMain.ToolButton4Click(Sender: TObject);
begin
n4.Click;
end;
procedure TMain.ToolButton7Click(Sender: TObject);
begin
sql1.First;
end;
procedure TMain.ToolButton6Click(Sender: TObject);
begin
sql1.Delete;
end;
procedure TMain.ToolButton8Click(Sender: TObject);
begin
sql1.Prior;
end;
procedure TMain.ToolButton9Click(Sender: TObject);
begin
sql1.Next;
end;
procedure TMain.ToolButton10Click(Sender: TObject);
begin
sql1.Last;
end;
procedure TMain.ToolButton5Click(Sender: TObject);
begin
coredit.Caption:='Добавление записи в таблицу';
main.sql1.Append;
coredit.ShowModal;
end;
procedure TMain.ToolButton11Click(Sender: TObject);
begin
coredit.showmodal;
end;
procedure TMain.N8Click(Sender: TObject);
begin
ToolButton5.Click;
end;
procedure TMain.N9Click(Sender: TObject);
begin
ToolButton11.Click;
end;
procedure TMain.N10Click(Sender: TObject);
begin
ToolButton6.Click;
end;
procedure TMain.N11Click(Sender: TObject);
begin
ToolButton7.Click;
end;
procedure TMain.N12Click(Sender: TObject);
begin
ToolButton8.Click;
end;
procedure TMain.N13Click(Sender: TObject);
begin
ToolButton9.Click;
end;
procedure TMain.N14Click(Sender: TObject);
begin
ToolButton10.Click;
end;
procedure TMain.N16Click(Sender: TObject);
begin
StatContry.showmodal;
end;
procedure TMain.N17Click(Sender: TObject);
begin
StatRegion.showmodal;
end;
end.
|
Вот Код формы которая сохраняет изменения в таблице:
| Код |
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtDlgs;
type
TCoredit = class(TForm)
Label1: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label2: TLabel;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
OpenPicDlg: TOpenPictureDialog;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label9: TLabel;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
DBEdit6: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
// procedure FormActivate(Sender: TObject);
// procedure FormDeactivate(Sender: TObject);
//procedure DBComboBox1Enter(Sender: TObject);
//procedure DBComboBox2Enter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Coredit: TCoredit;
implementation
uses Unit1, Unit3, Unit5, Unit4;
{$R *.dfm}
procedure TCoredit.Button1Click(Sender: TObject);
begin
if openpicdlg.execute
then
dbedit8.Text:=openpicdlg.FileName;
end;
procedure TCoredit.Button2Click(Sender: TObject);
begin
//dbCombobox1.Text:=inttostr(dbcombobox1.ItemIndex);
//dbCombobox2.Text:=inttostr(dbcombobox1.ItemIndex);
//dbCombobox3.Text:=inttostr(dbcombobox1.ItemIndex);
main.sql1.Edit;
main.sql1.Post;
coredit.Close;
coredit.Caption:='Изменить запись';
end;
procedure TCoredit.Button3Click(Sender: TObject);
begin
main.sql1.cancel;
coredit.Close;
coredit.Caption:='Изменить запись';
end;
procedure TCoredit.FormClose(Sender: TObject; var Action: TCloseAction);
begin
main.sql1.Cancel;
end;
|
Пожалуйста помоги, я просто не знаю что и делать. Чего я только не пробовал.
|
И при чём это происходит только с одной таблицей (с которой я работаю на главной форме)
А почему с запросом не работает не знаю...хотя раньше всё работало. 