untpartybranch.pas

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

unit UntPartyBranch;

interface

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

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

var
  FrmPartyBranch: TFrmPartyBranch;
  ExcBranch:TExcSQL;
  ExcMain,ExcCheck:TExcSQL;
  NewEdit:Boolean;
implementation

uses  UntAppMDIConsts;

{$R *.dfm}
procedure TFrmPartyBranch.InitForm();
begin
 NewEdit:=False;
 EName.Enabled:=False;
 BtnSave.Enabled:=False;
 BpartyMain.Enabled:=False;
end;

procedure TFrmPartyBranch.FormCreate(Sender: TObject);
begin
  ExcBranch:=TExcSQL.Create;
  ExcMain:=TExcSQL.Create;
  ExcCheck:=TExcSQL.Create;
  ExcBranch.SQL:='Select * from PartyBranch ';
  ExcBranch.ExcSQL(ExcBranch.SQL,'Search');
  RzDBGrid1.DataSource:=ExcBranch.DataSource;
end;

procedure TFrmPartyBranch.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  ExcBranch.Free;
  ExcMain.Free;
  ExcCheck.Free;
end;

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

procedure TFrmPartyBranch.FormShow(Sender: TObject);
begin
  ShowName(BPartyMain,'PartyMain');
  InitForm ();
  EName.Text:=ExcBranch.ADOQuery.FieldByName('Name').AsString;
  ExcMain.SQL:='Select Name From PartyMain where id in ( Select MainID from PartyBranch where ID ="'+ExcBranch.ADOQuery.FieldByName('ID').AsString +'")';
  ExcMain.ExcSQL(ExcMain.SQL,'Search');
  BPartyMain.Text:=ExcMain.ADOQuery.FieldByName('Name').AsString;
end;

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

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

procedure TFrmPartyBranch.RzDBGrid1CellClick(Column: TColumn);
begin
 InitForm();
 EName.Text:=ExcBranch.ADOQuery.FieldByName('Name').AsString;
 ExcMain.SQL:='Select Name From PartyMain where id in ( Select MainID from PartyBranch where ID ="'+ExcBranch.ADOQuery.FieldByName('ID').AsString +'")';
 ExcMain.ExcSQL(ExcMain.SQL,'Search');
 BPartyMain.Text:=ExcMain.ADOQuery.FieldByName('Name').AsString;
end;

procedure TFrmPartyBranch.BtnSaveClick(Sender: TObject);
var
  Sql,ID:String;
begin
  If (Trim(EName.Text)='') Or (Trim(BpartyMain.Text)='') then
    begin
      MessageBox(Handle,'您填写的信息不完整，请检查！','系统提示',MB_OK+MB_ICONINFORMATION);
      EName.SetFocus;
      Exit;
    end;
  ID:=ShowTableID(Trim(BPartyMain.Text) ,'PartyMain');
  If NewEdit then
    begin
      Sql:='Insert Into PartyBranch values("'+MaxID('PartyBranch','ID')+'","'+ID+'","'+Trim(EName.Text)+'")';
      RunSql(Sql,'Mod');
    end
  else
    begin
      Sql:='Update PartyBranch Set MainID="'+ID+'",Name="'+Trim(EName.Text)+'" where ID="'+ExcBranch.ADOQuery.FieldByName('ID').AsString +'"';
      RunSql(Sql,'Mod');
    end;
  MessageBox(Handle,'数据更新完成！','系统提示',MB_OK+MB_ICONINFORMATION);
  ExcBranch.ADOQuery.Active:=False;
  ExcBranch.ADOQuery.Active:=True;
  InitForm();
end;

procedure TFrmPartyBranch.BPartyMainKeyPress(Sender: TObject;
  var Key: Char);
begin
 key:=#0;
end;

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

end.