uaddgys.~pas

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

unit UADDGYS;

interface

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

type
  TFADDGYS = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    EdtGYSBH: TEdit;
    EdtGYSMC: TEdit;
    EdtLXR: TEdit;
    EdtLXDH: TEdit;
    EdtZZ: TEdit;
    EdtDZ: TEdit;
    EdtJYFW: TEdit;
    EdtKHYH: TEdit;
    EdtYHZH: TEdit;
    EdtBZ: TEdit;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure addGYS;
    procedure updateGYS;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FADDGYS: TFADDGYS;

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

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

procedure TFADDGYS.BitBtn1Click(Sender: TObject);
begin
   addGYS;
end;

procedure TFADDGYS.BitBtn2Click(Sender: TObject);
begin
  IF strCZZT='MODIFY' THEN
     updateGYS
  else
    addGYS;
  self.Close;
end;

procedure TFADDGYS.BitBtn3Click(Sender: TObject);
begin
  SELF.Close;
end;

procedure TFADDGYS.addGYS;
var
  strspbh,strpmgg:string;
  strSQL:string;
begin
  screen.Cursor:=crhourglass;
  strspbh:=Trim(EdtGYSBH.Text);
  strpmgg:=Trim(EdtGYSMC.Text);
  IF strspbh='' THEN
  begin
    Application.MessageBox('供应商编号不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtGYSBH.SetFocus;
    abort;
  end;
  IF strpmgg='' THEN
  begin
    Application.MessageBox('供应商名称不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtGYSMC.SetFocus;
    abort;
  end;
  strSQL:='select * from JG供货商 where 供货商编号='+''''+strspbh+'''';
  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;
       EdtGYSBH.SetFocus;
       abort;
    end
    else
    begin
      strSQL:='Insert Into JG供货商 Values('
             +''''+strCZMD+''''
             +','+''''+strspbh+''''
             +','+''''+strpmgg+''''
             +','+''''+Trim(EdtLXR.Text)+''''
             +','+''''+Trim(EdtLXDH.Text)+''''
             +','+''''+Trim(EdtZZ.Text)+''''
             +','+''''+Trim(EdtDZ.Text)+''''
             +','+''''+Trim(EdtJYFW.Text)+''''
             +','+''''+Trim(EdtKHYH.Text)+''''
             +','+''''+Trim(EdtYHZH.Text)+''''
             +','+''''+Trim(EdtBZ.Text)+''''
             +','+inttostr(1)
             +','+inttostr(1)+')';
       if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
       begin
          screen.Cursor:=crdefault;
          strSQL:='SELECT * FROM JG供货商';
          RunSQL(DM.ADOQ_GYS,strSQL,0);
        end
        else
        begin
          Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
          screen.Cursor:=crdefault;
        end;
     end;
   end;
   EdtGYSBH.Text:=BuildTable(dm.m_clADOQry_Temp,'JG供货商','供货商编号','0',6);
   EdtGYSMC.Text:='';
   EdtLXR.Text:='';
   EdtLXDH.Text:='';
   EdtZZ.Text:='';
   EdtDZ.Text:='';
   EdtJYFW.Text:='';
   EdtKHYH.Text:='';
   EdtYHZH.Text:='';
   EdtBZ.Text:='';
   EdtGYSMC.SetFocus;
end;

procedure TFADDGYS.updateGYS;
var
  strspbh,strpmgg:string;
  strSQL,strTmp:string;
begin
  screen.Cursor:=crhourglass;
  strspbh:=Trim(EdtGYSBH.Text);
  strpmgg:=Trim(EdtGYSMC.Text);
  strTmp:=Trim(dm.ADOQ_GYS.fieldbyname('门店编号').AsString);
  IF strspbh='' THEN
  begin
    Application.MessageBox('供应商编号不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtGYSBH.SetFocus;
    abort;
  end;
  IF strpmgg='' THEN
  begin
    Application.MessageBox('供应商名称不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtGYSMC.SetFocus;
    abort;
  end;
  strSQL:='update JG供货商 Set 供货商名称='
             +''''+strpmgg+''''
             +',联系人='+''''+Trim(EdtLXR.Text)+''''
             +',联系电话='+''''+Trim(EdtLXDH.Text)+''''
             +',传真='+''''+Trim(EdtZZ.Text)+''''
             +',地址='+''''+Trim(EdtDZ.Text)+''''
             +',经营范围='+''''+Trim(EdtJYFW.Text)+''''
             +',开户银行='+''''+Trim(EdtKHYH.Text)+''''
             +',银行帐号='+''''+Trim(EdtYHZH.Text)+''''
             +',备注='+''''+Trim(EdtBZ.Text)+''''
             +',标志=2'
             +' where (门店编号='+''''+strTmp+''''+') and (供货商编号='+''''+strspbh+''''+')';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
  begin
    screen.Cursor:=crdefault;
    strSQL:='SELECT * FROM JG供货商';
    RunSQL(DM.ADOQ_GYS,strSQL,0);
  end
  else
  begin
    Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
    screen.Cursor:=crdefault;
  end;
end;

procedure TFADDGYS.FormShow(Sender: TObject);
begin
  IF strCZZT='MODIFY' THEN
  BEGIN
    self.Caption:='修改供应商';
    EdtGYSBH.Text:=Trim(dm.ADOQ_GYS.fieldbyname('供货商编号').AsString);
    EdtGYSMC.Text:=Trim(dm.ADOQ_GYS.fieldbyname('供货商名称').AsString);
    EdtLXR.Text:=Trim(dm.ADOQ_GYS.fieldbyname('联系人').AsString);
    EdtLXDH.Text:=Trim(dm.ADOQ_GYS.fieldbyname('联系电话').AsString);
    EdtZZ.Text:=Trim(dm.ADOQ_GYS.fieldbyname('传真').AsString);
    EdtDZ.Text:=Trim(dm.ADOQ_GYS.fieldbyname('地址').AsString);
    EdtJYFW.Text:=Trim(dm.ADOQ_GYS.fieldbyname('经营范围').AsString);
    EdtKHYH.Text:=Trim(dm.ADOQ_GYS.fieldbyname('开户银行').AsString);
    EdtYHZH.Text:=Trim(dm.ADOQ_GYS.fieldbyname('银行帐号').AsString);
    EdtBZ.Text:=Trim(dm.ADOQ_GYS.fieldbyname('备注').AsString);
    EdtGYSBH.Color:=clBtnFace;
    EdtGYSBH.ReadOnly:=True;
    BitBtn1.Visible:=False;
    EdtGYSMC.SetFocus;
  END
  else
  begin
    EdtGYSBH.Text:=BuildTable(dm.m_clADOQry_Temp,'JG供货商','供货商编号','0',6);
    EdtGYSMC.SetFocus;
  end;
end;

end.