📄 unbman.pas
字号:
FMBMAND.UBMAN.ModifySQL.CLEAR;
FMBMAND.UBMAN.ModifySQL.Add('UPDATE BMAN ');
FMBMAND.UBMAN.ModifySQL.Add('SET ');
FMBMAND.UBMAN.ModifySQL.Add('BNENO = :BNENO ,');
FMBMAND.UBMAN.ModifySQL.Add('BNNAM = :BNNAM ,');
FMBMAND.UBMAN.ModifySQL.Add('BNPWD = :BNPWD ,');
FMBMAND.UBMAN.ModifySQL.Add('BNCNA = :BNCNA ,');
FMBMAND.UBMAN.ModifySQL.Add('BNBTH = :BNBTH ,');
FMBMAND.UBMAN.ModifySQL.Add('BNCTY = :BNCTY ,');
FMBMAND.UBMAN.ModifySQL.Add('BNROT = :BNROT ,');
FMBMAND.UBMAN.ModifySQL.Add('BNIDN = :BNIDN ,');
FMBMAND.UBMAN.ModifySQL.Add('BNPAS = :BNPAS ,');
FMBMAND.UBMAN.ModifySQL.Add('BNLIV = :BNLIV ,');
FMBMAND.UBMAN.ModifySQL.Add('BNSEX = :BNSEX ,');
FMBMAND.UBMAN.ModifySQL.Add('BNBLD = :BNBLD ,');
FMBMAND.UBMAN.ModifySQL.Add('BNSCS = :BNSCS ,');
FMBMAND.UBMAN.ModifySQL.Add('BNSDP = :BNSDP ,');
FMBMAND.UBMAN.ModifySQL.Add('BNCPL = :BNCPL ,');
FMBMAND.UBMAN.ModifySQL.Add('BNSPP = :BNSPP ,');
FMBMAND.UBMAN.ModifySQL.Add('BNSCH = :BNSCH ,');
FMBMAND.UBMAN.ModifySQL.Add('BNHIS = :BNHIS ,');
FMBMAND.UBMAN.ModifySQL.Add('BNCMN = :BNCMN ,');
FMBMAND.UBMAN.ModifySQL.Add('BNREL = :BNREL ,');
FMBMAND.UBMAN.ModifySQL.Add('BNTL1 = :BNTL1 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNTL2 = :BNTL2 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNTL3 = :BNTL3 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNAD1 = :BNAD1 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNAD2 = :BNAD2 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNZP2 = :BNZP2 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNZP1 = :BNZP1 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNVIC = :BNVIC ,');
FMBMAND.UBMAN.ModifySQL.Add('BNVIN = :BNVIN ,');
FMBMAND.UBMAN.ModifySQL.Add('BNSEC = :BNSEC ,');
FMBMAND.UBMAN.ModifySQL.Add('BNCLS = :BNCLS ,');
FMBMAND.UBMAN.ModifySQL.Add('BNDPO = :BNDPO ,');
FMBMAND.UBMAN.ModifySQL.Add('BNDPT = :BNDPT ,');
FMBMAND.UBMAN.ModifySQL.Add('BNLLC = :BNLLC ,');
FMBMAND.UBMAN.ModifySQL.Add('BNSVR = :BNSVR ,');
FMBMAND.UBMAN.ModifySQL.Add('BNNUM = :BNNUM ,');
FMBMAND.UBMAN.ModifySQL.Add('BNLCC = :BNLCC ,');
FMBMAND.UBMAN.ModifySQL.Add('BNEPC = :BNEPC ,');
FMBMAND.UBMAN.ModifySQL.Add('BNTIT = :BNTIT ,');
FMBMAND.UBMAN.ModifySQL.Add('BNGRC = :BNGRC ,');
FMBMAND.UBMAN.ModifySQL.Add('BNBNS = :BNBNS ,');
FMBMAND.UBMAN.ModifySQL.Add('BNBNO = :BNBNO ,');
FMBMAND.UBMAN.ModifySQL.Add('BNC02 = :BNC02 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNC03 = :BNC03 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNFDY = :BNFDY ,');
FMBMAND.UBMAN.ModifySQL.Add('BNEDY = :BNEDY ,');
FMBMAND.UBMAN.ModifySQL.Add('BNHPS = :BNHPS ,');
FMBMAND.UBMAN.ModifySQL.Add('BNHPF = :BNHPF ,');
FMBMAND.UBMAN.ModifySQL.Add('BNCHM = :BNCHM ,');
FMBMAND.UBMAN.ModifySQL.Add('BNHPV = :BNHPV ,');
FMBMAND.UBMAN.ModifySQL.Add('BNSPL = :BNSPL ,');
FMBMAND.UBMAN.ModifySQL.Add('BNSPN = :BNSPN ,');
FMBMAND.UBMAN.ModifySQL.Add('BNLV1 = :BNLV1 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNLV2 = :BNLV2 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNTB1 = :BNTB1 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNTB2 = :BNTB2 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNIF1 = :BNIF1 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNIF2 = :BNIF2 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNHI1 = :BNHI1 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNHI2 = :BNHI2 ,');
FMBMAND.UBMAN.ModifySQL.Add('BNHIX = :BNHIX ,');
FMBMAND.UBMAN.ModifySQL.Add('BNTBX = :BNTBX ,');
FMBMAND.UBMAN.ModifySQL.Add('BNISM = :BNISM ,');
FMBMAND.UBMAN.ModifySQL.Add('BNHIM = :BNHIM ,');
FMBMAND.UBMAN.ModifySQL.Add('BNHIN = :BNHIN ,');
FMBMAND.UBMAN.ModifySQL.Add('BNHBS = :BNHBS ');
FMBMAND.UBMAN.ModifySQL.Add('WHERE BNENO = :OLD_BNENO');
FMBMAND.UBMAN.DeleteSQL.CLEAR;
FMBMAND.UBMAN.DeleteSQL.Add('DELETE FROM BMAN ');
FMBMAND.UBMAN.DeleteSQL.Add('WHERE BNENO = :OLD_BNENO');
FMBMAND.QBMAN.SQL.CLEAR;
FMBMAND.QBMAN.SQL.ADD('SELECT * FROM BMAN ');
FMBMAND.QBMAN.SQL.ADD('ORDER BY BNENO ');
FMBMAND.QBMAN.Close;
FMBMAND.QBMAN.Open;
end;
procedure TFMBMAN.FormShow(Sender: TObject);
begin
NORMALMODE;
end;
procedure TFMBMAN.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//Form 要结束前的询问(系统事件)
CanClose := True;
if (FORMMODE = 'INS' ) or (FORMMODE = 'UPD' ) then
begin
MessageDlg('请先结束输入模式后再退出!',mtConfirmation,[mbOk],0);
CanClose := False;
end;
end;
procedure TFMBMAN.BTNQUTClick(Sender: TObject);
begin
NORMALMODE;
close;
end;
procedure TFMBMAN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataModuleRelease(FMBMAND);
FormRelease(FMBMAN);
FormFREE('FMBMANP');
end;
procedure TFMBMAN.BTNINSClick(Sender: TObject);
begin
//检查权限============================================
IF PERMISSION_CHECK(_USER_ID,'BMAN_INS') = FALSE THEN EXIT;
INSERTMODE;
WITH FMBMAND DO
BEGIN
QBMAN.APPEND;
QBMANBNENO.VALUE := '' ;
QBMANBNNAM.VALUE := '' ;
QBMANBNPWD.VALUE := '' ;
QBMANBNCNA.VALUE := '' ;
QBMANBNCTY.VALUE := '' ;
QBMANBNROT.VALUE := '' ;
QBMANBNIDN.VALUE := '' ;
QBMANBNPAS.VALUE := '' ;
QBMANBNLIV.VALUE := '' ;
QBMANBNSEX.VALUE := '' ;
QBMANBNBLD.VALUE := '' ;
QBMANBNSCS.VALUE := '' ;
QBMANBNSDP.VALUE := '' ;
QBMANBNCPL.VALUE := '' ;
QBMANBNSPP.VALUE := 0 ;
QBMANBNSCH.VALUE := '' ;
QBMANBNHIS.VALUE := '' ;
QBMANBNCMN.VALUE := '' ;
QBMANBNREL.VALUE := '' ;
QBMANBNTL1.VALUE := '' ;
QBMANBNTL2.VALUE := '' ;
QBMANBNTL3.VALUE := '' ;
QBMANBNAD1.VALUE := '' ;
QBMANBNAD2.VALUE := '' ;
QBMANBNVIC.VALUE := '' ;
QBMANBNVIN.VALUE := '' ;
QBMANBNSEC.VALUE := '' ;
QBMANBNCLS.VALUE := '' ;
QBMANBNDPO.VALUE := '' ;
QBMANBNDPT.VALUE := '' ;
QBMANBNLLC.VALUE := '' ;
QBMANBNSVR.VALUE := '' ;
QBMANBNNUM.VALUE := '' ;
QBMANBNLCC.VALUE := '' ;
QBMANBNEPC.VALUE := '' ;
QBMANBNTIT.VALUE := '' ;
QBMANBNGRC.VALUE := '' ;
QBMANBNBNS.VALUE := '' ;
QBMANBNBNO.VALUE := '' ;
QBMANBNC03.VALUE := '' ;
QBMANBNCHM.VALUE := '' ;
QBMANBNHPV.VALUE := 0 ;
QBMANBNSPL.VALUE := 0 ;
QBMANBNSPN.VALUE := 0 ;
QBMANBNLV1.VALUE := 0 ;
QBMANBNLV2.VALUE := 0 ;
QBMANBNHIX.VALUE := '' ;
QBMANBNTBX.VALUE := '' ;
QBMANBNISM.VALUE := 0 ;
QBMANBNHIM.VALUE := 0 ;
QBMANBNHIN.VALUE := 0 ;
QBMANBNZP2.VALUE := '' ;
QBMANBNZP1.VALUE := '' ;
QBMANBNHBS.VALUE := TRUE;
END;
end;
procedure TFMBMAN.BTNDELClick(Sender: TObject);
begin
//检查权限============================================
IF PERMISSION_CHECK(_USER_ID,'BMAN_DEL') = FALSE THEN EXIT;
//检查权限============================================
IF FMBMAND.QBMAN.FieldByName('BNENO').AsString = 'admin' THEN
BEGIN
SHOWMESSAGE('这是管理员的帐号, 不可删除!');
EXIT;
END;
IF MessageDlg('是否确定要删除此条记录吗?',mtWarning, [mbYes, mbNo], 0) = mrYes then
IF MessageDlg('如果您按下确定按钮此条记录将会被删除',mtWarning, [mbYes, mbNo], 0) = mrYes then
BEGIN
FMBMAND.QBMAN.Delete;
FM_DB_QUERY_UPDATE(FMMAIND.DATABASE,FMBMAND.QBMAN);
NORMALMODE;
END;
end;
procedure TFMBMAN.BTNYESClick(Sender: TObject);
begin
//检查权限============================================
IF PERMISSION_CHECK(_USER_ID,'BMAN_UPD') = FALSE THEN EXIT;
//检查重复
if (FORMMODE = 'INS' ) then
if TABLECHECK_RE1('BMAN','BNENO',BNENO.Text) > 0 THEN
begin
SHOWMESSAGE('此编号已经重复使用!'); EXIT;
end;
Case MessageDlg('是否确定存储此条记录?',mtConfirmation,[mbYes,mbNo,mbCancel],0) of
mrYES :begin
NORMALMODE;
//检查权限============================================ 可改密码
IF PERMISSION_CHECK(_USER_ID,'SET_PASSWD') = TRUE THEN
BEGIN
FMBMAND.QBMAN.FieldByName('BNPWD').AsString := '1'+Encrypt(BNPWD.Text,1357,2,1)+'1';
END;
FM_DB_QUERY_POST(FMMAIND.DATABASE,FMBMAND.QBMAN);
end;
mrNO :begin
NORMALMODE;
FMBMAND.QBMAN.Cancel;
end;
END;
end;
procedure TFMBMAN.BTNCALClick(Sender: TObject);
begin
NORMALMODE;
FMBMAND.QBMAN.Cancel;
end;
procedure TFMBMAN.BTNSERClick(Sender: TObject);
begin
//检查权限============================================
IF PERMISSION_CHECK(_USER_ID,'BMAN_SEA') = FALSE THEN EXIT;
WITH FMBMAND.QBMAN DO
BEGIN
CLOSE;
SQL.CLEAR;
SQL.ADD('SELECT * FROM BMAN');
SQL.ADD('WHERE BNENO IS NOT NULL');
//字符串查询
SQL.ADD(FINDFORM_WHEREKEY_STRING('BNENO',LB11.Text,LB12.Text));
SQL.ADD(FINDFORM_WHEREKEY_STRING('BNNAM',LB21.Text,LB22.Text));
SQL.ADD(FINDFORM_WHEREKEY_STRING('BNCNA',LB31.Text,LB32.Text));
OPEN;
END;
end;
procedure TFMBMAN.BTNCLRClick(Sender: TObject);
begin
LB11.Clear;
LB12.Clear;
LB21.Clear;
LB22.Clear;
LB31.Clear;
LB32.Clear;
end;
procedure TFMBMAN.BTNPRNClick(Sender: TObject);
begin
//检查权限============================================
IF PERMISSION_CHECK(_USER_ID,'BMAN_PRN') = FALSE THEN EXIT;
IF FormExists('FMREP1')=FALSE THEN Application.CreateForm(TFMREP1, FMREP1 );
FMREP1.QR_NAME := ExtractFilePath(Application.EXEName)+'/ini/QREP_BMAN.ini';
FMREP1.ED_PAGE_TABLE.TEXT := 'BMAN';
FMREP1.QUERY.SQL.CLEAR;
FMREP1.QUERY.SQL.TEXT := FMBMAND.QBMAN.SQL.TEXT;
FMREP1.QUERY.CLOSE;
FMREP1.QUERY.OPEN;
FMREP1.LOAD_INI;
IF SENDER = BTNPRE THEN FMREP1.QuickRep.Preview;
IF SENDER = MENPRE THEN FMREP1.QuickRep.Preview;
IF SENDER = BTNPRN THEN FMREP1.QuickRep.Print;
IF SENDER = MENPRN THEN FMREP1.QuickRep.Print;
end;
procedure TFMBMAN.BNPWDKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
FMBMAND.QBMAN.EDIT;
end;
procedure TFMBMAN.BTNPMSClick(Sender: TObject);
begin
//检查权限============================================
IF PERMISSION_CHECK(_USER_ID,'SET_PMS') = FALSE THEN EXIT;
IF FormExists('FMBMANM' )=FALSE THEN Application.CreateForm(TFMBMANM , FMBMANM );
FMBMANM.PMS_BNENO := FMBMAND.QBMAN.FIELDBYNAME('BNENO').AsString;
FMBMANM.PMS_BNNAM := FMBMAND.QBMAN.FIELDBYNAME('BNNAM').AsString;
FMBMANM.LOAD_BMAN_PMS;
Form_NORMAL_SHOWMODAL(FMBMANM,-1,-1);
end;
procedure TFMBMAN.BTNSETClick(Sender: TObject);
begin
IF FormExists('FMREP1' )=FALSE THEN Application.CreateForm(TFMREP1, FMREP1 );
FMREP1.QR_NAME := ExtractFilePath(Application.EXEName)+'/ini/QREP_BMAN.ini';
FMREP1.ED_PAGE_TABLE.TEXT := 'BMAN';
Form_NORMAL_SHOWMODAL(FMREP1,-1,-1);
end;
procedure TFMBMAN.BTNMSGClick(Sender: TObject);
begin
IF FormExists('FMBMANG' )=FALSE THEN Application.CreateForm(TFMBMANG, FMBMANG );
Form_NORMAL_SHOWMODAL(FMBMANG,-1,-1);
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -