ugpxx.pas

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

unit UGPXX;

interface

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

type
  TFGPXX = class(TForm)
    DBGridEh1: TDBGridEh;
    ToolBar1: TToolBar;
    TBTADD: TToolButton;
    TBTEDIT: TToolButton;
    TBTDEL: TToolButton;
    ToolButton4: TToolButton;
    TBTFIND: TToolButton;
    ToolButton9: TToolButton;
    TBTPRINT: TToolButton;
    TBTEXIT: TToolButton;
    Panel1: TPanel;
    DataSource1: TDataSource;
    frxReport1: TfrxReport;
    frxDBDataset1: TfrxDBDataset;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    EdtGPH: TEdit;
    EdtKHMC: TEdit;
    CobSPMC: TComboBox;
    CobMDMC: TComboBox;
    CobGPZT: TComboBox;
    DtTJZRQ: TDateTimePicker;
    procedure TBTEDITClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure TBTFINDClick(Sender: TObject);
    procedure TBTADDClick(Sender: TObject);
    procedure TBTEXITClick(Sender: TObject);
    procedure TBTDELClick(Sender: TObject);
  private
    procedure FindGPXX;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FGPXX: TFGPXX;

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

procedure TFGPXX.FindGPXX;
var
  strGPH,strKHMC,strSPMC,strMD,strGPZT:string;
  strSQL,strTmp:string;
  DdttJZRQ:Tdate;
begin
  strTmp:='';
  strGPH:=Trim(EdtGPH.Text);
  strKHMC:=Trim(EdtKHMC.Text);
  strSPMC:=Trim(TStrAllSp.Strings[CobSPMC.ItemIndex]);
  strMD:=Trim(TStrMD.Strings[CobMDMC.ItemIndex]);
  strGPZT:=Trim(CobGPZT.Text);
  DdttJZRQ:=DtTJZRQ.Date;
  if strGPH<>'' then
    strTmp:=strTmp+'and(钢瓶号 like '+''''+strGPH+'%'+''''+')';
  if strKHMC<>'' then
    strTmp:=strTmp+'and(客户名称 like '+''''+strKHMC+'%'+''''+')';
  if strSPMC<>'全部' then
    if strSPMC<>'' then
      strTmp:=strTmp+'and(商品编号='+''''+strSPMC+''''+')';
  if strMD<>'全部' then
    if strMD<>'' then
      strTmp:=strTmp+'and(门店编号='+''''+strMD+''''+')';
  if strGPZT<>'全部' then
    if strGPZT<>'' then
      strTmp:=strTmp+'and(状态='+''''+strGPZT+''''+')';
  strTmp:=strTmp+'and(检测日期<='+''''+DatetoStr(DdttJZRQ)+''''+')';
  strSQL:='select *,(case 删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 from JG钢瓶信息 where (1=1)'+strtmp;
  RunSQL(DM.ADOQ_GP,strSQL,0);
end;

procedure TFGPXX.TBTEDITClick(Sender: TObject);
begin
  if DM.ADOQ_GP.RecordCount<=0 then
    abort;
  strCZZT:='MODIFY';
  try
    Application.CreateForm(TFADDGPXX, FADDGPXX);
    FADDGPXX.ShowModal;
  finally
    FADDGPXX.Free;
  end;
//  DM.ADOConn.InTransaction;
//  DM.ADOConn.RollbackTrans;
//  DM.ADOConn.BeginTrans;
end;

procedure TFGPXX.FormShow(Sender: TObject);
var
  strSQL:string;
begin
  DtTJZRQ.Date:=Now;
  strSQL:='select 商品编号 DaiMa,品名规格 MingCheng from JG商品资料 where 回瓶=1';
  TStrAllSp:=SetALLCmbxItem(CobSPMC,DM.m_clADOQry_Temp,strSQL,True);
  strSQL:='select 门店编号 DaiMa,门店名称 MingCheng from JG门店';
  TStrMD:=SetALLCmbxItem(CobMDMC,DM.m_clADOQry_Temp,strSQL,True);
  strSQL:='select *,(case 删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 from JG钢瓶信息';
  RunSQL(DM.ADOQ_GP,strSQL,0);
end;

procedure TFGPXX.TBTFINDClick(Sender: TObject);
begin
  FindGPXX;
end;

procedure TFGPXX.TBTADDClick(Sender: TObject);
begin
  strCZZT:='ADD';
  try
    Application.CreateForm(TFADDGPXX, FADDGPXX);
    FADDGPXX.ShowModal;
  finally
    FADDGPXX.Free;
  end;
end;

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

procedure TFGPXX.TBTDELClick(Sender: TObject);
var
  strSQL,strID,strmc:string;
  ntmp:integer;
begin
  if DM.ADOQ_GP.RecordCount<=0 then
    abort;
  strID:=Trim(DM.ADOQ_GP.fieldbyname('钢瓶号').AsString);
  strmc:=Trim(DM.ADOQ_GP.fieldbyname('门店编号').AsString);
  ntmp:=DM.ADOQ_GP.fieldbyname('删除标志').AsInteger;
  if ntmp=0 then
  begin
    Application.MessageBox(pchar('【'+strID+'】已删除，禁止删除！'),MsgBxCaption,MB_OK);
    abort;
  end;
  case messagebox(handle,pchar('真的要删除【'+strID+'】吗？'),MsgBxCaption,mb_iconquestion+MB_YESNO) of
  ID_yes:
  begin
    strSQL:='update JG钢瓶信息 set 删除标志=0 where (钢瓶号='+''''+strID+''''+')and(门店编号='+''''+strmc+''''+')';
    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_GP,strSQL,0);
    end
    else
    begin
      Application.MessageBox('删除数据出错！',MsgBxCaption,MB_OK);
    end;
  end;
  ID_no: abort;
  END;
end;

end.