Aplikasi Program HRD Management

Program Aplikasi Management HRD , Master Karyawan, Karyawan Masuk, karyawan PHK, Karyawan CUTI, karyawan Resign, Karyawan Mutasi, dan Input Absensi , Input Gaji, Input APD (Barang), Pengeluaran Barang(APD), Laporan Stock, Laporan Slip Gaji, Laporan Gaji, Laporan Absensi. Kami Beri Harga Rp. 5.700.000.
Kalau anda berminat anda bisa menghubungi di email muhajir.zusniyanto@yahoo.co.id,  di Nomer 0822-3095-6055.

Program Aplikasi Cerak Kwitansi

Program Aplikasi Cetak Kwitansi

Program Kwitansi di Jual dengan Harga  Rp. 4.500.000  , Untuk memudahkan dalam pembuatan kwitansi, jadi data untuk kwitansi bisa di Simpan, sewaktu-waktu apabila ingin melihatnya bisa di buka kembali, juga di lengkapi dengan Laporan KAS, dan Laporan Penerima KAS, dan Laporan Pengeluaran KAS.

Kalau anda berminat anda bisa menghubungi di email muhajir.zusniyanto@yahoo.co.id,  di Nomer 0822-3095-6055.

Aplikasi Pembayaran Tagihan PDAM

Aplikasi Pembayaran Tagihan PDAM , Program Aplikasi ini sudah banyak dipesan dalam suatu HIPPAM di kalangan Umum.,Fitur-fitur yang digunakan, Ada Master Pelanggan, Input Tagihan, Perhitungan Beban, dan Biaya Bisa Di Custom, sesuai dengan keinginan Pengguna, Juga di Lengkapi Tagihan yang BELUM LUNAS dan Tagihan yang SUDAH LUNAS.

Program Aplikasi Pembayaran Tagihan PDAM, kami hargai Rp. 4.600.000 .

Kalau anda berminat anda bisa menghubungi di email muhajir.zusniyanto@yahoo.co.id, di Nomer 0822-3095-6055.

Program Aplikasi Cetak Kartu ID Barcode

Program Aplikasi Cetak Kartu ID, Di gunakan di Dinas Kesehatan Pemerintahan, yang di Lengkapi dengan Input Foto Penduduk, Cetak ID BARCODE, laporan By Barcode ID, laporan Data Penduduk per Kecamatan/ per Desa, serta Di lengkapi dengan Import Data Dari Excel ke program Aplikasi Untuk Memudahkan user Di input Ulang, dan program ini di lengkapi dengan Multi User, Backup Data.

Program Aplikasi Cetak Kartu ID Barcode, 

Program Tersebut Kami Hargai Rp. 5.000.000, . Kalau anda berminat anda bisa menghubungi di email muhajir.zusniyanto@yahoo.co.id,  di Nomer 0822-3095-6055.

Cara Hitung Inventory Barang , pakai Stored Prodecure SQL Server

 

CREATE PROCEDURE HitungInventory 

(

@xKODEBARANG VARCHAR(30),

@xBULAN INT,

@xTAHUN VARCHAR(4)

)

AS

DECLARE @NOID BIGINT, @PERIODE VARCHAR(6), @NOTRANSAKSI VARCHAR(30), @URUTTRANSAKSI INT, @KODEBARANG VARCHAR(3), @KETERANGAN VARCHAR(50)

DECLARE @TOTALHARGAAWAL MONEY, @MASUK FLOAT, @HARGAMASUK MONEY, @TOTALHARGAMASUK MONEY ,@KELUAR MONEY, @HARGAKELUAR MONEY, @TOTALHARGAKELUAR MONEY

DECLARE @AKHIR FLOAT, @HARGAHPP MONEY, @TOTALHARGAAKHIR MONEY , @BULAN INT, @TAHUN VARCHAR(4), @TANGGAL DATETIME

DECLARE @TOTMASUK FLOAT, @TOTKELUAR FLOAT

DECLARE @xTOTALHARGAAKHIR MONEY ,@xTotalHargaAkhirUpdate MONEY, @xAkhirUpdate FLOAT ,@xHargaHPPUpdate MONEY, @xAKHIR FLOAT, @XHARGAHPP MONEY

DECLARE @xTotalHargaKeluar MONEY

CREATE TABLE #TEMP

(

NOID BIGINT,

PERIODE VARCHAR(6),

TANGGAL DATETIME,

NOTRANSAKSI VARCHAR(30),

URUTTRANSAKSI INT,

KODEBARANG VARCHAR(30),

KETERANGAN VARCHAR(50),

TOTALHARGAAWAL MONEY,

MASUK FLOAT,

HARGAMASUK MONEY,

TOTALHARGAMASUK MONEY,

KELUAR FLOAT,

HARGAKELUAR MONEY,

TOTALHARGAKELUAR MONEY,

AKHIR FLOAT,

HARGAHPP MONEY,

TOTALHARGAAKHIR MONEY,

BULAN INT,

TAHUN VARCHAR(4)

) ON [PRIMARY]

