0 / 0 / 0
Регистрация: 20.06.2016
Сообщений: 6
|
|
|
1
|
Перенос столбцов из IBExpert в Delphi
20.06.2016, 17:19. Показов 572. Ответов 1
в Датамодуль в коде есть столбцы, которые необходимо отобразить в главной форме в DBGid, но не они не отображаются. Хотя все модули подключены.
| Delphi | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
| unit DataModule1;
interface
uses
SysUtils, Classes, DB, IBDatabase, IBQuery, IBCustomDataSet, IBStoredProc;
type
TDM = class(TDataModule)
IBDatabase1: TIBDatabase;
IBStoredProc1: TIBStoredProc;
IBQuery1: TIBQuery;
IBTransaction1: TIBTransaction;
DataSource1: TDataSource;
IBQuery1KEY: TIntegerField;
IBQuery1INN: TIBStringField;
IBQuery1NAZVANIE_PREDPRIYATIA: TIBStringField;
IBQuery1GOROD: TIBStringField;
IBQuery1GOLOVNOE_FILIAL: TIBStringField;
IBQuery1NOMER_TELEFONA: TIBStringField;
IBQuery1PRIMECHANIE: TIBStringField;
procedure IBQuery1AfterScroll(DataSet: TDataSet);
end;
var
DM: TDM;
implementation
uses dobavredakt1, TelSprav1;
{$R *.dfm}
procedure TDM.IBQuery1AfterScroll(DataSet: TDataSet);
begin
//если форма для ввода и редактирования данных создана, то
if ExiStsDobRed = true then
begin
//помещаем в INN инн
DobRed.INN.Text:=DM.IBQuery1INN.Value;
//помещаем название предприятия
DobRed.Nazvanie_predpriyatia.Text:=DM.IBQuery1Nazvanie_predpriyatia.Value;
//помещаем город
DobRed.Gorod.Text:=DM.IBQuery1Gorod.Value;
//помещаем головное_филиал
DobRed.Golovnoe_filial.Text:=DM.IBQuery1Golovnoe_filial.Value;
//помещаем номер телефона
DobRed.Nomer_Telefona.Text:=DM.IBQuery1Nomer_telefona.Value;
//помещаем примечание
DobRed.Primechanie.Text:=DM.IBQuery1Primechanie.Value;
end;
end;
end. |
|
отображаться столбцы должны в этой форме
| Delphi | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
| unit TelSprav1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, ToolWin, ImgList, Grids, DBGrids, StdCtrls,
DataModule1, dobavredakt1;
type
TTelefonSprav = class(TForm)
MainMenu1: TMainMenu;
Fille: TMenuItem;
Zakrit: TMenuItem;
N1: TMenuItem;
RedaktirZap: TMenuItem;
DobavitZap: TMenuItem;
UdalitZap: TMenuItem;
Spravochniki: TMenuItem;
SpravochnikGorodov: TMenuItem;
Sortirovka: TMenuItem;
PoFamilii: TMenuItem;
PoTelefonu: TMenuItem;
PoPredpriyatiu: TMenuItem;
Spravka: TMenuItem;
ToolBar1: TToolBar;
Dob: TToolButton;
ToolButton1: TToolButton;
Redakt: TToolButton;
ToolButton2: TToolButton;
Udalit: TToolButton;
ImageList1: TImageList;
ToolButton3: TToolButton;
Exiit: TToolButton;
ToolButton4: TToolButton;
Label1: TLabel;
NazvaniePredpiyatia: TEdit;
ToolButton5: TToolButton;
Label2: TLabel;
Telefon: TEdit;
Naiti: TButton;
DBGrid1: TDBGrid;
procedure DobClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TelefonSprav: TTelefonSprav;
ExiStsDobRed: boolean=false;
implementation
{uses DataModule1, dobavredakt1;}
{$R *.dfm}
procedure TTelefonSprav.DobClick(Sender: TObject);
begin
{если была нажата кнопка "Dobavit", то делаем
переменную "ExiStsDobRed" активной}
ExiStsDobRed:=true;
//по нажатию кнопки "Dobavit" - "Tag=1"
tag:=1;
//делаем доступной кнопку "Dob"
DobRed.Dobav.Visible:=true;
//недоступной кнопку “red”
DobRed.Redakt.Visible:=false;
//открываем окно
DobRed.ShowModal;
end;
end. |
|
если нужно, могу больше данных предоставить
0
|
(
