unit1.pas

是分布式粮库程序,是采用Delphi实现的

             qryCommon.SQL.Clear;
             qryCommon.SQL.Add(s);
             qryCommon.Open;
             if qryCommon.IsEmpty then
             begin
               s :='insert ENT_ATTACHMENT Values('''+trim(edtInput.Text)+''','''','''')';
               qryCommon.SQL.Clear;
               qryCommon.SQL.Add(s);
               try
                 qryCommon.ExecSQL;
               except
                 Application.MessageBox('保存直管属性时出错!','系统错误',MB_OK+MB_ICONERROR);
                 Exit;
               end;
               OptionModified :=False;
             end
             else
             begin
               Application.MessageBox('该直管属性已经存在!','系统错误',MB_OK+MB_ICONERROR);
               Exit;
             end;
           end
           else
           begin  // 修改记录
             s :='update ENT_ATTACHMENT set ATTACHMENT='''+trim(edtInput.Text)+''' where ATTACHMENT='''+table5.FieldByName('ATTACHMENT').AsString+'''';
             qryCommon.SQL.Clear;
             qryCommon.SQL.Add(s);
             try
               qryCommon.ExecSQL;
             except
               Application.MessageBox('修改直管属性时出错!','系统错误',MB_OK+MB_ICONERROR);
               Exit;
             end;
             OptionModified := False;
           end;
           table5.close;
           table5.Open;
         end;
      4: begin    // 仓库类型
           if editMode = editINSERT then
           begin  // 新建记录
             s := 'select * from ENT_DEPOTTYPE where DEPOT_TYPE='''+trim(edtInput.Text)+'''';
             qryCommon.SQL.Clear;
             qryCommon.SQL.Add(s);
             qryCommon.Open;
             if qryCommon.IsEmpty then
             begin
               s :='insert ENT_DEPOTTYPE Values('''+trim(edtInput.Text)+''','''','''')';
               qryCommon.SQL.Clear;
               qryCommon.SQL.Add(s);
               try
                 qryCommon.ExecSQL;
               except
                 Application.MessageBox('保存仓库类型时出错!','系统错误',MB_OK+MB_ICONERROR);
                 Exit;
               end;
               OptionModified :=False;
             end
             else
             begin
               Application.MessageBox('该仓库类型已经存在!','系统错误',MB_OK+MB_ICONERROR);
               Exit;
             end;
           end
           else
           begin  // 修改记录
             s :='update ENT_DEPOTTYPE set DEPOT_TYPE='''+trim(edtInput.Text)+''' where DEPOT_TYPE='''+table6.FieldByName('DEPOT_TYPE').AsString+'''';
             qryCommon.SQL.Clear;
             qryCommon.SQL.Add(s);
             try
               qryCommon.ExecSQL;
             except
               Application.MessageBox('修改仓库类型时出错!','系统错误',MB_OK+MB_ICONERROR);
               Exit;
             end;
             OptionModified := False;
           end;
           table6.Close;
           table6.Open;
         end;
     end;          
   end;
end;

procedure Tfrmsetup.btnnewClick(Sender: TObject);
begin
OptionModified :=False;
  edtInput.Color := clWindow;
  edtInput.Enabled :=True;
  btnModify.Enabled :=False;
  btnDelete.Enabled :=False;
  PageControl1.Enabled :=False;
  editMode := editINSERT;
  edtInput.SetFocus;
end;

procedure Tfrmsetup.btndeleteClick(Sender: TObject);
 var s:string;
begin
  case PageControl1.ActivePageIndex of
    0: begin
         if table1.IsEmpty then
           Exit;
         if MessageDlg('确实要删除吗?',mtInformation,[mbYes,mbNo],0)=mrNo then
         exit
         else
         begin
         s :='delete from ENT_SETTLEMENT where SETTLEMENT='''+table1.FieldByName('SETTLEMENT').AsString+'''';
         qryCommon.SQL.Clear;
         qryCommon.SQL.Add(s);
        try
           qryCommon.ExecSQL;
         except
           Application.MessageBox('不能删除该结算方式!','系统错误',MB_OK+MB_ICONERROR);
           Exit;
         end;
         table1.close;
         table1.Open;
         end;
       end;
   1: begin
         if table2.IsEmpty then
           Exit;
         if MessageDlg('确实要删除吗?',mtInformation,[mbYes,mbNo],0)=mrNo then
         exit
         else
         begin
         s :='delete from ENT_BUSINESS_TYPE where busines_stype='''+table2.FieldByName('busines_stype').AsString+'''';
         qryCommon.SQL.Clear;
         qryCommon.SQL.Add(s);
         try
           qryCommon.ExecSQL;
         except
           Application.MessageBox('不能删除该业务性质!','系统错误',MB_OK+MB_ICONERROR);
           Exit;
         end;
         table2.close;
         table2.Open;
       end;
      end;
{    2: begin
         if table3.IsEmpty then
           Exit;
         if MessageDlg('确实要删除吗?',mtInformation,[mbYes,mbNo],0)=mrNo then
         exit
         else
         begin
         s :='delete from ENT_FOOD_TYPE where FOOD_TYPE='''+table3.FieldByName('FOOD_type').AsString+'''';
         qryCommon.SQL.Clear;
         qryCommon.SQL.Add(s);
         try
           qryCommon.ExecSQL;
         except
           Application.MessageBox('不能删除该粮油品种!','系统错误',MB_OK+MB_ICONERROR);
           Exit;
         end;
         table3.Close;
         table3.Open;
       end;
     end; }
    2: begin
         if table4.IsEmpty then
           Exit;
         if MessageDlg('确实要删除吗?',mtInformation,[mbYes,mbNo],0)=mrNo then
         exit
         else
         begin
         s :='delete from ENT_ATTRIBUTE where ATTRIBUTE='''+table4.FieldByName('ATTRIBUTE').AsString+'''';
         qryCommon.SQL.Clear;
         qryCommon.SQL.Add(s);
         try
           qryCommon.ExecSQL;
         except
           Application.MessageBox('不能删除该库存性质!','系统错误',MB_OK+MB_ICONERROR);
           Exit;
         end;
         table4.Close;
         table4.Open;
       end;
     end;
    3: begin
         if table5.IsEmpty then
           Exit;
         if MessageDlg('确实要删除吗?',mtInformation,[mbYes,mbNo],0)=mrNo then
         exit
         else
         begin
         s :='delete from ENT_ATTACHMENT where ATTACHMENT='''+table5.FieldByName('ATTACHMENT').AsString+'''';
         qryCommon.SQL.Clear;
         qryCommon.SQL.Add(s);
         try
           qryCommon.ExecSQL;
         except
           Application.MessageBox('不能删除该直管属性!','系统错误',MB_OK+MB_ICONERROR);
           Exit;
         end;
         table5.Close;
         table5.Open;
       end;
     end;
    4: begin
         if table6.IsEmpty then
           Exit;
         if MessageDlg('确实要删除吗?',mtInformation,[mbYes,mbNo],0)=mrNo then
         exit
         else
         begin
         s :='delete from ENT_DEPOTTYPE where DEPOT_TYPE='''+table6.FieldByName('DEPOT_TYPE').AsString+'''';
         qryCommon.SQL.Clear;
         qryCommon.SQL.Add(s);
         try
           qryCommon.ExecSQL;
         except
           Application.MessageBox('不能删除该仓库类型!','系统错误',MB_OK+MB_ICONERROR);
           Exit;
         end;
         table6.Close;
         table6.Open;
       end;
     end;
  end;
end;

{procedure Tfrmsetup.btnokClick(Sender: TObject);
begin
  if OptionModified then
  begin
    DealApply;
    if OptionModified then
    begin
      edtInput.SelectAll;
      edtInput.SetFocus;
    end
    else
      Close;
  end
  else
    Close;
end;
}
procedure Tfrmsetup.btnabandonClick(Sender: TObject);
begin
  edtInput.Text :='';
  edtInput.Enabled :=False;
  edtInput.Color :=clBtnFace;
  OptionModified := False;
  btnNew.Enabled :=True;
  btnDelete.Enabled :=True;
  btnModify.Enabled :=True;
  pageControl1.Enabled :=True;
end;

procedure Tfrmsetup.PageControl1Change(Sender: TObject);
var sPrompt : string;
begin
  case PageControl1.ActivePageIndex of
      0: sPrompt:='输入付款方式:';
      1: sPrompt:='输入业务性质：';
   //   2: sPrompt:='输入货物种类：';
      2: sPrompt:='输入库存性质：';
      3: sPrompt:='输入直管属性：';
      4: sPrompt:='输入仓库类型：';
  end;
  label1.Caption := sPrompt;
end;

procedure Tfrmsetup.btnexitClick(Sender: TObject);
begin
close;
end;

procedure Tfrmsetup.btnmodifyClick(Sender: TObject);
begin
  case PageControl1.ActivePageIndex of
    0:  begin
          if table1.IsEmpty then Exit;
          edtInput.Text := table1.FieldByName('SETTLEMENT').AsString;
        end;
    1:  begin
          if table2.IsEmpty then Exit;
          edtInput.Text := table2.FieldByName('BUSINES_STYPE').AsString;
        end;
 {   2:  begin
          if table3.IsEmpty then Exit;
          edtInput.Text := table3.FieldByName('FOOD_type').AsString;
        end;  }
    2:  begin
          if table4.IsEmpty then Exit;
          edtInput.Text := table4.FieldByName('ATTRIBUTE').AsString;
        end;
    3:  begin
          if table5.IsEmpty then Exit;
          edtInput.Text := table5.FieldByName('ATTACHMENT').AsString;
        end;
    4:  begin
          if table6.IsEmpty then Exit;
          edtInput.Text := table6.FieldByName('DEPOT_TYPE').AsString;
        end;
  end;
  OptionModified :=True;
  edtInput.Color := clWindow;
  edtInput.Enabled :=True;
  btnNew.Enabled :=False;
  btnDelete.Enabled :=False;
  PageControl1.Enabled :=False;
  editMode := editUPDATE;
  edtInput.SetFocus;
end;

end.