DECLARE OPENPART CURSOR FOR

SELECT     NOID,PERIODE, TANGGAL, NOTRANSAKSI, URUTTRANSAKSI, KODEBARANG, KETERANGAN,TOTALHARGAAWAL, MASUK, HARGAMASUK, TOTALHARGAMASUK,

   KELUAR, HARGAKELUAR, TOTALHARGAKELUAR,    AKHIR, HARGAHPP, TOTALHARGAAKHIR, BULAN, TAHUN

FROM    TABELINVENTORY                      

WHERE KODEBARANG=@XKODEBARANG AND Bulan=@xBULAN and Tahun=@xTAHUN 

OPEN OPENPART

FETCH NEXT FROM OPENPART INTO @NOID , @PERIODE, @TANGGAL, @NOTRANSAKSI , @URUTTRANSAKSI, @KODEBARANG , @KETERANGAN , @TOTALHARGAAWAL,

@MASUK, @HARGAMASUK, @TOTALHARGAMASUK ,@KELUAR, @HARGAKELUAR, @TOTALHARGAKELUAR , 

@AKHIR , @HARGAHPP, @TOTALHARGAAKHIR, @BULAN, @TAHUN

WHILE @@FETCH_STATUS=0

BEGIN

INSERT INTO #TEMP

VALUES (@NOID , @PERIODE, @TANGGAL, @NOTRANSAKSI , @URUTTRANSAKSI, @KODEBARANG , @KETERANGAN , @TOTALHARGAAWAL,

@MASUK, @HARGAMASUK, @TOTALHARGAMASUK ,@KELUAR, @HARGAKELUAR, @TOTALHARGAKELUAR , 

@AKHIR , @HARGAHPP, @TOTALHARGAAKHIR, @BULAN, @TAHUN)

    FETCH NEXT FROM OPENPART INTO @NOID , @PERIODE, @TANGGAL, @NOTRANSAKSI , @URUTTRANSAKSI, @KODEBARANG , @KETERANGAN , @TOTALHARGAAWAL,

@MASUK, @HARGAMASUK, @TOTALHARGAMASUK ,@KELUAR, @HARGAKELUAR, @TOTALHARGAKELUAR , 

@AKHIR , @HARGAHPP, @TOTALHARGAAKHIR, @BULAN, @TAHUN

END

CLOSE OPENPART

DEALLOCATE OPENPART

DECLARE OPENPART1 CURSOR FOR

--SELECT    NOID,PERIODE, TANGGAL, NOTRANSAKSI, URUTTRANSAKSI, KODEBARANG, KETERANGAN, TOTALHARGAAWAL, MASUK, HARGAMASUK, TOTALHARGAMASUK,

--   KELUAR, HARGAKELUAR, TOTALHARGAKELUAR, 

--  AKHIR, HARGAHPP, TOTALHARGAAKHIR, BULAN, TAHUN

--FROM    #TEMP    ORDER BY  Tanggal asc,NoId asc     

SELECT     NOID,PERIODE, TANGGAL, NOTRANSAKSI, URUTTRANSAKSI, KODEBARANG, KETERANGAN,TOTALHARGAAWAL, MASUK, HARGAMASUK, TOTALHARGAMASUK,

   KELUAR, HARGAKELUAR, TOTALHARGAKELUAR, 

  AKHIR, HARGAHPP, TOTALHARGAAKHIR, BULAN, TAHUN

FROM    TABELINVENTORY                      

WHERE KODEBARANG=@XKODEBARANG AND Bulan=@xBULAN and Tahun=@xTAHUN              

OPEN OPENPART1

FETCH NEXT FROM OPENPART1 INTO @NOID , @PERIODE, @TANGGAL, @NOTRANSAKSI , @URUTTRANSAKSI, @KODEBARANG , @KETERANGAN , @TOTALHARGAAWAL,

@MASUK, @HARGAMASUK, @TOTALHARGAMASUK ,@KELUAR, @HARGAKELUAR, @TOTALHARGAKELUAR , 

@AKHIR , @HARGAHPP, @TOTALHARGAAKHIR, @BULAN, @TAHUN

WHILE @@FETCH_STATUS=0

BEGIN

IF @URUTTRANSAKSI=0

BEGIN

IF @HARGAHPP=0 

BEGIN

SET @xTOTALHARGAAKHIR=@TOTALHARGAAWAL

SET @xTotalHargaAkhirUpdate=@xTOTALHARGAAKHIR

SET @xAkhirUpdate=@AKHIR

END

ELSE

BEGIN

SET @xTOTALHARGAAKHIR=@TOTALHARGAAKHIR

SET @xTotalHargaAkhirUpdate=@xTOTALHARGAAKHIR

SET @xAkhirUpdate=@AKHIR

SET @xHargaHPPUpdate=@HARGAHPP

END

END

IF @URUTTRANSAKSI=1 AND @KETERANGAN='FAKTURBELI'

BEGIN

IF @HARGAHPP=0 

