sezione.pas

大型企业管理源码,JAVA类,包括销售,采购,财务,OA辅助办公处理,有学习JAVA的朋友,将是不错的参考资料!

unit sezione;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls ,db, ComCtrls, ToolWin,
  ActnList;

type
  Tsezione_form = class(TForm)
    DBGrid1: TDBGrid;
    Ok: TButton;
    Cancel: TButton;
    ToolBar1: TToolBar;
    DBNavigator1: TDBNavigator;
    ActionList1: TActionList;
    Nuovo: TAction;
    Elimina: TAction;
    Annulla: TAction;
    Conferma: TAction;
    Su: TAction;
    Giu: TAction;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    procedure OkClick(Sender: TObject);
    procedure CancelClick(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure NuovoExecute(Sender: TObject);
    procedure EliminaExecute(Sender: TObject);
    procedure AnnullaExecute(Sender: TObject);
    procedure ConfermaExecute(Sender: TObject);
    procedure SuExecute(Sender: TObject);
    procedure GiuExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sezione_form: Tsezione_form;

implementation

uses Liste_nozze;

{$R *.DFM}

procedure Tsezione_form.OkClick(Sender: TObject);
begin
      With Lista_nozze do
      begin
       If (TTSezione.State = dsEdit) or
          (TTSezione.State = dsInsert) then
          TTsezione.Post ;
       end ;
end;

procedure Tsezione_form.CancelClick(Sender: TObject);
begin
    With Lista_nozze do
      begin
       If (TTsezione.State = dsEdit) or
          (TTsezione.State = dsInsert) then
          TTsezione.Cancel ;
      end ;
end;

procedure Tsezione_form.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
      if ((key>='a') and (key<='z')) then
          key:=chr(ord(key)-32) ;
end;

procedure Tsezione_form.NuovoExecute(Sender: TObject);
begin
     lista_nozze.TTSezione.Insert;
end;

procedure Tsezione_form.EliminaExecute(Sender: TObject);
begin
     lista_nozze.TTSezione.Delete;
end;

procedure Tsezione_form.AnnullaExecute(Sender: TObject);
begin
     lista_nozze.TTSezione.Cancel;
end;

procedure Tsezione_form.ConfermaExecute(Sender: TObject);
begin
     lista_nozze.TTSezione.Post;
end;

procedure Tsezione_form.SuExecute(Sender: TObject);
var primo, secondo : integer;
begin
     if Lista_Nozze.TTSezione.Bof then
        abort;
     primo := Lista_Nozze.TTSezioneIdSezione.AsInteger;
     Lista_Nozze.TTSezione.Prior;
     secondo := Lista_Nozze.TTSezioneIdSezione.AsInteger;
     Lista_Nozze.TTSezione.Edit;
     Lista_Nozze.TTSezioneIdSezione.AsInteger:= -1;
     Lista_nozze.TTSezione.Post;
     if Lista_Nozze.TTSezione.FindKey([primo]) then
     begin
          Lista_Nozze.TTSezione.Edit;
          Lista_Nozze.TTSezioneIdSezione.AsInteger:= secondo;
          Lista_Nozze.TTSezione.Post;
     end;
     if Lista_Nozze.TTSezione.FindKey([-1]) then
     begin
          Lista_Nozze.TTSezione.Edit;
          Lista_Nozze.TTSezioneIdSezione.AsInteger:= primo;
          Lista_Nozze.TTSezione.Post;
     end;
     Lista_Nozze.TTSezione.Prior;
end;

procedure Tsezione_form.GiuExecute(Sender: TObject);
var primo, secondo : integer;
begin
     if Lista_Nozze.TTSezione.Eof then
        abort;
     primo := Lista_Nozze.TTSezioneIdSezione.AsInteger;
     Lista_Nozze.TTSezione.Next;
     secondo := Lista_Nozze.TTSezioneIdSezione.AsInteger;
     Lista_Nozze.TTSezione.Edit;
     Lista_Nozze.TTSezioneIdSezione.AsInteger:= -1;
     Lista_nozze.TTSezione.Post;
     if Lista_Nozze.TTSezione.FindKey([primo]) then
     begin
          Lista_Nozze.TTSezione.Edit;
          Lista_Nozze.TTSezioneIdSezione.AsInteger:= secondo;
          Lista_Nozze.TTSezione.Post;
     end;
     if Lista_Nozze.TTSezione.FindKey([-1]) then
     begin
          Lista_Nozze.TTSezione.Edit;
          Lista_Nozze.TTSezioneIdSezione.AsInteger:= primo;
          Lista_Nozze.TTSezione.Post;
     end;
     Lista_Nozze.TTSezione.Next;
end;

end.