计算机软件及应用程序代码

1、仓储管理系统代码【李彩享、字朝龙】一、窗体（frmLogin）登录的代码程序using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Data.SqlClient;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;namespace WMSpublicpartialclassfrmLogin : Form publicstati

2、cstring M_str_name; /记录登录用户名字publicstaticstring M_str_pwd; /记录登录用户密码publicstaticstring M_str_right; /记录登录用户的权限public frmLogin() InitializeComponent(); privatevoid frmLogin_Load(object sender, EventArgs e) /启动窗口时加载用户名 DbOperator db = newDbOperator();SqlConnection cnn = db.GetCon();SqlCommand cmd = ne

3、wSqlCommand(); cmd.CommandType = CommandType.Text; cmd.CommandText = select UserName from tbUserInfo ; / cmd.Connection = cnn; cnn.Open();SqlDataReader dr; dr = cmd.ExecuteReader();if (dr.HasRows) while (dr.Read()cmbUserList.Items.Add(drUserName.ToString().Trim();/在控件中显示用户名 cmbUserList.Sorted=true;

4、else MessageBox.Show(表中无记录！, 提示?, MessageBoxButtons.YesNo, MessageBoxIcon.Information); dr.Close(); cnn.Close(); privatevoid btnCancel_Click(object sender, EventArgs e) if (MessageBox.Show(你确定要退出吗?, 提示?, MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK)this.Close();else cmbUser

5、List.Focus();return; privatevoid btnLoad_Click(object sender, EventArgs e)/用存储过程实现验证登录 DbOperator db = newDbOperator();SqlConnection cnn = db.GetCon();SqlCommand cmd = newSqlCommand(); cmd.Connection = cnn; cmd.CommandType = CommandType.StoredProcedure; cmd.CommandText = proc_Login;SqlParameter paUs

6、er = newSqlParameter(); paUser.ParameterName = User_Name; paUser.SqlDbType = SqlDbType.VarChar; paUser.Size = 50; paUser.Value = cmbUserList.Text.Trim(); cmd.Parameters.Add(paUser);SqlParameter paPwd = newSqlParameter(); paPwd.ParameterName = User_Pwd; paPwd.SqlDbType = SqlDbType.VarChar; paPwd.Size

7、 = 20; paPwd.Value = txtPwd.Text.Trim(); cmd.Parameters .Add (paPwd );SqlParameter paRe = newSqlParameter(); paRe.ParameterName = re; paRe.SqlDbType = SqlDbType.Int; paRe.Value = 0; paRe.Direction = System.Data.ParameterDirection.Output;/设置 cmd.Parameters.Add (paRe ); cnn.Open (); cmd.ExecuteNonQuer

8、y ();int Re = int.Parse(cmd.Parametersre.Value.ToString();if (Re = 1) frmMain frm = newfrmMain(); frm.Show(); elseMessageBox.Show(用户名或密码错误！, 提示); cnn.Close(); privatevoid cmbUserList_SelectedIndexChanged(object sender, EventArgs e) DbOperator db = newDbOperator();SqlConnection cnn = db.GetCon();SqlC

9、ommand cmd = newSqlCommand();SqlDataReader sqlread = db.getread(select UserName,Power from tbUserInfo where UserName= + cmbUserList.Text.Trim ().ToString () + );if (sqlread.Read() labPower.Text = sqlreadPower.ToString(); M_str_right = labPower.Text; sqlread.Close(); cnn.Close(); cnn.Dispose(); priva

10、tevoid frmLogin_FormClosing(object sender, FormClosingEventArgs e) Application.Exit(); privatevoid txtPwd_KeyPress(object sender, KeyPressEventArgs e) if (e.KeyChar = 13) btnLoad.Focus(); privatevoid cboxUName_KeyPress(object sender, KeyPressEventArgs e) if (e.KeyChar = 13) txtPwd.Focus(); 二、主界面系统代码

11、using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Data.SqlClient;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;namespace WMSpublicpartialclassfrmMain : Form public frmMain() InitializeComponent(); privatevoi

12、d 商品采购查选ToolStripMenuItem_Click(object sender, EventArgs e) frmGoodsCGSelect frm = newfrmGoodsCGSelect(); frm.Show(); privatevoid 退?出?系统3ToolStripMenuItem_Click(object sender, EventArgs e) if (MessageBox.Show(你确定要退出吗？, 提示, MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK)this.C

13、lose(); privatevoid 重新登录ToolStripMenuItem_Click(object sender, EventArgs e) frmLogin frm1 = newfrmLogin(); frm1.ShowDialog(); privatevoid 商品类别设置ToolStripMenuItem_Click(object sender, EventArgs e)frmGoodsClassSet frm2 = newfrmGoodsClassSet(); frm2.Show();privatevoid 商品信息设置ToolStripMenuItem_Click(obje

14、ct sender, EventArgs e) frmGoodsInfo frm3 = newfrmGoodsInfo(); frm3.Show(); privatevoid 供应商设置ToolStripMenuItem_Click(object sender, EventArgs e) frmSupplierInfo frm4 = newfrmSupplierInfo(); frm4.Show(); privatevoid 仓库设置ToolStripMenuItem1_Click(object sender, EventArgs e) frmStoreInfo frm5 = newfrmSt

15、oreInfo(); frm5.Show(); privatevoid 库存盘点toolStripMenuItem23_Click(object sender, EventArgs e) frmKCPD frm6 = newfrmKCPD(); frm6.Show(); privatevoid 采购入库atoolStripMenuItem20_Click(object sender, EventArgs e) frmCGRK frm = newfrmCGRK(); frm.Show(); privatevoid toolStripMenuItem12_Click(object sender,

16、EventArgs e) frmGoodsInfo frm = newfrmGoodsInfo(); frm.Text = 商品信息查询; frm.ShowDialog(); privatevoid toolStripMenuItem22_Click(object sender, EventArgs e) frmCKGL frm = newfrmCKGL(); frm.Show(); privatevoid toolStripMenuItem8_Click(object sender, EventArgs e) frmGoodsCGSelect frm = newfrmGoodsCGSelec

17、t(); frm.Text = 商品采购统计; frm.Show(); privatevoid toolStripMenuItem15_Click(object sender, EventArgs e) frmGoodsInfo frm = newfrmGoodsInfo(); frm.Text = 当前库存查询; frm.Show(); privatevoid 更改密码ToolStripMenuItem_Click(object sender, EventArgs e) frmSetUser frm = newfrmSetUser(); frm.Show(); privatevoid 权限管

18、理ToolStripMenuItem_Click(object sender, EventArgs e) frmSetUsers frm = newfrmSetUsers(); frm.Show(); privatevoid 用户管理ToolStripMenuItem_Click(object sender, EventArgs e) frmSetUsers frm = newfrmSetUsers(); frm.Show(); privatevoid toolStripMenuItem9_Click(object sender, EventArgs e) frmSelectSupplier

19、frm = newfrmSelectSupplier(); frm.Show(); 三、商品类别设置代码using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Data.SqlClient;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;namespace WMSpublicpartialclassfrmGoodsClass

20、Set : Form public frmGoodsClassSet() InitializeComponent(); privatevoid frmGoodsClassSet_Load(object sender, EventArgs e) LoadGC(); grpbClass.Enabled = false; privatevoid dgvGClass_CellClick(object sender, DataGridViewCellEventArgs e) ShowGC(); privatevoid LoadGC()/将客户表显示在DataGridView中 DbOperator cl

21、sC = newDbOperator();SqlConnection cnn = clsC.GetCon();SqlCommand cmd = newSqlCommand(); cmd.CommandText = select ClassID as 类别编号,ClassName as 类别名称,ClassUnit as 参考单位, + KCSX as 库存上限,KCXX as 库存下限 from tbGoodsClass; cmd.CommandType = CommandType.Text; cmd.Connection = cnn;SqlDataAdapter da = newSqlDat

22、aAdapter(); da.SelectCommand = cmd;DataSet ds = newDataSet(); da.Fill(ds,tbGoods); dgvGClass.DataSource = ds; dgvGClass.DataSource = ds.Tables0; dgvGClass.Columns0.Visible = true ;/隐藏ID列 da.Dispose(); cmd.Dispose(); cnn.Dispose(); privatevoid ShowGC() if (dgvGClass.RowsdgvGClass.CurrentCell.RowIndex

23、.Cells0.Value.ToString() != ) txtGoodsClassID.Text = dgvGClass.RowsdgvGClass.CurrentCell.RowIndex.Cells0.Value.ToString();txtClassName.Text = dgvGClass.RowsdgvGClass.CurrentCell.RowIndex.Cells1.Value.ToString(); txtClassUnit.Text = dgvGClass.RowsdgvGClass.CurrentCell.RowIndex.Cells2.Value.ToString()

24、;txtKCSX.Text = dgvGClass.RowsdgvGClass.CurrentCell.RowIndex.Cells3.Value.ToString();txtKCXX.Text = dgvGClass.RowsdgvGClass.CurrentCell.RowIndex.Cells4.Value.ToString(); privatevoid OperateRecord(string sSQL)/记录的添加、修改、删除 DbOperator clsC = newDbOperator();SqlConnection cnn = clsC.GetCon();SqlCommand

25、cmd = newSqlCommand(); cmd.CommandText = sSQL; cmd.CommandType = CommandType.Text; cmd.Connection = cnn; cnn.Open(); cmd.ExecuteNonQuery(); cnn.Close(); cnn.Dispose(); cmd.Dispose(); privatevoid btnClear_Click(object sender, EventArgs e)/清空文本框 txtGoodsClassID.Text = ; txtClassName.Text = ; txtClassU

26、nit.Text = ; txtKCSX.Text = ; txtKCXX.Text = ; txtGoodsClassID.Focus(); privatevoid btnExit_Click(object sender, EventArgs e)/退出按钮 if (MessageBox.Show(你确定要退出吗？, 提示, MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK)this.Close(); privatevoid btnAdd_Click(object sender, EventArgs

27、e)/实现添加功能 if (btnAdd.Text = 添加)/单击添加 grpbClass.Enabled = true;/允许编辑 btnAdd.Text = 保存; btnXG.Enabled = false; btnDelete.Enabled = false; btnReturn.Enabled = true ; txtGoodsClassID.Text = ; txtClassName.Text = ; txtClassUnit.Text = ; txtKCSX.Text = ; txtKCXX.Text = ; txtGoodsClassID.Focus();else/单击保存s

28、tring s = Insert Into tbGoodsClass(ClassID,ClassName,ClassUnit,KCSX,KCXX) Values; s += ( + txtGoodsClassID.Text.Trim() + , + txtClassName.Text.Trim() + , + txtClassUnit.Text.Trim() + , + txtKCSX.Text.Trim() + , + txtKCXX.Text.Trim() + ); OperateRecord(s); grpbClass.Enabled = false; btnAdd.Text = 添加;

29、 btnXG.Enabled = true; btnDelete.Enabled = true; btnReturn.Enabled = true; LoadGC();privatevoid btnDelete_Click(object sender, EventArgs e)/实现删功能 if (txtGoodsClassID.Text != )if (MessageBox.Show(您确实要删除 + txtClassName.Text + 的类别吗？, 删除类别, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResul

30、t.Yes)string s = Delete from tbGoodsClass where ClassID= + txtGoodsClassID.Text + ; OperateRecord(s); LoadGC();/重新加载客户表 elseMessageBox.Show(您未选中要删除的商品类别！, 错误, MessageBoxButtons.OK, MessageBoxIcon.Error); privatevoid btnXG_Click(object sender, EventArgs e) if (btnXG.Text = 修T改?)/单击修改 grpbClass.Enable

31、d = true;/允许编辑 btnXG.Text = 保存; btnAdd.Enabled = false; btnDelete.Enabled = false; btnReturn.Enabled = false; txtGoodsClassID.Enabled = false; txtClassName.Focus(); else/单击保存 string s = Update tbGoodsClass SET ; s += ClassName= + txtClassName.Text.Trim() + ,ClassUnit= + txtClassUnit.Text.Trim() + ,K

32、CSX= + txtKCSX.Text.Trim() + ,KCXX= + txtKCXX.Text.Trim() + ;s += where ClassID= + txtGoodsClassID. Text + ; OperateRecord(s); grpbClass.Enabled = false; btnXG.Text = 修改; btnAdd.Enabled = true; btnDelete.Enabled = true; btnReturn.Enabled = true; txtGoodsClassID. Enabled = true; LoadGC();/重新加载客户表 四、商

33、品信息using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Data.SqlClient;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;namespace WMSpublicpartialclassfrmGoodsInfo : Form public frmGoodsInfo() InitializeComponent(

34、); privatevoid btnQuit_Click(object sender, EventArgs e) if (MessageBox.Show(你确定要退出吗？, 提示, MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = DialogResult.OK)this.Close(); privatevoid ShowDGV() DbOperator db = newDbOperator();SqlConnection cnn = db.GetCon();SqlCommand cmd = newSqlCommand(); cmd.

35、CommandText = select GoodsID as 商品编号,GoodsName as 商品名称, ClassID as 类别编号,StoreID as 仓库编号,GPrice as 单价,+GoodsUnit as 单位,KCNum as 库存数量,KCSX as 库存上限T,KCXX as 库存下限,Availabe as 是否可用,BZ as 备注from tbGoodsInfo;/cmd.CommandText = select * from tbGoodsInfo; cmd.CommandType = CommandType.Text; cmd.Connection =

36、cnn;SqlDataAdapter da = newSqlDataAdapter(); da.SelectCommand = cmd;DataSet ds = newDataSet(); da.Fill(ds);/dgvGoodsInfo.DataSource = ds; dgvGoodsInfo.DataSource = ds.Tables0; dgvGoodsInfo.Columns0.Visible = true;/隐藏ID列 da.Dispose(); cmd.Dispose(); cnn.Dispose(); privatevoid btnAdd_Click(object send

37、er, EventArgs e) frmGoodsInfoSet frm = newfrmGoodsInfoSet(); frm.Show(); privatevoid btnGSelect_Click(object sender, EventArgs e) if (btnGSelect.Text = 查 询) dgvGoodsInfo.ClearSelection();DbOperator dbo = newDbOperator();SqlConnection con = dbo.GetCon();SqlCommand com = newSqlCommand(); com.CommandTy

38、pe = CommandType.Text; com.CommandText = select GoodsID as 商品编号,GoodsName as 商品名称, +ClassID as 类别编号,StoreID as 仓库编号,GPrice as 单价,GoodsUnit as 单位, +KCNum as 库存数量,KCSX as 库存上限,KCXX as 库存下限,Availabe as 是否可用, +BZ as 备注from tbGoodsInfo where GoodsID LIKE % + txtGSelect.Text + % OR GoodsName LIKE % + txtG

39、Select.Text + % OR ClassID LIKE % + txtGSelect.Text + % OR StoreID LIKE % + txtGSelect.Text + %; com.CommandType = CommandType.Text; com.Connection = con;SqlDataAdapter da = newSqlDataAdapter(); da.SelectCommand = com;DataSet ds = newDataSet(); da.Fill(ds, tbg);/dgvGoodsInfo.DataSource = ds; dgvGood

40、sInfo.ClearSelection(); dgvGoodsInfo.DataSource = ds.Tables0; dgvGoodsInfo.Columns0.Visible = true;/隐藏ID列 da.Dispose(); com.Dispose(); con.Dispose(); privatevoid frmGoodsInfo_Load_1(object sender, EventArgs e) ShowDGV(); 五、商品信息添加代码using System;using System.Collections.Generic;using System.ComponentM

41、odel;using System.Data;using System.Data.SqlClient;using System.Drawing;using System.Linq;using System.Text;using System.Windows.Forms;namespace WMSpublicpartialclassfrmGoodsInfoSet : Form public frmGoodsInfoSet() InitializeComponent(); privatevoid frmGoodsInfoSet_Load(object sender, EventArgs e) Db

42、Operator db = newDbOperator();SqlConnection cnn = db.GetCon();SqlCommand cmd = newSqlCommand(); cmd.CommandType = CommandType.Text; cmd.CommandText = select distinct tbGoodsInfo.ClassID,tbStore.StoreID,tbGoodsInfo.GoodsUnit from tbGoodsInfo ,tbGoodsClass,tbStore where tbGoodsInfo.ClassID=tbGoodsClas

43、s.ClassID and tbStore.StoreID=tbGoodsInfo.StoreID; cmd.Connection = cnn; cnn.Open();SqlDataReader dr; dr = cmd.ExecuteReader();if (dr.HasRows) while (dr.Read() cmbClassID.Items.Add(drClassID.ToString().Trim(); cmbStoreID.Items.Add (drStoreID.ToString ().Trim (); cmbGUnit.Items .Add (drGoodsUnit.ToSt

44、ring ().Trim (); cmbClassID.Sorted=true ; cmbClassID.Sorted=true; cmbGUnit.Sorted = true; else MessageBox.Show(表中无记录！, 提示, MessageBoxButtons.YesNo, MessageBoxIcon.Information); dr.Close(); cnn.Close(); cnn.Dispose(); privatevoid btnCancel_Click(object sender, EventArgs e) this.Close(); privatevoid OperateRecord(string sSQL)/记录的添加、修改、删除 DbOperator clsC = newDbOperator();SqlConnection cnn = clsC.GetCon();SqlCommand cmd = newSqlCommand(); cmd.CommandText = sSQL; cmd.CommandType = CommandTyp