function Encode(Str: string): string;
var //加密
TmpChr: AnsiChar;
i, Len: integer;
begin
Result := Str;
Len := Length(Result);
TmpChr := Result;
for i := 1 to Len - 1 do
Resu ...……
procedure TfrmGoods_InfoAdd.edt_PriceKeyPress(Sender: TObject; var Key: Char);var DotPos,Len:integer;begin DotPos:=pos('.',(Sender as TEdit).Text); Len:=length((Sender as ...……
若DBGrid.DataSource.DateSet为ADOQuery1,这样试一下:if ADOQuery1.Modified then ...
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if ADODataSet1.Modified ...……