BEGIN

SET @xTOTALHARGAAKHIR=@TOTALHARGAAWAL

SET @xAkhir=@AKHIR

END

ELSE

BEGIN

SET @xTOTALHARGAAKHIR=@xTotalHargaAkhirUpdate

SET @xAkhir=@xAkhirUpdate

END

--NEXT DATA

SET @xAkhir=@xAkhir + @Masuk

SET @xTotalHargaAkhir = @TOTALHARGAMASUK + @XTOTALHARGAAKHIR

IF @xAKHIR<>0

BEGIN

SET @XHARGAHPP=@XTOTALHARGAAKHIR / @XAKHIR

END

SET  @xHargaHPPUpdate =@XHargaHPP

            SET @xTotalHargaAkhirUpdate = @xTotalHargaAkhir

            SET @xAkhirUpdate = @xAkhir

Update #TEMP set  Masuk=@MASUK, HargaMasuk=@HARGAMASUK, TotalHargaMasuk=@TOTALHARGAMASUK,

                                                 Akhir=@XAKHIR, HargaHPP=@XHARGAHPP, TotalHargaAkhir=@XTOTALHARGAAKHIR

                          where NOID=@NOID and periode=@PERIODE and NoTransaksi=@NOTRANSAKSI and KodeBarang=@KODEBARANG

END

IF @URUTTRANSAKSI=2 AND @KETERANGAN='FAKTURJUAL'

BEGIN

IF @HARGAHPP=0 

BEGIN

SET @xTOTALHARGAAKHIR=@TOTALHARGAAWAL

SET @xAkhir=@AKHIR

END

ELSE

BEGIN

SET @xTOTALHARGAAKHIR=@xTotalHargaAkhirUpdate

SET @xAkhir=@xAkhirUpdate

SET @xHargaHPP = @xHargaHPPUpdate

END

--NEXT DATA

SET @xAkhir=@xAkhir - @Keluar

SET @xTotalHargaKeluar = @KELUAR * @xHargaHPP  

SET @xTotalHargaAkhir = @XTOTALHARGAAKHIR - @xTotalHargaKeluar

SET @xAkhirUpdate = @xAkhir

SET  @xHargaHPPUpdate =@XHargaHPP

            SET @xTotalHargaAkhirUpdate = @xTotalHargaAkhir            

Update #TEMP set  KELUAR=@KELUAR, HargaKeluar=@xHARGAHPP, TotalHargaKeluar=@xTotalHargaKeluar,

                                                 Akhir=@XAKHIR, HargaHPP=@XHARGAHPP, TotalHargaAkhir=@XTOTALHARGAAKHIR

                          where NOID=@NOID and periode=@PERIODE and NoTransaksi=@NOTRANSAKSI and KodeBarang=@KODEBARANG

END

SELECT @TOTMASUK=SUM(MASUK) , @TOTKELUAR=SUM(KELUAR) FROM #TEMP WHERE KODEBARANG=@KODEBARANG AND PERIODE=@PERIODE GROUP BY KODEBARANG

-- -- UPDATE NILAI STOCK

Update mstbarang SET  HargaHPP=@XHARGAHPP,QtyStock=@XAKHIR,  MASUK=@TOTMASUK, KELUAR=@TOTKELUAR, NilaiPersediaan=@XTOTALHARGAAKHIR

                      where kodebarang=@XKODEBARANG

    FETCH NEXT FROM OPENPART1 INTO @NOID , @PERIODE, @TANGGAL, @NOTRANSAKSI , @URUTTRANSAKSI, @KODEBARANG , @KETERANGAN , @TOTALHARGAAWAL,

@MASUK, @HARGAMASUK, @TOTALHARGAMASUK ,@KELUAR, @HARGAKELUAR, @TOTALHARGAKELUAR , 

@AKHIR , @HARGAHPP, @TOTALHARGAAKHIR, @BULAN, @TAHUN

END

CLOSE OPENPART1

DEALLOCATE OPENPART1

SELECT * FROM #TEMP ORDER BY  Tanggal asc,NoId asc

GO

Program Untuk Rekap Angka dan Perhitungan Angka , antara 4 digit, 3 digit, 2 digit. Dilengkapi dengan Report Untuk Cetak, 4 Digit, 3 Digit, dan 2 Digit, dan juga di lengkapi dengan Login User, serta data User, serta di lengkapi dengan pencarian datanya.

Kami Jual Dengan Harga Rp. 1.500.000, Untuk Order Ke Email Kami : Muhajir.Zusniyanto@Yahoo.co.id , atau Telp : 082230956055 dan juga kami melayani program custom yaitu sesuai dengan keinginan pelanggan.

Perekam Panggilan

Kami ingin mempromosikan Perekam Panggilan Skype kami di blog Anda. Namanya adalah Riviera untuk Skype.
Dalam pertukaran untuk promosi Anda akan menerima salinan lengkap dari produk.
Anda perlu membuat posting pendek dengan beberapa kalimattentang Riviera untuk Skype (seperti saya tulis di bawah) danmenyertakan link kembali:

