허걱 되네요.!!!
상단부분의
...
Left = 65019
Top = 149
...
부분의 값이 이상한 것 같아서..
Left값이 엄청큰게되어..
Top정도로.. 100정도로 수정했더니..
이상이 없네요...
고맙습니다..
머리굽혀 허리까지..꾸~~~벅..!!
헐..그런데..아무작업도 안했는데..
dfm의 폼위치값이 왜 변경되었을까????궁금하네요...
어쩄든...
이거 맹글떄는 win98+델7로 했고,,
다시오픈해서 이상할떄는 win2000+델7 로 한 차이밖에 없는뎅...????
하여튼,,다시한번 캄솨~~~^_^0
강가딘 님이 쓰신 글 :
: 먼저, 고맙습니다..
: .dfm파일 첨부합니다..
: 파일내용 보니..Left, Top,,에 마이너스 위치좌표는 없는뎅...???
:
: ---------------------------<uDM.dfm>--------------
: object DM: TDM
: OldCreateOrder = False
: Left = 65019
: Top = 149
: Height = 343
: Width = 465
: object pimsDB: TDatabase
: Connected = True
: DatabaseName = 'pimsDB'
: DriverName = 'INTRBASE'
: LoginPrompt = False
: Params.Strings = (
: 'SERVER NAME=d:\interbase\pims.gdb'
: 'USER NAME=tarzan'
: 'OPEN MODE=READ/WRITE'
: 'SCHEMA CACHE SIZE=8'
: 'LANGDRIVER='
: 'SQLQRYMODE='
: 'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
: 'SCHEMA CACHE TIME=-1'
: 'MAX ROWS=-1'
: 'BATCH COUNT=200'
: 'ENABLE SCHEMA CACHE=FALSE'
: 'SCHEMA CACHE DIR='
: 'ENABLE BCD=FALSE'
: 'BLOBS TO CACHE=64'
: 'BLOB SIZE=32'
: 'WAIT ON LOCKS=FALSE'
: 'COMMIT RETAIN=FALSE'
: 'ROLE NAME='
: 'PASSWORD=jane4u')
: SessionName = 'Default'
: Left = 8
: Top = 8
: end
: object tblPerson: TTable
: Active = True
: BeforeEdit = tblPersonBeforeEdit
: BeforePost = tblPersonBeforePost
: DatabaseName = 'pimsDB'
: TableName = 'PERSON'
: Left = 64
: Top = 8
: end
: object dsPerson: TDataSource
: DataSet = tblPerson
: Left = 128
: Top = 8
: end
: object tblOrg: TTable
: Active = True
: DatabaseName = 'pimsDB'
: TableName = 'ORGINFO'
: Left = 64
: Top = 64
: end
: object dsOrg: TDataSource
: DataSet = tblOrg
: Left = 128
: Top = 64
: end
: object tblCompany: TTable
: Active = True
: DatabaseName = 'pimsDB'
: TableName = 'COMPANY'
: Left = 64
: Top = 120
: object tblCompanyCP_NAME: TStringField
: FieldName = 'CP_NAME'
: Required = True
: Size = 40
: end
: object tblCompanyCP_ZIPCODE: TStringField
: FieldName = 'CP_ZIPCODE'
: FixedChar = True
: Size = 6
: end
: object tblCompanyCP_ADDR: TStringField
: FieldName = 'CP_ADDR'
: Size = 120
: end
: object tblCompanyCP_TEL: TStringField
: FieldName = 'CP_TEL'
: end
: object tblCompanyCP_FAX: TStringField
: FieldName = 'CP_FAX'
: end
: object tblCompanyCP_HOMEPAGE: TStringField
: FieldName = 'CP_HOMEPAGE'
: Size = 30
: end
: end
: object dsCompany: TDataSource
: DataSet = tblCompany
: Left = 128
: Top = 120
: end
: object Table1: TTable
: Left = 64
: Top = 184
: end
: end
: --------------------------------------
: 입니다...
:
: civilian 님이 쓰신 글 :
: : .PAS의 내용은 별 의미가 없으니 .DFM 파일을 에디터로 열어서 내용을 올려주세요.
: : 언젠가... 폼의 좌표가 화면영역에 표시할 수 없는 곳으로 설정된 경우가 있더군요.
: : Left = -1000, Top = -300
: : 머 이런식이면.. 화면에 안나오거든요.
: : 확인해볼 수 있는 방법은 DFM의 내용을 들여다보는 수 밖에 없습니다
: :
: : 강가딘 님이 쓰신 글 :
: : : 이전에 작성했든 델프로젝트를..이번에 시스템 다시밀고,,
: : : 포멧하여 설치하야 열어보니..
: : : Ctrl+F12를 눌러 폼을 선택한후에..\F12를눌러도 폼화면이 안보이네요..
: : :
: : : 프로젝트내의 다른폼들은 모두 정상적으로 잘보이는데...
: : : 아래 어느분이 답변한것처럼....dfm파일도 분명히 있습니다...
: : : uDM.pas
: : : uDM.dfm
: : : uDM.dcu
: : : uDM.ddp
: : :
: : : 라는 파일들이 분명 존재합니다....
: : :
: : : 아래는 소스화일첨부합니다...
: : : --------------< uDM.pas >p-----------------------
: : : unit uDM;
: : :
: : : interface
: : :
: : : uses
: : : SysUtils, Classes, DB, DBTables;
: : :
: : : type
: : : TDM = class(TDataModule)
: : : tblPerson: TTable;
: : : pimsDB: TDatabase;
: : : dsPerson: TDataSource;
: : : tblOrg: TTable;
: : : dsOrg: TDataSource;
: : : tblCompany: TTable;
: : : dsCompany: TDataSource;
: : : Table1: TTable;
: : : tblCompanyCP_NAME: TStringField;
: : : tblCompanyCP_ZIPCODE: TStringField;
: : : tblCompanyCP_ADDR: TStringField;
: : : tblCompanyCP_TEL: TStringField;
: : : tblCompanyCP_FAX: TStringField;
: : : tblCompanyCP_HOMEPAGE: TStringField;
: : : procedure tblPersonBeforePost(DataSet: TDataSet);
: : : procedure tblPersonBeforeEdit(DataSet: TDataSet);
: : : private
: : : { Private declarations }
: : : public
: : : { Public declarations }
: : : end;
: : :
: : : var
: : : DM: TDM;
: : :
: : : implementation
: : :
: : : {$R *.dfm}
: : :
: : : procedure TDM.tblPersonBeforePost(DataSet: TDataSet);
: : : begin
: : : DM.tblPerson.FieldByName('PN_SN').AsInteger := DM.tblPerson.FIeldByName('PN_SN').AsInteger +1;
: : : end;
: : :
: : : procedure TDM.tblPersonBeforeEdit(DataSet: TDataSet);
: : : begin
: : : tblPerson.Refresh;
: : : end;
: : :
: : : end.
: : : ----------------------------------------------------
|