OSDN > Pesquisar Software > newbbs > SCM > git > newbbs > Commit

newbbs
Fork

newbbs: Commit

dbname table にも対応

--- a/tool/Unit2.dfm

+++ b/tool/Unit2.dfm

		@@ -374,4 +375,23 @@ object Form1: TForm1
374	375	Left = 368
375	376	Top = 304
376	377	end
	378	+ object FDTable3: TFDTable
	379	+ CachedUpdates = True
	380	+ Connection = FDConnection1
	381	+ UpdateOptions.UpdateTableName = 'kainushi.dbname'
	382	+ TableName = 'kainushi.dbname'
	383	+ Left = 440
	384	+ Top = 280
	385	+ object FDTable3dbnum: TIntegerField
	386	+ FieldName = 'dbnum'
	387	+ Origin = 'dbnum'
	388	+ Required = True
	389	+ end
	390	+ object FDTable3database: TWideStringField
	391	+ FieldName = 'database'
	392	+ Origin = '`database`'
	393	+ Required = True
	394	+ Size = 80
	395	+ end
	396	+ end
377	397	end

--- a/tool/Unit2.pas

+++ b/tool/Unit2.pas

		@@ -69,6 +69,9 @@ type
69	69	FDTable2count: TIntegerField;
70	70	FDTable2password: TWideStringField;
71	71	FDTable2ng: TWideStringField;
	72	+ FDTable3: TFDTable;
	73	+ FDTable3dbnum: TIntegerField;
	74	+ FDTable3database: TWideStringField;
72	75	procedure Button1Click(Sender: TObject);
73	76	procedure Button4Click(Sender: TObject);
74	77	procedure Button3Click(Sender: TObject);

		@@ -153,6 +156,8 @@ begin
153	156	end;
154	157
155	158	procedure TForm1.Button5Click(Sender: TObject);
	159	+var
	160	+ i: Integer;
156	161	begin
157	162	Edit4.Text := 'とるね〜ど号';
158	163	Memo1.Lines.Text :=

		@@ -165,6 +170,13 @@ begin
165	170	UpDown1Click(nil, btNext);
166	171	CheckBox1.Checked := false;
167	172	CheckBox1Click(nil);
	173	+ ListBox1.Items.Clear;
	174	+ ListBox1.Items.Add('info');
	175	+ ListBox1.Items.Add('master');
	176	+ for i := 1 to 10 do
	177	+ ListBox1.Items.Add('掲示板'+i.ToString);
	178	+ list;
	179	+ itemsCopy;
168	180	end;
169	181
170	182	procedure TForm1.Button6Click(Sender: TObject);

		@@ -212,9 +226,9 @@ var
212	226	s: string;
213	227	begin
214	228	ComboBox1.Items.Clear;
215		- with FDQuery1 do
	229	+ with FDTable3 do
216	230	begin
217		- Open('select * from dbname;');
	231	+ First;
218	232	while Eof = false do
219	233	begin
220	234	s := FieldByName('database').AsString;

		@@ -223,7 +237,6 @@ begin
223	237	end;
224	238	ComboBox1.Text := Lookup('dbnum', FDTable2.FieldByName('info').AsInteger,
225	239	'database');
226		- Close;
227	240	end;
228	241	ListBox1.Items.Text := ComboBox1.Items.Text;
229	242	i := ComboBox1.Items.IndexOf('master');

		@@ -232,10 +245,8 @@ end;
232	245
233	246	procedure TForm1.ComboBox1Select(Sender: TObject);
234	247	begin
235		- FDQuery1.Open('select * from dbname');
236		- FDTable2.FieldByName('info').AsInteger := FDQuery1.Lookup('database',
	248	+ FDTable2.FieldByName('info').AsInteger := FDTable3.Lookup('database',
237	249	ComboBox1.Text, 'dbnum');
238		- FDQuery1.Close;
239	250	end;
240	251
241	252	procedure TForm1.FormCreate(Sender: TObject);

		@@ -251,6 +262,17 @@ begin
251	262	FDTable2.Open;
252	263	FDTable1.Refresh;
253	264	FDTable2.Refresh;
	265	+ if FDTable3.Exists = false then
	266	+ FDTable3.CreateTable;
	267	+ FDTable3.Open;
	268	+ with FDTable3 do
	269	+ if (Bof = true)and(Eof = true) then
	270	+ begin
	271	+ list;
	272	+ ApplyUpdates;
	273	+ CommitUpdates;
	274	+ end;
	275	+ FDTable3.Refresh;
254	276	combo;
255	277	CheckBox1.Checked := FDTable2.FieldByName('mente').AsInteger = 1;
256	278	UpDown1.Position := FDTable2.FieldByName('count').AsInteger;

		@@ -278,14 +300,13 @@ procedure TForm1.list;
278	300	var
279	301	i: Integer;
280	302	begin
281		- with FDQuery1 do
	303	+ with FDTable3 do
282	304	begin
283		- Open('select * from dbname;');
	305	+ First;
284	306	while (Bof = false) or (Eof = false) do
285	307	Delete;
286	308	for i := 0 to ListBox1.Items.Count - 1 do
287	309	AppendRecord([i, ListBox1.Items[i]]);
288		- Close;
289	310	end;
290	311	end;
291	312