質問編集履歴
3
追記2 試行結果
test
CHANGED
File without changes
|
test
CHANGED
@@ -145,3 +145,5 @@
|
|
145
145
|
<追記2>
|
146
146
|
|
147
147
|
簡略化したコードを眺めて気づいたのですが、DataModuleitems.FDQmitem_list2に検索でSQL文を埋めた後、再表示すると元のSQL文をまた再表示してしまってることに気づきました。テーブルを別々にして試してみようと思います。
|
148
|
+
|
149
|
+
⇒データクエリを二つ作ってみたのですが、表示するグリッドを一つにしたいので断念しました。
|
2
追記2
test
CHANGED
File without changes
|
test
CHANGED
@@ -139,3 +139,9 @@
|
|
139
139
|
検索フレームのソースコード、表示、検索、閉じるを追記。必要ない箇所はかなり簡略化しました。
|
140
140
|
|
141
141
|
SQL文とデータベース側は問題ないかと思われるのでテーブル情報は一先ず置いておいきます。
|
142
|
+
|
143
|
+
|
144
|
+
|
145
|
+
<追記2>
|
146
|
+
|
147
|
+
簡略化したコードを眺めて気づいたのですが、DataModuleitems.FDQmitem_list2に検索でSQL文を埋めた後、再表示すると元のSQL文をまた再表示してしまってることに気づきました。テーブルを別々にして試してみようと思います。
|
1
検索フォーム側のソースコードの追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -16,15 +16,111 @@
|
|
16
16
|
|
17
17
|
### 該当のソースコード
|
18
18
|
|
19
|
-
|
19
|
+
```Delphi
|
20
20
|
|
21
|
+
// 表示初期化
|
22
|
+
|
23
|
+
procedure Tfrmitems2.FormShow(Sender: TObject);
|
24
|
+
|
25
|
+
var
|
26
|
+
|
27
|
+
strSQL : String;
|
28
|
+
|
29
|
+
begin
|
30
|
+
|
31
|
+
DataModuleitems.openModule;
|
32
|
+
|
33
|
+
|
34
|
+
|
35
|
+
strSQL := 'select 省略';
|
36
|
+
|
37
|
+
with DataModuleitems.FDQmitem_list2 do
|
38
|
+
|
39
|
+
begin
|
40
|
+
|
41
|
+
SQL.Text := strSQL;
|
42
|
+
|
43
|
+
Active := False;
|
44
|
+
|
45
|
+
Active := True;
|
46
|
+
|
47
|
+
end;
|
48
|
+
|
49
|
+
|
50
|
+
|
51
|
+
end;
|
52
|
+
|
53
|
+
|
54
|
+
|
55
|
+
|
56
|
+
|
57
|
+
// 検索
|
58
|
+
|
59
|
+
procedure Tfrmitems2.FrmBtn41btnsrchClick(Sender: TObject);
|
60
|
+
|
61
|
+
var
|
62
|
+
|
63
|
+
strSQL1 : String;
|
64
|
+
|
65
|
+
strSQL2 : String;
|
66
|
+
|
67
|
+
begin
|
68
|
+
|
69
|
+
FrmBtn41.btnsrchClick(Sender);
|
70
|
+
|
71
|
+
|
72
|
+
|
73
|
+
strSQL1 := 'select 省略 '
|
74
|
+
|
21
|
-
|
75
|
+
strSQL2 := '省略';
|
76
|
+
|
77
|
+
|
78
|
+
|
79
|
+
strSQL1 := strSQL1 + strSQL2 + ' order by 省略';
|
80
|
+
|
81
|
+
with DataModuleitems.FDQmitem_list2 do
|
82
|
+
|
83
|
+
begin
|
84
|
+
|
85
|
+
SQL.Text := strSQL1;
|
86
|
+
|
87
|
+
Active := False;
|
88
|
+
|
89
|
+
Active := True;
|
90
|
+
|
91
|
+
end;
|
92
|
+
|
93
|
+
|
94
|
+
|
95
|
+
end;
|
96
|
+
|
97
|
+
|
98
|
+
|
99
|
+
// 閉じる
|
100
|
+
|
101
|
+
procedure Tfrmitems2.FormClose(Sender: TObject;
|
102
|
+
|
103
|
+
var Action: TCloseAction);
|
104
|
+
|
105
|
+
begin
|
106
|
+
|
107
|
+
DataModulePickitems.closeModule;
|
108
|
+
|
109
|
+
end;
|
110
|
+
|
111
|
+
|
112
|
+
|
113
|
+
|
114
|
+
|
115
|
+
```
|
116
|
+
|
117
|
+
|
22
118
|
|
23
119
|
|
24
120
|
|
25
121
|
### 試したこと
|
26
122
|
|
27
|
-
上記の仕様が出来ているフレームがありそちらと見比べて、表示初期化、検索、クローズのソースコード、プロパティ、イベントなどを一通り見比べて修正デバッグ実行を試したのですが、上手くいきませんでした。
|
123
|
+
上記の仕様が出来ているフレームがあり、そちらと見比べて、表示初期化、検索、クローズのソースコード、プロパティ、イベントなどを一通り見比べて修正デバッグ実行を試したのですが、上手くいきませんでした。
|
28
124
|
|
29
125
|
|
30
126
|
|
@@ -35,3 +131,11 @@
|
|
35
131
|
|
36
132
|
|
37
133
|
Embarcadero® Delphi 10.1 Berlin
|
134
|
+
|
135
|
+
|
136
|
+
|
137
|
+
<追記1>
|
138
|
+
|
139
|
+
検索フレームのソースコード、表示、検索、閉じるを追記。必要ない箇所はかなり簡略化しました。
|
140
|
+
|
141
|
+
SQL文とデータベース側は問題ないかと思われるのでテーブル情報は一先ず置いておいきます。
|