untpartyeditadd.pas

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

unit UntPartyEditAdd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, RzButton, DBCtrls, RzDBEdit,
  RzDBCmbo, Mask, RzEdit, RzBckgnd, RzLabel, RzPanel, RzRadChk, cxControls,
  cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxDBEdit,
  cxButtonEdit, cxCalendar, cxMemo, cxImage, DB, ADODB;

type
  TFrmPartyEditAdd = class(TForm)
    RzPanel1: TRzPanel;
    RzGroupBox1: TRzGroupBox;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    RzLabel4: TRzLabel;
    RzSeparator1: TRzSeparator;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzLabel8: TRzLabel;
    RzSeparator2: TRzSeparator;
    RzSeparator3: TRzSeparator;
    RzLabel11: TRzLabel;
    RzLabel12: TRzLabel;
    BtnSave: TRzBitBtn;
    BtnClose: TRzBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Sex1: TRzRadioButton;
    Sex2: TRzRadioButton;
    Depart: TcxComboBox;
    Main: TcxComboBox;
    Branch: TcxComboBox;
    Duty: TcxComboBox;
    Category: TcxComboBox;
    Level: TcxComboBox;
    Nature: TcxComboBox;
    ID: TcxTextEdit;
    Nationality: TcxTextEdit;
    Native: TcxTextEdit;
    DNZW: TcxTextEdit;
    BirthPlace: TcxTextEdit;
    Colleges: TcxTextEdit;
    Specialized: TcxTextEdit;
    Partyoffice: TcxTextEdit;
    BirthDate: TcxDateEdit;
    JoinUnittime: TcxDateEdit;
    JoinPartyTime: TcxDateEdit;
    JoinWorkTime: TcxDateEdit;
    ZzTime: TcxDateEdit;
    StudyResume: TcxMemo;
    WorkResume: TcxMemo;
    RzBitBtn1: TRzBitBtn;
    Degree: TcxTextEdit;
    BtnLast: TRzBitBtn;
    BtnNext: TRzBitBtn;
    BtnPrior: TRzBitBtn;
    BtnFirst: TRzBitBtn;
    Name: TcxTextEdit;
    cxDBImage1: TcxDBImage;
    ADOQuery1: TADOQuery;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DepartKeyPress(Sender: TObject; var Key: Char);
    Procedure ShowBranch(Str:String);
    procedure MainClick(Sender: TObject);
    Procedure ShowWindow(NE:Boolean);//初始化窗口；
    Procedure ShowPartyInfo(NE:Boolean);
    procedure BtnNextClick(Sender: TObject);
    procedure BtnPriorClick(Sender: TObject);
    procedure BtnFirstClick(Sender: TObject);
    procedure BtnLastClick(Sender: TObject);
    procedure BirthDateKeyPress(Sender: TObject; var Key: Char);
    procedure BtnSaveClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);//显示党员信息
  private
    { Private declarations }
  public
    NewEdit:Boolean;
    { Public declarations }
  end;

var
  FrmPartyEditAdd: TFrmPartyEditAdd;
implementation

uses UntAppMDIConsts, UntExcSQL, UntPartyInfo, UntDMAppMDI;

{$R *.dfm}

procedure TFrmPartyEditAdd.RzBitBtn1Click(Sender: TObject);
begin
  cxDBImage1.LoadFromFile ;
end;

procedure TFrmPartyEditAdd.FormShow(Sender: TObject);
begin
  ShowName(Depart,'Depart');
  ShowName(Main,'PartyMain');
  ShowName(Duty,'Duty');
  ShowWindow(NewEdit);
  cxDBImage1.DataBinding.DataSource:=FrmPartyInfo.Excparty.DataSource;
  cxDBImage1.DataBinding.DataField:='Picture';

  ShowPartyInfo(NewEdit);
  ShowBranch(Main.Text);
end;

procedure TFrmPartyEditAdd.DepartKeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;
procedure TFrmPartyEditAdd.ShowBranch(Str:String);
var
  ExcBranch:TExcSQL;
begin
  ExcBranch:=TExcSQL.Create;
  try
    ExcBranch.SQL:='Select Name from PartyBranch where MainID ="'+ShowTableID(Trim(Main.Text),'PartyMain')+'"';
    ExcBranch.ExcSQL(ExcBranch.SQL,'Search');
//    Branch.Properties.Items.Clear;
    ExcBranch.ADOQuery.First;
    If ExcBranch.ADOQuery.RecordCount <1 then
      begin
        Branch.Text:='该党总支下无党支部';
        exit;
      end
    else
      While Not ExcBranch.ADOQuery.Eof do
        begin
          Branch.Properties.Items.Add(ExcBranch.ADOQuery.FieldByName('Name').AsString );
          ExcBranch.ADOQuery.Next;
        end;
  except
  end;
  ExcBranch.Free;
