Visual Basic

nlarson11 wrote:

When loading grids with data tables, if you want to have nested tables (grid shows a + to expand and show the 2nd table) you create a datarelation - method available in the dataset object.

nlarson11 wrote:

Is there an equivalent to creating a datarelation so I nest the entity objects or would I have to convert the entities to datatables to do this?

Bastard Programmer from Hell

Sub Cetakprinter() 'print the transaction form
Dim MGrs As String
Printer.Font = "Courier New"<code></code>
Printer.FontSize = "10"
'cari data gaji dengan nomor slip terakhir
Call BukaDB
RSGaji1.Open "select * from Gaji1 Where NomorSlp In(Select Max(NomorSlp)From Gaji1)Order By NomorSlp Desc", Conn
'cari data kasir yang kodenya ada di tabel gaji
RSKasir.Open "select * from kasir where kodeksr=" & RSGaji1!KodeKsr & "", Conn
RSKasir.Requery
'cari data pegawai yang nip-nya ada di tabel gaji
RSPegawai1.Open "select * from Pegawai1 where NIP=" & RSGaji1!NIP & "", Conn
RSPegawai1.Requery
Printer.Print
Printer.FontBold = True
'Printer.Print
Printer.FontBold = False
'cetak nomor slip,tanggal,nip dan seterusnya
Printer.CurrentX = 0
Printer.CurrentY = 0
'Printer.Print Tab(5); Image1.Picture = LoadPicture(logo_rs1.bmp)
Printer.Print Tab(15); "RSUD SARAS HUSADA "
'Printer.Print Tab(20); "SARAS HUSADA "
Printer.Print Tab(20); "PURWOREJO "
MGrs = String$(40, "=")
Printer.Print Tab(5); MGrs
'Printer.Print
Printer.Print
Printer.Print Tab(5); "Nomor Slip :  "; RSGaji1!NomorSlp
Printer.Print Tab(5); "Tanggal    :  "; Format(RSGaji1!Tanggal, "DD-MMMM-YYYY")
Printer.Print Tab(5); "NIP        :  "; RSGaji1!NIP
Printer.Print Tab(5); "Nama       :  "; RSPegawai1!NamaPgw
Printer.Print Tab(5); "Petugas    :  "; RSKasir!NamaKsr
MGrs = String$(40, "-")
'cetak isi tabel detailgaji berdasarkan nomor slip terakhir
Printer.Print Tab(5); MGrs
RSDetail.Open "select * from DetailGaji Where NomorSlp In(Select max(NomorSlp)From DetailGaji)", Conn
RSDetail.Requery
'If Not RSDetail.EOF Then
RSDetail.MoveFirst
Do While Not RSDetail.EOF
    'Call BukaDB
    Set RSPerkiraan1 = New ADODB.Recordset
    RSPerkiraan1.Open "select * from Perkiraan1 where KodePrk=" & RSDetail!KodePrk & "", Conn
    Printer.Print Tab(5); RSPerkiraan1!NamaPrk;
    If Left(RSDetail!KodePrk, 1) = "0" Then
        'jika satu digit awal kode perkirannya 0 maka beri tanda plus (+)
        Printer.Print Tab(25); RKanan(RSDetail!Jumlah, " Rp ###,###,### +")
    Else
        'jika satu digit awalnya kode perkiraannya 1 maka deri tanda minus (-)
        Printer.Print Tab(25); RKanan(RSDetail!Jumlah, " Rp ###,###,### -")
    End If
    RSDetail.MoveNext
Loop
'End If
Printer.Print Tab(5); MGrs
Printer.Print Tab(5); "Pendapatan :";
'cetak pendatapan
Printer.Print Tab(25); RKanan(RSGaji1!Pendapatan, " Rp ###,###,### +");
Printer.Print Tab(5); "Potongan   :";
'cetak potongan
Printer.Print Tab(25); RKanan(RSGaji1!Potongan, " Rp ###,###,### -");
Printer.Print Tab(5); MGrs
Printer.Print Tab(5); "Total      :";
'cetak totalnya (pendapatan -potongan)
If RSGaji1!Pendapatan = RSGaji1!Potongan Then
    Printer.Print Tab(34); RSGaji1!Pendapatan - RSGaji1!Potongan
Else
    Printer.Print Tab(25); RKanan(RSGaji1!Pendapatan - RSGaji1!Potongan, "Rp ###,###,### +");
End If
Printer.Print Tab(5); MGrs
Printer.Print
Printer.EndDoc
Printer.KillDoc
End Sub

rizaky2011 wrote:

could you please give me example for code treating numeric field in the database
as a text file

select * from Gaji1 Where NomorSlp In(Select Max(NomorSlp)From Gaji1)Order By NomorSlp Desc

Dim SimpanGaji As String
SimpanGaji = " Insert into Gaji1 _ (NomorSlp,Tanggal,Jam,NIP,Pendapatan,Potongan,GajiBersih,KodeKsr) values " & _
        "('" & LblNomorSlp & "','" & CDate(LblTanggal) & "','" & LblJam & "', " & _
        "'" & Combo1 & "','" & LblPendapatan & "','" & LblPotongan & "', " & _
        "'" & LblTotal & "','" & LblKodeKsr & "')"
        Conn.Execute (SimpanGaji)----> point to this code

Dim query As String = "INSERT INTO table (numericField1, stringField1) VALUES (23, 'SomeString')"