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