end;
procedure TFrmPartyEditAdd.MainClick(Sender: TObject);
begin
 Branch.Properties.Items.Clear;
 ShowBranch(Main.Text);
end;
procedure TFrmPartyEditAdd.ShowWindow(NE:Boolean);//初始化窗口
begin
  if Not NE then
    begin
      FrmPartyInfo.Excparty.ADOQuery.Last;
      FrmPartyInfo.Excparty.ADOQuery.Next;
    end;
      BtnFirst.Visible:=NE;
      BtnPrior.Visible:=NE;
      BtnNext.Visible:=NE;
      BtnLast.Visible:=NE;
end;
procedure TFrmPartyEditAdd.ShowPartyInfo(NE:Boolean);
begin
  if Not NE then
    begin
      ID.Text:=MaxID('PartyBaseInfo','PartyID');
      cxDbImage1.Clear;
      Name.Text:='';
      Sex1.Checked:=True;
      Depart.Text:='';
      Main.Text  :='';
      Branch.Text:='';
      Duty.Text  :='';
      Category.Text  :='';
      Nature.Text  :='';
      Level.Text:='';
      Degree.Text  :='';
      Nationality.Text  :='';
      Native.Text  :='';
      DNZW.Text  :='';
      BirthPlace.Text  :='';
      BirthDate.Text  :='';
      Colleges.Text  :='';
      Specialized.Text  :='';
      JoinUnitTime.Text  :='';
      JoinPartyTime.Text  :='';
      JoinWorkTime.Text  :='';
      ZzTime.Text  :='';
      PartyOffice.Text  :='';
      StudyResume.Text  :='';
      WorkResume.Text  :='';
    end
  else
    begin
      ID.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('PartyId').AsString;
      Name.Text:=FrmPartyInfo.Excparty.ADOQuery.FieldByName('PartyName').AsString;
      if FrmPartyInfo.Excparty.ADOQuery.FieldByName('Sex').AsString='男' then
        Sex1.Checked:=True
      else
        Sex2.Checked:=True;
      Depart.Text:=FrmPartyInfo.Excparty.ADOQuery.FieldByName('部门').AsString;
      Main.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('党总支').AsString;
      Branch.Text:=FrmPartyInfo.Excparty.ADOQuery.FieldByName('党支部').AsString;
      Duty.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('职称').AsString;
      Category.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('Category').AsString;
      Nature.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('Nature').AsString;
      Level.Text:=FrmPartyInfo.Excparty.ADOQuery.FieldByName('Level').AsString;
      Degree.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('Degree').AsString;
      Nationality.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('Nationality').AsString;
      Native.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('Native').AsString;
      DNZW.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('Duty').AsString;
      BirthPlace.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('BirthPlace').AsString;
      BirthDate.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('BirthDate').AsString;
      Colleges.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('Colleges').AsString;
      Specialized.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('Specialized').AsString;
      JoinUnitTime.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('JoinUnitTime').AsString;
      JoinPartyTime.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('JoinPartyTime').AsString;
      JoinWorkTime.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('JoinWorkTime').AsString;
      ZzTime.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('ZzTime').AsString;
      PartyOffice.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('PartyOffice').AsString;
      StudyResume.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('StudyResume').AsString;
      WorkResume.Text  :=FrmPartyInfo.Excparty.ADOQuery.FieldByName('WorkResume').AsString;
    end;
end;

procedure TFrmPartyEditAdd.BtnNextClick(Sender: TObject);
begin
try
  FrmPartyInfo.Excparty.ADOQuery.Next;
  ShowPartyInfo(NewEdit);
except
end;
end;

procedure TFrmPartyEditAdd.BtnPriorClick(Sender: TObject);
begin
try
  FrmPartyInfo.Excparty.ADOQuery.Prior;
  ShowPartyInfo(NewEdit);
except
end;
end;

procedure TFrmPartyEditAdd.BtnFirstClick(Sender: TObject);
begin
try
  FrmPartyInfo.Excparty.ADOQuery.First ;
  ShowPartyInfo(NewEdit);
except
end;
end;

procedure TFrmPartyEditAdd.BtnLastClick(Sender: TObject);
begin
try
  FrmPartyInfo.Excparty.ADOQuery.Last;
  ShowPartyInfo(NewEdit);
except
end;
end;

procedure TFrmPartyEditAdd.BirthDateKeyPress(Sender: TObject;
  var Key: Char);
begin
 if  Not (key in ['0'..'9']) then
   Key:=#0;
end;

procedure TFrmPartyEditAdd.BtnSaveClick(Sender: TObject);
var
  Sex,DepartID,MainID,BranchID,DutyID:String;
  ExcNE:TExcSQL;                                                                           
