計(jì)算機(jī)軟件及應(yīng)用程序代碼

1、倉儲管理系統(tǒng)代碼【李彩享、字朝龍】一、窗體（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; /記錄登錄用戶的權(quán)限public frmLogin() InitializeComponent(); privatevoid frmLogin_Load(object sender, EventArgs e) /啟動窗口時(shí)加載用戶名 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)/用存儲過程實(shí)現(xiàn)驗(yàn)證登錄 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;/設(shè)置 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(用戶名或密碼錯(cuò)誤！, 提示); 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(); 二、主界面系統(tǒng)代碼

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 退?出?系統(tǒng)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 商品類別設(shè)置ToolStripMenuItem_Click(object sender, EventArgs e)frmGoodsClassSet frm2 = newfrmGoodsClassSet(); frm2.Show();privatevoid 商品信息設(shè)置ToolStripMenuItem_Click(obje

14、ct sender, EventArgs e) frmGoodsInfo frm3 = newfrmGoodsInfo(); frm3.Show(); privatevoid 供應(yīng)商設(shè)置ToolStripMenuItem_Click(object sender, EventArgs e) frmSupplierInfo frm4 = newfrmSupplierInfo(); frm4.Show(); privatevoid 倉庫設(shè)置ToolStripMenuItem1_Click(object sender, EventArgs e) frmStoreInfo frm5 = newfrmSt

15、oreInfo(); frm5.Show(); privatevoid 庫存盤點(diǎn)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 = 商品采購統(tǒng)計(jì); frm.Show(); privatevoid toolStripMenuItem15_Click(object sender, EventArgs e) frmGoodsInfo frm = newfrmGoodsInfo(); frm.Text = 當(dāng)前庫存查詢; frm.Show(); privatevoid 更改密碼ToolStripMenuItem_Click(object sender, EventArgs e) frmSetUser frm = newfrmSetUser(); frm.Show(); privatevoid 權(quán)限管

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(); 三、商品類別設(shè)置代碼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)/實(shí)現(xiàn)添加功能 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)/實(shí)現(xiàn)刪功能 if (txtGoodsClassID.Text != )if (MessageBox.Show(您確實(shí)要刪除 + txtClassName.Text + 的類別嗎？, 刪除類別, MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResul

30、t.Yes)string s = Delete from tbGoodsClass where ClassID= + txtGoodsClassID.Text + ; OperateRecord(s); LoadGC();/重新加載客戶表 elseMessageBox.Show(您未選中要刪除的商品類別！, 錯(cuò)誤, 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 單價(jià),+GoodsUnit as 單位,KCNum as 庫存數(shù)量,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 單價(jià),GoodsUnit as 單位, +KCNum as 庫存數(shù)量,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