开发

计算 

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;

 

阅读更多
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