begin
  if TestStr(Name.Text) or TestStr(Nationality.Text) or (ShowComboxID(Nature,Nature.Text)=-1) or
    (ShowComboxID(Level,Level.Text)=-1) or (ShowComboxID(Category,Category.Text)=-1) or (ShowComboxID(Depart,Depart.Text)=-1) or
    (ShowComboxID(Main,Main.Text)=-1)  or (ShowComboxID(Branch,Branch.Text)=-1)   or (ShowComboxID(Duty,Duty.Text)=-1)   then
      begin
        MessageBox(Handle,'您填写的信息不完整，请检查！','系统提示',MB_OK+MB_ICONINFORMATION);
        Exit;
      end;
try
  if Sex1.Checked then
    Sex:='男'
  else
    Sex:='女';
  DepartID:=ShowTableID(Depart.Text,'Depart');
  MainID  :=ShowTableID(Main.Text,'PartyMain');
  BranchID:=ShowTableID(Branch.Text,'PartyBranch');
  DutyID  :=ShowTableID(Duty.Text,'Duty');
  ExcNE:=TExcSql.Create;
  If Not NewEdit then
    begin //是添加
          ADOQuery1.SQL.Clear;
          ADOQuery1.SQL.Add('Select * from PartyBaseInfo');
          ADOQuery1.Active:=True;
          ADOQuery1.Append;
          ExcNE.SQL:='Insert Into PartyMainBranch values("'+Trim(ID.Text)+'","'+MainID+'","'+BranchID+'","'+DepartID+'","'+DutyID+'")';
          ExcNe.ExcSQL(ExcNE.SQL,'Mod');
          ExcNE.SQL:='Insert Into PartyReMent(PartyID) values("'+Trim(ID.Text)+'")';
          ExcNE.ExcSQL(ExcNE.SQL,'Mod');
    end
  else    //是编辑
    begin
          ADOQuery1.SQL.Clear;
          ADOQuery1.SQL.Text:='Select * from PartyBaseInfo where PartyID="'+Trim(ID.Text)+'"';
          ADOQuery1.Active:=True;
          ADOQuery1.Edit;
          ExcNE.SQL:='Update PartyMainBranch Set MainID="'+MainID+'",BranchID="'+BranchID+'",DepartID="'+DepartID+'",DutyID="'+DutyID+'" where PartyID="'+Trim(ID.Text)+'"';
          ExcNe.ExcSQL(ExcNE.SQL,'Mod');
    end;
    ADOQuery1.FieldByName('PartyID').AsString:=Trim(ID.Text);
    ADOQuery1.FieldByName('PartyName').AsString:=Trim(Name.Text);
    ADOQuery1.FieldByName('Sex').AsString:=Sex;
    ADOQuery1.FieldByName('Nationality').AsString:=Trim(Nationality.Text);
    ADOQuery1.FieldByName('Native').AsString:=Trim(Native.Text);
    ADOQuery1.FieldByName('BirthPlace').AsString:=Trim(BirthPlace.Text);
    ADOQuery1.FieldByName('Nature').AsString:=Trim(Nature.Text);
    ADOQuery1.FieldByName('BirthDate').AsString :=BirthDate.Text ;
    ADOQuery1.FieldByName('Level').AsString:=Trim(Level.Text);
    ADOQuery1.FieldByName('Degree').AsString:=Trim(Degree.Text);
    ADOQuery1.FieldByName('Colleges').AsString:=Trim(Colleges.Text);
    ADOQuery1.FieldByName('Specialized').AsString:=Trim(Specialized.Text);
    ADOQuery1.FieldByName('Category').AsString:=Trim(Category.Text);
    ADOQuery1.FieldByName('Duty').AsString:=Trim(DNZW.Text);
    ADOQuery1.FieldByName('JoinPartyTime').AsString:=Trim(JoinPartyTime.Text);
    ADOQuery1.FieldByName('ZzTime').AsString:=Trim(ZzTime.Text);
    ADOQuery1.FieldByName('JoinWorkTime').AsString:=Trim(JoinWorkTime.Text);
    ADOQuery1.FieldByName('JoinUnittime').AsString:=Trim(JoinUnittime.Text);
    ADOQuery1.FieldByName('StudyResume').AsString:=Trim(StudyResume.Text);
    ADOQuery1.FieldByName('WorkResume').AsString:=Trim(WorkResume.Text);
    ADOQuery1.FieldByName('Partyoffice').AsString:=Trim(Partyoffice.Text);
    ADOQuery1.FieldByName('picture').Assign(cxDBImage1.Picture );
    ADOQuery1.Post;
except
  if NewEdit then
      MessageBox(Handle,'修改党员信息失败，请检查！','系统提示',MB_OK+MB_ICONINFORMATION)
  else
      MessageBox(Handle,'添加党员信息失败，请检查！','系统提示',MB_OK+MB_ICONINFORMATION);
end;
if Not NewEdit then
  ShowPartyInfo(NewEdit);
end;

procedure TFrmPartyEditAdd.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  FrmPartyInfo.Excparty.ADOQuery.Active:=False;
  FrmPartyInfo.Excparty.ADOQuery.Active:=True;
end;

end.