菜鸟写的程序帮忙看下哪里出错的
本帖最后由 zhangzhen_927116 于 2010-12-28 11:18:48 编辑
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Mask, DBCtrls, wwdbedit;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
ADOConnection1: TADOConnection;
GroupBox1: TGroupBox;
Label2: TLabel;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Button3: TButton;
Button4: TButton;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
GroupBox2: TGroupBox;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Edit13: TEdit;
Edit14: TEdit;
Edit15: TEdit;
Button5: TButton;
Button6: TButton;
ADODataSet1: TADODataSet;
wwDBEdit1: TwwDBEdit;
wwDBEdit2: TwwDBEdit;
wwDBEdit3: TwwDBEdit;
wwDBEdit4: TwwDBEdit;
wwDBEdit5: TwwDBEdit;
wwDBEdit6: TwwDBEdit;
wwDBEdit7: TwwDBEdit;
wwDBEdit8: TwwDBEdit;
wwDBEdit9: TwwDBEdit;
wwDBEdit10: TwwDBEdit;
wwDBEdit11: TwwDBEdit;
wwDBEdit12: TwwDBEdit;
wwDBEdit13: TwwDBEdit;
wwDBEdit14: TwwDBEdit;
wwDBEdit15: TwwDBEdit;
wwDBEdit16: TwwDBEdit;
ADODataSet2: TADODataSet;
procedure Button2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
var
sSQL: String;
sSQL1: String;
begin
if (trim(Edit2.Text) <> '') or (trim(Edit2.Text) <>'')or(trim(Edit2.Text)<>'') then