uaddbmxx.~pas

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

unit UADDBMXX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TFADDBMXX = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EdtID: TEdit;
    EdtMC: TEdit;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    procedure updateSJ;
    procedure addSJ;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FADDBMXX: TFADDBMXX;

implementation
    uses U_dm,UsysPub,UsysConst,UYHQX;
{$R *.dfm}

procedure TFADDBMXX.FormShow(Sender: TObject);
begin
  IF strCZZT='MODIFY' THEN
  BEGIN
    self.Caption:='修改部门信息';
    EdtID.Text:=Trim(FYHQX.ADOQ_BM.fieldbyname('BMID').AsString);
    EdtMC.Text:=Trim(FYHQX.ADOQ_BM.fieldbyname('BMMC').AsString);
    EdtID.Color:=clBtnFace;
    EdtID.ReadOnly:=True;
    EdtMC.SetFocus;
  END
  else
  begin
    EdtID.SetFocus;
  end;
end;

procedure TFADDBMXX.addSJ;
var
  strID,strMC:string;
  strSQL:string;
begin
  screen.Cursor:=crhourglass;
  strID:=Trim(EdtID.Text);
  strMC:=Trim(EdtMC.Text);
  IF strID='' THEN
  begin
    Application.MessageBox('部门不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtID.SetFocus;
    abort;
  end;
  IF strMC='' THEN
  begin
    Application.MessageBox('部门名称不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtMC.SetFocus;
    abort;
  end;
  strSQL:='select * from JCBMXX where BMID='+''''+strID+'''';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,0) then
  begin
    if DM.m_clADOQry_Temp.RecordCount>0 then
    begin
       Application.MessageBox('部门重复，请重新输入！',MsgBxCaption,MB_OK+MB_ICONWARNING);
       screen.Cursor:=crdefault;
       EdtID.SetFocus;
       abort;
    end
    else
    begin
      strSQL:='Insert Into JCBMXX Values('
             +''''+strID+''''
             +','+''''+strMC+''''
             +','+''''+''+''''+')';
       if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
       begin
          screen.Cursor:=crdefault;
          strSQL:='SELECT * FROM JCBMXX';
          RunSQL(FYHQX.ADOQ_BM,strSQL,0);
        end
        else
        begin
          Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
          screen.Cursor:=crdefault;
        end;
     end;
   end;
end;

procedure TFADDBMXX.updateSJ;
var
  strID,strMC:string;
  strSQL:string;
begin
  screen.Cursor:=crhourglass;
  strID:=Trim(EdtID.Text);
  strMC:=Trim(EdtMC.Text);
  IF strID='' THEN
  begin
    Application.MessageBox('部门不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtID.SetFocus;
    abort;
  end;
  IF strMC='' THEN
  begin
    Application.MessageBox('部门名称不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtMC.SetFocus;
    abort;
  end;
  strSQL:='update JCBMXX Set BMMC='
             +''''+strMC+''''
             +' where (BMID='+''''+strID+''''+')';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
  begin
    screen.Cursor:=crdefault;
    strSQL:='SELECT * FROM JCBMXX';
    RunSQL(FYHQX.ADOQ_BM,strSQL,0);
  end
  else
  begin
    Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
    screen.Cursor:=crdefault;
  end;
end;

procedure TFADDBMXX.BitBtn1Click(Sender: TObject);
begin
  IF strCZZT='MODIFY' THEN
     updateSJ
  else
    addSJ;
  self.Close;
end;

procedure TFADDBMXX.BitBtn2Click(Sender: TObject);
begin
  self.Close;
end;

procedure TFADDBMXX.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    EnterToChangeFocus(self,key);
end;

end.