- 博客(13)
- 收藏
- 关注
原创 游戏_石头,剪刀,布
import java.io.*;import java.nio.Buffer;import java.util.Random;/** * Created by IntelliJ IDEA. * User: chy * Date: 2007-4-3 * Time: 15:36:27 * To change this template use File | Settings | File Tem
2007-04-15 22:34:00 801
原创 游戏_猜数字
import java.io.*;import java.util.Random;/** * Created by IntelliJ IDEA. * User: chy * Date: 2007-4-11 * Time: 14:54:42 * To change this template use File | Settings | File Templates. */public class
2007-04-15 22:29:00 495
原创 洗牌算法
int array[] = new int[15]; for (int i = 0; i array[i] = i+1; } for (int i = 0; i Random rnd = new Random(); int rd =rnd .nextInt(15) ;
2007-04-15 22:22:00 453
原创 前台POS
Imports System.DataImports System.Data.SqlClientPublic Class Form2 Dim conn As New SqlConnection("data source = 127.0.0.1 & ; initial catalog = supermarket;user id = text;password = text;") P
2007-03-31 18:09:00 620
原创 MD5加密
Imports System.Security.CryptographyModule MD5 Public Function strMd5(ByVal InputString As String) As String Dim MD5 Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetByte
2007-03-31 18:07:00 432
原创 FrmSell销售管理
Imports System.DataImports System.Data.SqlClientPublic Class FrmSell Dim str1 As String Private Sub FrmSell_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
2007-03-31 18:04:00 549
原创 FrmSupplier厂商管理
Imports System.DataImports System.Data.SqlClientPublic Class FrmSupplier Private Sub FrmSupplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim co
2007-03-31 18:03:00 430
原创 FrmEmployee人员管理
Imports System.DataImports System.Data.SqlClientPublic Class FrmEmployee Dim allow As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Lo
2007-03-31 18:01:00 455
原创 FrmMerch库存管理
Imports System.DataImports System.Data.SqlClientPublic Class FrmMerch Private Sub Frmload() Try Dim conn As New SqlConnection conn.ConnectionString = "data source=1
2007-03-31 18:00:00 696
原创 FrmStock进货管理
Imports System.DataImports System.Data.SqlClientPublic Class FrmStock Private Sub FrmStock_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Try
2007-03-31 17:57:00 517
原创 FormMain主窗体
Imports System.Data 主窗体Imports System.Data.SqlClientPublic Class FrmMain Private Sub 商品管理ToolStripMenuItem_
2007-03-23 17:48:00 1942
原创 FrmLogin登录窗体
Imports System.Data Imports System.Data.SqlClientPublic Class FrmLogin Private Sub Button1_Click_1(ByVal sender As System.Objec
2007-03-23 17:43:00 1560
原创 Sub Main做启动窗体
Module Module1 建一个模块 Public hh As Boolean Public Sub main() Dim FrmNew As New ForLogin Dim FrmMainNew As New
2007-01-25 20:29:00 1226
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人