ufrm_programmaintain_d.pas

完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0

{
************************************
Program name:mpss_program
Author      :Guo xuliang
Purpose     :程序資料維護
Date        :2003/05/09
************************************
程序資料單身維護(detail)
}
unit ufrm_programmaintain_d;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ufrm_level4_3, dxExEdtr, DB, DBTables, ImgList, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DBCtrls, Mask,
  Menus;

type
  Tfrm_programmaintain_d = class(Tfrm_level4_3)
    dbc_d_sn: TdxDBGridColumn;
    dbc_zb01: TdxDBGridColumn;
    dbc_zb02: TdxDBGridColumn;
    dbc_zb03: TdxDBGridColumn;
    Label1: TLabel;
    zb01: TDBText;
    Label2: TLabel;
    Label3: TLabel;
    zb02: TDBEdit;
    zb03: TDBEdit;
    pm_default: TMenuItem;
    procedure pm_defaultClick(Sender: TObject);
  private
    { Private declarations }
  protected
   procedure Set_focus;override;                   //設置編輯時的focus
   //function  chk_canedit:boolean;override;       //是否可以修改
   //function  chk_before_edit:boolean;override;   //編輯前檢查
   //function  chk_before_append:boolean;override; //添加前檢查
   //function  chk_before_delete:boolean;override; //刪除前檢查
   function  chk_save:boolean; override;           //保存前的檢查
   procedure modistatus_add; override;
   procedure savestatus_add; override;
  public
    { Public declarations }
  end;

var
  frm_programmaintain_d: Tfrm_programmaintain_d;

implementation
uses udm,uglobal_var,uglobal_fun;
{$R *.dfm}

{ Tfrm_programmaintain_d }

function Tfrm_programmaintain_d.chk_save: boolean;
begin
 result:=true;
 if qy_detail.FieldByName('ZB01').AsString='' then
   begin
     u_error:='程序代碼不能為空';
     result:=false;
     exit;
   end;
end;

procedure Tfrm_programmaintain_d.modistatus_add;
begin
  pm_default.Enabled:=false;
end;

procedure Tfrm_programmaintain_d.savestatus_add;
begin
  pm_default.Enabled:=true;
end;

procedure Tfrm_programmaintain_d.Set_focus;
begin
  if zb02.Enabled then zb02.SetFocus;
end;

procedure Tfrm_programmaintain_d.pm_defaultClick(Sender: TObject);
begin
  inherited;
  //4
  if not cl_prichk('4',u_user_permission,u_grup_permission) then
   begin
     messagedlg('您沒有權限執行此功能!!',mtinformation,[mbok],0);
     exit;
   end;
  if messagedlg('確定清除當前值並以Default值填充嗎?',
                mtconfirmation,[mbyes,mbno],0) <> mryes then exit;
  //if qy_detail.FieldByName('ZB01').AsString='' then exit;

  dm.connection.StartTransaction;
  try
    //delete all record
    g_sqlstr:='DELETE FROM ZB_FILE WHERE ZB01='''+u_mpvalue[1]+'''';
    with dm do
      begin
        pub1.Close;
        pub1.sql.Clear;
        pub1.SQL.Add(g_sqlstr);
        pub1.ExecSQL;
        //insert into table
        g_sqlstr:='INSERT INTO ZB_FILE VALUES('''+u_mpvalue[1]+''','+
              '''A'',''新增'',1)';
        pub1.close;
        pub1.sql.clear;
        pub1.sql.Add(g_sqlstr);
        pub1.ExecSQL;

        g_sqlstr:='INSERT INTO ZB_FILE VALUES('''+u_mpvalue[1]+''','+
              '''U'',''修改'',2)';
        pub1.close;
        pub1.sql.clear;
        pub1.sql.Add(g_sqlstr);
        pub1.ExecSQL;

        g_sqlstr:='INSERT INTO ZB_FILE VALUES('''+u_mpvalue[1]+''','+
              '''R'',''刪除'',3)';
        pub1.close;
        pub1.sql.clear;
        pub1.sql.Add(g_sqlstr);
        pub1.ExecSQL;

        g_sqlstr:='INSERT INTO ZB_FILE VALUES('''+u_mpvalue[1]+''','+
              '''F'',''過濾'',4)';
        pub1.close;
        pub1.sql.clear;
        pub1.sql.Add(g_sqlstr);
        pub1.ExecSQL;

        g_sqlstr:='INSERT INTO ZB_FILE VALUES('''+u_mpvalue[1]+''','+
              '''Y'',''確認'',5)';
        pub1.close;
        pub1.sql.clear;
        pub1.sql.Add(g_sqlstr);
        pub1.ExecSQL;

        g_sqlstr:='INSERT INTO ZB_FILE VALUES('''+u_mpvalue[1]+''','+
              '''Z'',''反確認'',6)';
        pub1.close;
        pub1.sql.clear;
        pub1.sql.Add(g_sqlstr);
        pub1.ExecSQL;

        g_sqlstr:='INSERT INTO ZB_FILE VALUES('''+u_mpvalue[1]+''','+
              '''B'',''單身'',7)';
        pub1.close;
        pub1.sql.clear;
        pub1.sql.Add(g_sqlstr);
        pub1.ExecSQL;

        g_sqlstr:='INSERT INTO ZB_FILE VALUES('''+u_mpvalue[1]+''','+
              '''1'',''增加B'',8)';
        pub1.close;
        pub1.sql.clear;
        pub1.sql.Add(g_sqlstr);
        pub1.ExecSQL;

        g_sqlstr:='INSERT INTO ZB_FILE VALUES('''+u_mpvalue[1]+''','+
              '''2'',''編輯B'',9)';
        pub1.close;
        pub1.sql.clear;
        pub1.sql.Add(g_sqlstr);
        pub1.ExecSQL;

        g_sqlstr:='INSERT INTO ZB_FILE VALUES('''+u_mpvalue[1]+''','+
              '''3'',''刪除B'',10)';
        pub1.close;
        pub1.sql.clear;
        pub1.sql.Add(g_sqlstr);
        pub1.ExecSQL;
      end;
        dm.connection.Commit;
  except
    dm.connection.Rollback;
    cl_showmsg('填充Default值失敗');
  end;
  tbRefreshClick(self);
end;

end.