http://www.jiteco.com/skype_call_recorder.html">Skype Call Recorder

Riviera untuk Skype adalah perekam panggilan Skype. Ini secara otomatis mencatat panggilan Skype dan percakapan ke file MP3.
Sangat nyaman untuk wawancara merekam, pembicaraanteknologi, konferensi, gips audio, polong gips untuk belajarkemudian, dll

Here is a link to download Riviera for Skype 3.6.21573: http://www.jiteco.com/download/riviera/riviera.exe

Software Sistem Informasi Jasa Service Motor Atau Mobil

Adanya kebutuhan badan usaha yang ingin mengetahui kondisi bisnisnya melalui analisa jual-beli yang termasuk didalamnya kartu Persediaan,Persediaan Barang, record pelanggan,hutang,pembayaran hutang,Piutang Penerimaan Piutang,Kas dan Bank,Biaya operasional,Pendapatan dan biaya Lain2, insentif Mekanik, Riwayat Perbaikkan,LABA RUGI (Rinci),REKAP LABA RUGI dan kebutuhan pasar.
Sehingga di butuhkan sebuah aplikasi yang bisa mendatabase / mencatat semua informasi yang berkaitan dengan transaksi Jasa service atau Jual Beli Part

Solusi:
Kami menyediakan sebuah aplikasi database “ AutoService ” yang berfungsi untuk mengetahui status kartu Persediaan,Persediaan Barang, record pelanggan,hutang,pembayaran hutang,Piutang Penerimaan Piutang,Kas dan Bank,Biaya operasional,Pendapatan dan biaya Lain2, insentif Mekanik, Riwayat Perbaikkan,LABA RUGI (Rinci),REKAP LABA RUGI dan semua informasi yang berkaitan dengan transaksi transaksi Jasa service atau Jual Beli Part, Sistem ini adlah Multi User.

Kami hargai sistem tersebut.....sebesar..Rp. 4.500.000

Apabila Pelanggan Minta yang Sesuai dengan Keinginan Pelanggan Kami hargai Rp. 8.500.000
Apabila Dengan Source Code Kami hargai Rp. 10.500.000

Untuk Pemesanan Bisa Melalui Email Muhajir.zusniyanto@yahoo.co.id atau Apabila anda Belum Jelas Bisa Hubungi di Nomer call  082230956055

Ini Adalah Contoh Penggunakan Aspxgridview, component lainnya di aspx.net









Untuk Component

DevExpress 9.1 dan DevExpress 12.1.4 di Jual dengan harga..........Rp. 50.000 Per Component, digunakan untuk VB.NET dan ASP.NET

(Beserta Contoh Program ASP.NET pakai DeveXpressnya, dengan AspxGridview, AspxComboBox,ASPxPageControl, ASPxTextBox, menampilkan, data di AspxGridView,New,Edit,Delete,Filter,RecordFocus,View Image, cara Connection Ke SQLServer dgn Class, dll )

Untuk yg Berminat bisa Kirim Email muhajir.zusniyanto@yahoo.co.id, Hp : 082230956055

Alat yang sangat nyaman untuk blogger

Ini adalah alat yang sangat nyaman untuk blogger. Ketika Anda menulis posting di blog anda, anda perlu
menangkap dan tanaman gambar dari sumber yang berbeda - alat ini adalah untuk Anda.

- Mendukung hotkeys, auto-tabungan, clipboard
- Secara otomatis salinan screenshot ke clipboard
- Trek menangkap sejarah, otomatis menyimpan foto yang diambil
- Menyimpan file dalam format BMP, GIF, JPEG, PNG dan format TIFF
- Auto-nama foto yang diambil


Anda Bisa mengunjungi di address di bawah ini
Screen Capture Software </ a>

Download dan instal SnapIt Screen Capture 3.7:
http://digeus.com/downloads/snapit/files/3/snapit_3_7.exe


bagi pembaca Anda jika mereka juga menciptakan
review di blog manapun / forum / twitter / facebook, dll, dan hubungi saya di Web Di bawah ini dengan link untuk meninjau, Screen Capture Software </ a>

Saya akan mengeluarkan kode reg dan nama untuk mereka.
Jangan ragu untuk menyertakan link ke artikel anda: Screen Capture Software </ a>

Manual Book , server 2003 , MDaemon , Sql server 2005

Pemesanan cara setting server atau pembuatan program dengan Manual Book

Untuk Setting Server 2003 dengan (Server data),(Terminal server) Untuk Manual Book dengan Harga (Rp. 75.000).
Untuk Setting MDaemon Untuk Manual Book dengan Harga (Rp. 50.000)

Cara Pembuatan Trigger dan Cara Pembuatan Stored Procedure dengan Database SQL Server 2005
Serta Menerapannya di ASP.NET atau di Visual Basic.net dan Visual Basic 6.0 dengan harga (Rp.100.000)

untuk pemesanannya anda Ke email muhajir.zusniyanto@yahoo.co.id atau call  082230956055

