소스를 보지않고는 답변이 어렵겠구요.

기밀에 속하는게 아니면 소스를 올려보시길.



짱아 wrote:

> dbgrid에 문자입력이 안됩니다...

> 전번에도 올렸듯이 영문과 숫자는 물론이고 한글은 한글자만 입력되는데.. 입력된 그 한글자도 dbgrid에서 다른 셀로 움직이면 없어져 버립니다...

> 어떻하면 좋죠?? ㅠ.ㅠ

> 제발 도와주세염..

>

> ps... 최혜룡님... 앞전에 주신답에 대해 모든 사항을 체크해봤지만.. 아무 이상이.. 없습니다.... 어떻게하죠??

> 도대체 문제점을 못찾겠습니다...

>

ㅋㅋ 죄송해여~

소스 올려봤자 읽기 귀찮아 하실것 같아서 .. 죄송죄송

이게 바로 그 문제의 소스 입니다...

보시구 또 궁금하신점 있으시면 말씀해주세요~

그대신 문제점 찾는건 도와주실꺼죠?? ^^

감사해요~ 항상 도와주셔서~

이 소스 dbgrid의 columns에서 데이타를 입력받지 못합니다..

도와주세요~~~~~~ 꼭꼭~ *^^*



unit Send07ua;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

DBTables, Menus, Buttons, StdCtrls, ExtCtrls, Db, Grids, DBGrids, Mask,

DBCtrls, ComCtrls, AlignEdit;



type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

S1: TMenuItem;

N_Close: TMenuItem;

Panel2: TPanel;

PanelQUERY: TPanel;

DataSource1: TDataSource;

BtnPost: TSpeedButton;

BtnCancel: TSpeedButton;

BtnDelete: TSpeedButton;

BtnClose: TSpeedButton;

LabelMsg: TLabel;

N1: TMenuItem;

N2: TMenuItem;

MQuery: TQuery;

Panel1: TPanel;

PanelData: TPanel;

Label1: TLabel;

Label7: TLabel;

Label9: TLabel;

eFILM_CUST: TEdit;

eFABRIC_CODE: TEdit;

S_Value1: TMaskEdit;

DBGrid1: TDBGrid;

dFILM_CUST: TLabel;

dFABRIC_CODE: TLabel;

Label4: TLabel;

S_Value2: TMaskEdit;

Label2: TLabel;

eSEND_DATE: TMaskEdit;

ORDR14MT: TTable;

DataSource2: TDataSource;

Panel3: TPanel;

DBGrid2: TDBGrid;

SqlQry: TQuery;

PanelWait: TPanel;

Label3: TLabel;

Label11: TLabel;

Animate1: TAnimate;

FindQry: TQuery;

Database1: TDatabase;

SProc1: TStoredProc;

TotQty: TQuery;

Panel5: TPanel;

Panel6: TPanel;

NewQry: TQuery;

NewQryCDNAME1: TStringField;

NewQryCDCODE: TStringField;

SProc2: TStoredProc;

ORDR14MTFILM_CUST: TStringField;

ORDR14MTSEND_DATE: TStringField;

ORDR14MTFABRIC_CODE: TStringField;

ORDR14MTORDER_NO_BUYER: TStringField;

ORDR14MTORDER_NO_YEAR: TStringField;

ORDR14MTORDER_NO_SEQ: TFloatField;

ORDR14MTPATTERN_1: TStringField;

ORDR14MTPATTERN_2: TStringField;

ORDR14MTORDER_UNIT: TStringField;

ORDR14MTSEND_QTY: TFloatField;

MQuerySEND_DATE: TStringField;

MQueryFILM_CUST: TStringField;

MQueryFABRIC_CODE: TStringField;

MQueryCUST_NAME: TStringField;

MQueryFABRIC_NAME: TStringField;

BtnInsert: TSpeedButton;

UpdateSQL1: TUpdateSQL;



procedure Data_SetRange_Rtn;

procedure User_ToEdit;

procedure User_Clear;

procedure User_Handle(P_Ena: Boolean);

procedure User_MOpen(P_Order: String);



procedure FormCreate(Sender: TObject);

procedure FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure FormDestroy(Sender: TObject);

procedure BtnPostClick(Sender: TObject);

procedure BtnCancelClick(Sender: TObject);

procedure BtnDeleteClick(Sender: TObject);

procedure DBGrid1TitleClick(Column: TColumn);

procedure DataSource1DataChange(Sender: TObject; Field: TField);

procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure eFABRIC_CODEExit(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N_CloseClick(Sender: TObject);

procedure BtnInsertClick(Sender: TObject);

procedure eFABRIC_CODEKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure S_Value2Exit(Sender: TObject);

procedure eSEND_DATEKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure eSEND_DATEExit(Sender: TObject);

procedure eFILM_CUSTExit(Sender: TObject);

procedure eFILM_CUSTKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure FormShow(Sender: TObject);

procedure DBGrid2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ORDR14MTBeforeInsert(DataSet: TDataSet);

procedure BtnCloseClick(Sender: TObject);

procedure ORDR14MTCalcFields(DataSet: TDataSet);

procedure ORDR14MTBeforePost(DataSet: TDataSet);

procedure ORDR14MTAfterPost(DataSet: TDataSet);

procedure ORDR14MTBeforeEdit(DataSet: TDataSet);

procedure S_Value1Exit(Sender: TObject);



private

{ Private declarations }

public

{ Public declarations }

DupExe: Array[0..100] Of Char;

ATom : TAtom;

HCode: String;

HName: String;

end;



var

Form1: TForm1;



implementation



uses UtilPack, CodeHelp, Send07ub;



{$R *.DFM}



{일자 Check DLL}

//function DateChk(Date:String) : Integer;

// StdCall; External 'KUDOSDllPDateChk';



Const

_A = '▲';

_D = '▼';



var

eBtn : Integer;

eStr : String;

Ins_Sw : String;



procedure TForm1.User_MOpen(P_Order: String);

begin

PanelWait.Visible := True;

PanelWait.Refresh;



with MQuery do

Begin

DisableControls;

Close;

Sql.Clear;

Sql.Add('SELECT A.SEND_DATE,A.FILM_CUST,A.FABRIC_CODE, ');

Sql.Add(' MAX(B.CUST_SHORT) CUST_NAME, ');

Sql.Add(' MAX(C.FABRIC_NAME) FABRIC_NAME ');

Sql.Add(' FROM ORDR14MT A, ');

Sql.Add(' CUSTCODE B, ');

Sql.Add(' CODE02MT C ');

Sql.Add(' WHERE A.FILM_CUST = B.CUST_CODE(+) ');

Sql.Add(' AND A.FABRIC_CODE = C.FABRIC_CODE(+) ');

Sql.Add(' AND A.SEND_DATE BETWEEN :F_DATE AND :T_DATE ');

Sql.Add(' GROUP BY A.SEND_DATE,A.FILM_CUST,A.FABRIC_CODE ');

Sql.Add(' ORDER BY A.SEND_DATE ');

IF S_Value1.Text = '' THEN S_Value1.Text := '00000000';

IF S_Value2.Text = '' THEN S_Value2.Text := '99999999';

ParamByName('F_DATE').AsString := S_Value1.Text;

ParamByName('T_DATE').AsString := S_Value2.Text;

Open;

EnableControls;

End;

PanelWait.Visible := False;

end;



procedure TForm1.Data_SetRange_Rtn;

begin

// 자료초기화 Setting

with ORDR14MT do

begin

SetRangeStart; { Set the beginning key }

FieldByName('FILM_CUST').AsString := eFILM_CUST.Text;

FieldByName('SEND_DATE').AsString := eSEND_DATE.Text;

FieldByName('FABRIC_CODE').AsString := eFABRIC_CODE.Text;

FieldByName('ORDER_NO_BUYER').AsString := ' ';

FieldByName('ORDER_NO_YEAR').AsString := ' ';

FieldByName('ORDER_NO_SEQ').AsFloat := 0;

FieldByName('PATTERN_1').AsString := ' ';

FieldByName('PATTERN_2').AsString := ' ';

SetRangeEnd; { Set the ending key }

FieldByName('FILM_CUST').AsString := eFILM_CUST.Text;

FieldByName('SEND_DATE').AsString := eSEND_DATE.Text;

FieldByName('FABRIC_CODE').AsString := eFABRIC_CODE.Text;

FieldByName('ORDER_NO_BUYER').AsString := 'zzzz';

FieldByName('ORDER_NO_YEAR').AsString := '9999';

FieldByName('ORDER_NO_SEQ').AsFloat := 9999;

FieldByName('PATTERN_1').AsString := 'zzzzz';

FieldByName('PATTERN_2').AsString := 'zzzzz';

TRY

ApplyRange; { Tell the dataset to establish the range }

EXCEPT;

END;

end;

end;



// Query Data To Edit Fields

procedure TForm1.User_ToEdit;

begin

eFILM_CUST.Text := MQuery.FieldByName('FILM_CUST' ).AsString;

dFILM_CUST.Caption := MQuery.FieldByName('CUST_NAME').AsString;

eSEND_DATE.Text := MQuery.FieldByName('SEND_DATE' ).AsString;

eFABRIC_CODE.Text := MQuery.FieldByName('FABRIC_CODE' ).AsString;

dFABRIC_CODE.Caption := MQuery.FieldByName('FABRIC_NAME').AsString;

end;



// Data Field Clear

procedure TForm1.User_Clear;

begin

eFILM_CUST.Text := '';

dFILM_CUST.Caption := '';

eSEND_DATE.Text := '';

eFABRIC_CODE.Text := '';

dFABRIC_CODE.Caption := '';

end;



// Data Panel, Buttons Enabled

procedure TForm1.User_Handle(P_Ena: Boolean);

begin

PanelQuery.Enabled := P_Ena;

PanelData.Enabled := not P_Ena;

Panel3.Enabled := not P_Ena;

BtnPost.Enabled := not P_Ena;

BtnCancel.Enabled := not P_Ena;

end;



//-------------------------------------------------------------------

// Form Event

//-------------------------------------------------------------------

procedure TForm1.FormCreate(Sender: TObject);

begin



Caption := Format('%-50.50s사용자 : [ %s ] Program-Id : [ %s ]',

[ Caption,

ParamStr(2),

Copy(ExtractFileName(ParamStr(0)),1,Pos('.',ExtractFileName(ParamStr(0)))-1)

] );

//--------------------------------------------------------



LabelMsg.Caption := '';



Ordr14mt.Close;

Ordr14mt.Open;



// Master Query Open (Order By CODE)

User_MOpen(' ');

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

//--------------------------------------------------------

// Only One Window Delete To ATom List

GlobalDeleteAtom(Atom);

//--------------------------------------------------------

end;



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If (Key = Vk_F12 ) and (BtnClose.Enabled ) Then BtnCloseClick(Sender);

If (Key = Vk_F2 ) and (BtnPost.Enabled ) Then BtnPostClick(Sender);

If (Key = Vk_F8 ) and (BtnCancel.Enabled) Then BtnCancelClick(Sender);

If (Key = Vk_F9 ) and (BtnDelete.Enabled) Then BtnDeleteClick(Sender);

end;



procedure TForm1.FormShow(Sender: TObject);

begin

SetBounds(-4, -4, 808, 608);

KeyPreview := True;



User_Handle(Dbgrid1.Enabled);

S_Value1.SetFocus;



S_Value1.Text := '';

S_Value2.Text := '';

end;





// 시스템 종료

procedure TForm1.N_CloseClick(Sender: TObject);

begin

Close;

end;



// 원단 불출 등록 조회

procedure TForm1.N2Click(Sender: TObject);

var

CRec: TBookMark;

begin

CRec := MQuery.GetBookmark;

Form2.ShowModal;

User_Handle(True);

User_MOpen(' ');

Dbgrid1.SetFocus;

MQuery.GotoBookmark(CRec);

MQuery.FreeBookmark(CRec);

end;



//-------------------------------------------------------------------

// Button Event

//-------------------------------------------------------------------

procedure TForm1.BtnInsertClick(Sender: TObject);

begin

Panel3.Enabled := true;

User_Clear;

eFILM_CUST.SetFocus;

end;



procedure TForm1.BtnPostClick(Sender: TObject);

begin

If BtnPost.Enabled <> True Then Exit;



If Ins_Sw = '' then begin

With SProc2 do begin

ParamByName('P_CUST').AsString := eFilm_Cust.Text;

ParamByName('P_DATE').AsString := eSend_Date.Text;

ParamByName('P_CODE').AsString := eFABRIC_CODE.Text;

ExecProc;

End;

End;



Ordr14MT.Edit;

Ordr14MT.Post;

Ordr14MT.CommitUpdates;



With SProc2 do begin

ParamByName('P_CUST').AsString := eFilm_Cust.Text;

ParamByName('P_DATE').AsString := eSend_Date.Text;

ParamByName('P_CODE').AsString := eFABRIC_CODE.Text;

ExecProc;

End;



Ordr14Mt.Refresh;



// Close Open 해도 원위치 찾기

With MQuery do begin

DisableControls;

Close;

Open;

Locate('SEND_DATE',eSEND_DATE.Text,[loPartialKey]);

EnableControls;

end;



Ins_Sw := '';

User_Handle(Panel3.Enabled);

DBGrid1.SetFocus;

end;



procedure TForm1.BtnCancelClick(Sender: TObject);

begin

If BtnCancel.Enabled = False then Exit;



Ordr14MT.CancelUpdates;



If Ins_Sw = 'INS' then begin

With SqlQry do begin

Sql.Clear;

Sql.Add(' DELETE FROM ORDR14MT ');

Sql.Add(' WHERE FILM_CUST = :FILM_CUST ');

Sql.Add(' AND SEND_DATE = :SEND_DATE ');

Sql.Add(' AND FABRIC_CODE = :FABRIC_CODE ');

ParamByName('FILM_CUST').AsString := eFILM_CUST.Text;

ParamByName('SEND_DATE').AsString := eSEND_DATE.Text;

ParamByName('FABRIC_CODE').AsString := eFABRIC_CODE.Text;

ExecSql;

end;

Ins_Sw := '';

end;



User_Clear;

User_ToEdit;





User_Handle(True);

DBGrid1.SetFocus;

end;



procedure TForm1.BtnDeleteClick(Sender: TObject);

var Mark: Tbookmark;

Eof_Sw : Boolean;

begin

eBtn := MessageDlg(' ☞ 해당 자료를 삭제할까요... '#13#13,

mtWarning, [mbOk, mbCancel], 0);



If eBtn = mrCancel Then Exit;



With SProc2 do begin

ParamByName('P_CUST').AsString := eFilm_Cust.Text;

ParamByName('P_DATE').AsString := eSend_Date.Text;

ParamByName('P_CODE').AsString := eFABRIC_CODE.Text;

ParamByName('P_DIV').AsString := '-';

ExecProc;

End;



With SqlQry do begin

Sql.Clear;

Sql.Add(' DELETE ');

Sql.Add(' FROM ORDR14MT ');

Sql.Add(' WHERE FILM_CUST = :FILM_CUST ');

Sql.Add(' AND SEND_DATE = :SEND_DATE ');

Sql.Add(' AND FABRIC_CODE = :FABRIC_CODE ');

ParamByName('FILM_CUST').AsString := eFILM_CUST.Text;

ParamByName('SEND_DATE').AsString := eSEND_DATE.Text;

ParamByName('FABRIC_CODE').AsString := eFABRIC_CODE.Text;

ExecSql;

end;



// 원위치 잡기의해 저장

MQuery.DisableControls;

MQuery.Next;

if MQuery.eof Then

Eof_sw := True

else

begin

MQuery.Prior;

mark := MQuery.Getbookmark;

Eof_sw := False;

end;



MQuery.Close;

MQuery.Open;



// 마지막일경우 에 마지막으로 이동

if Eof_sw Then

MQuery.Last

else

begin

MQuery.GotoBookMark(Mark);

MQuery.FreeBookMark(Mark);

end;



MQuery.EnableControls;



If DbGrid1.Focused <> True Then

User_Handle(True);



Ins_Sw := '';

end;



procedure TForm1.BtnCloseClick(Sender: TObject);

begin

If Ins_Sw = 'INS' then begin

With SqlQry do begin

Sql.Clear;

Sql.Add(' DELETE FROM ORDR14MT ');

Sql.Add(' WHERE FILM_CUST = :FILM_CUST ');

Sql.Add(' AND SEND_DATE = :SEND_DATE ');

Sql.Add(' AND FABRIC_CODE = :FABRIC_CODE ');

ParamByName('FILM_CUST').AsString := eFILM_CUST.Text;

ParamByName('SEND_DATE').AsString := eSEND_DATE.Text;

ParamByName('FABRIC_CODE').AsString := eFABRIC_CODE.Text;

ExecSql;

end;

Ins_Sw := '';

end;



Close;

end;



//-------------------------------------------------------------------

// Key Event

//-------------------------------------------------------------------

procedure TForm1.S_Value2Exit(Sender: TObject);

begin



If ORDR14MT.Active = False Then

ORDR14MT.Open;

User_Clear;

User_MOpen(' ');

Dbgrid1.SetFocus;

PanelData.Enabled := false;



end;



//-------------------------------------------------------------------

// Dbgrid Event

//-------------------------------------------------------------------

procedure TForm1.DBGrid1TitleClick(Column: TColumn);

begin

If MQuery.Active = False Then Exit;

User_MOpen(Column.Field.FieldName + ReOrder(Dbgrid1, Column));

end;



procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If ( Key = Vk_Return ) and

( MQuery.FieldByName('SEND_DATE').AsString <> '' ) Then

Begin

// User_Handle(Panel3.Enabled);

panel3.enabled := true;

DBGrid2.SetFocus;

DBGrid2.SelectedField := Ordr14MT.FieldByName('ORDER_NO_BUYER');

End;



If Key = Vk_Insert Then

BtnInsertClick(Sender);

end;



procedure TForm1.DBGrid2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

IF ((shift = [ssCtrl]) and (key = Vk_delete)) then

begin

key := 0;

Abort;

end;

end;

//-------------------------------------------------------------------

// Master Query Event

//-------------------------------------------------------------------

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);

