uyhqx.~pas

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

unit UYHQX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, GridsEh, DBGridEh, ExtCtrls, DB,
  ADODB;

type
  TFYHQX = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    DBGridEh1: TDBGridEh;
    TreeView1: TTreeView;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label1: TLabel;
    Panel5: TPanel;
    DBGridEh2: TDBGridEh;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Panel6: TPanel;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    DBGridEh3: TDBGridEh;
    ADOQ_QXZ: TADOQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQ_BM: TADOQuery;
    ADOQ_CYZ: TADOQuery;
    DataSource3: TDataSource;
    BitBtn10: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FYHQX: TFYHQX;

implementation
   USES MAIN,U_dm,UsysPub,UsysConst,UADDQXZ,UADDBMXX,UADDCZY;
{$R *.dfm}

procedure TFYHQX.FormShow(Sender: TObject);
var
  strSQL:string;
begin
  strSQL:='SELECT * FROM JCQXXX';
  RunSQL(ADOQ_QXZ,strSQL,0);
  strSQL:='SELECT * FROM JCBMXX';
  RunSQL(ADOQ_BM,strSQL,0);
  strSQL:='SELECT a.*,b.BMMC,c.QXMC from JCCZYXX a,JCBMXX b,JCQXXX c where (a.BMID=b.BMID)and(a.QXID=c.QXID)';
  RunSQL(ADOQ_CYZ,strSQL,0);
end;

procedure TFYHQX.BitBtn1Click(Sender: TObject);
begin
  strCZZT:='ADD';
  try
    Application.CreateForm(TFADDQXZ, FADDQXZ);
    FADDQXZ.ShowModal;
  finally
    FADDQXZ.Free;
  end;
end;

procedure TFYHQX.BitBtn2Click(Sender: TObject);
begin
  if ADOQ_QXZ.RecordCount<=0 then
    abort;
  strCZZT:='MODIFY';
  try
    Application.CreateForm(TFADDQXZ, FADDQXZ);
    FADDQXZ.ShowModal;
  finally
    FADDQXZ.Free;
  end;
end;

procedure TFYHQX.BitBtn3Click(Sender: TObject);
var
  strSQL,strID:string;
begin
  if ADOQ_QXZ.RecordCount<=0 then
    abort;
  strID:=ADOQ_QXZ.fieldbyname('QXID').AsString;
  if strID='1' then
  begin
    Application.MessageBox('不能删除系统管理组！',MsgBxCaption,MB_OK);
    abort;
  end;
  case messagebox(handle,pchar('真的要删除该记录吗？'),MsgBxCaption,mb_iconquestion+MB_YESNO) of
  ID_yes:
  begin
    strSQL:='delete from JCQXXX where QXID='+''''+strID+'''';
    if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
    begin
      strSQL:='update JCCZYXX set QXID='+''''+'1'+''''+' where QXID='+''''+strID+'''';
      RunSQL(DM.m_clADOQry_Temp,strSQL,1);
      strSQL:='select * from JCQXXX';
      RunSQL(ADOQ_QXZ,strSQL,0);
    end
    else
    begin
      Application.MessageBox('删除数据出错！',MsgBxCaption,MB_OK);
    end;
  end;
  ID_no: abort;
  END;
end;

procedure TFYHQX.BitBtn4Click(Sender: TObject);
begin
  strCZZT:='ADD';
  try
    Application.CreateForm(TFADDBMXX, FADDBMXX);
    FADDBMXX.ShowModal;
  finally
    FADDBMXX.Free;
  end;
end;

procedure TFYHQX.BitBtn5Click(Sender: TObject);
begin
  if ADOQ_BM.RecordCount<=0 then
    abort;
  strCZZT:='MODIFY';
  try
    Application.CreateForm(TFADDBMXX, FADDBMXX);
    FADDBMXX.ShowModal;
  finally
    FADDBMXX.Free;
  end;
end;

procedure TFYHQX.BitBtn6Click(Sender: TObject);
var
  strSQL,strID:string;
