본문 바로가기

분류 전체보기

오라클 명령어 모음 ==================== 오라클 시작 종료 ====================1. sqlplus / as sysdba;2. shutdown - 종료3. start - 시작 ================= 오라클 리스너 시작 종료 ==================1. lsnrctl2. stop - 종료3. start - 시작 ============== 현재 접속된 디비 인스턴스 보기 ===============select name from v$database; ==================== 디비 언어셋 변경 ====================select * from nls_database_parameters where parameter = 'NLS_CHARACTERSET'; conn..
오라클 계정생성, 비번변경, 계정삭제, 잠금풀기 ==================== 오라클 계정 생성 ====================create user INSA identified by INSA97 default tablespace users temporary tablespace temp; ============ 아이디 사용자에게 접속권한과 모든 권한 ============grant connect, resource, alter session to INSA; ============ 아이디 사용자에 dba 권한을 줌 ============GRANT dba TO INSA; ==================== 오라클 계정 삭제 ====================drop user INSA cascade; ==================== 오라클..
자식컨트롤 특정 클래스타입 찾기 var i, checkedCount: Integer; begin for i:=0 to GBMultiUpdate.ControlCount-1 do begin if TComponent(GBMultiUpdate.Controls[i]).ClassType = TCheckBox then if (GBMultiUpdate.Controls[i] as TCheckBox).Checked then Inc(checkedCount); end; end;
DBGrid 타이틀 클릭시 정렬하기(order by) DBGrid 는 ordering(sorting) 기능이 없다. DataSet(TFDQuery) 는 쿼리한 결과를 모두 가지고 있지 않다. 즉, 메모리에 모두 담고있지 않기 때문에 쿼리를 다시 해야 한다.이는 DataSet(TFDQuery).RecordCount 함수를 실행했을때 실제 쿼리결과의 row count 와 틀린 원인과 동일하다. // DBGrid 타이틀 클릭 procedure TfrmMain.DBGExamTitleClick(Column: TColumn); begin DoSortGrid(Column); end; // 쿼리 order by procedure TfrmMain.DoSortGrid(Column: TColumn); var sSQL : String; iPos,i : Integer; pQry ..
StringGrid의 Column의 크기(width) 자동 조절 원글 : http://www.howto.pe.kr/zboard/zboard.php?id=delphi_tiptrick&page=23&sn1=&divpage=1&sn=off&ss=on&sc=on&select_arrange=name&desc=desc&no=76 procedure AutoSizeGridColumn(Grid : TStringGrid; column : integer); var i : integer; temp : integer; max : integer; begin max := 0; for i := 0 to (Grid.RowCount-1) do begin // Grid Canvas를 기준으로한 지정한 Column의 각 row의 width중 // 최대값을 구하여 column의 width로 결정한다 te..
[dcc32 Fatal Error] F2048 Bad unit format: [dcc32 Fatal Error] memo.dpr(5): F2048 Bad unit format: 'Unit3.dcu' - Expected version: 28.0, Windows Unicode(x86) Found version: 28.0, Windows Unicode(x64) 위의 오류가 날때... 나같은 경우는 그냥 해당 unit 파일의 전체 텍스트를 복사 / 붙혀넣기 하니 컴파일이 잘되었다..
D7 -> RAD XE7 마이그레이션 #. BDE -> FireDAC 1. xxx.dfm 을 텍스트 에디터로 열어서1-1. TDatabase 를 TFDConnection 으로 변경 (자료형을 변경하는 것)1-2. 아래 두가지 컴포넌트를 텍스트로 추가함(현재 오라클 기준) object FDPhysOracleDriverLink: TFDPhysOracleDriverLink VendorLib = 'C:\insa\Win32\Debug\oci.dll' Left = 1096 Top = 258 end object FDGUIxWaitCursor: TFDGUIxWaitCursor Provider = 'Forms' Left = 1096 Top = 304 end1-3. TQuery 를 TFDQuery 로 변경 (자료형을 변경하는 것)1-4. TQuery 의 Au..
TDataSet(TQuery, TTable) 엑셀로 저장하기 // DataSet 을 엑셀로 내보내기 procedure TfrmMain.exportToExcel(DataSet: TDataSet); var XL, XArr, XTitle: Variant; i, j, k: Integer; FixedCol: String; begin try //타이틀 처리변수 XTitle := VarArrayCreate([1, DataSet.FieldCount], VarVariant); //데이타 처리변수 XArr := VarArrayCreate([1, DataSet.FieldCount], VarVariant); try //엑셀을 실행 XL := CreateOLEObject('Excel.Application'); except MessageDlg('Excel이 설치되어 있지 않습니다.', M..

티스토리툴바