ukhxx.~pas

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

unit UKHXX;

interface

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

type
  TFKHXX = 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;
    DataSource1: TDataSource;
    frxReport1: TfrxReport;
    frxDBDataset1: TfrxDBDataset;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EdtKHBH: TEdit;
    EdtKHDH: TEdit;
    EdtKHMC: TEdit;
    EdtKHDZ: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    CobYHLX: TComboBox;
    CobKHLX: TComboBox;
    Panel2: TPanel;
    DBGridEh2: TDBGridEh;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label7: TLabel;
    DataSource2: TDataSource;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    DBEdTKHID: TDBEdit;
    procedure FormShow(Sender: TObject);
    procedure DBEdTKHIDChange(Sender: TObject);
    procedure TBTADDClick(Sender: TObject);
    procedure TBTEDITClick(Sender: TObject);
    procedure TBTFINDClick(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure EdtKHBHKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdtKHDHKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdtKHMCKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdtKHDZKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure TBTDELClick(Sender: TObject);
  private
    procedure KHIDOnChange;
    procedure FindKHXX;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FKHXX: TFKHXX;

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

procedure TFKHXX.FormShow(Sender: TObject);
var
  strSQL:string;
begin
  strSQL:='select 编号 DaiMa,名称 MingCheng from JG用户类型';
  TStrAllYhlx:=SetAllCmbxItem(CobYHLX,DM.m_clADOQry_Temp,strSQL,False);
  strSQL:='select 编号 DaiMa,名称 MingCheng from JG客户类型';
  TStrAllkhlx:=SetAllCmbxItem(CobKHLX,DM.m_clADOQry_Temp,strSQL,False);
  strSQL:='select a.*,b.分类名称,(case a.删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 from JG客户信息 a,JG客户分类 b where (a.门店编号=b.门店编号)and(a.分类编号=b.分类编号)';
  RunSQL(DM.ADOQ_KHXX,strSQL,0);
  KHIDOnChange;
end;

procedure TFKHXX.DBEdTKHIDChange(Sender: TObject);
begin
  KHIDOnChange;
end;

procedure TFKHXX.KHIDOnChange;
VAR
  strSQL,strTmp:string;
begin
  strTmp:=Trim(dm.ADOQ_KHXX.FieldByName('客户ID').AsString);
  strSQL:='select * from JG客户缺省用气 WHERE 客户ID='+''''+strTmp+'''';
  RunSQL(DM.ADOQ_KHXSYQ,strSQL,0);
end;

procedure TFKHXX.FindKHXX;
var
  strKHBH,strKHDH,strKHMC,strKHDZ,strYHLX,strKHLX:string;
  strSQL,strtmp:string;
begin
  strtmp:='';
  strKHBH:=Trim(EdtKHBH.Text);
  strKHDH:=Trim(EdtKHDH.Text);
  strKHMC:=Trim(EdtKHMC.Text);
  strKHDZ:=Trim(EdtKHDZ.Text);
  strYHLX:=Trim(CobYHLX.Text);
  strKHLX:=Trim(CobKHLX.Text);
  if strKHBH<>'' then
     strtmp:=strtmp+'and(a.客户编号 like '+''''+strKHBH+'%'+''''+')';
  if strKHDH<>'' then
     strtmp:=strtmp+'and((a.电话 like '+''''+strKHDH+'%'+''''+')or(a.电话 like '+''''+'%、'+strKHDH+'%'+''''+'))';
  if strKHMC<>'' then
     strtmp:=strtmp+'and(a.客户名称 like '+''''+strKHMC+'%'+''''+')';
  if strKHDZ<>'' then
     strtmp:=strtmp+'and(a.地址 like '+''''+strKHDZ+'%'+''''+')';
  if strYHLX<>'全部' then
    if strYHLX<>'' then
      strtmp:=strtmp+'and(a.用户类型='+''''+strYHLX+''''+')';
  if strKHLX<>'全部' then
    if strKHLX<>'' then
      strtmp:=strtmp+'and(a.客户类型='+''''+strKHLX+''''+')';
  strSQL:='select a.*,b.分类名称,(case a.删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 from JG客户信息 a,JG客户分类 b where (a.门店编号=b.门店编号)and(a.分类编号=b.分类编号)'+strtmp;
  RunSQL(DM.ADOQ_KHXX,strSQL,0);
end;

procedure TFKHXX.TBTADDClick(Sender: TObject);
begin
  strCZZT:='ADD';
  try
    Application.CreateForm(TFADDKHXX, FADDKHXX);
    FADDKHXX.ShowModal;
  finally
    FADDKHXX.Free;
  end;
end;

procedure TFKHXX.TBTEDITClick(Sender: TObject);
begin
  if DM.ADOQ_KHXX.RecordCount<=0 then
    abort;
  strCZZT:='MODIFY';
  try
    Application.CreateForm(TFADDKHXX, FADDKHXX);
    FADDKHXX.ShowModal;
  finally
    FADDKHXX.Free;
  end;
end;

procedure TFKHXX.TBTFINDClick(Sender: TObject);
begin
  FindKHXX;
end;

procedure TFKHXX.ToolButton3Click(Sender: TObject);
begin
  self.Close;
end;

procedure TFKHXX.EdtKHBHKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
     FindKHXX;
end;

procedure TFKHXX.EdtKHDHKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
     FindKHXX;
end;

procedure TFKHXX.EdtKHMCKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
     FindKHXX;
end;

procedure TFKHXX.EdtKHDZKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then
     FindKHXX;
end;

procedure TFKHXX.BitBtn1Click(Sender: TObject);
begin
  strCZZT:='ADD';
  try
    Application.CreateForm(TFADDKHXSYQ, FADDKHXSYQ);
    FADDKHXSYQ.ShowModal;
  finally
    FADDKHXSYQ.Free;
  end;
end;

procedure TFKHXX.BitBtn2Click(Sender: TObject);
begin
  if DM.ADOQ_KHXSYQ.RecordCount<=0 then
    abort;
  strCZZT:='MODIFY';
  try
    Application.CreateForm(TFADDKHXSYQ, FADDKHXSYQ);
    FADDKHXSYQ.ShowModal;
  finally
    FADDKHXSYQ.Free;
  end;
end;

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

procedure TFKHXX.TBTDELClick(Sender: TObject);
var
  strSQL,strID,strmc:string;
  ntmp:integer;
begin
  if DM.ADOQ_KHXX.RecordCount<=0 then
    abort;
  strID:=Trim(DM.ADOQ_KHXX.fieldbyname('客户ID').AsString);
  strmc:=Trim(DM.ADOQ_KHXX.fieldbyname('客户名称').AsString);
  ntmp:=DM.ADOQ_KHXX.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 (客户ID='+''''+strID+''''+')';
    if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
    begin
      strSQL:='select a.*,b.分类名称,(case a.删除标志 when 1 then '+''''+'正常'+''''+' when 0 then '+''''+'删除'+''''+' end) 是否删除 from JG客户信息 a,JG客户分类 b where (a.门店编号=b.门店编号)and(a.分类编号=b.分类编号)';
      RunSQL(DM.ADOQ_KHXX,strSQL,0);
    end
    else
    begin
      Application.MessageBox('删除数据出错！',MsgBxCaption,MB_OK);
    end;
  end;
  ID_no: abort;
  END;
end;

end.