uaddczy.pas

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

unit UADDCZY;

interface

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

type
  TFADDCZY = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EdtID: TEdit;
    EdtMC: TEdit;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    CobBM: TComboBox;
    CobQXZ: TComboBox;
    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
  FADDCZY: TFADDCZY;

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

procedure TFADDCZY.FormShow(Sender: TObject);
VAR
  strSQL:string;
begin
  strSQL:='select BMID DaiMa,BMMC MingCheng from JCBMXX';
  TStrbm:=SetCmbxItem(CobBM,DM.m_clADOQry_Temp,strSQL,True);
  strSQL:='select QXID DaiMa,QXMC MingCheng from JCQXXX';
  TStrQXZ:=SetCmbxItem(CobQXZ,DM.m_clADOQry_Temp,strSQL,True);
  IF strCZZT='MODIFY' THEN
  BEGIN
    self.Caption:='修改操作员信息';
    EdtID.Text:=Trim(FYHQX.ADOQ_CYZ.fieldbyname('CYZID').AsString);
    EdtMC.Text:=Trim(FYHQX.ADOQ_CYZ.fieldbyname('CZYMC').AsString);
    CobBM.ItemIndex:=TStrbm.IndexOf(Trim(FYHQX.ADOQ_CYZ.fieldbyname('BMID').AsString));
    CobQXZ.ItemIndex:=TStrQXZ.IndexOf(Trim(FYHQX.ADOQ_CYZ.fieldbyname('QXID').AsString));
    EdtID.Color:=clBtnFace;
    EdtID.ReadOnly:=True;
    EdtMC.SetFocus;
  END
  else
  begin
    EdtID.SetFocus;
  end;
end;

procedure TFADDCZY.addSJ;
var
  strID,strMC,strBM,strQXZ:string;
  strSQL:string;
  i:integer;
begin
  screen.Cursor:=crhourglass;
  strID:=Trim(EdtID.Text);
  strMC:=Trim(EdtMC.Text);
  i:=CobBM.ItemIndex;
  if i<>-1 then
    strBM:=Trim(TStrbm.Strings[i]);
  i:=CobQXZ.ItemIndex;
  if i<>-1 then
    strQXZ:=Trim(TStrQXZ.Strings[i]);
  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;
  IF strBM='' THEN
  begin
    Application.MessageBox('请选择部门！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    abort;
  end;
  IF strQXZ='' THEN
  begin
    Application.MessageBox('请选择权限组！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    abort;
  end;
  strSQL:='select * from JCCZYXX where CYZID='+''''+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 JCCZYXX Values('
             +''''+strID+''''
             +','+''''+strMC+''''
             +','+''''+strBM+''''
             +','+''''+strQXZ+''''
             +','+''''+''+''''
             +','+''''+''+''''+')';
       if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
       begin
          screen.Cursor:=crdefault;
          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(FYHQX.ADOQ_CYZ,strSQL,0);
        end
        else
        begin
          Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
          screen.Cursor:=crdefault;
        end;
     end;
   end;
end;

procedure TFADDCZY.updateSJ;
var
  strID,strMC,strBM,strQXZ:string;
  strSQL:string;
  i:integer;
begin
  screen.Cursor:=crhourglass;
  strID:=Trim(EdtID.Text);
  strMC:=Trim(EdtMC.Text);
  i:=CobBM.ItemIndex;
  if i<>-1 then
    strBM:=Trim(TStrbm.Strings[i]);
  i:=CobQXZ.ItemIndex;
  if i<>-1 then
    strQXZ:=Trim(TStrQXZ.Strings[i]);
  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;
  IF strBM='' THEN
  begin
    Application.MessageBox('请选择部门！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    abort;
  end;
  IF strQXZ='' THEN
  begin
    Application.MessageBox('请选择权限组！',MsgBxCaption,MB_OK+MB_ICONWARNING);
    screen.Cursor:=crdefault;
    abort;
  end;
  strSQL:='update JCCZYXX Set CZYMC='
             +''''+strMC+''''
             +',BMID='+''''+strBM+''''
             +',QXID='+''''+strQXZ+''''
             +' where (CYZID='+''''+strID+''''+')';
  if RunSQL(DM.m_clADOQry_Temp,strSQL,1) then
  begin
    screen.Cursor:=crdefault;
    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(FYHQX.ADOQ_CYZ,strSQL,0);
  end
  else
  begin
    Application.MessageBox('保存数据失败！',MsgBxCaption,MB_OK);
    screen.Cursor:=crdefault;
  end;
end;

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

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

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

end.