u_cpbmsd.pas

人事管理程序源码

unit U_cpbmsd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, Buttons,ADODB, Menus;

type
  TForm_fzsjsd = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Label1: TLabel;
    cx_xm: TComboBox;
    BitBtn1: TBitBtn;
    StringGrid1: TStringGrid;
    DBGrid1: TDBGrid;
    Panel6: TPanel;
    xs_xh: TEdit;
    xs_mc: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Panel7: TPanel;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    PopupMenu1: TPopupMenu;
    N11: TMenuItem;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    N71: TMenuItem;
    Image1: TImage;
    Label4: TLabel;
    Image2: TImage;
    BitBtn5: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn8: TBitBtn;
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure buttion_kg(kg:boolean);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Panel6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure xs_jjdwmcKeyPress(Sender: TObject; var Key: Char);
    procedure xs_xhExit(Sender: TObject);
    procedure cx_xmChange(Sender: TObject);
    procedure FormActivate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_fzsjsd: TForm_fzsjsd;
  czfs:integer;
implementation

uses U_gzda_dm, U_main;


{$R *.dfm}

procedure TForm_fzsjsd.BitBtn8Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet1 do begin
    if active then UpdateBatch;
  end;
  close;
end;

procedure TForm_fzsjsd.BitBtn1Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet1 do begin
    if active then active:=false;
    commandtext:='select * from fzsj where (fzsjxmbh=:cx_bm) order by bh';
    Parameters.ParamByName('cx_bm').Value:=strtoint(copy(cx_xm.Text,1,2));
    open;
  end;
  buttion_kg(true);
  dbgrid1.Visible:=true;
  dbgrid1.Refresh;
  dbgrid1.SetFocus;
  if copy(cx_xm.Text,1,2)='01' then
     begin
       buttion_kg(false);
       PopupMenu1.AutoPopup:=false;
       bitbtn8.Enabled:=true;
     end
  else
     begin
       buttion_kg(true);
       PopupMenu1.AutoPopup:=false;
     end;

end;

procedure TForm_fzsjsd.FormShow(Sender: TObject);
var
  hh:string;
begin
  with gzda_dm.ADODataSet4 do begin
    if active then active:=false;
    commandtext:='select * from fzsjxm order by fzsjxmbh';
    open;
    first;
    cx_xm.Items.Clear;
    while not eof do begin
      if fieldbyname('fzsjxmbh').asinteger <10 then
         hh:='0'+fieldbyname('fzsjxmbh').asstring
      else
         hh:=fieldbyname('fzsjxmbh').asstring;
      cx_xm.Items.Add(hh+'.'+fieldbyname('mc').asstring);
      next;
    end;
    cx_xm.ItemIndex:=0;
    close;
  end;
end;

procedure TForm_fzsjsd.buttion_kg(kg:boolean);
begin
  bitbtn2.Enabled:=kg;
  bitbtn3.Enabled:=kg;
  bitbtn4.Enabled:=kg;
  bitbtn5.Enabled:=kg;
  bitbtn8.Enabled:=kg;
end;
procedure TForm_fzsjsd.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key =#13 then
     begin
       Key := #0;
       Perform(WM_NEXTDLGCTL,0,0);
     end;
end;

procedure TForm_fzsjsd.Panel6MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
   (Sender as TWinControl).Perform(WM_SysCommand, $F012, 0);
end;

procedure TForm_fzsjsd.BitBtn2Click(Sender: TObject);
var
  xh:integer;
begin
  czfs:=1;
  buttion_kg(false);
  with gzda_dm.ADODataSet1 do begin
    if RecordCount=0 then
       xh:=1
    else
      begin
        last;
        xh:=fieldbyname('bh').AsInteger+1;
      end;
  end;
  xs_xh.Text:=inttostr(xh);
  xs_mc.Text:='';
  panel6.Visible:=true;
  panel6.Refresh;
  xs_mc.SetFocus;
end;

procedure TForm_fzsjsd.BitBtn9Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet1 do begin
    if czfs=1 then
       append
    else
       edit;
    fieldbyname('bh').AsString:=xs_xh.Text;
    fieldbyname('mc').AsString:=xs_mc.Text;
    fieldbyname('fzsjxmbh').AsString:=copy(cx_xm.Text,1,2);
    post;
  end;
  panel6.Visible:=false;
  dbgrid1.Refresh;
  dbgrid1.SetFocus;
  buttion_kg(true);
end;

procedure TForm_fzsjsd.BitBtn10Click(Sender: TObject);
begin
  panel6.Visible:=false;
  dbgrid1.Refresh;
  dbgrid1.SetFocus;
  buttion_kg(true);
end;

procedure TForm_fzsjsd.BitBtn3Click(Sender: TObject);
begin
  if pos('排序方式',cx_xm.Text)<>0 then abort;
  czfs:=2;
  with gzda_dm.ADODataSet1 do begin
    if recordcount=0 then abort;
    xs_xh.Text:=fieldbyname('bh').AsString;
    xs_mc.Text:=fieldbyname('mc').AsString;
    panel6.Visible:=true;
    panel6.Refresh;
    xs_mc.SetFocus;
  end;
end;

procedure TForm_fzsjsd.BitBtn5Click(Sender: TObject);
begin
  with gzda_dm.ADODataSet1 do begin
    if active then
       begin
         try
           if pos('软件使用单位',cx_xm.Text)<>0 then
              begin
                first;
                form_main.StatusBar1.Panels[0].Text:='单位:'+fieldbyname('mc').AsString
              end;
           UpdateBatch(arALL);
           showmessage('数据已被存盘!!');
         except
           showmessage('数据存盘不成功!!');
         end;
       end;
  end;
end;

procedure TForm_fzsjsd.BitBtn4Click(Sender: TObject);
begin
  if gzda_dm.ADODataSet1.RecordCount=0 then abort;
  if Application.MessageBox('确实要删除本条记录吗?','提示',MB_YesNO+ MB_DEFBUTTON2) <> IDYes then
     Abort;
  gzda_dm.ADODataSet1.Delete;
  dbgrid1.Refresh;
  dbgrid1.SetFocus;   
end;

procedure TForm_fzsjsd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  gzda_dm.OnDestroy(self);
end;

procedure TForm_fzsjsd.xs_jjdwmcKeyPress(Sender: TObject; var Key: Char);
begin
  if key<>#13 then key:=#0;
end;

procedure TForm_fzsjsd.xs_xhExit(Sender: TObject);
begin
  if xs_mc.Text='' then
     begin
       showmessage('名称不能为空!!');
       xs_mc.SetFocus;
     end;
end;

procedure TForm_fzsjsd.cx_xmChange(Sender: TObject);
begin
   dbgrid1.Visible:=false;
end;

procedure TForm_fzsjsd.FormActivate(Sender: TObject);
begin
//  if Form_main_screen.main_czryxm<>'SuperMan' then
//     begin
//       showmessage('你无权使用本功能!!');
//       bitbtn1.Enabled:=false;
//       abort;
//     end;

end;

end.