M
mystergirl
Unregistered / Unconfirmed
GUEST, unregistred user!
在以下程序用到formcreat()和formshow(),但调试时显示出错,主请问这是什么原因??
[Error] Unit2.pas(174): Statement expected but 'PROCEDURE' found
procedure Tfrmxsmx.FormCreate(Sender: TObject);
var
vDBPath: string;
begin
vDBPath := ExtractFilePath(Application.ExeName);
with DM.ADOConn do
begin
Connected := False;
ConnectionString := 'Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;'
+'User ID=SA;Initial Catalog=kmacgl;Data Source=kmacdata';
try
Connected := True;
Connected := False;
except
Showmessage('连接数据库失败!');
Application.Terminate;
end;
end;
end;
procedure Tfrmxsmx.FormShow(Sender: TObject);
begin
xh.SetFocus;
end;
procedure Tfrmxsmx.Button5Click(Sender: TObject);
function GetID(ABH: string): string;
var
I: Integer;
begin
with DM.ADOxsjbxxQuery do
begin
Active := False;
SQL.Text := 'Select Right(Max(xh),4) From xsjbxx Where xh Like '''+ABH+'%''';
Active := True;
if Not Eof then
begin
Result := Fields[0].AsString;
if Result='' then
Result := '1'
else
Result := IntToStr(StrToInt(Result)+1);
end
else
Result := '1';
Active := False;
end;
for I:=3 downto Length(Result) do
Result := '0' + Result;
end;
var
vRXNF,vxbdm,vxbmc: string;
begin
vRXNF :=FormatDateTime('yyyy',DateTimepicker2.DateTime);
begin
with DM.ADOxbmcQuery do
begin
Close;
Parameters.ParamByName('xbmc').Value:=xbmc.Text;
Open;
vxbdm :=FieldValues['xbdm'];
Close;
end;
end;
xh.Text := vRXNF + vxbdm + GetID(vRXNF + vxbdm) ;
end;
[Error] Unit2.pas(174): Statement expected but 'PROCEDURE' found
procedure Tfrmxsmx.FormCreate(Sender: TObject);
var
vDBPath: string;
begin
vDBPath := ExtractFilePath(Application.ExeName);
with DM.ADOConn do
begin
Connected := False;
ConnectionString := 'Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;'
+'User ID=SA;Initial Catalog=kmacgl;Data Source=kmacdata';
try
Connected := True;
Connected := False;
except
Showmessage('连接数据库失败!');
Application.Terminate;
end;
end;
end;
procedure Tfrmxsmx.FormShow(Sender: TObject);
begin
xh.SetFocus;
end;
procedure Tfrmxsmx.Button5Click(Sender: TObject);
function GetID(ABH: string): string;
var
I: Integer;
begin
with DM.ADOxsjbxxQuery do
begin
Active := False;
SQL.Text := 'Select Right(Max(xh),4) From xsjbxx Where xh Like '''+ABH+'%''';
Active := True;
if Not Eof then
begin
Result := Fields[0].AsString;
if Result='' then
Result := '1'
else
Result := IntToStr(StrToInt(Result)+1);
end
else
Result := '1';
Active := False;
end;
for I:=3 downto Length(Result) do
Result := '0' + Result;
end;
var
vRXNF,vxbdm,vxbmc: string;
begin
vRXNF :=FormatDateTime('yyyy',DateTimepicker2.DateTime);
begin
with DM.ADOxbmcQuery do
begin
Close;
Parameters.ParamByName('xbmc').Value:=xbmc.Text;
Open;
vxbdm :=FieldValues['xbdm'];
Close;
end;
end;
xh.Text := vRXNF + vxbdm + GetID(vRXNF + vxbdm) ;
end;