[求助]sos 代码修改
[attach]27684[/attach]<BR><BR>代码我也提供：能帮我调试一下吗？<BR><BR>unit xiaoshouForm;<BR>interface<BR>uses<BR> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<BR> Dialogs, StdCtrls, DBCtrls, Mask, DB, Grids, DBGrids, ADODB, ExtCtrls,<BR> ComCtrls, ToolWin, Buttons;<BR>type<BR> Txiaoshou = class(TForm)<BR> DataSource1: TDataSource;<BR> DBGrid1: TDBGrid;<BR> DBEdit4: TDBEdit;<BR> Panel1: TPanel;<BR> Label1: TLabel;<BR> Label2: TLabel;<BR> BitBtn11: TBitBtn;<BR> Edit1: TEdit;<BR> Edit2: TEdit;<BR> ToolBar1: TToolBar;<BR> BitBtn1: TBitBtn;<BR> BitBtn2: TBitBtn;<BR> BitBtn3: TBitBtn;<BR> BitBtn4: TBitBtn;<BR> ToolButton1: TToolButton;<BR> BitBtn5: TBitBtn;<BR> BitBtn6: TBitBtn;<BR> BitBtn7: TBitBtn;<BR> ToolButton2: TToolButton;<BR> BitBtn8: TBitBtn;<BR> BitBtn9: TBitBtn;<BR> ToolButton3: TToolButton;<BR> BitBtn10: TBitBtn;<BR> Panel2: TPanel;<BR> Label3: TLabel;<BR> Label4: TLabel;<BR> Label5: TLabel;<BR> Label6: TLabel;<BR> Label7: TLabel;<BR> Edit3: TEdit;<BR> Label8: TLabel;<BR> Label9: TLabel;<BR> Label10: TLabel;<BR> Label11: TLabel;<BR> DBEdit5: TDBEdit;<BR> DBEdit6: TDBEdit;<BR> DBEdit7: TDBEdit;<BR> DBEdit9: TDBEdit;<BR> DBEdit10: TDBEdit;<BR> DBEdit11: TDBEdit;<BR> DBEdit12: TDBEdit;<BR> DBEdit13: TDBEdit;<BR> DBEdit14: TDBEdit;<BR> Label12: TLabel;<BR> Label13: TLabel;<BR> Label14: TLabel;<BR> Label15: TLabel;<BR> Label16: TLabel;<BR> Label17: TLabel;<BR> ADOQuery1: TADOQuery;<BR> DBEdit1: TDBEdit;<BR> DBEdit2: TDBEdit;<BR> DBEdit3: TDBEdit;<BR> DBComboBox1: TDBComboBox;<BR> procedure FormClose(Sender: TObject; var Action: TCloseAction);<BR> procedure BitBtn1Click(Sender: TObject);<BR> procedure BitBtn2Click(Sender: TObject);<BR> procedure BitBtn3Click(Sender: TObject);<BR> procedure BitBtn4Click(Sender: TObject);<BR> procedure BitBtn5Click(Sender: TObject);<BR> procedure BitBtn11Click(Sender: TObject);<BR> procedure BitBtn8Click(Sender: TObject);<BR> procedure BitBtn9Click(Sender: TObject);<BR> procedure BitBtn10Click(Sender: TObject);<BR> procedure BitBtn6Click(Sender: TObject);<BR> procedure BitBtn7Click(Sender: TObject);<BR> procedure DBGrid1DblClick(Sender: TObject);<BR> procedure Edit1KeyPress(Sender: TObject; var Key: Char);<BR> procedure Edit2KeyPress(Sender: TObject; var Key: Char);<BR> <BR> private<BR> { Private declarations }<BR> public<BR> { Public declarations }<BR> maxorder,maxdate,maxyear:integer;<BR> end;<BR>var<BR> xiaoshou: Txiaoshou;<BR>implementation<BR>uses MainForm;<BR>{$R *.dfm}<BR> //-----------关闭窗体--------------<BR>procedure Txiaoshou.FormClose(Sender: TObject; var Action: TCloseAction);<BR>begin<BR>action:=cafree;<BR>end;<BR>//------------首条数据--------------<BR>procedure Txiaoshou.BitBtn1Click(Sender: TObject);<BR>begin<BR>datasource1.DataSet.First;<BR>end;<BR>//------------前一条数据--------------<BR>procedure Txiaoshou.BitBtn2Click(Sender: TObject);<BR>begin<BR>datasource1.DataSet.Prior;<BR>end;<BR>//------------下一条数据--------------<BR>procedure Txiaoshou.BitBtn3Click(Sender: TObject);<BR>begin<BR>datasource1.DataSet.Next;<BR>end;<BR>//------------最后一条数据--------------<BR>procedure Txiaoshou.BitBtn4Click(Sender: TObject);<BR>begin<BR>datasource1.DataSet.Last;<BR>end;<BR>//----------插入数据---------------------<BR>procedure Txiaoshou.BitBtn5Click(Sender: TObject);<BR>begin<BR>datasource1.DataSet.Insert;<BR>//添加数据时，为右边文本框添加默认值，防止添加错误的数据<BR>date:=adoquery1.fieldbyname('date').Asdatatime:=Now();<BR>dbedit1.Text:=inttostr(date);<BR>//将插入，删除，修改和移动按钮关闭，防止错误操作<BR>bitbtn6.Enabled:=false;<BR>bitbtn7.Enabled:=false;<BR>bitbtn1.Enabled:=false;<BR>bitbtn2.Enabled:=false;<BR>bitbtn3.Enabled:=false;<BR>bitbtn4.Enabled:=false;<BR>bitbtn5.Enabled:=false;<BR>//打开保存和取消按钮的使能，允许保存或者取消<BR>bitbtn8.Enabled:=true;<BR>bitbtn9.Enabled:=true;<BR>//允许修改文本框中内容<BR>dbedit1.ReadOnly:=false;<BR>dbedit2.ReadOnly:=false;<BR>dbedit3.ReadOnly:=false;<BR>dbedit4.ReadOnly:=false;<BR>dbedit5.ReadOnly:=false;<BR>dbedit6.ReadOnly:=false;<BR>dbedit7.ReadOnly:=false;<BR>dbedit9.ReadOnly:=false;<BR>dbedit10.ReadOnly:=false;<BR>dbedit11.ReadOnly:=false;<BR>dbedit12.ReadOnly:=false;<BR>dbedit13.ReadOnly:=false;<BR>dbedit14.ReadOnly:=false;<BR>dbcombobox1.ReadOnly:=false;<BR>end;<BR>//----------查询------------------<BR>procedure Txiaoshou.BitBtn11Click(Sender: TObject);<BR>begin<BR>//查询数据<BR>adoquery1.Close;<BR>adoquery1.SQL.Clear;<BR>adoquery1.SQL.Add('select * from sales where (DATE like ''%'+edit1.Text+'%'')and');<BR>adoquery1.SQL.Add('(Product like ''%'+edit7.Text+'%'')and');<BR>adoquery1.SQL.Add('(sales like ''%'+edit2.Text+'%'')');<BR>adoquery1.Open;<BR>end;<BR>//---------------查询时对enter键的响应----------------------<BR>procedure Txiaoshou.Edit1KeyPress(Sender: TObject; var Key: Char);<BR>begin<BR>if key=#13 then<BR> bitbtn11.Click;<BR>end;<BR>procedure Txiaoshou.Edit2KeyPress(Sender: TObject; var Key: Char);<BR>begin<BR>if key=#13 then<BR> bitbtn11.Click;<BR>end;<BR>procedure Txiaoshou.Edit3KeyPress(Sender: TObject; var Key: Char);<BR>begin<BR>if key=#13 then<BR> bitbtn11.Click;<BR>end;<BR>//-----------保存操作--------------------<BR>procedure Txiaoshou.BitBtn8Click(Sender: TObject);<BR>begin<BR>//对输入的数据进行校验<BR> if (dbedit1.Text='')or(dbedit2.Text='')or(dbedit3.Text='')or(dbedit4.Text='')<BR> or(dbedit5.Text='')or(dbedit6.Text='')or(dbedit7.Text='')or(dbedit9.Text='')<BR> or(dbedit10.Text='')or(dbedit11.Text='')or(dbedit12.Text='')or(dbedit13.Text='')<BR> or(dbedit14.Text='') then showmessage('输入不能为空')<BR> else<BR> begin<BR> datasource1.DataSet.Post;<BR> //将插入，删除，修改和移动按钮打开<BR>bitbtn6.Enabled:=true;<BR>bitbtn7.Enabled:=true;<BR>bitbtn1.Enabled:=true;<BR>bitbtn2.Enabled:=true;<BR>bitbtn3.Enabled:=true;<BR>bitbtn4.Enabled:=true;<BR>bitbtn5.Enabled:=true;<BR>//关闭保存和取消按钮的使能<BR>bitbtn8.Enabled:=false;<BR>bitbtn9.Enabled:=false;<BR>//允许修改<BR>dbedit1.ReadOnly:=false;<BR>dbedit2.ReadOnly:=false;<BR>dbedit3.ReadOnly:=false;<BR>dbedit4.ReadOnly:=false;<BR>dbedit5.ReadOnly:=false;<BR>dbedit6.ReadOnly:=false;<BR>dbedit7.ReadOnly:=false;<BR>dbedit9.ReadOnly:=false;<BR>dbedit10.ReadOnly:=false;<BR>dbedit11.ReadOnly:=false;<BR>dbedit12.ReadOnly:=false;<BR>dbedit13.ReadOnly:=false;<BR>dbedit14.ReadOnly:=false;<BR>dbcombobox1.ReadOnly:=false;<BR> end;<BR>end;<BR>//---------------取消操作-------------------<BR>procedure Txiaoshou.BitBtn9Click(Sender: TObject);<BR>begin<BR>datasource1.DataSet.Cancel;<BR> //将插入，删除，修改和移动按钮打开<BR>bitbtn6.Enabled:=true;<BR>bitbtn7.Enabled:=true;<BR>bitbtn1.Enabled:=true;<BR>bitbtn2.Enabled:=true;<BR>bitbtn3.Enabled:=true;<BR>bitbtn4.Enabled:=true;<BR>bitbtn5.Enabled:=true;<BR>//关闭保存和取消按钮的使能<BR>bitbtn8.Enabled:=false;<BR>bitbtn9.Enabled:=false;<BR>//不允许修改文本框中内容<BR>dbedit1.ReadOnly:=true;<BR>dbedit2.ReadOnly:=true;<BR>dbedit3.ReadOnly:=true;<BR>dbedit4.ReadOnly:=true;<BR>dbedit5.ReadOnly:=true;<BR>dbedit6.ReadOnly:=true;<BR>dbedit7.ReadOnly:=true;<BR>dbedit9.ReadOnly:=true;<BR>dbedit10.ReadOnly:=true;<BR>dbedit11.ReadOnly:=true;<BR>dbedit12.ReadOnly:=true;<BR>dbedit13.ReadOnly:=true;<BR>dbedit14.ReadOnly:=true;<BR>dbcombobox1.ReadOnly:=true;<BR>end;<BR>//-------------关闭窗体------------------<BR>procedure Txiaoshou.BitBtn10Click(Sender: TObject);<BR>begin<BR>close;<BR>end;<BR>//----------编辑某条数据---------------<BR>procedure Txiaoshou.BitBtn6Click(Sender: TObject);<BR>begin<BR>datasource1.DataSet.Edit;<BR>//将插入，删除，修改和移动按钮关闭，防止错误操作<BR>bitbtn6.Enabled:=false;<BR>bitbtn7.Enabled:=false;<BR>bitbtn1.Enabled:=false;<BR>bitbtn2.Enabled:=false;<BR>bitbtn3.Enabled:=false;<BR>bitbtn4.Enabled:=false;<BR>bitbtn5.Enabled:=false;<BR>//打开保存和取消按钮的使能，允许保存或者取消<BR>bitbtn8.Enabled:=true;<BR>bitbtn9.Enabled:=true;<BR>//允许修改<BR>dbedit1.ReadOnly:=false;<BR>dbedit2.ReadOnly:=false;<BR>dbedit3.ReadOnly:=false;<BR>dbedit4.ReadOnly:=false;<BR>dbedit5.ReadOnly:=false;<BR>dbedit6.ReadOnly:=false;<BR>dbedit7.ReadOnly:=false;<BR>dbedit9.ReadOnly:=false;<BR>dbedit10.ReadOnly:=false;<BR>dbedit11.ReadOnly:=false;<BR>dbedit12.ReadOnly:=false;<BR>dbedit13.ReadOnly:=false;<BR>dbedit14.ReadOnly:=false;<BR>dbcombobox1.ReadOnly:=false;<BR>end;<BR>//-------------删除数据-------------------------<BR>procedure Txiaoshou.BitBtn7Click(Sender: TObject);<BR>begin<BR>if application.MessageBox('删除该条数据？','删除',MB_OKCANCEL)=ID_OK then<BR>datasource1.DataSet.Delete;<BR>end;<BR>procedure Txiaoshou.DBGrid1DblClick(Sender: TObject);<BR>begin<BR> if main.bomflag=3 then<BR> begin<BR> //取物品的相关信息，存到主程序声明的公共变量中去<BR> main.str:=dbgrid1.Fields[0].AsString;<BR> main.str2:=dbgrid1.Fields[1].AsString;<BR> main.str3:=dbgrid1.Fields[2].AsString;<BR> main.str4:=dbgrid1.Fields[3].AsString;<BR> main.str5:=dbgrid1.Fields[5].AsString;<BR> main.str6:=dbgrid1.Fields[6].AsString;<BR> main.str7:=dbgrid1.Fields[7].AsString;<BR> main.str8:=dbgrid1.Fields[8].AsString;<BR> main.str9:=dbgrid1.Fields[9].AsString;<BR> main.str10:=dbgrid1.Fields[10].AsString;<BR> main.str11:=dbgrid1.Fields[11].AsString;<BR> main.str12:=dbgrid1.Fields[12].AsString;<BR> main.str13:=dbgrid1.Fields[13].AsString;<BR> main.str14:=dbgrid1.Fields[14].AsString;<BR>//清除标志,关闭窗体<BR> main.bomflag:=0;<BR> main.n6.Click;<BR> close;<BR> end;<BR> if main.bomflag=5 then<BR> begin<BR> main.str:=dbgrid1.Fields[0].AsString;<BR> main.str2:=dbgrid1.Fields[1].AsString;<BR> main.str3:=dbgrid1.Fields[2].AsString;<BR> main.str4:=dbgrid1.Fields[3].AsString;<BR> main.str5:=dbgrid1.Fields[5].AsString;<BR> main.str6:=dbgrid1.Fields[6].AsString;<BR> main.str7:=dbgrid1.Fields[7].AsString;<BR> main.str8:=dbgrid1.Fields[8].AsString;<BR> main.str9:=dbgrid1.Fields[9].AsString;<BR> main.str10:=dbgrid1.Fields[10].AsString;<BR> main.str11:=dbgrid1.Fields[11].AsString;<BR> main.str12:=dbgrid1.Fields[12].AsString;<BR> main.str13:=dbgrid1.Fields[13].AsString;<BR> main.str14:=dbgrid1.Fields[14].AsString;<BR>//清除标志,关闭窗体<BR> main.bomflag:=0;<BR> main.MPS1.Click;<BR> close;<BR> end;<BR>end;<BR> <BR>end.<BR><P>新手，我不知道怎么搞好的<BR><BR>如果可以的话，我发给你 ！</P> <P>把东西打个包，发来我的邮箱</P> anthony634够热心，水平够强。真是后生可畏。 多谢 <P>有结果了吗？？</P>
页:
[1]