begin
  if ADOQ_BM.RecordCount<=0 then
    abort;
  strID:=ADOQ_BM.fieldbyname('BMID').AsString;
  if strID='0001' then
  begin
    Application.MessageBox('不能删除计算机管理中心！',MsgBxCaption,MB_OK);
    abort;
  end;
  case messagebox(handle,pchar('真的要删除该记录吗？'),MsgBxCaption,mb_iconquestion+MB_YESNO) of
  ID_yes:
  begin
    strSQL:='delete from JCBMXX where BMID='+''''+strID+'''';
    if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
    begin
      strSQL:='update JCCZYXX set BMID='+''''+'0001'+''''+' where BMID='+''''+strID+'''';
      RunSQL(DM.m_clADOQry_Temp,strSQL,1);
      strSQL:='select * from JCBMXX';
      RunSQL(ADOQ_BM,strSQL,0);
    end
    else
    begin
      Application.MessageBox('删除数据出错！',MsgBxCaption,MB_OK);
    end;
  end;
  ID_no: abort;
  END;
end;

procedure TFYHQX.BitBtn7Click(Sender: TObject);
begin
  strCZZT:='ADD';
  try
    Application.CreateForm(TFADDCZY, FADDCZY);
    FADDCZY.ShowModal;
  finally
    FADDCZY.Free;
  end;
end;

procedure TFYHQX.BitBtn8Click(Sender: TObject);
begin
  if ADOQ_CYZ.RecordCount<=0 then
    abort;
  strCZZT:='MODIFY';
  try
    Application.CreateForm(TFADDCZY, FADDCZY);
    FADDCZY.ShowModal;
  finally
    FADDCZY.Free;
  end;
end;

procedure TFYHQX.BitBtn9Click(Sender: TObject);
var
  strSQL,strID:string;
begin
  if ADOQ_CYZ.RecordCount<=0 then
    abort;
  strID:=ADOQ_CYZ.fieldbyname('CYZID').AsString;
  if strID='0001' then
  begin
    Application.MessageBox('不能删除系统员！',MsgBxCaption,MB_OK);
    abort;
  end;
  case messagebox(handle,pchar('真的要删除该记录吗？'),MsgBxCaption,mb_iconquestion+MB_YESNO) of
  ID_yes:
  begin
    strSQL:='delete from JCCZYXX where CYZID='+''''+strID+'''';
    if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
    begin
      strSQL:='SELECT a.*,b.BMMC,c.QXMC from JCCZYXX a,JCBMXX b,JCQXXX c where (a.BMID=b.BMID)and(a.QXID=c.QXID)';
      RunSQL(ADOQ_CYZ,strSQL,0);
    end
    else
    begin
      Application.MessageBox('删除数据出错！',MsgBxCaption,MB_OK);
    end;
  end;
  ID_no: abort;
  END;

end;

procedure TFYHQX.BitBtn10Click(Sender: TObject);
var
  strSQL,strID,strMC:string;
begin
  if ADOQ_CYZ.RecordCount<=0 then
    abort;
  strID:=ADOQ_CYZ.fieldbyname('CYZID').AsString;
  strMC:=ADOQ_CYZ.fieldbyname('CZYMC').AsString;
  case messagebox(handle,pchar('真的要删除【'+strMC+'】的密码吗？'),MsgBxCaption,mb_iconquestion+MB_YESNO) of
  ID_yes:
  begin
    strSQL:='update JCCZYXX set CZMM='+''''+''+''''+' where CYZID='+''''+strID+'''';
    if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
    begin
      strSQL:='SELECT a.*,b.BMMC,c.QXMC from JCCZYXX a,JCBMXX b,JCQXXX c where (a.BMID=b.BMID)and(a.QXID=c.QXID)';
      RunSQL(ADOQ_CYZ,strSQL,0);
    end
    else
    begin
      Application.MessageBox('删除数据出错！',MsgBxCaption,MB_OK);
    end;
  end;
  ID_no: abort;
  END;
end;

end.