untpartymain.pas

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

unit UntPartyMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit, RzButton, ExtCtrls, Grids, DBGrids,
  RzDBGrid,UntExcSQL;

type
  TFrmPartyMain = class(TForm)
    Panel1: TPanel;
    RzDBGrid1: TRzDBGrid;
    Bevel1: TBevel;
    BtnNew: TRzBitBtn;
    BtnEdit: TRzBitBtn;
    BtnCancel: TRzBitBtn;
    BtnSave: TRzBitBtn;
    BtnExit: TRzBitBtn;
    Label1: TLabel;
    EName: TRzEdit;
    Label2: TLabel;
    Bevel2: TBevel;
    procedure BtnExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    //窗口初始化
    procedure InitForm();
    procedure FormShow(Sender: TObject);
    procedure RzDBGrid1CellClick(Column: TColumn);
    procedure BtnNewClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPartyMain: TFrmPartyMain;
  ExcParty,ExcCheck:TExcSQL;
  NewEdit:Boolean;
implementation

uses UntAppMDIConsts;


{$R *.dfm}
procedure TFrmPartyMain.InitForm ();
begin
  EName.Enabled:=False;
  BtnSave.Enabled:=False;
  EName.Text:=RzDBGrid1.Fields[0].AsString;
  NewEdit:=False;
end;

procedure TFrmPartyMain.BtnExitClick(Sender: TObject);
begin
 close;
end;

procedure TFrmPartyMain.FormCreate(Sender: TObject);
begin
  ExcParty:=TExcSQL.Create;
  ExcCheck:=TExcSQL.Create;
  Try
    ExcParty.SQL:='Select * from PartyMain ';
    ExcParty.ExcSQL(ExcParty.SQL,'Search');
    RzDBGrid1.DataSource:=ExcParty.DataSource;
  except
  end;
end;

procedure TFrmPartyMain.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
 ExcParty.Free;
 ExcCheck.Free;
end;

procedure TFrmPartyMain.FormShow(Sender: TObject);
begin
 InitForm() ;
end;

procedure TFrmPartyMain.RzDBGrid1CellClick(Column: TColumn);
begin
 InitForm()
end;

procedure TFrmPartyMain.BtnNewClick(Sender: TObject);
begin
 BtnSave.Enabled:=True;
 EName.Enabled:=True;
 EName.Text:='';
 EName.SetFocus;
 NewEdit:=True;
end;

procedure TFrmPartyMain.BtnEditClick(Sender: TObject);
begin
 NewEdit:=False;
 EName.Enabled:=True;
 EName.SetFocus;
 BtnSave.Enabled:=True;
end;

procedure TFrmPartyMain.BtnSaveClick(Sender: TObject);
var
  SQL:String;
  PartyID:String;
begin
  Try
    IF NewEdit then
      begin
         PartyID:=MaxID('PartyMain','ID');
         SQL:='Insert Into PartyMain values("'+PartyID+'","'+Trim(EName.Text )+'")';
      end
    else
      SQL:='Update PartyMain Set Name="'+Trim(EName.Text)+ '" where ID="'+ExcParty.ADOQuery.FieldByName('ID').AsString +'"';
    try
      RunSql(SQL,'Mod');
      MessageBox(Handle,'数据更新成功！','系统提示',MB_OK+MB_ICONINFORMATION);
    except
      Exit;
    end;
    ExcParty.ADOQuery.Active:=False;
    ExcParty.ADOQuery.Active:=True;
  Finally
  end;
end;

procedure TFrmPartyMain.BtnCancelClick(Sender: TObject);
begin
try
  ExcCheck.SQL:='Select * from PartyMainBranch where MainID="'+ExcParty.ADOQuery.FieldByName('Id').AsString+'"';
  ExcCheck.ExcSQL(ExcCheck.SQL,'Search');
  If Not  (ExcCheck.ADOQuery.RecordCount <1) then
    MessageBox(Handle,'您暂时不能删除该党总支！原因是还有部分党员属于该党总支！','系统提示',MB_OK+MB_ICONINFORMATION)
  else
    if Messagebox(handle,'您确定要删除该党总支吗？','询问',MB_YESNO+MB_ICONQUESTION)=IDYES then
        ExcParty.ADOQuery.Delete;
except
end;
end;

end.