untbaseset.pas

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

unit UntBaseSet;

interface

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

type
  TFrmBaseSet = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    Label1: TLabel;
    DBUser: TcxDBTextEdit;
    RzDBGrid1: TRzDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    BtnAdd: TRzBitBtn;
    BtnDel: TRzBitBtn;
    BtnSave: TRzBitBtn;
    BtnEdit: TRzBitBtn;
    Bevel2: TBevel;
    DepartName: TRzEdit;
    RzDBGrid2: TRzDBGrid;
    DutyName: TRzEdit;
    Label4: TLabel;
    Label5: TLabel;
    Bevel3: TBevel;
    BNew: TRzBitBtn;
    BEdit: TRzBitBtn;
    BDel: TRzBitBtn;
    BSave: TRzBitBtn;
    Bevel4: TBevel;
    RzBitBtn1: TRzBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure InitForm ();
    procedure RzDBGrid1CellClick(Column: TColumn);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnDelClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    Procedure InitFormDuty();
    procedure RzDBGrid2CellClick(Column: TColumn);
    procedure BNewClick(Sender: TObject);
    procedure BEditClick(Sender: TObject);
    procedure BDelClick(Sender: TObject);
    procedure BSaveClick(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBaseSet: TFrmBaseSet;
  ExcUser,ExcDepart,ExcDuty,ExcCheck:TExcSQL;
  NewEdit,AddEdit:Boolean;
implementation

uses UntAppMDIConsts;

{$R *.dfm}
procedure TFrmBaseSet.InitFormDuty();
begin
  DutyName.Enabled:=False;
  BSave.Enabled:=False;
  DutyName.Text:=RzDBGrid2.Fields[0].AsString;
  AddEdit:=False;
end;

procedure TFrmBaseSet.InitForm ();
begin
  DepartName.Enabled:=False;
  BtnSave.Enabled:=False;
  DepartName.Text:=RzDBGrid1.Fields[0].AsString;
  NewEdit:=False;
end;

procedure TFrmBaseSet.FormCreate(Sender: TObject);
begin
  ExcUser:=TExcSQL.Create;
  ExcDepart:=TExcSQL.Create;
  ExcDuty:=TExcSQL.Create;
  ExcCheck:=TExcSQL.Create;
  try
    ExcDepart.SQL:='Select * from Depart';
    ExcDepart.ExcSQL(ExcDepart.SQL,'Search');
    RzDBGrid1.DataSource:=ExcDepart.DataSource;
    ExcDuty.SQL:='Select * from Duty';
    ExcDuty.ExcSQL(ExcDuty.SQL,'Search');
    RzDBGrid2.DataSource:=ExcDuty.DataSource; 
  except
  end;
end;

procedure TFrmBaseSet.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  ExcUser.Free;
  ExcDepart.Free;
  ExcDuty.Free;
  ExcCheck.Free;
end;

procedure TFrmBaseSet.FormShow(Sender: TObject);
begin
  InitForm();
  InitFormDuty();
  ExcUser.SQL:='Select * from System';
  ExcUser.ExcSQL(ExcUser.SQL,'Search');
  DBUser.DataBinding.DataSource:=ExcUser.DataSource;
  DBUser.DataBinding.DataField:='SchoolName';
end;

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

procedure TFrmBaseSet.BtnAddClick(Sender: TObject);
begin
 BtnSave.Enabled:=True;
 DepartName.Enabled:=True;
 DepartName.Text:='';
 DepartName.SetFocus;
 NewEdit:=True;
end;

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

procedure TFrmBaseSet.BtnDelClick(Sender: TObject);
begin
try
  ExcCheck.SQL:='Select * from PartyMainBranch where DepartID="'+ExcDepart.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
        ExcDepart.ADOQuery.Delete;
except
end;
end;

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

    ExcDepart.ADOQuery.Active:=False;
    ExcDepart.ADOQuery.Active:=True;
  Finally
  end;

end;

procedure TFrmBaseSet.RzDBGrid2CellClick(Column: TColumn);
begin
InitFormDuty()
end;

procedure TFrmBaseSet.BNewClick(Sender: TObject);
begin
 BSave.Enabled:=True;
 DutyName.Enabled:=True;
 DutyName.Text:='';
 DutyName.SetFocus;
 AddEdit:=True;
end;

procedure TFrmBaseSet.BEditClick(Sender: TObject);
begin
 AddEdit:=False;
 DutyName.Enabled:=True;
 DutyName.SetFocus;
 BSave.Enabled:=True;
end;

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

end;

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

procedure TFrmBaseSet.RzBitBtn1Click(Sender: TObject);
begin
  if TestStr(DBUser.Text) then
    begin
      MessageBox(Handle,'使用单位不能为空，请填写使用单位！','系统提示',MB_OK+MB_ICONINFORMATION);
      exit;
    end
  else
    begin
      ExcUser.ADOQuery.UpdateBatch();
      Close;
    end;

end;

end.