从零开始制作仓库出入库报表（实现增、删、改、查）四
大家好！前面三节，我们仓库出入库报表实现了出入库增加，库位库存自动生成。这一节，我们来实现出入库报表的查询、删除、修改还有工作表之间的跳转功能。这里，EK已经实现了出入库报表目前需要的功能。我们来看一下效果图。
图1 工作表间跳转
图2 入库单据的增加、查询、修改、删除功能效果图
图3 库位库存功能效果图
图 4 入库效果图
从图1到图4中，演示了出入库表格的大部分内容。图2 只希望能对大家有所帮助。
好了。看完效果图。我们现在接着第三节开始制作。
首先，把主页的表格给修饰一下。如下图：
图5 主页
其中的6个图标，EK是利用EXCEL自带的图形和文本框组合制作的。这里EK给大家演示一个图标的制作过程。后面的大家可以自己制作。如下图。
图6 图标的制作过程
大家可以试着做一下，当然也可以上网搜索图标。这里提供一个方法。
2、在表添加图标和按钮。如下图所示。
图7 添加图标和按钮
3、在模块1 中添加如下代码：
Sub 清空单据信息()
Sheets("单据操作").Range("A4:A15,C4:i15") = ""
End Sub
Sub 入库单()
Sheets("单据操作").Range("a2") = "入库单"
Sheets("单据操作").Range("i4:i15") = ""
End Sub
Sub 出库单()
Sheets("单据操作").Range("a2") = "出库单"
Sheets("单据操作").Range("i4:i15") = ""
End Sub
图8 模块1 中添加代码
4、在VBE中添加窗体，列表框,选项按钮2个，命令按钮两个。
设置如下：
窗体名称->UFDJ， caption->单据查询
选项按钮1名称->OB1，caption->入库流水账，value->True
选项按钮2名称->OB2，caption->出库流水账
命令按钮1名称->CB1，caption->单据查询
命令按钮2名称->CB2，caption->关闭
图9 插入用户窗体
双击用户窗体。写入代码：
Dim intnum As Integer
Private Sub CB1_Click()
If ListBox1.ListIndex >= 0 Then
Dim LstStr As String
LstStr = Trim(CStr(ListBox1.List(ListBox1.ListIndex)))
s = InStr(LstStr, "-") + 1
e = InStr(2, LstStr, Left(LstStr, 1))
estr = Mid(LstStr, s, e - s)
MsgBox estr
If Left(LstStr, 1) = "入" Then
Call 出入库单据(1, estr)
ElseIf Left(LstStr, 1) = "出" Then
Call 出入库单据(2, estr)
End If
Unload Me
End If
End Sub
Private Sub 查询单据(OBNum As Integer)
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
If OBNum = 1 Then
hrq = Sheets("入库流水账").Cells(Sheets("入库流水账").Rows.Count, 1).End(xlUp).Row '【入库流水账】第1列最后一行行号
ArrRK = Sheets("入库流水账").Range("A4:H" & hrq)
For i = 1 To UBound(ArrRK)
d(ArrRK(i, 4)) = "入库单号-" & ArrRK(i, 4) & "入库时间-" & ArrRK(i, 3) & "入库类型：" & ArrRK(i, 8)
Next
Erase ArrRK
ListBox1.List = d.items()
ElseIf OBNum = 2 Then
hcq = Sheets("出库流水账").Cells(Sheets("出库流水账").Rows.Count, 1).End(xlUp).Row '【出库流水账】第1列最后一行行号
ArrCK = Sheets("出库流水账").Range("A4:H" & hcq)
For i = 1 To UBound(ArrCK)
d(ArrCK(i, 4)) = "出库单号-" & ArrCK(i, 4) & "出库时间-" & ArrCK(i, 3) & "出库类型：" & ArrCK(i, 8)
Next
Erase ArrCK
ListBox1.List = d.items()
End If
End Sub
Private Sub CB2_Click()
Unload Me
End Sub
Private Sub OB1_Click()
Call 查询单据(1)
End Sub
Private Sub OB2_Click()
Call 查询单据(2)
End Sub
Private Sub UserForm_Activate()
Call 查询单据(1)
OB2.Value = False
OB1.Value = True
ListBox1.SetFocus
End Sub
Private Sub UserForm_Initialize()
ListBox1.Font.Size = 12
UFDJ.BackColor = &HFF8080
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Call CB1_Click
End Sub
图10 代码1
图11 代码2
5、 添加模块2 和模块3 如图：
图12 添加模块2和模块3
模块2 中代码：
Sub 显示单据查询窗口()
UFDJ.Show
End Sub
'单据查询
Sub 出入库单据(ListType As Integer, ByVal ListStr As String)
Dim n As Integer
n = 0
If ListType = 1 Then
Sheets("单据操作").Range("a4:a15,c4:i15") = ""
Sheets("单据操作").Range("a2") = "入库单"
hrq = Sheets("入库流水账").Cells(Sheets("入库流水账").Rows.Count, 1).End(xlUp).Row '【入库流水账】第1列最后一行行号
For i = 4 To hrq
If Sheets("入库流水账").Range("d" & i).Value = ListStr Then
Sheets("入库流水账").Range("A" & i & ":H" & i).Copy Sheets("单据操作").Range("a" & 4 + n)
Sheets("单据操作").Range("i" & 4 + n) = i
n = n + 1
End If
Next
ElseIf ListType = 2 Then
Sheets("单据操作").Range("a4:a15,c4:i15") = ""
Sheets("单据操作").Range("a2") = "出库单"
hcq = Sheets("出库流水账").Cells(Sheets("出库流水账").Rows.Count, 1).End(xlUp).Row '【出库流水账】第1列最后一行行号
For i = 4 To hcq
If Sheets("出库流水账").Range("d" & i).Value = ListStr Then
Sheets("出库流水账").Range("A" & i & ":H" & i).Copy Sheets("单据操作").Range("a" & 4 + n)
Sheets("单据操作").Range("i" & 4 + n) = i
n = n + 1
End If
Next
End If
End Sub
Sub 单据修改()
Msg = MsgBox("是否修改表单？", vbInformation + vbYesNo, "提示")
If Msg = vbNo Then
Exit Sub
End If
If Sheets("单据操作").Range("A2") = "入库单" Then
n = 1
hrq = Sheets("入库流水账").Cells(Sheets("入库流水账").Rows.Count, 1).End(xlUp).Row '【入库流水账】第1列最后一行行号
For i = 4 To 15
If Sheets("单据操作").Range("A" & i) <> "" And Sheets("单据操作").Range("i" & i) <> "" Then
Sheets("单据操作").Range("A" & i & ":H" & i).Copy Sheets("入库流水账").Range("a" & Sheets("单据操作").Range("i" & i).Value)
ElseIf Sheets("单据操作").Range("A" & i) <> "" And Sheets("单据操作").Range("i" & i) = "" Then
Sheets("单据操作").Range("A" & i & ":H" & i).Copy Sheets("入库流水账").Range("a" & hrq + n)
n = n + 1
End If
Next
Sheets("单据操作").Range("A4:A15,C4:i15") = ""
ElseIf Sheets("单据操作").Range("A2") = "出库单" Then
hcq = Sheets("出库流水账").Cells(Sheets("出库流水账").Rows.Count, 1).End(xlUp).Row '【出库流水账】第1列最后一行行号
n = 1
For i = 4 To 15
If Sheets("单据操作").Range("A" & i) <> "" And Sheets("单据操作").Range("i" & i) <> "" Then
Sheets("单据操作").Range("A" & i & ":H" & i).Copy Sheets("出库流水账").Range("a" & Sheets("单据操作").Range("i" & i).Value)
ElseIf Sheets("单据操作").Range("A" & i) <> "" And Sheets("单据操作").Range("i" & i) = "" Then
Sheets("单据操作").Range("A" & i & ":H" & i).Copy Sheets("出库流水账").Range("a" & hrq + n)
n = n + 1
End If
Next
Sheets("单据操作").Range("A4:A15,C4:i15") = ""
End If
End Sub
Sub 删除表单()
Msg = MsgBox("是否删除表单？", vbInformation + vbYesNo, "提示")
If Msg = vbNo Then
Exit Sub
End If
If Sheets("单据操作").Range("A2") = "入库单" Then
For i = 15 To 4 Step -1
If Sheets("单据操作").Range("A" & i) <> "" And Sheets("单据操作").Range("i" & i) <> "" Then
Sheets("入库流水账").Rows(Sheets("单据操作").Range("i" & i)).Delete
End If
Next
Sheets("单据操作").Range("A4:A15,C4:i15") = ""
ElseIf Sheets("单据操作").Range("A2") = "出库单" Then
For i = 15 To 4 Step -1
If Sheets("单据操作").Range("A" & i) <> "" And Sheets("单据操作").Range("i" & i) <> "" Then
Sheets("出库流水账").Rows(Sheets("单据操作").Range("i" & i)).Delete
End If
Next
Sheets("单据操作").Range("A4:A15,C4:i15") = ""
Else
MsgBox "单据删除错误，请查看标题！"
End If
End Sub
图12 模块2 中代码1
图13 模块2 中代码2
图14 模块2 中代码3
模块3中代码：
Sub 隐藏()
For Each Sh1 In Worksheets
If Sh1.Name <> "主页" Then
Sh1.Visible = False
End If
Next
End Sub
Sub 跳转至主页()
Call 隐藏
End Sub
Sub 跳转至基础信息()
Call 隐藏
Sheets("基础信息").Visible = True
Sheets("基础信息").Activate
End Sub
Sub 跳转至入库流水()
Call 隐藏
Sheets("入库流水账").Visible = True
Sheets("入库流水账").Activate
End Sub
Sub 跳转至出库流水()
Call 隐藏
Sheets("出库流水账").Visible = True
Sheets("出库流水账").Activate
End Sub
Sub 跳转至单据操作()
Call 隐藏
Sheets("单据操作").Visible = True
Sheets("单据操作").Activate
End Sub
Sub 跳转至库存跟踪()
Call 隐藏
Sheets("库存跟踪表").Visible = True
Sheets("库存跟踪表").Activate
End Sub
Sub 显示全部表格()
For Each Sh1 In Worksheets
Sh1.Visible = True
Next
Sheets("主页").Activate
End Sub
图15 模块3 中代码
6、在ThisWorkbook中添加代码：
Private Sub Workbook_Open()
Call 隐藏
End Sub
图16 ThisWorkbook添加代码
7、为每个图标和按钮添加指定宏：
图17 图标指定宏
这里只演示了【主页】表中的指定宏。后面的，EK留给大家自己去指定相应的宏。EK给大家准备了一个表格。
图18 图标对应的宏
到这里，从零开始制作出入库表全部已经完成了。如果，有不懂的地方，可以在评论区告诉EK。如果想获得文中的文件，可以关注私信EK数字代表的节数。
最后，感谢小伙伴们的观看，我是EK。如果上述内容能够帮助到你们，希望你们能点赞，关注，评论，转发，你们不清楚的地方我会尽力为大家解答，谢谢大家的支持。我会给大家带来更多关于EXCEL的小技巧。
级软件工程专业C#程序设计基础 课程期末试卷
重修标识
2008 ～2009 学年 第 2 学期
级软件工程专业 C#程序设计基础 课程期末试卷
A卷
题号
一
二
三
四
五
六
七
八
九
十
总分
一、判断题（共8分，每题1分）
1.C#语言属于解释型语言 （ ）
2.在C#中所有类的基类都是Object类 ( )
3.抽象类可以用来实例化对象 （ ）
4.File类可以用于操作文件内的数据 ( )
5.析构函数可以有多个重载。 ( )
6.一个可以独立运行的程序有且只能有一个Main函数 （ ）
7. 成员变量不赋初值也能使用。 ( )
8.函数重载要求参数的个数不同或参数的类型不同或返回值类型不同（ ）
二、选 择 题（共40分，每题2分）
1.C#语言中最简单的数据类型包括 （ ）
A)整型、实型、逻辑型 B)整型、实型、字符型
C)整型、字符型、逻辑型 D)整型、实型、逻辑型、字符型
2.下列给出的变量定义正确的方式是 ( )
A）int No$1 B）char _No C）float new D）string public
3.设a=7，b=3，则表达式a*=b+2的值为: ( )
A）23 B）35 C）27 D）36
4.为表示关系x≤y≥z,应使用C#语言表达式 ( )
A)(x<=y)&&(y>=z) B(x<=y)AND(y>=z) C)(x<=y>=z) D)(x<=y)||(y>=z)
5.以下程序的输出结果是 ( )
static void Main(string[] args)
{ int x=8,y=8;
Console.Write("{0},{1}\n",x++,++y);}
A)8,8 B)9,9
C)9,8 D)8,9
6.C#程序中,可使用try..catch 机制来处理程序出现的以下那种类型的错误. （ ）
A. 语法 B. 运行 C. 逻辑 D. 拼写
7.设有说明语句int [] a=new int[8]则数组a包括了几个数组元素。 （ ）
A）6 B）7 C）8 D）9
8.C#中MyC 为一自定义类,其中有以下方法定义 （ ）
public static void Hello(){..}
使用以下语句创建了该类的对象,并使变量obj 引用该对象:
MyC obj = new MyC ();
那么,如何才能正确访问类MyC的Hello 方法？
A. obj.Hello(); B. MyC.Hello(); C. 以上两种方式都能正确; D.以上两种方式都不正确 ;
9. using System; （ ）
static void Main(string[] args)
{ char c1=(char)70; /*‘A’的ASCII码值为65 */
if (‘A’<=c1 && c1<=’Z’)
Console.Write(“{0},{1}”,c1,c1+1);
else Console.Write(c1); }
运行结果：
A. 70,71 B. F,G C. 70,G D. F,71
10.以下哪个命名空间中的类和接口可以用于操作Access数据库？
A. System.Data B. System.IO C. System.Data.SqlClient D. using System.Data.OleDb;
11.Static void Main(string[] args) ( )
{ byte b = 255;
unchecked
{b++;}
Console.WriteLine(b); }
运行结果：
A.256 B.255 C.0 D.1
12.以下关于DataSet的描述正确的是. ( )
A.一个DataSet不能包含多个DataTable
B．DataSet只能实现对数据的查询，不能实现数据的插入、修改和删除
C. DataSet是ADO.NET面向无连接的数据库操作的最佳体现。
D. 如果操作SqlServer数据库，最好采用SqlDataSet,操作其他数据库则应采用OleDbDataSet
13．要控制打开文件对话框（OpenFileDialog）可以打开的文件类型.需设置OpenFileDialog的___________属性。
A.FileName B. Filter C. FilterIndex D.FileNames
14．要使ComboBox控件中的内容只能选择，不能输入，需设置它以下哪个属性 ( )
A. ReadOnly B.ComboStyle C.DropDownStyle D.Style
15. 在C#中,将路径名”C: \Doc\”存入字符变量path中的正确语句是: ( )
A path=“C://Doc//”;
B path=“C:\/Doc\/”;
C path=“C:\\Doc\\”;
D path=“C: \Doc\”;
本试卷共 4 页，此页为 A 卷第 1 页 （ 注：参加重修考试者请在重修标识框内打钩）
班级 姓名 学号
………………………………………装……………………………订……………………………线………………………………………
16.对于类：
class Test
{
private int a;
public int A
{
get{ return a;}
}
}
以下代码可以正确使用成员变量a或属性A的是： ( )
A. Test t=new Test(); B. Test t=new Test();
t.a=5; Console.WriteLine(t.a);
C. Test t=new Test(); D. Test t=new Test();
t.A=5; Console.WriteLine(t.A);
17. C#程序中，为使变量myForm 引用的窗体对象显示为对话框，必须：
A. 使用myForm.ShowDailog 方法显示对话框
B. 将myForm 对象的isDialog 属性设为true
C. 将myForm 对象的FormBorderStyle 枚举属性设置为FixedDialog
D. 将变量myForm 改为引用System.Windows.Dialog 类的对象
18．在ADO.NET中,为了确保DataAdapter对象能够正确地将数据从数据源填充到DataSet中,则必须事先设置好DataAdapter对象的下列哪个Command属性? （ ） A. Delete Command B. Update Command C. Insert Command D. Select Command
19.想要得到当前正在运行的应用程序所在文件夹的路径，需使用以下哪个属性。 （ ）
A．Application.StartupPath B．Application.ExecutablePath
C. this.Path D. File.CurrentPath
20.要向ListBox控件listBox1中添加一个新选项，需使用以下哪个方法。 （ ）
A．listBox1.Rows.Add() B. listBox1.Item.Add()
C. listBox1.Add() D. listBox1.Insert()
三、简答题（共20分，每题5分）
1. 简述访问修饰符的作用、C#中有哪几种修饰符，以及各修饰符的访问特点
2．简述ADO.NET的面向无连接操作数据库的含义、特点及实现方式
3．谈谈你对面向对象的多态性的理解
4．简述FileStream类、StreamWriter类与StreamReader类、BinaryWriter类与BinaryReader类三者之间的区别
本试卷共 4 页，此页为 A 卷第 2 页
班级 姓名 学号
………………………………………装……………………………订……………………………线………………………………………
四、程序题（共32分，第1题8分，第2题10分,第3题14分）
1.打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1*1*1＋5*5*5＋3*3*3 （8分）
编写一个利用键盘控制窗体上红色方块移动的程序，当用户按下键盘上的“上”、“下”、“左”、“右”键时，方块会向该方向移动。程序的运行界面如图所示。(10分)int x=20,y=20; //x控制方块的当前横坐标，y控制方块的当前纵坐标
bool isDrawed=false; //标识窗体上当前是否已经绘制了最初的方块
private void Form1_KeyDown(object sender, System.Windows.Forms.KeyEventArgs e)
{
}
private void Form1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
{
}
本试卷共 4 页，此页为 A 卷第 3 页
班级 姓名 学号
………………………………………装……………………………订……………………………线………………………………………
3.设计一个数据库管理程序,要求完成以下功能:（14分）
1)在Form1中实现用户的登录功能，如果用户登录成功，则进入另外一个窗体Form3（Form3中暂不实现任何代码），如果用户登录不成功，要求采用MessageBox提示用户到底是用户名不存在还是密码输入错误。用户点击 Ｆorm1中的注册按钮可弹出Form2进行新用户的注册
２）在Form2中实现注册功能:将textBox1, textBox2, comboBox1,textBox3中的内容依次插入Access数据库Test.MDB中的myUsers表的字段有uName类型为nvarchar(20)、uPwd类型为nvarchar(20)、uGender类型为nvarchar(2)、uAge类型为int(4)中.
public class Form1 : System.Windows.Forms.Form
{
private void button1_Click( object sender, System.EventArgs e)
//登录按钮的事件代码
{
}
private void button2_Click( object sender, System.EventArgs e)
//Form1中注册按钮的事件代码
{
}
｝
public class Form2 : System.Windows.Forms.Form
{
private void button1_Click( object sender, System.EventArgs e)
//Form2中注册按钮的事件代码
{
｝
｝
本试卷共 4 页，此页为 A 卷第 4 页
中原工学院软件职业技术学院
2008～2009 学年 第 2 学期
A卷
08级软件工程专业C#程序设计 课程期末试卷标准答案（即评分标准）
一、判断题（共8分，每题1分）
错对错错错对对错
二、选 择 题（共40分，每题2分）
DDBAD BCBDD CCBCC DADAB
三、简答题（共20分，每题5分）
1）访问修饰符的作用是为了控制它所修饰的成员变量、属性、方法或类的对外可访问性的。C#中共有四种访问修饰符：Public、Private、Protected、Interval.Public修饰符可使任何外部类都能访问，Private只有本类可以访问，Protected只有子类能访问，Internal只有在同一程序集下的类才能访问
2）所谓面向无连接，就是程序可以在不和数据库保持连接的情况下访问数据库中的数据，在C#中实现此技术的是DataSet，在程序将数据库中的数据填充到DataSet后，即和数据库断开连接。程序后续操作完全可以从内存的DataSet中获取数据。
3）所谓多态性是指，在通过父类的引用调用具有多态实现的方法时，程序可自动根据该引用所指的实际对象的具体类型来调用该对象实际的方法，而非一味的调用父类的方法。
4）FileStream类是操作文件内容的基本类型，但它能读写的数据类型有限，只能以Byte类型方式读写数据。StreamWriter和StreamReader可以文本文件形式读写数据，读写方式灵活、BinaryWriter和BinaryReader可以以二进制形式读写文件，读写方式灵活。
四、编程题（共32分）（本题所有答案均为参考，如若有其他正确思路并结构清晰的答案仍然可以给满分）
1.（8分）
Using System;
Class shuixian
{ Static void Main(string[] args)
{ int x,y,z,m,n;
for(x=0;x<=9;x++) 1分
for(y=0;y<=9;y++) 1分
for(z=0;z<=9;z++) 1分
{ m=x*100+y*10+z 2分
n=x*x*x+y*y*y+z*z*z 1分
if(m==n) 1分
Console.WriteLine(m) ; 1分
}}}
2. （10分）
int x=20,y=20;
bool isDrawed=false;
private void Form1_KeyDown(object sender, System.Windows.Forms.KeyEventArgs e)
{
Graphics g=this.CreateGraphics();
g.FillRectangle(new SolidBrush(this.BackColor),x,y,20,20);
switch(e.KeyData)
{
case Keys.Left:
x-=5;
break;
case Keys.Right :
x+=5;
break;
case Keys.Up:
y-=5;
break;
case Keys.Down:
y+=5;
break;
}
g.FillRectangle(new SolidBrush(Color.Red),x,y,20,20);
}
private void Form1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
{
if(!isDrawed)
{
this.CreateGraphics().FillRectangle(new SolidBrush(Color.Red),x,y,20,20);
isDrawed=true;
}
}
本试卷答案共 2 页，此页为第 1 页
3.（14分）
private void button2_Click( object sender, System.EventArgs e)
//Form1中注册按钮
{
Form2 f= new Form2();
f.Show();
}
private void button1_Click( object sender, System.EventArgs e)
//Form1中的登录按钮
{
OleDbConnection conn= new OleDbConnection("provider=Microsoft.Jet.OleDb.4.0;data source=Test.MDB");
conn.Open ();
OleDbCommand cmd= new OleDbCommand();
cmd.Connection =conn;
cmd.CommandText="select upwd from myusers where uname=@username";
cmd.Parameters .Add( new OleDbParameter("@username",textBox1.Text));
OleDbDataReader dr=cmd.ExecuteReader();
if(dr.Read)
{
if(dr[0].ToString()==textBox2.Text)
{
Form3 f= new Form3();
f.Show ();
}
else
{
MessageBox.Show("密码错误");
}
}
else
{
MessageBox.Show("用户名不存在");
}
conn.Close ();
}
private void button1_Click( object sender, System.EventArgs e)
//Form2中的注册按钮
{
OleDbConnection conn= new OleDbConnection("provider=Microsoft.Jet.OleDb.4.0;data source=Test.MDB");
conn.Open ();
OleDbCommand cmd= new OleDbCommand();
cmd.Connection =conn;
cmd.CommandText="insert into myUsers values(@UserName,@UserPwd@UserSex,@UserAge)";
cmd.Parameters .Add( new OleDbParameter("@UserName",textBox1.Text));
cmd.Parameters .Add( new OleDbParameter("@UserPwd",textBox2.Text ));
cmd.Parameters .Add( new OleDbParameter("@UserSex",comboBox1.SelectedItem));
cmd.Parameters .Add( new OleDbParameter("@UserAge",textBox3.Text));
cmd.ExecuteNonQuery();
conn.Close ();
}
本试卷答案共 2 页，此页为第 2 页
相关问答
ddlist控件是什么控件?你把鼠标指上去,显示“ListBox”的就是,中文意思就是“列表框”。具体是哪个我就不说了,自己找,否则下次遇到其他控件你同样找不到。你把鼠标指上去,显示“Li...
c # 窗体 获取 listbox 多选值的id - A0mnI1HfAxB 的回答 - 懂得上面写的是在webform中的,下面的是winform的:for(inti=0;i//////取ListBox选中项id//////id数组
c # 窗体 获取 listbox 多选值的id - 火龙果野兔纸 的回答 - 懂得是C#窗体程序?//////取ListBox选中项id//////id数组
listbox 控件的使用在 list 控件中?你把鼠标指上去,显示“ListBox”的就是,中文意思就是“列表框”。具体是哪个我就不说了,自己找,否则下次遇到其他控件你同样找不到。你把鼠标指上去,显示“Li...
change事件控制范围?指示一个控件的内容已经改变的。此事件如何和何时发生则随控件的不同而不同:该事件仅在Style属性设置为0(下拉Combo)或1(简单Combo)和正文被改变或者...
【简单编程，求解!有50个学生一起买小吃，共花钱100元，其中...[回答]vari,j,k,a,b,c:integer;beginfori:=1to50dobeginforj:=1to50dobeginfork:=1to50dobegi...
checked ListBox 如何添加数据?checkedListBox1.Items.Add("a");没有错的如果要将文件内容显示在里面,就需要清除原来的,item.clear();然后根据xml文件一个一个再ad...
小程序名稱到底在哪里显示-ZOL问答ConstTH32CS_SNAPHEAPLIST=&H1ConstTH32CS_SNAPPROCESS=&H2ConstTH32CS_SNAPTHREAD=&am...
【delphi的组件的dragover事件中的这两句怎么理解? ListBox 1....[最佳回答]楼上正解,ListBox1.OnEndDrag是ListBox的一个事件,而ListBox1EndDrag是一个过程(函数)表达式的字面意思就是在触发ListBox1的OnEndDrag事件时...
开学购物清单英文[回答]Schoolshoppinglist:pencil、eraser、rubber、three-colour、pencil-box、memorandum、ruler.扩展资料文具类:2B铅笔、2B...