Cara Code Login di aspx.Net ...........Menggunakan Perintah Command

Dim msg as string

Try

Session.RemoveAll()

objCommand = New SqlCommand

objCommand.Connection = MyConnect.open

objCommand.CommandType = CommandType.Text

objCommand.CommandText = "select * from ViewUserID where UserName ='" & TextBox1.Text & "' " & _

" and password ='" & TextBox2.Text & "'"

objDataReader = objCommand.ExecuteReader

If objDataReader.Read Then

Session("Username") = TextBox1.Text

Session("Password") = TextBox2.Text

Session("Perusahaan") = objDataReader.Item("Namaperusahaan").ToString

Session("Access") = objDataReader.Item("Access").ToString

Response.Redirect("Default.aspx")

Else

msg = "alert('User Name / Password Tidak Valid');"

Page.ClientScript.RegisterStartupScript(Me.GetType(), "Pesan", msg, True)

objCommand.Dispose()

MyConnect.close()

End If

Catch ie As Exception

End Try

objCommand.Dispose()

MyConnect.close()

Cetak Crystal Report di asp.net menggunakan stored Procedure

Try

Dim objCommand As New SqlCommand("spLapAbsensiRemark", MyConnect.open)

Dim objDataAdapter1 As New SqlDataAdapter(objCommand)

objCommand.CommandType = CommandType.StoredProcedure

objCommand.CommandTimeout = 0

objCommand.Parameters.Add("@PeriodeStart", SqlDbType.VarChar, 10).Value = vawal

objCommand.Parameters.Add("@PeriodeEnd", SqlDbType.VarChar, 10).Value = vakhir

objCommand.Parameters.Add("@vperusahaan", SqlDbType.VarChar, 30).Value = vbengkel

objDataAdapter1.Fill(objDataset1, "LapAbsensiRemark")

Xdoc3.Load("D:\MasagungHrd\Program\Report\rptDaftarAbsensiRemark.rpt")

Xdoc3.SetDataSource(objDataset1.Tables("LapAbsensiRemark"))

CrystalReportViewer4.ReportSource = Xdoc3

objCommand.Dispose()

MyConnect.close()

Catch When Err.Number <> 0

msg = "alert('Tampil Report Karyawan Tdk Masuk Error');"

Page.ClientScript.RegisterStartupScript(Me.GetType(), "Pesan", msg, True)

End Try

Software Informasi Sekolah.....

Software Ini di create dengan menggunakan VB.NET dengan menggunakan database sqlserver 2005....dengan multiuser....software ini mencangkup data-data siswa, guru, dan data sekolah..serta input pembayaran SPP...dan ektrakurikuler..dan pembayaran administrasi (SPP, Administrasi)..transaksi Perpusatakaan,..input absensi...Input penilaian siswa....dll

untuk lebih jelasnya bisa kirim email ke....muhajir.zusniyanto@Yahoo.co.id atau no HP  082230956055

Dengan Harga.....Rp. 1.500.000

ERP DAN ENTERPRISE

ERP singkatan dari tiga elemen kata ...yaitu Enterprise (Perusahaan), Resource (sumber daya) dan planning (perencanaan). Tiga kata ini mencerminkan sebuah konsep yang berujung kepada kata kerja, yaitu "Planning" yang berarti bahwa ERP menekankan kepada aspek perencanaan.

Beberapa definisi tentang ERP dapat memberikan gambaran mengenai konsep dasar yang terkandung dalam ERP yaitu :

Tavis Anderegg mendifinisikan ERP sebagai [Has-2002]:
ERP is a complete enterprise wide businnes software solution.

Konsep ERP dapat di jalankan dengan baik, jika didukung oleh seperangkat aplikasi dan infrastruktur komputer baik software dan hardware sehinggan pengolahan data dan informasi dapat dilakukan dengan mudah dan terintegrasi. peranan perangkat teknologi dalam konsep ERP selain sebagai fasilitator juga karena perangkat teknologi tersebut dapat memberikan nilai tambah berupa perampingan proses, penyederhanaan proses, integrasi dan otomasi proses. Oleh karena itu, hampir tidak mungkin mewujudkan konsep ERP tanpa adanya dukungan sistem berbasis komputer.

ERP dapat di bagi menjadi beberapa tahan:
1. Material Requirement Planning
2. Close - Lloop MRP
3. Manufacturing Resource Planning
4. Enterprise Resource Planning
5. Extended ERP

Platform Android dari Google

