uspxx.pas

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

unit USPXX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, frxClass, frxDBSet, DB, ComCtrls, ToolWin, GridsEh, DBGridEh,
  StdCtrls, ExtCtrls;

type
  TFSPXX = class(TForm)
    DBGridEh1: TDBGridEh;
    ToolBar1: TToolBar;
    TBTADD: TToolButton;
    TBTEDIT: TToolButton;
    TBTDEL: TToolButton;
    ToolButton4: TToolButton;
    TBTPRINT: TToolButton;
    TBTEXIT: TToolButton;
    DataSource1: TDataSource;
    frxReport1: TfrxReport;
    frxDBDataset1: TfrxDBDataset;
    TBTFIND: TToolButton;
    TBTSELECT: TToolButton;
    ToolButton9: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    EdtSPBH: TEdit;
    Label2: TLabel;
    EdtPMGG: TEdit;
    procedure TBTADDClick(Sender: TObject);
    procedure TBTEDITClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBTEXITClick(Sender: TObject);
    procedure TBTFINDClick(Sender: TObject);
    procedure EdtSPBHKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdtPMGGKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure TBTDELClick(Sender: TObject);
  private
    procedure FindSp;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FSPXX: TFSPXX;

implementation
   USES MAIN,U_dm,UADDSP,UsysPub,UsysConst;
{$R *.dfm}

procedure TFSPXX.TBTADDClick(Sender: TObject);
begin
  strCZZT:='ADD';
  try
    Application.CreateForm(TFADDSP, FADDSP);
    FADDSP.ShowModal;
  finally
    FADDSP.Free;
  end;
end;

procedure TFSPXX.TBTEDITClick(Sender: TObject);
begin
  if DM.ADOQ_SP.RecordCount<=0 then
    abort;
  strCZZT:='MODIFY';
  try
    Application.CreateForm(TFADDSP, FADDSP);
    FADDSP.ShowModal;
  finally
    FADDSP.Free;
  end;
end;

procedure TFSPXX.FormShow(Sender: TObject);
var
  strSQL:STRING;
begin
  strSQL:='SELECT *,(case 删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 from JG商品资料';
  RunSQL(DM.ADOQ_SP,strSQL,0);
end;

procedure TFSPXX.TBTEXITClick(Sender: TObject);
begin
  self.Close;
end;

procedure TFSPXX.FindSp;
var
  strspbh,strpmgg,strSQL,strtmp:string;
begin
  strtmp:='';
  strspbh:=Trim(EdtSPBH.Text);
  strpmgg:=Trim(EdtPMGG.Text);
  if strspbh<>'' then
     strtmp:=strtmp+'and(商品编号 like '+''''+strspbh+'%'+''''+')';
  if strpmgg<>'' then
     strtmp:=strtmp+'and(品名规格 like '+''''+strpmgg+'%'+''''+')';
  strSQL:='SELECT *,(case 删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 from JG商品资料 where (1=1)'+strtmp;
  RunSQL(DM.ADOQ_SP,strSQL,0);
end;

procedure TFSPXX.TBTFINDClick(Sender: TObject);
begin
  FindSp;
end;

procedure TFSPXX.EdtSPBHKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
     FindSp;
end;

procedure TFSPXX.EdtPMGGKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
     FindSp;
end;

procedure TFSPXX.DBGridEh1DblClick(Sender: TObject);
begin
  if strXZZT='select' then
  begin
     strXZZT:='ok';
     self.Close;
  end;
end;

procedure TFSPXX.TBTDELClick(Sender: TObject);
var
  strSQL,strID,strtmp,strmc:string;
  ntmp:integer;
begin
  if DM.ADOQ_SP.RecordCount<=0 then
    abort;
  strID:=Trim(DM.ADOQ_SP.fieldbyname('商品编号').AsString);
  strtmp:=Trim(DM.ADOQ_SP.fieldbyname('门店编号').AsString);
  strmc:=Trim(DM.ADOQ_SP.fieldbyname('品名规格').AsString);
  ntmp:=DM.ADOQ_SP.fieldbyname('删除标志').AsInteger;
  if strID='000000' then
  begin
    Application.MessageBox('系统固定商品，禁止删除！',MsgBxCaption,MB_OK);
    abort;
  end;
  if ntmp=0 then
  begin
    Application.MessageBox(pchar('【'+strmc+'】已删除，禁止删除！'),MsgBxCaption,MB_OK);
    abort;
  end;
  case messagebox(handle,pchar('真的要删除【'+strmc+'】吗？'),MsgBxCaption,mb_iconquestion+MB_YESNO) of
  ID_yes:
  begin
    strSQL:='update JG商品资料 set 删除标志=0 where (门店编号='+''''+strtmp+''''+')and(商品编号='+''''+strID+''''+')';
    if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
    begin
      strSQL:='SELECT *,(case 删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 from JG商品资料';
      RunSQL(DM.ADOQ_SP,strSQL,0);
    end
    else
    begin
      Application.MessageBox('删除数据出错！',MsgBxCaption,MB_OK);
    end;
  end;
  ID_no: abort;
  END;
end;

end.