ugys.pas

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

unit UGYS;

interface

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

type
  TFGYS = class(TForm)
    DBGridEh1: TDBGridEh;
    ToolBar1: TToolBar;
    TBTADD: TToolButton;
    TBTEDIT: TToolButton;
    TBTDEL: TToolButton;
    ToolButton4: TToolButton;
    TBTFIND: TToolButton;
    TBTSELECT: TToolButton;
    ToolButton9: TToolButton;
    TBTPRINT: TToolButton;
    TBTEXIT: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    EdtSPBH: TEdit;
    EdtPMGG: TEdit;
    DataSource1: TDataSource;
    frxReport1: TfrxReport;
    frxDBDataset1: TfrxDBDataset;
    procedure FormShow(Sender: TObject);
    procedure TBTADDClick(Sender: TObject);
    procedure TBTEDITClick(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 TBTEXITClick(Sender: TObject);
    procedure TBTDELClick(Sender: TObject);
  private
    procedure FindGYS;  
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FGYS: TFGYS;

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

procedure TFGYS.FormShow(Sender: TObject);
var
  strSQL:string;
begin
  strSQL:='SELECT *,(case 删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 FROM JG供货商';
  RunSQL(DM.ADOQ_GYS,strSQL,0);
end;

procedure TFGYS.TBTADDClick(Sender: TObject);
begin
  strCZZT:='ADD';
  try
    Application.CreateForm(TFADDGYS, FADDGYS);
    FADDGYS.ShowModal;
  finally
    FADDGYS.Free;
  end;
end;

procedure TFGYS.TBTEDITClick(Sender: TObject);
begin
  if DM.ADOQ_GYS.RecordCount<=0 then
    abort;
  strCZZT:='MODIFY';
  try
    Application.CreateForm(TFADDGYS, FADDGYS);
    FADDGYS.ShowModal;
  finally
    FADDGYS.Free;
  end;
end;

procedure TFGYS.FindGYS;
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_GYS,strSQL,0);
end;

procedure TFGYS.TBTFINDClick(Sender: TObject);
begin
  FindGYS;
end;

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

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

procedure TFGYS.TBTEXITClick(Sender: TObject);
begin
  SELF.Close;
end;

procedure TFGYS.TBTDELClick(Sender: TObject);
var
  strSQL,strID,strtmp,strmc:string;
  ntmp:integer;
begin
  if DM.ADOQ_GYS.RecordCount<=0 then
    abort;
  strID:=Trim(DM.ADOQ_GYS.fieldbyname('供货商编号').AsString);
  strtmp:=Trim(DM.ADOQ_GYS.fieldbyname('门店编号').AsString);
  strmc:=Trim(DM.ADOQ_GYS.fieldbyname('供货商名称').AsString);
  ntmp:=DM.ADOQ_GYS.fieldbyname('删除标志').AsInteger;
  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_GYS,strSQL,0);
    end
    else
    begin
      Application.MessageBox('删除数据出错！',MsgBxCaption,MB_OK);
    end;
  end;
  ID_no: abort;
  END;
end;

end.