开发

最新推荐文章于 2025-08-06 15:53:40 发布

原创最新推荐文章于 2025-08-06 15:53:40 发布 · 7.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#integer #string #button #sql

计算

procedure Tfrom.Getnsumt;
var sdfn:String;
begin
sdfn:=ADOQuery.FieldByName('ORDH').AsString;
with ADOQuery do
begin
    close;
    sql.Clear;
    sql.Add('select count(*) from 表名 where(ORDH='''+sdfn+''')');
    open;
    gtnsum:=Fields[0].value;
end;
end;

语句计算

ADOQuery.FieldByName('ORCode').Value:= ADOQuery.FieldByName('ORCode').value;

sql语句调用

procedure Tfrom.injxc(strCondition:String);
begin
   toyear:=QBrowser.fieldbyname('iyear').AsString;
   tomonth:=QBrowser.fieldbyname('imonth').AsString;
   toLArea:=QBrowser.fieldbyname('LArea').AsString;
   tolen:=QBrowser.fieldbyname('FMLength').AsString;
    ADOQuery.Close;
    ADOQuery.sql.Clear ;
    ADOQuery.SQL.Add('select * from 表名 where');
    ADOQuery.sql.Add('and (Lie='''+toLArea+''')');
    ADOQuery.sql.Add('and (mon='''+tomonth+''')');
    ADOQuery.sql.Add('and (yer='''+toyear+''')');
    ADOQuery.sql.Add('and (Flie='''+tolen+''')');
    ADOQuery.sql.Add('order by 1' );
    ADOQuery.open;
end;

鼠标右键控制

procedure Tfrom.dbgridehMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if ssRight in Shift then
begin
   if dbgrideh.SelectedIndex=11 then
   begin
     dbgrideh.popupMenu:=PopupMenu1;
   end
   else
     dbgrideh.popupMenu:=PopupMenu2;
end;

end;

    if ssLeft in Shift then（左键）
    begin

    end
    else
    if ssRight in Shift then（右键）
    begin

    end

信息提示

if DBLookupComboboxEh2.Text='' then
begin
    Application.MessageBox('对不起![111不能为空,请输入!',strtitle,mb_iconInformation+mb_ok);
    DBLookupEh2.SetFocus;
    exit;
end;