uaddmd.pas

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

unit UADDMD;

interface

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

type
  TFADDMD = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    EdtMDBH: TEdit;
    EdtMDMC: TEdit;
    EdtMDDZ: TEdit;
    EdtFZR: TEdit;
    EdtMDDH: TEdit;
    EdtFZRDH: TEdit;
    Panel1: TPanel;
    Btbsave: TBitBtn;
    Btbcancel: TBitBtn;
    Label7: TLabel;
    procedure BtbsaveClick(Sender: TObject);
    procedure BtbcancelClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FADDMD: TFADDMD;

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

procedure TFADDMD.BtbsaveClick(Sender: TObject);
var
  strMDBH,strMDMC,strSQL:STRING;
begin
  screen.Cursor:=crhourglass;
  strMDBH:=Trim(EdtMDBH.Text);
  strMDMC:=Trim(EdtMDMC.Text);
  IF strMDBH='' THEN
  begin
    Application.MessageBox('门店编号不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtMDBH.SetFocus;
    abort;
  end;
  IF length(strMDBH)<>2 THEN
  begin
    Application.MessageBox('门店编号必须为2个字符！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtMDBH.SetFocus;
    abort;
  end;
  IF strMDMC='' THEN
  begin
    Application.MessageBox('门店名称不能为空！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    EdtMDMC.SetFocus;
    abort;
  end;
  if strCZZT='ADD' THEN
  BEGIN
     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;
          EdtMDBH.SetFocus;
          abort;
       end
       else
       begin
          strSQL:='Insert Into JG门店 Values('
             +''''+Trim(EdtMDBH.Text)+''''
             +','+''''+Trim(EdtMDMC.Text)+''''
             +','+''''+Trim(EdtMDDZ.Text)+''''
             +','+''''+Trim(EdtFZR.Text)+''''
             +','+''''+Trim(EdtMDDH.Text)+''''
             +','+''''+Trim(EdtFZRDH.Text)+''''+')';
          if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
          begin
             screen.Cursor:=crdefault;
             strSQL:='select * from JG门店';
             RunSQL(DM.ADOQ_MD,strSQL,0);
             FADDMD.Close;
          end
          else
            Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
            screen.Cursor:=crdefault;
       end;
     end;
  END
  else
  begin
    strSQL:='update JG门店 set 门店名称='
                    +''''+Trim(EdtMDMC.Text)+''''
                    +',地址='+''''+Trim(EdtMDDZ.Text)+''''
                    +',负责人='+''''+Trim(EdtFZR.Text)+''''
                    +',门店电话='+''''+Trim(EdtMDDH.Text)+''''
                    +',负责人电话='+''''+Trim(EdtFZRDH.Text)+''''+'where 门店编号='+''''+Trim(EdtMDBH.Text)+'''';
     if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
     begin
         strSQL:='Update JG钢瓶信息 set 门店名称='
         +''''+Trim(EdtMDMC.Text)+''''
         +' where (门店编号='+''''+Trim(EdtMDBH.Text)+''''+')';
         RunSQL(DM.m_clADOQry_Temp,strSQL,1);
        screen.Cursor:=crdefault;
        strSQL:='select * from JG门店';
        RunSQL(DM.ADOQ_MD,strSQL,0);
        FADDMD.Close;
     end
     else
        Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
        screen.Cursor:=crdefault;
  end;

end;

procedure TFADDMD.BtbcancelClick(Sender: TObject);
begin
  FADDMD.Close;
end;

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

procedure TFADDMD.FormShow(Sender: TObject);
begin
  IF strCZZT='MODIFY' THEN
  BEGIN
    self.Caption:='修改门店';
    EdtMDBH.Text:=Trim(dm.ADOQ_MD.fieldbyname('门店编号').AsString);
    EdtMDMC.Text:=Trim(dm.ADOQ_MD.fieldbyname('门店名称').AsString);
    EdtMDDZ.Text:=Trim(dm.ADOQ_MD.fieldbyname('地址').AsString);
    EdtFZR.Text:=Trim(dm.ADOQ_MD.fieldbyname('负责人').AsString);
    EdtMDDH.Text:=Trim(dm.ADOQ_MD.fieldbyname('门店电话').AsString);
    EdtFZRDH.Text:=Trim(dm.ADOQ_MD.fieldbyname('负责人电话').AsString);
    EdtMDBH.Color:=clBtnFace;
    EdtMDBH.ReadOnly:=True;
    EdtMDMC.SetFocus;
  END
  else
  begin
    EdtMDBH.SetFocus;
  end;
end;

end.