Q&A
- mysql 과 델파이 내용좀 봐주세요 안되서요
델파이로 mysql 의 user 테이블을 다루려고합나다.
문제가 무엇인지.
DB 쪽으로 첨음이라 잘 안되네요....
참고로 ODBC 로 세팅하고 연결하면 연결되고요
새로운 USER 추가 수정하려고 하니 에러가 나서요......
또 이것이 가능한것인가
조언좀 부탁 합니다.
안치봉씨만 맨 밑으로 보세요
unit Database;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, Mask, KXEdit, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Query1: TQuery;
Database1: TDatabase;
GroupBox2: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
CheckBox13: TCheckBox;
CheckBox14: TCheckBox;
CheckBox15: TCheckBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
BitBtn3: TBitBtn;
procedure DBGrid1DblClick(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Newappend:boolean;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
//불러오기
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
Newappend:=False;
Label7.Caption:='기존사용자 변경';
with Query1 do begin
edit1.Text:=FieldByName('User').AsString;
Edit2.Text:=FieldByName('Password').AsString;
if FieldByName('Select_priv').AsString = 'Y' then
CheckBox1.Checked:=True
else CheckBox1.Checked:=False;
if FieldByName('Insert_priv').AsString = 'Y' then
CheckBox2.Checked:=True
else CheckBox2.Checked:=False;
if FieldByName('Update_priv').AsString = 'Y' then
CheckBox3.Checked:=True
else CheckBox3.Checked:=False;
if FieldByName('Delete_priv').AsString = 'Y' then
CheckBox4.Checked:=True
else CheckBox4.Checked:=False;
if FieldByName('Create_priv').AsString = 'Y' then
CheckBox5.Checked:=True
else CheckBox5.Checked:=False;
if FieldByName('Drop_priv').AsString = 'Y' then
CheckBox6.Checked:=True
else CheckBox6.Checked:=False;
//****************************************************************
if FieldByName('Reload_priv').AsString = 'Y' then
CheckBox7.Checked:=True
else CheckBox7.Checked:=False;
if FieldByName('Shutdown_priv').AsString = 'Y' then
CheckBox8.Checked:=True
else CheckBox8.Checked:=False;
if FieldByName('Process_priv').AsString = 'Y' then
CheckBox9.Checked:=True
else CheckBox9.Checked:=False;
if FieldByName('File_priv').AsString = 'Y' then
CheckBox10.Checked:=True
else CheckBox10.Checked:=False;
if FieldByName('Grant_priv').AsString = 'Y' then
CheckBox11.Checked:=True
else CheckBox11.Checked:=False;
if FieldByName('references_priv').AsString = 'Y' then
CheckBox12.Checked:=True
else CheckBox12.Checked:=False;
//****************************************************************
if FieldByName('Index_priv').AsString = 'Y' then
CheckBox13.Checked:=True
else CheckBox13.Checked:=False;
if FieldByName('Alter_priv').AsString = 'Y' then
CheckBox14.Checked:=True
else CheckBox14.Checked:=False;
if FieldByName('Host').AsString = '%' then
CheckBox15.Checked:=True
else CheckBox15.Checked:=False;
end;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Close;
end;
//적용시키기
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
try
database1.StartTransaction;
With Query1 do begin
if Newappend then begin
SQL.Clear;
SQL.Add('INSERT INTO User');
SQL.Add(' (Host,User,Password,Select_priv,Insert_priv,Update_priv,');
SQL.Add(' Delete_priv,Create_priv,Drop_priv,Reload_priv,');
SQL.Add(' Shutdown_priv,Process_priv,File_priv,Grant_priv,');
SQL.Add(' references_priv,Index_priv,Alter_priv)');
SQL.Add('VALUES(:sHost,:sUser,:sPassword,:sSelect_priv,:sInsert_priv,:sUpdate_priv,');
SQL.Add(' :sDelete_priv,:sCreate_priv,:sDrop_priv,:sReload_priv,');
SQL.Add(' :sShutdown_priv,:sProcess_priv,:sFile_priv,:sGrant_priv,');
SQL.Add(' :sreferences_priv,:sIndex_priv,:sAlter_priv)');
end
else //Newappend=False 거래테이블 업데이트
begin
SQL.Clear;
SQL.Add('UPDATE User');
SQL.Add('SET Host= :sHost, User= :sUser, Password= :sPassword,');
SQL.Add(' Select_priv= :sSelect_priv, Insert_priv= :sInsert_priv,');
SQL.Add(' Update_priv= :sUpdate_priv, Delete_priv= :sDelete_priv,');
SQL.Add(' Create_priv= :sCreate_priv, Drop_priv= :sDrop_priv,');
SQL.Add(' Reload_priv= :sReload_priv, Shutdown_priv= :sShutdown_priv,');
SQL.Add(' Process_priv= :sProcess_priv,File_priv= :sFile_priv,');
SQL.Add(' Grant_priv= :sGrant_priv, references_priv= :sReferences_priv,');
SQL.Add(' Index_priv= :sIndex_priv, Alter_priv= :sAlter_priv');
SQL.Add('WHERE User = :sUser');
end;//if end;
if CheckBox15.Checked then
ParamByName('sHost').AsString :='%'
else ParamByName('sHost').AsString :='localhost';
ParamByName('sUser').AsString :=Edit1.Text;
ParamByName('sPassword').AsString :=Edit2.Text;
if CheckBox1.Checked then
ParamByName('sSelect_priv').AsString :='Y'
else ParamByName('sSelect_priv').AsString :='N';
if CheckBox2.Checked then
ParamByName('sInsert_priv').AsString :='Y'
else ParamByName('sInsert_priv').AsString :='N';
if CheckBox3.Checked then
ParamByName('sUpdate_priv').AsString :='Y'
else ParamByName('sUpdate_priv').AsString :='N';
if CheckBox4.Checked then
ParamByName('sDelete_priv').AsString :='Y'
else ParamByName('sDelete_priv').AsString :='N';
if CheckBox5.Checked then
ParamByName('sCreate_priv').AsString :='Y'
else ParamByName('sCreate_priv').AsString :='N';
if CheckBox6.Checked then
ParamByName('sDrop_priv').AsString :='Y'
else ParamByName('sDrop_priv').AsString :='N';
if CheckBox7.Checked then
ParamByName('sReload_priv').AsString :='Y'
else ParamByName('sReload_priv').AsString :='N';
if CheckBox8.Checked then
ParamByName('sShutdown_priv').AsString :='Y'
else ParamByName('sShutdown_priv').AsString :='N';
if CheckBox9.Checked then
ParamByName('sProcess_priv').AsString :='Y'
else ParamByName('sProcess_priv').AsString :='N';
if CheckBox10.Checked then
ParamByName('sFile_priv').AsString :='Y'
else ParamByName('sFile_priv').AsString :='N';
if CheckBox11.Checked then
ParamByName('sGrant_priv').AsString :='Y'
else ParamByName('sGrant_priv').AsString :='N';
if CheckBox12.Checked then
ParamByName('sReferences_priv').AsString :='Y'
else ParamByName('sReferences_priv').AsString :='N';
if CheckBox13.Checked then
ParamByName('sIndex_priv').AsString :='Y'
else ParamByName('sIndex_priv').AsString :='N';
if CheckBox14.Checked then
ParamByName('sAlter_priv').AsString :='Y'
else ParamByName('sAlter_priv').AsString :='N';
ExecSQL;
Database1.Commit;
end;//with
except
Database1.Rollback;
Application.MessageBox('저장에 실패하였습니다.','저장실패',MB_OK);
end;
end;//Apply click
procedure TForm1.FormCreate(Sender: TObject);
begin
Newappend:=True;
end;
end.
요즘 많이 바쁜가봐요...
꼼짝을 못하는것 같아요
그래도 내가 전화해서 귀찬게 해도 잘 대답해줘서
고마워요
빠른시일네에 시간 한번 냅시다.
영양보충도 하고 머리도 좀 식히고
우리들 보충수업좀 부탁해요...
문제가 무엇인지.
DB 쪽으로 첨음이라 잘 안되네요....
참고로 ODBC 로 세팅하고 연결하면 연결되고요
새로운 USER 추가 수정하려고 하니 에러가 나서요......
또 이것이 가능한것인가
조언좀 부탁 합니다.
안치봉씨만 맨 밑으로 보세요
unit Database;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, Mask, KXEdit, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Query1: TQuery;
Database1: TDatabase;
GroupBox2: TGroupBox;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
CheckBox13: TCheckBox;
CheckBox14: TCheckBox;
CheckBox15: TCheckBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
BitBtn3: TBitBtn;
procedure DBGrid1DblClick(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Newappend:boolean;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
//불러오기
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
Newappend:=False;
Label7.Caption:='기존사용자 변경';
with Query1 do begin
edit1.Text:=FieldByName('User').AsString;
Edit2.Text:=FieldByName('Password').AsString;
if FieldByName('Select_priv').AsString = 'Y' then
CheckBox1.Checked:=True
else CheckBox1.Checked:=False;
if FieldByName('Insert_priv').AsString = 'Y' then
CheckBox2.Checked:=True
else CheckBox2.Checked:=False;
if FieldByName('Update_priv').AsString = 'Y' then
CheckBox3.Checked:=True
else CheckBox3.Checked:=False;
if FieldByName('Delete_priv').AsString = 'Y' then
CheckBox4.Checked:=True
else CheckBox4.Checked:=False;
if FieldByName('Create_priv').AsString = 'Y' then
CheckBox5.Checked:=True
else CheckBox5.Checked:=False;
if FieldByName('Drop_priv').AsString = 'Y' then
CheckBox6.Checked:=True
else CheckBox6.Checked:=False;
//****************************************************************
if FieldByName('Reload_priv').AsString = 'Y' then
CheckBox7.Checked:=True
else CheckBox7.Checked:=False;
if FieldByName('Shutdown_priv').AsString = 'Y' then
CheckBox8.Checked:=True
else CheckBox8.Checked:=False;
if FieldByName('Process_priv').AsString = 'Y' then
CheckBox9.Checked:=True
else CheckBox9.Checked:=False;
if FieldByName('File_priv').AsString = 'Y' then
CheckBox10.Checked:=True
else CheckBox10.Checked:=False;
if FieldByName('Grant_priv').AsString = 'Y' then
CheckBox11.Checked:=True
else CheckBox11.Checked:=False;
if FieldByName('references_priv').AsString = 'Y' then
CheckBox12.Checked:=True
else CheckBox12.Checked:=False;
//****************************************************************
if FieldByName('Index_priv').AsString = 'Y' then
CheckBox13.Checked:=True
else CheckBox13.Checked:=False;
if FieldByName('Alter_priv').AsString = 'Y' then
CheckBox14.Checked:=True
else CheckBox14.Checked:=False;
if FieldByName('Host').AsString = '%' then
CheckBox15.Checked:=True
else CheckBox15.Checked:=False;
end;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
Close;
end;
//적용시키기
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
try
database1.StartTransaction;
With Query1 do begin
if Newappend then begin
SQL.Clear;
SQL.Add('INSERT INTO User');
SQL.Add(' (Host,User,Password,Select_priv,Insert_priv,Update_priv,');
SQL.Add(' Delete_priv,Create_priv,Drop_priv,Reload_priv,');
SQL.Add(' Shutdown_priv,Process_priv,File_priv,Grant_priv,');
SQL.Add(' references_priv,Index_priv,Alter_priv)');
SQL.Add('VALUES(:sHost,:sUser,:sPassword,:sSelect_priv,:sInsert_priv,:sUpdate_priv,');
SQL.Add(' :sDelete_priv,:sCreate_priv,:sDrop_priv,:sReload_priv,');
SQL.Add(' :sShutdown_priv,:sProcess_priv,:sFile_priv,:sGrant_priv,');
SQL.Add(' :sreferences_priv,:sIndex_priv,:sAlter_priv)');
end
else //Newappend=False 거래테이블 업데이트
begin
SQL.Clear;
SQL.Add('UPDATE User');
SQL.Add('SET Host= :sHost, User= :sUser, Password= :sPassword,');
SQL.Add(' Select_priv= :sSelect_priv, Insert_priv= :sInsert_priv,');
SQL.Add(' Update_priv= :sUpdate_priv, Delete_priv= :sDelete_priv,');
SQL.Add(' Create_priv= :sCreate_priv, Drop_priv= :sDrop_priv,');
SQL.Add(' Reload_priv= :sReload_priv, Shutdown_priv= :sShutdown_priv,');
SQL.Add(' Process_priv= :sProcess_priv,File_priv= :sFile_priv,');
SQL.Add(' Grant_priv= :sGrant_priv, references_priv= :sReferences_priv,');
SQL.Add(' Index_priv= :sIndex_priv, Alter_priv= :sAlter_priv');
SQL.Add('WHERE User = :sUser');
end;//if end;
if CheckBox15.Checked then
ParamByName('sHost').AsString :='%'
else ParamByName('sHost').AsString :='localhost';
ParamByName('sUser').AsString :=Edit1.Text;
ParamByName('sPassword').AsString :=Edit2.Text;
if CheckBox1.Checked then
ParamByName('sSelect_priv').AsString :='Y'
else ParamByName('sSelect_priv').AsString :='N';
if CheckBox2.Checked then
ParamByName('sInsert_priv').AsString :='Y'
else ParamByName('sInsert_priv').AsString :='N';
if CheckBox3.Checked then
ParamByName('sUpdate_priv').AsString :='Y'
else ParamByName('sUpdate_priv').AsString :='N';
if CheckBox4.Checked then
ParamByName('sDelete_priv').AsString :='Y'
else ParamByName('sDelete_priv').AsString :='N';
if CheckBox5.Checked then
ParamByName('sCreate_priv').AsString :='Y'
else ParamByName('sCreate_priv').AsString :='N';
if CheckBox6.Checked then
ParamByName('sDrop_priv').AsString :='Y'
else ParamByName('sDrop_priv').AsString :='N';
if CheckBox7.Checked then
ParamByName('sReload_priv').AsString :='Y'
else ParamByName('sReload_priv').AsString :='N';
if CheckBox8.Checked then
ParamByName('sShutdown_priv').AsString :='Y'
else ParamByName('sShutdown_priv').AsString :='N';
if CheckBox9.Checked then
ParamByName('sProcess_priv').AsString :='Y'
else ParamByName('sProcess_priv').AsString :='N';
if CheckBox10.Checked then
ParamByName('sFile_priv').AsString :='Y'
else ParamByName('sFile_priv').AsString :='N';
if CheckBox11.Checked then
ParamByName('sGrant_priv').AsString :='Y'
else ParamByName('sGrant_priv').AsString :='N';
if CheckBox12.Checked then
ParamByName('sReferences_priv').AsString :='Y'
else ParamByName('sReferences_priv').AsString :='N';
if CheckBox13.Checked then
ParamByName('sIndex_priv').AsString :='Y'
else ParamByName('sIndex_priv').AsString :='N';
if CheckBox14.Checked then
ParamByName('sAlter_priv').AsString :='Y'
else ParamByName('sAlter_priv').AsString :='N';
ExecSQL;
Database1.Commit;
end;//with
except
Database1.Rollback;
Application.MessageBox('저장에 실패하였습니다.','저장실패',MB_OK);
end;
end;//Apply click
procedure TForm1.FormCreate(Sender: TObject);
begin
Newappend:=True;
end;
end.
요즘 많이 바쁜가봐요...
꼼짝을 못하는것 같아요
그래도 내가 전화해서 귀찬게 해도 잘 대답해줘서
고마워요
빠른시일네에 시간 한번 냅시다.
영양보충도 하고 머리도 좀 식히고
우리들 보충수업좀 부탁해요...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 스타시커
- •
- 2000.06.14 20:57
- 1 COMMENTS
- /
- 0 LIKES
-
화랑•2000.06.19 22:49그렇게 쓰지 마시고... String 변수를 하나 두고.. Const CRLF = #13#10; s := ''+CRLF : : ...
-
- 이수정
- •
- 2000.06.14 20:54
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.14 22:00안녕하세요. 최용일입니다. 1)프로젝트가 아니라 패키지(dws.dpk)입니다. 말을 잘못해드렸네요.. 죄송합...
-
- 김태영
- 2000.06.14 20:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- 2000.06.14 20:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 강정한
- 2000.06.14 20:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 류응철
- 2000.06.14 20:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 이영호
- 2000.06.14 19:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 이정희
- •
- 2000.06.14 19:43
- 1 COMMENTS
- /
- 0 LIKES
-
HART•2000.06.14 21:03제 생각으로는 RYa3115f.Free;문장 때문인것 같은데.. preview를 하면 폼이 show폼으로 열립니다. 그래...
-
- 준희
- •
- 2000.06.14 19:49
- 1 COMMENTS
- /
- 0 LIKES
-
HART•2000.06.14 21:08혹시 string Grid에서 QuickReport를 하려면 디비 연결 없이 need라는 명령어 처리 하시것 같은데. 혹시 전...
-
- 서경환
- •
- 2000.06.14 19:29
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.06.15 15:53서경환 wrote: > StringGrid에 CheckBox를 올리는 방법을 알고십습니다. > 이런 기능이 지원되는 콤퍼넌...
-
양수정•2000.12.02 03:59StrigGrid에 데이타가 많이 들어가는 경우에 CheckBox가 이상해지는군요??? 쉽게 얘기하면 Stri...
-
- 김병훈
- 2000.06.14 18:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2000.06.14 18:48
- 2 COMMENTS
- /
- 0 LIKES
-
..•2000.06.14 18:51델초보 wrote: > ADO를 이용해서 DB연결 했는데요.... > win98이나 95에서는 잘 되는데..... > win2000...
-
델초보•2000.06.14 19:23.. wrote: > 델초보 wrote: > > ADO를 이용해서 DB연결 했는데요.... > > win98이나 95에서는 잘 되는데...
-
- 어린왕자
- •
- 2000.06.14 18:40
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.06.14 19:28안녕하세요 하얀까마귀입니다. free는 버튼의 사용이 끝났을때 해주시면 되죠.... 말씀처럼.. 해당콤...
-
- 사발우성
- •
- 2000.06.14 21:08
- 6 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.06.14 19:13사발우성 wrote: > 어제 까마귀님들이 도와주셨는디도 허접 사발이는 도저히 조인을 해결할수가 없어서 여...
-
까마귀•2000.06.14 19:40안녕하세요. 까마귀입니다. 잊어먹은게 있어서요. 사발우성님의 소스에서는 테이블 1,2에서는 필요한 ...
-
사발우성•2000.06.14 19:48음 데이터 모듈이란 모죠 전 무식해서리... 음 테이블들이 전부 따로 따로라서 쿼리가 무려 14 개정도 ...
-
까마귀•2000.06.14 20:03안녕하세요. 까마귀입니다. 도움이 되신다니 기분 좋네요.하하... 데이터 모듈이라는것은요, TQuery나 ...
-
아리엘•2000.06.14 18:34냐.. 저도 초보에여.. 그냥 참고하시길.. 음 세개든 네개든 그냥 적어주면 될텐데여.. 그러니까 테이블...
-
사발우성•2000.06.14 18:51아리엘님 감솨 하쥐만 어떤식으로 해야 하는쥐 아직두 감 암옴당.... 걍 예제 주시와엽....^^ 글구 ...
-
- 거븍이
- •
- 2000.06.14 17:11
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.06.14 18:52작업테이블에 대한 변경사항에 대한 이력을 보관하시려고 하는것인지요? DBMS는 어떤걸 사용하고 계시는지...
-
- 김동익
- •
- 2000.06.14 11:20
- 4 COMMENTS
- /
- 0 LIKES
-
최용일•2000.06.14 11:27안녕하세요. 최용일입니다. 등록을 하세요. Run/Register ActiveX Server를 이용하여 레지스트리에 등록...
-
김동익•2000.06.14 19:28제가 알고 싶은 부분은 탐색기에서 파일 생성, 수정, 삭제가 일어났을때 입니다. 즉, 파일 관련 작업이...
-
김동익•2000.06.14 11:41NT에서도 올바로 작동합니까? 컴파일을 하고 DLL을 등록하여도 원하는 결과를 얻을 수가 없군요. 다...
-
최용일•2000.06.14 18:52안녕하세요. 최용일입니다. NT에서도 잘 작동합니다. 쉘익스텐션은 특별한 상황하에서만 실행이 됩니다....
-
- 박종삼
- •
- 2000.06.14 08:41
- 1 COMMENTS
- /
- 0 LIKES
델파이로 mysql 의 user 테이블을 다루려고합나다. 문제가 무엇인지. DB 쪽으로 첨음이라 잘 안되네요.... 참고로 ODBC 로 세팅하고 연결하면 연결되고요 새로운 USER 추가 수정하려고 하니 에러가 나서요...... 또 이것이 가능한것인가 ...-
parkisu•2000.06.16 09:18박종삼 wrote: > 델파이로 mysql 의 user 테이블을 다루려고합나다. > 문제가 무엇인지. > DB 쪽으로 첨...
-
- 윤병익
- 2000.06.14 06:44
- 0 COMMENTS
- /
- 0 LIKES
-
- sun
- •
- 2000.06.14 05:52
- 1 COMMENTS
- /
- 0 LIKES
-
jinugirl•2000.07.21 03:57sun wrote: > procedure Tfmaap042.QRGroup1BeforePrint(Sender: TQRCustomBand; > var PrintBand: Boo...
-
- 서영찬
- •
- 2000.06.14 05:53
- 1 COMMENTS
- /
- 0 LIKES
-
강민주•2000.06.14 15:17서영찬 wrote: > 안녕하세요.. > 델파이로 개발을 하고있습니다.. > > 파일copy소스가 필요한데 자료...
> 델파이로 mysql 의 user 테이블을 다루려고합나다.
> 문제가 무엇인지.
> DB 쪽으로 첨음이라 잘 안되네요....
> 참고로 ODBC 로 세팅하고 연결하면 연결되고요
> 새로운 USER 추가 수정하려고 하니 에러가 나서요......
> 또 이것이 가능한것인가
> 조언좀 부탁 합니다.
>
> 안치봉씨만 맨 밑으로 보세요
>
>
>
> unit Database;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> Db, DBTables, Grids, DBGrids, StdCtrls, Buttons, Mask, KXEdit, ExtCtrls;
>
> type
> TForm1 = class(TForm)
> Label1: TLabel;
> GroupBox1: TGroupBox;
> Label2: TLabel;
> Label3: TLabel;
> BitBtn1: TBitBtn;
> BitBtn2: TBitBtn;
> DBGrid1: TDBGrid;
> DataSource1: TDataSource;
> Query1: TQuery;
> Database1: TDatabase;
> GroupBox2: TGroupBox;
> CheckBox1: TCheckBox;
> CheckBox2: TCheckBox;
> CheckBox3: TCheckBox;
> CheckBox4: TCheckBox;
> CheckBox5: TCheckBox;
> CheckBox6: TCheckBox;
> CheckBox7: TCheckBox;
> CheckBox8: TCheckBox;
> CheckBox9: TCheckBox;
> CheckBox10: TCheckBox;
> CheckBox11: TCheckBox;
> CheckBox12: TCheckBox;
> CheckBox13: TCheckBox;
> CheckBox14: TCheckBox;
> CheckBox15: TCheckBox;
> Label4: TLabel;
> Label5: TLabel;
> Label6: TLabel;
> Label7: TLabel;
> Edit1: TEdit;
> Edit2: TEdit;
> BitBtn3: TBitBtn;
> procedure DBGrid1DblClick(Sender: TObject);
> procedure BitBtn3Click(Sender: TObject);
> procedure BitBtn1Click(Sender: TObject);
> procedure FormCreate(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> Newappend:boolean;
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
> //불러오기
> procedure TForm1.DBGrid1DblClick(Sender: TObject);
> begin
> Newappend:=False;
> Label7.Caption:='기존사용자 변경';
> with Query1 do begin
> edit1.Text:=FieldByName('User').AsString;
> Edit2.Text:=FieldByName('Password').AsString;
>
> if FieldByName('Select_priv').AsString = 'Y' then
> CheckBox1.Checked:=True
> else CheckBox1.Checked:=False;
>
> if FieldByName('Insert_priv').AsString = 'Y' then
> CheckBox2.Checked:=True
> else CheckBox2.Checked:=False;
>
> if FieldByName('Update_priv').AsString = 'Y' then
> CheckBox3.Checked:=True
> else CheckBox3.Checked:=False;
>
> if FieldByName('Delete_priv').AsString = 'Y' then
> CheckBox4.Checked:=True
> else CheckBox4.Checked:=False;
>
> if FieldByName('Create_priv').AsString = 'Y' then
> CheckBox5.Checked:=True
> else CheckBox5.Checked:=False;
>
> if FieldByName('Drop_priv').AsString = 'Y' then
> CheckBox6.Checked:=True
> else CheckBox6.Checked:=False;
> //****************************************************************
> if FieldByName('Reload_priv').AsString = 'Y' then
> CheckBox7.Checked:=True
> else CheckBox7.Checked:=False;
>
> if FieldByName('Shutdown_priv').AsString = 'Y' then
> CheckBox8.Checked:=True
> else CheckBox8.Checked:=False;
>
> if FieldByName('Process_priv').AsString = 'Y' then
> CheckBox9.Checked:=True
> else CheckBox9.Checked:=False;
>
> if FieldByName('File_priv').AsString = 'Y' then
> CheckBox10.Checked:=True
> else CheckBox10.Checked:=False;
>
> if FieldByName('Grant_priv').AsString = 'Y' then
> CheckBox11.Checked:=True
> else CheckBox11.Checked:=False;
>
> if FieldByName('references_priv').AsString = 'Y' then
> CheckBox12.Checked:=True
> else CheckBox12.Checked:=False;
> //****************************************************************
> if FieldByName('Index_priv').AsString = 'Y' then
> CheckBox13.Checked:=True
> else CheckBox13.Checked:=False;
>
> if FieldByName('Alter_priv').AsString = 'Y' then
> CheckBox14.Checked:=True
> else CheckBox14.Checked:=False;
>
> if FieldByName('Host').AsString = '%' then
> CheckBox15.Checked:=True
> else CheckBox15.Checked:=False;
> end;
> end;
>
> procedure TForm1.BitBtn3Click(Sender: TObject);
> begin
> Close;
> end;
> //적용시키기
> procedure TForm1.BitBtn1Click(Sender: TObject);
> begin
> try
> database1.StartTransaction;
> With Query1 do begin
> if Newappend then begin
> SQL.Clear;
> SQL.Add('INSERT INTO User');
> SQL.Add(' (Host,User,Password,Select_priv,Insert_priv,Update_priv,');
> SQL.Add(' Delete_priv,Create_priv,Drop_priv,Reload_priv,');
> SQL.Add(' Shutdown_priv,Process_priv,File_priv,Grant_priv,');
> SQL.Add(' references_priv,Index_priv,Alter_priv)');
>
> SQL.Add('VALUES(:sHost,:sUser,:sPassword,:sSelect_priv,:sInsert_priv,:sUpdate_priv,');
> SQL.Add(' :sDelete_priv,:sCreate_priv,:sDrop_priv,:sReload_priv,');
> SQL.Add(' :sShutdown_priv,:sProcess_priv,:sFile_priv,:sGrant_priv,');
> SQL.Add(' :sreferences_priv,:sIndex_priv,:sAlter_priv)');
> end
> else //Newappend=False 거래테이블 업데이트
> begin
> SQL.Clear;
> SQL.Add('UPDATE User');
> SQL.Add('SET Host= :sHost, User= :sUser, Password= :sPassword,');
> SQL.Add(' Select_priv= :sSelect_priv, Insert_priv= :sInsert_priv,');
> SQL.Add(' Update_priv= :sUpdate_priv, Delete_priv= :sDelete_priv,');
> SQL.Add(' Create_priv= :sCreate_priv, Drop_priv= :sDrop_priv,');
> SQL.Add(' Reload_priv= :sReload_priv, Shutdown_priv= :sShutdown_priv,');
> SQL.Add(' Process_priv= :sProcess_priv,File_priv= :sFile_priv,');
> SQL.Add(' Grant_priv= :sGrant_priv, references_priv= :sReferences_priv,');
> SQL.Add(' Index_priv= :sIndex_priv, Alter_priv= :sAlter_priv');
> SQL.Add('WHERE User = :sUser');
> end;//if end;
>
> if CheckBox15.Checked then
> ParamByName('sHost').AsString :='%'
> else ParamByName('sHost').AsString :='localhost';
>
> ParamByName('sUser').AsString :=Edit1.Text;
> ParamByName('sPassword').AsString :=Edit2.Text;
>
> if CheckBox1.Checked then
> ParamByName('sSelect_priv').AsString :='Y'
> else ParamByName('sSelect_priv').AsString :='N';
>
> if CheckBox2.Checked then
> ParamByName('sInsert_priv').AsString :='Y'
> else ParamByName('sInsert_priv').AsString :='N';
>
> if CheckBox3.Checked then
> ParamByName('sUpdate_priv').AsString :='Y'
> else ParamByName('sUpdate_priv').AsString :='N';
>
> if CheckBox4.Checked then
> ParamByName('sDelete_priv').AsString :='Y'
> else ParamByName('sDelete_priv').AsString :='N';
>
> if CheckBox5.Checked then
> ParamByName('sCreate_priv').AsString :='Y'
> else ParamByName('sCreate_priv').AsString :='N';
>
> if CheckBox6.Checked then
> ParamByName('sDrop_priv').AsString :='Y'
> else ParamByName('sDrop_priv').AsString :='N';
>
> if CheckBox7.Checked then
> ParamByName('sReload_priv').AsString :='Y'
> else ParamByName('sReload_priv').AsString :='N';
>
> if CheckBox8.Checked then
> ParamByName('sShutdown_priv').AsString :='Y'
> else ParamByName('sShutdown_priv').AsString :='N';
>
> if CheckBox9.Checked then
> ParamByName('sProcess_priv').AsString :='Y'
> else ParamByName('sProcess_priv').AsString :='N';
>
> if CheckBox10.Checked then
> ParamByName('sFile_priv').AsString :='Y'
> else ParamByName('sFile_priv').AsString :='N';
>
> if CheckBox11.Checked then
> ParamByName('sGrant_priv').AsString :='Y'
> else ParamByName('sGrant_priv').AsString :='N';
>
> if CheckBox12.Checked then
> ParamByName('sReferences_priv').AsString :='Y'
> else ParamByName('sReferences_priv').AsString :='N';
>
> if CheckBox13.Checked then
> ParamByName('sIndex_priv').AsString :='Y'
> else ParamByName('sIndex_priv').AsString :='N';
>
> if CheckBox14.Checked then
> ParamByName('sAlter_priv').AsString :='Y'
> else ParamByName('sAlter_priv').AsString :='N';
>
> ExecSQL;
> Database1.Commit;
> end;//with
> except
> Database1.Rollback;
> Application.MessageBox('저장에 실패하였습니다.','저장실패',MB_OK);
> end;
> end;//Apply click
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Newappend:=True;
> end;
>
> end.
>
>
>
>
>
>
>
> 요즘 많이 바쁜가봐요...
> 꼼짝을 못하는것 같아요
> 그래도 내가 전화해서 귀찬게 해도 잘 대답해줘서
> 고마워요
> 빠른시일네에 시간 한번 냅시다.
> 영양보충도 하고 머리도 좀 식히고
> 우리들 보충수업좀 부탁해요...
>
>
>
아마도 윈도용 mysql을 사용하시는 것 같군요.
데몬이 이상없이 실행중인 상태라면
ODBC로 연결해서 사용할 경우에는 에러가 많이 나는 것으로 알고 있습니다.
정확한 이유는 저도 잘 모르겠습니다만...
자료실에 가면 제가 올려놓은 Winzeos라는 윈도용 MySql컴포넌트가 있습니다.
그걸 다운받아서 사용해 보시면 어떨런지. 제법 쓸만한 것 같더군요.
도움이 되었는지 모르겠군요.