untrement.pas

里面有EXE文件,直接运行就可以,密码也在说明文件里,如有需要可做相应的改变

unit UntReMent;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, RzDBGrid, ExtCtrls, cxControls, cxContainer,
  cxEdit, cxTextEdit, cxMemo, cxDBEdit, StdCtrls, RzButton,UntExcSQL;

type
  TFrmReMent = class(TForm)
    RzDBGrid1: TRzDBGrid;
    Panel1: TPanel;
    Panel2: TPanel;
    MentMemo: TcxDBMemo;
    Splitter1: TSplitter;
    ReMemo: TcxDBMemo;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    Label1: TLabel;
    Splitter2: TSplitter;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ShowReMent();
    procedure FormShow(Sender: TObject);
    procedure RzDBGrid1CellClick(Column: TColumn);
    procedure ReMemoKeyPress(Sender: TObject; var Key: Char);
    procedure SaveReMent();
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure ReMemoKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmReMent: TFrmReMent;
  ExcName,ExcReMent,ExcNE:TExcSQL;
  NewEdit,NoRecord:Boolean;
  PartyID:String;
implementation

uses UntAppMDIConsts;

{$R *.dfm}
procedure TFrmReMent.SaveReMent();
var
  Sql:String;
begin
  If NoRecord then
     Sql:='Insert Into PartyReMent Values("'+PartyID+'","'+ReMemo.Text+'","'+MentMemo.Text +'")'
  else
     Sql:='Update PartyreMent Set Reward="'+ReMemo.Text +'", PunishMent="'+MentMemo.Text+'" where PartyID="'+PartyID+'"';
  Try
    ExcNE.ExcSQL(Sql,'Mod');
  except
  end;
end;
Procedure TFrmReMent.ShowReMent;
begin
try
  NoRecord:=False;
  ExcReMent.SQL:='Select * from PartyReMent where PartyID="'+RzDBGrid1.Fields[0].AsString+'"';
  ExcReMent.ExcSQL(ExcReMent.SQL,'Search');
  If ExcReMent.ADOQuery.RecordCount <1 then
    NoRecord:=True;
except
end;
end;
procedure TFrmReMent.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=CaFree;
end;

procedure TFrmReMent.RzBitBtn1Click(Sender: TObject);
begin
 Close;
end;

procedure TFrmReMent.FormCreate(Sender: TObject);
begin
  ExcName:=TExcSQL.Create;
  ExcReMent:=TExcSQL.Create;
  ExcNE:=TExcSQL.Create;
  try
    ExcName.SQL:='Select PartyID,PartyName from PartyBaseInfo';
    ExcName.ExcSQL(ExcName.SQL,'Search');
    RzDBGrid1.DataSource:=ExcName.DataSource;
    ReMemo.DataBinding.DataSource:=ExcReMent.DataSource;
    ReMemo.DataBinding.DataField:='ReWard' ;
    MentMemo.DataBinding.DataSource:=ExcReMent.DataSource;
    MentMemo.DataBinding.DataField:='PunishMent';
  except
  end;
end;

procedure TFrmReMent.FormShow(Sender: TObject);
begin
 ShowReMent();
end;

procedure TFrmReMent.RzDBGrid1CellClick(Column: TColumn);
begin
 if NewEdit then
   if Messagebox(handle,'该同志的奖励处罚信息作了修改，您需要保存吗？','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then
       SaveReMent();
 ShowReMent();
 NewEdit:=False;
end;

procedure TFrmReMent.ReMemoKeyPress(Sender: TObject; var Key: Char);
begin
  NewEdit:=True;
  PartyId:=RzDBGrid1.Fields[0].AsString;
end;

procedure TFrmReMent.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
   ExcName.Free;
   ExcReMent.Free;
   ExcNE.Free;
end;

procedure TFrmReMent.RzBitBtn2Click(Sender: TObject);
begin
  If NewEdit then
    SaveReMent();
  NewEdit:=False;
end;

procedure TFrmReMent.ReMemoKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=46 then
     NewEdit:=True;
end;

end.