Setelah sebulan ini beredar isu akan dirilisnya telpon berbasis linux Oleh Google pada 4 November 2007 yang lalu google meliris Android, platform berbasis linux untuk kebutuhan Phone Mobile dan perangkat lain nya yang dibuat Openhand - set alliance sebagai langkah awal, Open Hand alliance ini yang terdiri dari 34 anggota ini termasuk T-Mobile, HTC Qualcomm,Motorola, Intel, LG, dan Google. melihat para anggota yang tergabung di harapkan terjalin hubungan erat antara pembuat chipset, pabrik dan operator jaringan.
Menurut kabar yang ada, platform Android di buat dengan menggunakan kernel linux, dan akan di lesensikan sebagai open source. Hal ini tidak mengejutkan, dikarenakan linux saat ini sudah populer sebagai platform mobile phone, dan google di kenal sebagai pengguna linux untuk infrastruktur IT-nya. meski demikian hal ini menjadi kabar baik bagi linux di dunia mobile phone, dimana platform OS untuk mobile phone masih di dominan oleh Symbian.
Menurut rencana software Development kit untuk platform Android akan dirilis oleh Open handset Alliance pada 12 November 2007.

Cara Upload Foto Di ASP. Net by Muhajir

'Create by Muhajir

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click ' Image1.ImageUrl = FileUpload1.FileName If Not File1.PostedFile Is Nothing And File1.PostedFile.ContentLength > 0 Then Dim fn As String = System.IO.Path.GetFileName(File1.PostedFile.FileName) Dim SaveLocation As String = Server.MapPath("Data") & "\" & fn Dim SaveFile As String = fn Try TextBox1.Text = SaveLocation File1.PostedFile.SaveAs(SaveLocation) Response.Write("The This file has been uploaded.") 'http://Localhost/test/ 'Image1.ImageUrl = "~/data/logo.gif" 'directory di d:/test/data/logo.gif Image1.ImageUrl = "~" & "/data/" & SaveFile 'directory di d:/test/data/logo.gif tampilkan foto Catch Exc As Exception Response.Write("Error: " & Exc.Message) End Try Else Response.Write("Please select a file to upload.") End If

Cara Singkat untuk mengecilkan gambar/foto

1. Cara install Program

• Untuk mengecilkan gambar/foto kita akan membutuhkan sebuah program, program yang
  digunakan dibawah ini adalah PIXresizer. Untuk itu pertama kali kita harus men‐download
  program tersebut dari alamat: http://bluefive.pair.com/PIXresizer.zip
• Meng‐install program
  Setelah selesai di‐download maka program tersebut dapat diinstall kedalam komputer
  masing‐masing.
• Mencari program
  Setelah di‐install anda dapat melihat pada layar Desktop anda dan double click icon
  PIXresizer
• Mengecilkan beberapa (multiple) gambar sekaligus
  Untuk mengecilkan beberapa gambar sekaligus, kita perlu menyiapkan folder sumber dan
  folder tujuan.
  Didalam PIXresizer klik pada tab “Work with Multiple Files”

2. Cara Singkat untuk mengecilkan gambar/foto

• Klik pada tombol “Source” dan cari folder sumber dimana gambar‐gambar anda berada.

• Klik pada tombol “Destination” dan cari folder tujuan sebagai tempat kita untuk menyimpan hasil gambar‐gambar yang telah dikecilkan.
  

• Ganti slider “Select new size” ke 640 (untuk foto yang diupload dapat memilih ukuran antara 512 – 800)
  

• Klik tombol Save Pictures

Cara Insert pakai Stored Procedure Di ASP.NET by Muhajir

Dim con As SqlConnection
Dim cmd As SqlCommand

Dim MyAdapter As SqlDataAdapter
Dim MyReader As DataSet

Dim style As MsgBoxStyle
Dim respons As MsgBoxResult
Dim paramNik, paramNama, paramAlamat, paramKota As SqlParameter
Dim sTr, Pesan, msg As String

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

'Menggunakan stored procedure di sql server 2000

Try
con = New SqlConnection("server=(local);user id=sa;password=;database=hrd")
con.Open()

cmd = New SqlCommand("spInsMstKaryawan", con)
cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.Add(New SqlParameter("@nik", SqlDbType.NVarChar, 10))
cmd.Parameters.Add(New SqlParameter("@nama", SqlDbType.NVarChar, 25))
cmd.Parameters.Add(New SqlParameter("@alamat", SqlDbType.NVarChar, 30))
cmd.Parameters.Add(New SqlParameter("@kota", SqlDbType.NVarChar, 20))

cmd.Parameters("@nik").Value = TextBox1.Text
cmd.Parameters("@nama").Value = TextBox2.Text
cmd.Parameters("@alamat").Value = TextBox3.Text
cmd.Parameters("@kota").Value = DropDownList1.Text

msg = "Apakah Yakin Data Ini Di Simpan?" ' Define message.
style = MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Critical Or MsgBoxStyle.YesNo
Title = "MsgBox Simpan" ' Define title.
' Menampilkan Pesan

If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
MsgBox("Data Tdk Boleh Kosong", MsgBoxStyle.Information, "Simpan")
Else
respons = MsgBox(msg, style, Title)
If respons = MsgBoxResult.Yes Then ' User chose Yes.
' Perform some action.
cmd.ExecuteNonQuery()
MsgBox("Data Tersimpan", MsgBoxStyle.Information, "Simpan")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End If
End If
Catch msg1 As SqlException
MsgBox(msg1, MsgBoxStyle.Critical, "Error")
End Try
con.Close()
End Sub

