RClick(Sender: TObject);
begin
//检查权限============================================
IF PERMISSION_CHECK(_USER_ID,'POSM_SEA') = FALSE THEN EXIT;
WITH FMPOSMD.QPOSM DO
BEGIN
CLOSE;
SQL.CLEAR;
SQL.ADD('SELECT * FROM POSM');
SQL.ADD('WHERE BGENO IS NOT NULL');
IF _SUPER_USER = FALSE THEN FMPOSMD.QPOSM.SQL.ADD('AND BNENO = '''+ _USER_ID +'''');
//字符串查询
SQL.ADD(FINDFORM_WHEREKEY_STRING('BGENO',LB11.Text,LB12.Text));
SQL.ADD(FINDFORM_WHEREKEY_STRING('BCNAM',LB21.Text,LB22.Text));
SQL.ADD(FINDFORM_WHEREKEY_STRING('BCMN1',LB31.Text,LB32.Text));
//ACCESS " DATE " WHERE KEY ======================
// SQL.ADD(FINDFORM_WHEREKEY_DATE(F_NAME[3],LB31.Text,LB32.Text));
//查询 排序 //ORDER BYE=========================
上一篇:
PopUpMenuDoc.cpp
下一篇:
白色姜花,略微开了