uaddsqy.~pas

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

unit UADDSQY;

interface

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

type
  TFADDSQY = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Panel1: TPanel;
    edtBH: TEdit;
    edtSQY: TEdit;
    edtLXDZ: TEdit;
    edtLXDH: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    procedure addSQY;
    procedure updateSQY;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FADDSQY: TFADDSQY;

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

procedure TFADDSQY.FormShow(Sender: TObject);
begin
  IF strCZZT='MODIFY' THEN
  BEGIN
    self.Caption:='修改送气员';
    edtBH.Text:=Trim(dm.ADOQ_SQY.fieldbyname('编号').AsString);
    edtSQY.Text:=Trim(dm.ADOQ_SQY.fieldbyname('送气员').AsString);
    edtLXDZ.Text:=Trim(dm.ADOQ_SQY.fieldbyname('地址').AsString);
    edtLXDH.Text:=Trim(dm.ADOQ_SQY.fieldbyname('联系电话').AsString);
    edtBH.Color:=clBtnFace;
    edtBH.ReadOnly:=True;
    BitBtn1.Visible:=False;
    edtSQY.SetFocus;
  END
  else
  begin
    edtbh.Text:=BuildTable(dm.m_clADOQry_Temp,'JG送气员','编号','0',6);
    edtSQY.SetFocus;
  end;
end;

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

procedure TFADDSQY.BitBtn3Click(Sender: TObject);
begin
  self.Close;
end;

procedure TFADDSQY.addSQY;
var
  strMDBH,strMDMC,strSQL,strTmp:STRING;
begin
  screen.Cursor:=crhourglass;
  strMDBH:=Trim(edtBH.Text);
  strMDMC:=Trim(edtSQY.Text);
  strTmp:=GetNewStr(DM.m_clADOQry_Temp);
  IF strMDBH='' THEN
  begin
    Application.MessageBox('编号不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    edtBH.SetFocus;
    abort;
  end;
  IF strMDMC='' THEN
  begin
    Application.MessageBox('送气员不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    edtSQY.SetFocus;
    abort;
  end;
  strSQL:='select * from JG送气员 where 编号='+''''+strMDBH+'''';
  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;
       edtBH.SetFocus;
       abort;
    end
    else
    begin
      strSQL:='Insert Into JG送气员 Values('
             +''''+strTmp+''''
             +','+''''+strCZMD+''''
             +','+''''+Trim(edtbh.Text)+''''
             +','+''''+Trim(edtSQY.Text)+''''
             +','+''''+Trim(edtLXDZ.Text)+''''
             +','+''''+Trim(edtLXDH.Text)+''''
             +','+inttostr(1)
             +','+inttostr(1)+')';
       if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
       begin
          screen.Cursor:=crdefault;
          DM.ADOQ_SQY.Active:=False;
          DM.ADOQ_SQY.Active:=True;
        end
        else
        begin
          Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
          screen.Cursor:=crdefault;
        end;  
     end;
   end;
   edtbh.Text:=BuildTable(dm.m_clADOQry_Temp,'JG送气员','编号','0',6);
   edtSQY.Text:='';
   edtLXDZ.Text:='';
   edtLXDH.Text:='';
end;

procedure TFADDSQY.updateSQY;
var
  strMDBH,strMDMC,strSQL,strTmp:STRING;
begin
  screen.Cursor:=crhourglass;
  strMDBH:=Trim(edtBH.Text);
  strMDMC:=Trim(edtSQY.Text);
  strTmp:=Trim(dm.ADOQ_SQY.fieldbyname('送气员ID').AsString);
  IF strMDBH='' THEN
  begin
    Application.MessageBox('编号不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    edtBH.SetFocus;
    abort;
  end;
  IF strMDMC='' THEN
  begin
    Application.MessageBox('送气员不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    edtSQY.SetFocus;
    abort;
  end;
  strSQL:='update JG送气员 set 送气员='
             +''''+Trim(edtSQY.Text)+''''
             +',地址='+''''+Trim(edtLXDZ.Text)+''''
             +',联系电话='+''''+Trim(edtLXDH.Text)+''''
             +',标志=2 where 送气员ID='+''''+strTmp+'''';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
  begin
    screen.Cursor:=crdefault;
    DM.ADOQ_SQY.Active:=False;
    DM.ADOQ_SQY.Active:=True;
  end
  else
  begin
    Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
    screen.Cursor:=crdefault;
  end;
end;

procedure TFADDSQY.BitBtn2Click(Sender: TObject);
begin
  IF strCZZT='MODIFY' THEN
     updateSQY
  else
    addSQY;
  self.Close;  
end;

procedure TFADDSQY.BitBtn1Click(Sender: TObject);
begin
  addSQY;
end;

end.