Cara Create Persediaan Barang By Stored Procedure SQL SERVER 2005

-- =============================================
-- Author:
-- Create date: <12/02/2009>
-- Description:
-- =============================================
ALTER PROCEDURE [dbo].[SpPersedianDetail]
-- Add the parameters for the stored procedure here
(
@KODEBARANG NVARCHAR(10)
)

AS

DECLARE @ID INT, @KETERANGAN NVARCHAR(50)
DECLARE @TOTALHARGAAWAL MONEY, @TOTALHARGAMASUK MONEY, @TOTALHARGAAKHIR MONEY, @TOTALHARGATEMP MONEY
DECLARE @AKHIR INT, @HARGAAWAL MONEY, @MASUK INT, @HARGAHPP MONEY
DECLARE @KELUAR INT, @HARGAKELUAR MONEY, @TOTALHARGAKELUAR MONEY
DECLARE @SALDOAKHIR INT, @PERSEDIAAN MONEY

DECLARE @KODESEM NVARCHAR(10),@STOCKSEM INT, @HARGASEM MONEY, @TOTALSEM MONEY
BEGIN

SET NOCOUNT ON;

CREATE TABLE #TEMPAWAL
(
KODEBARANG NVARCHAR(10),
HPPTEMP MONEY,
SALDOTEMP INT,
PERSEDIAANTEMP MONEY
)ON [PRIMARY]

INSERT INTO #TEMPAWAL (KODEBARANG, HPPTEMP, SALDOTEMP,PERSEDIAANTEMP)
SELECT KODEBARANG , HARGA,STOCK, TOTALHARGAAWAL FROM MSTSALDOAWAL
--SELECT * FROM #TEMPAWAL


DECLARE OPENPART CURSOR FOR
SELECT ID,KODEBARANG , KETERANGAN FROM INVENTORY WHERE KODEBARANG=@KODEBARANG
ORDER BY ID

OPEN OPENPART

CREATE TABLE #TEMP
(
ID INT,
KODEBARANG NVARCHAR(10),
KETERANGAN NVARCHAR(50),
TOTALHARGAAWAL MONEY,
MASUK INT,
TOTALHARGAMASUK MONEY,
KELUAR INT,
HARGAKELUAR MONEY,
TOTALHARGAKELUAR MONEY,
AKHIR INT,
HARGAHPP MONEY,
TOTALHARGAAKHIR MONEY

) ON [PRIMARY]

FETCH NEXT FROM OPENPART INTO @ID,@KODEBARANG,@KETERANGAN

WHILE @@FETCH_STATUS=0
BEGIN
SELECT @TOTALHARGAAWAL=TOTALHARGAAWAL,@AKHIR=AWAL FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

SELECT @TOTALHARGAMASUK=TOTALHARGAMASUK FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

SELECT @TOTALHARGAAKHIR=TOTALHARGAAWAL FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

SELECT @AKHIR=AWAL FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

SELECT @MASUK=MASUK FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

SELECT @KELUAR=KELUAR FROM INVENTORY
WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN=@KETERANGAN

INSERT INTO #TEMP VALUES (@ID,@KODEBARANG, @KETERANGAN, @TOTALHARGAAWAL,@MASUK, @TOTALHARGAMASUK,@KELUAR,0,0, @AKHIR ,0,@TOTALHARGAAKHIR)

IF EXISTS (SELECT HARGAAWAL FROM INVENTORY WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='SALDOAWAL'))
BEGIN
SET @HARGAAWAL = (SELECT HARGAAWAL FROM INVENTORY WHERE ID=@ID AND KODEBARANG=@KODEBARANG AND KETERANGAN='SALDOAWAL')

UPDATE #TEMP
SET HARGAHPP=@HARGAAWAL
WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='SALDOAWAL')
END

IF EXISTS (SELECT ID,KODEBARANG,KETERANGAN FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='LPB'))
BEGIN
--SET @AKHIR=(SELECT SALDOTEMP FROM MSTSALDOAWAL WHERE KODEBARANG=@KODEBARANG)
SET @AKHIR=(SELECT SALDOTEMP FROM #TEMPAWAL WHERE KODEBARANG=@KODEBARANG)
SET @MASUK =(SELECT MASUK FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='LPB'))

SET @AKHIR=@AKHIR+@MASUK

--SET @TOTALHARGAAKHIR=(SELECT PERSEDIAANTEMP FROM MSTSALDOAWAL WHERE (KODEBARANG=@KODEBARANG))
SET @TOTALHARGAAKHIR=(SELECT PERSEDIAANTEMP FROM #TEMPAWAL WHERE (KODEBARANG=@KODEBARANG))
SET @TOTALHARGAMASUK =(SELECT TOTALHARGAMASUK FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='LPB'))
SET @TOTALHARGAAKHIR=@TOTALHARGAAKHIR + @TOTALHARGAMASUK

SET @HARGAHPP=@TOTALHARGAAKHIR / @AKHIR

