델파이 초보자입니다.
vb에서는 stringgrid를 사용할때 ..
Grid.Clear
With Grid
.Rows = 2
.ColAlignment(0) = 4
.ColAlignment(1) = 4
.ColAlignment(2) = 4
.ColAlignment(3) = 4
.ColWidth(0) = 770
.ColWidth(1) = 2100
.ColWidth(2) = 2000
.ColWidth(3) = 1500
.TextMatrix(0, 0) = "번호"
.TextMatrix(0, 1) = "DATA"
.TextMatrix(0, 2) = "TIME"
.TextMatrix(0, 3) = "LOTNO"
End With
이렇게 해서 그리드 머릿말 부분을 만들고, 그리드 내용은 아래와같이...
Dim rs As ADODB.Recordset
Dim str As String
Set rs = New ADODB.Recordset
con.Open constr
str = str10
rs.Open str, con, adOpenStatic, adLockOptimistic
Dim Counter As Integer
Counter = 1
If Not rs.EOF Then
Do Until rs.EOF
With Grid
.Rows = rs.RecordCount + 1
.TextMatrix(Counter, 0) = Counter
.TextMatrix(Counter, 1) = rs!date1 & ""
.TextMatrix(Counter, 2) = rs!time1 & ""
.TextMatrix(Counter, 3) = rs!lotno & ""
End With
Counter = Counter + 1
rs.MoveNext
Loop
End If
Grid.Sort = 2
end sub
이렇게 사용하잖아요...
델파이에서는 어케 사용하는지??
그리고 혹시 component를 메뉴에 추가시키는건 어떻게 하는지 알고싶습니다.
고수님들... 초보자 한번 살려주십시요...
책에는 일반 그리드만 설명이 되어있어서...
부탁드립니다..
혹시 예제라도 있음 더욱더 좋겠습니다.
저도 빨리 배워서 남들을 도울그날까지 열심히 하겟습니다.
읽어주셔서 감사합니다. ^^
1. component 메뉴을 누르고 install Component... 를 실행한다.
2. Browse버튼을 눌러 추가할 컴포넌트를 선택한다.
(한꺼번에 여러개 선택해도 됨)
3. Ok 버튼을 누르고 YES버튼을 누르면 끝~~
다음은 stringGrid사용법임다.
음.. 제가 VB를 잘몰라서리...
1. 우선 폼에 stirngGrid를 올려놓고 적당히 size를 지정합니다.
with stirngGrid do
begin
ColCOunt := 3 ; // 스트링그리드 셀의 갯수 지정.
rowCOutn := 2 ; // 스트링그리드의 초기 row지정.
ColWidths[1] := 100 ; // 이런식으로 각 셀의 폭을 지정.
Cells[0,0] := '제목1' ;
Cells[1,0] := '제목2' ;
Cells[3,0] := '제목3' ;
Cells[4,0] := '제목4' ;
end ;
// 위의 예제가 Table을 그대로 stringGrid로 옮기는 것이라면...
addrow := 0 ;
with Table1 do
while not eof do
begin
stringGrid.rowCOunt := stringGrid.rowCOunt + 1 ;
INC(addrow) ;
stringGrid.Cells[0,addrow] := fieldByName(Counter').asString ;
stringGrid.Cells[1,addrow] := fieldByname('Date').asString;
stringGrid.Cells[2,addrow] := fieldByName('Time').asString ;
stringGrid.Cells[3,addrow] := FormatFloat('#,', fieldByName) ;
Next ;
end ;
end ;
// 이정도면 될것같은디...