begin

User_ToEdit;





With TotQty do begin

Close;

Parambyname('FILM_CUST').AsString := eFILM_CUST.Text;

Parambyname('SEND_DATE').AsString := eSEND_DATE.Text;

Parambyname('FABRIC_CODE').AsString := eFABRIC_CODE.Text;

Open;

end;



end;



//-------------------------------------------------------------------

// Edit Field's Event

//-------------------------------------------------------------------

procedure TForm1.eFABRIC_CODEKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If ( Key = Vk_Escape ) Then BtnCancelClick(Sender);

If ( Key = Vk_Insert ) Then BtnInsertClick(Sender);

If ( key = Vk_F1 ) or ( key = Vk_Return ) Then

begin

Code_Help('FBRC','%'+Trim(eFABRIC_CODE.Text)+'%','SHOW', 0, 0, HCode, HName);



If HCode = '' Then Exit;

eFABRIC_CODE.Text := HCode;

dFABRIC_CODE.Caption := HName;

end;

end;



procedure TForm1.eFABRIC_CODEExit(Sender: TObject);

begin

If ( Dbgrid1.Focused ) or

( PanelQuery.Focused ) Then Exit;



If eFABRIC_CODE.TEXT = '' Then

Begin

eBtn := MessageDlg(' ☞ 원단 코드는 반드시 입력해야 합니다... ',

mtWarning, [mbOk], 0);

