Z
zc79
Unregistered / Unconfirmed
GUEST, unregistred user!
[
]写了一个Main.dll文件.如下<br>library Main;<br>uses<br> SysUtils,<br> Classes;<br>{$R *.res}<br>function editsql(sql1:string;sql2:string;sql3:string;sql4:string;sql5:string;sql:string):string;stdcall;<br> begin<br> if sql1<>'' then<br> sql:=sql+''+' and 客户名称='+sql1;<br> if sql2<>'' then<br> sql:=sql+''+' and 料号='+sql2+'%''';<br> if sql3<>'' then<br> sql:=sql+''+' and 加工要求'+sql3;<br> if sql4<>'' then<br> sql:=sql+''+' and 脚距'+sql4;<br> if sql5<>'' then<br> sql:=sql+''+' and 工程票号'+sql5;<br> result:=sql;<br> end;<br>exports<br> editsql index 1;<br>begin<br>end.<br>一个主程序,工程文件源代码如下,调用上面的dll文件.运行时,如果在edit1中输入客户的名称,假如是'小明',<br>则会出现'参数'小明'没有默认值的错误,请问如何修改.谢谢!<br>unit Unit1;<br>interface<br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs, Grids, DBGrids, StdCtrls;<br>type<br> TForm1 = class(TForm)<br> Edit1: TEdit;<br> Edit2: TEdit;<br> Edit3: TEdit;<br> Edit4: TEdit;<br> ComboBox1: TComboBox;<br> Button1: TButton;<br> DBGrid1: TDBGrid;<br> procedure Button1Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br>var<br> Form1: TForm1;<br>implementation<br>uses Unit2;<br>function editsql(sql1:string;sql2:string;sql3:string;sql4:string;sql5:string;sql:string):string;stdcall;external'd:/New/Main.dll';<br>{$R *.dfm}<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> with datamodule2.ClientDataSet1 do<br> begin<br> close;<br> commandtext:=editsql(edit1.Text,edit2.Text,edit3.Text,edit4.Text,combobox1.Text,'select 客户名称,料号 from product1 where 包装>0');<br> execute;<br>end;<br>end;<br><br>end.<br>
]写了一个Main.dll文件.如下<br>library Main;<br>uses<br> SysUtils,<br> Classes;<br>{$R *.res}<br>function editsql(sql1:string;sql2:string;sql3:string;sql4:string;sql5:string;sql:string):string;stdcall;<br> begin<br> if sql1<>'' then<br> sql:=sql+''+' and 客户名称='+sql1;<br> if sql2<>'' then<br> sql:=sql+''+' and 料号='+sql2+'%''';<br> if sql3<>'' then<br> sql:=sql+''+' and 加工要求'+sql3;<br> if sql4<>'' then<br> sql:=sql+''+' and 脚距'+sql4;<br> if sql5<>'' then<br> sql:=sql+''+' and 工程票号'+sql5;<br> result:=sql;<br> end;<br>exports<br> editsql index 1;<br>begin<br>end.<br>一个主程序,工程文件源代码如下,调用上面的dll文件.运行时,如果在edit1中输入客户的名称,假如是'小明',<br>则会出现'参数'小明'没有默认值的错误,请问如何修改.谢谢!<br>unit Unit1;<br>interface<br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs, Grids, DBGrids, StdCtrls;<br>type<br> TForm1 = class(TForm)<br> Edit1: TEdit;<br> Edit2: TEdit;<br> Edit3: TEdit;<br> Edit4: TEdit;<br> ComboBox1: TComboBox;<br> Button1: TButton;<br> DBGrid1: TDBGrid;<br> procedure Button1Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br>var<br> Form1: TForm1;<br>implementation<br>uses Unit2;<br>function editsql(sql1:string;sql2:string;sql3:string;sql4:string;sql5:string;sql:string):string;stdcall;external'd:/New/Main.dll';<br>{$R *.dfm}<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> with datamodule2.ClientDataSet1 do<br> begin<br> close;<br> commandtext:=editsql(edit1.Text,edit2.Text,edit3.Text,edit4.Text,combobox1.Text,'select 客户名称,料号 from product1 where 包装>0');<br> execute;<br>end;<br>end;<br><br>end.<br>