UPDATE #TEMP
SET AKHIR=@AKHIR,TOTALHARGAAKHIR=@TOTALHARGAAKHIR, HARGAHPP=@HARGAHPP
WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='LPB')

--UPDATE MSTSALDOAWAL --PAKAI TABEL TEMPERORY UNTUK MEMBACA STOCK YANG TERAKHIR
--SET SALDOTEMP=@AKHIR
--WHERE KODEBARANG=@KODEBARANG

UPDATE #TEMPAWAL --PAKAI TABEL TEMPERORY UNTUK MEMBACA STOCK YANG TERAKHIR
SET SALDOTEMP=@AKHIR
WHERE KODEBARANG=@KODEBARANG

--UPDATE MSTSALDOAWAL --PAKAI TABEL TEMPERORY
--SET PERSEDIAANTEMP=@TOTALHARGAAKHIR
--WHERE KODEBARANG=@KODEBARANG

UPDATE #TEMPAWAL --PAKAI TABEL TEMPERORY
SET PERSEDIAANTEMP=@TOTALHARGAAKHIR
WHERE KODEBARANG=@KODEBARANG

--UPDATE MSTSALDOAWAL --PAKAI TABEL TEMPERORY
--SET HPPTEMP=@HARGAHPP
--WHERE KODEBARANG=@KODEBARANG

UPDATE #TEMPAWAL --PAKAI TABEL TEMPERORY
SET HPPTEMP=@HARGAHPP
WHERE KODEBARANG=@KODEBARANG

END

IF EXISTS (SELECT ID,KODEBARANG,KETERANGAN FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='BPB'))
BEGIN
--SET @HARGAHPP=(SELECT HPPTEMP FROM MSTSALDOAWAL WHERE KODEBARANG=@KODEBARANG)
--SET @SALDOAKHIR=(SELECT SALDOTEMP FROM MSTSALDOAWAL WHERE KODEBARANG=@KODEBARANG)
--SET @PERSEDIAAN= (SELECT PERSEDIAANTEMP FROM MSTSALDOAWAL WHERE KODEBARANG=@KODEBARANG)

SET @HARGAHPP=(SELECT HPPTEMP FROM #TEMPAWAL WHERE KODEBARANG=@KODEBARANG)
SET @SALDOAKHIR=(SELECT SALDOTEMP FROM #TEMPAWAL WHERE KODEBARANG=@KODEBARANG)
SET @PERSEDIAAN= (SELECT PERSEDIAANTEMP FROM #TEMPAWAL WHERE KODEBARANG=@KODEBARANG)

UPDATE #TEMP
SET HARGAKELUAR=@HARGAHPP,HARGAHPP=@HARGAHPP
WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='BPB')

SET @KELUAR =(SELECT KELUAR FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='BPB'))
SET @HARGAKELUAR =(SELECT HARGAKELUAR FROM #TEMP WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='BPB'))

SET @TOTALHARGAKELUAR=@KELUAR * @HARGAKELUAR
SET @AKHIR=@SALDOAKHIR-@KELUAR
SET @PERSEDIAAN=@PERSEDIAAN-@TOTALHARGAKELUAR

UPDATE #TEMP
SET TOTALHARGAKELUAR=@TOTALHARGAKELUAR, AKHIR=@AKHIR, TOTALHARGAAKHIR=@PERSEDIAAN
WHERE (ID=@ID) AND (KODEBARANG=@KODEBARANG) AND (KETERANGAN='BPB')

--UPDATE MSTSALDOAWAL --PAKAI TABEL TEMPERORY UNTUK UPDATE STOCK TERAKHIR , BACA PERSEDIAAN YANG TERAKHIR
--SET SALDOTEMP=@AKHIR
--WHERE KODEBARANG=@KODEBARANG

UPDATE #TEMPAWAL --PAKAI TABEL TEMPERORY UNTUK UPDATE STOCK TERAKHIR , BACA PERSEDIAAN YANG TERAKHIR
SET SALDOTEMP=@AKHIR
WHERE KODEBARANG=@KODEBARANG

--UPDATE MSTSALDOAWAL --PAKAI TABEL TEMPERORY UNTUK UPDATE PERSEDIAANTEMP TERAKHIR , BACA PERSEDIAAN YANG TERAKHIR
--SET PERSEDIAANTEMP=@PERSEDIAAN
--WHERE KODEBARANG=@KODEBARANG

UPDATE #TEMPAWAL --PAKAI TABEL TEMPERORY UNTUK UPDATE PERSEDIAANTEMP TERAKHIR , BACA PERSEDIAAN YANG TERAKHIR
SET PERSEDIAANTEMP=@PERSEDIAAN
WHERE KODEBARANG=@KODEBARANG

END
FETCH NEXT FROM OPENPART INTO @ID,@KODEBARANG, @KETERANGAN
END
CLOSE OPENPART
DEALLOCATE OPENPART

SELECT * FROM #TEMP --WHERE KODEBARANG=@KODEBARANG

END