eFABRIC_CODE.SetFocus;

Exit;

End;



eStr := Find_Sql('SELECT FABRIC_CODE FROM ORDR14MT', '', 'FILM_CUST||SEND_DATE||FABRIC_CODE',eFILM_CUST.TEXT + eSEND_DATE.TEXT + eFABRIC_CODE.Text);

If eStr <> '' Then

Begin

eBtn := MessageDlg(' ☞ 해당 정보가 이미 등록되어 있습니다... ',

mtWarning, [mbOk], 0);

eFILM_CUST.SetFocus;

Exit;

End;



Code_Help('FBRC',eFABRIC_CODE.Text,'NOSHOW', 0, 0, HCode, HName);

dFABRIC_CODE.Caption := HName;

If (eFABRIC_CODE.Text <> '') And (HName = '') Then

begin

dFABRIC_CODE.Caption := '원단 코드 입력이 잘못되었습니다.';

eFABRIC_CODE.SetFocus;

Exit;

end;



With SProc1 do begin

ParamByName('P_CUST').AsString := eFilm_Cust.Text;

ParamByName('P_DATE').AsString := eSend_Date.Text;

ParamByName('P_CODE').AsString := eFABRIC_CODE.Text;

ExecProc;

End;



panel1.enabled := true;

panel3.enabled := true;

dbgrid2.enabled := true;

Ins_Sw := 'INS';



DBGrid2.SetFocus;

DBGrid2.SelectedField := Ordr14MT.FieldByName('ORDER_NO_BUYER');

end;



procedure TForm1.eSEND_DATEKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key = Vk_Escape Then BtnCancelClick(Sender);

If (Key = Vk_Insert) Then BtnInsertClick(Sender);

end;



procedure TForm1.eSEND_DATEExit(Sender: TObject);

begin

If PanelQuery.Enabled Then Exit;





If eSEND_DATE.TEXT = '' Then

Begin

eBtn := MessageDlg(' ☞ 불출 일자는 반드시 입력해야 합니다... ',

mtWarning, [mbOk], 0);

eSEND_DATE.SetFocus;

Exit;

End;

end;



procedure TForm1.eFILM_CUSTExit(Sender: TObject);

begin

If PanelQuery.Enabled Then Exit;



If eFILM_CUST.TEXT = '' Then

Begin

eBtn := MessageDlg(' ☞ 업체 코드는 반드시 입력해야 합니다... ',

mtWarning, [mbOk], 0);

eFILM_CUST.SetFocus;

Exit;

End;



Code_Help('CUST',eFILM_CUST.Text,'NOSHOW', 0, 0, HCode, HName);

dFILM_CUST.Caption := HName;

If (eFILM_CUST.Text <> '') And (HName = '') Then

begin

dFILM_CUST.Caption := '업체 코드 입력이 잘못되었습니다.';

eFILM_CUST.SetFocus;

Exit;

end;

end;



procedure TForm1.eFILM_CUSTKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

If Key = Vk_Escape Then BtnCancelClick(Sender);

If (Key = Vk_Insert) Then BtnInsertClick(Sender);



If ( key = Vk_F1 ) or ( key = Vk_Return ) Then

begin

Code_Help('CUST','%'+Trim(eFILM_CUST.Text)+'%','SHOW', 0, 0, HCode, HName);



If HCode = '' Then Exit;

eFILM_CUST.Text := HCode;

dFILM_CUST.Caption := HName;

end;

end;



procedure TForm1.ORDR14MTBeforeInsert(DataSet: TDataSet);

begin

Abort;

end;





procedure TForm1.ORDR14MTAfterPost(DataSet: TDataSet);

begin

ORDR14MT.Refresh;

end;





end.