zjll.pas

pasa人力资源考勤管理系统

unit zjll;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ComCtrls, ToolWin, ImgList, wwdblook, Mask, Grids, DBGrids,
  StdCtrls, ExtCtrls, Db, ADODB;

type
  TFormzjll = class(TForm)
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    Splitter2: TSplitter;
    DBGrid2: TDBGrid;
    Panel3: TPanel;
    Label5: TLabel;
    Edit2: TEdit;
    DBGrid3: TDBGrid;
    ImageList2: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton5: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    tbnprint: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    TabSheet1: TTabSheet;
    DBGrid4: TDBGrid;
    Splitter3: TSplitter;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label14: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    goodsid: TwwDBLookupCombo;
    dept: TwwDBLookupCombo;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label18: TLabel;
    Edit1: TEdit;
    Splitter1: TSplitter;
    Label8: TLabel;
    ddid: TwwDBLookupCombo;
    Label9: TLabel;
    DBEdit4: TDBEdit;
    Label10: TLabel;
    DBEdit5: TDBEdit;
    Label11: TLabel;
    DBEdit6: TDBEdit;
    adogoodsid: TADOQuery;
    adoddid: TADOQuery;
    ADOdept: TADOQuery;
    adogoodsidgoodsid: TStringField;
    adogoodsidgoodsname: TStringField;
    adoddidddid: TStringField;
    adoddidddname: TStringField;
    ADOdeptdno: TStringField;
    ADOdeptdept: TStringField;
    DBCheckBox1: TDBCheckBox;
    DBEdit7: TDBEdit;
    Label6: TLabel;
    ToolButton2: TToolButton;
    procedure ToolButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure PageControl1Change(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formzjll: TFormzjll;

implementation

uses datamol, publicfunction, main;

{$R *.DFM}

procedure TFormzjll.ToolButton4Click(Sender: TObject);
begin
 close;
end;

procedure TFormzjll.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 adogoodsid.close;
 adoddid.close;
 adodept.close;
 datamod.Adozjll.Close;
 datamod.Adopieman.Close;
 datamod.Adopiemon.Close;
 datamod.Adopieday.Close;
 action:=cafree;
 formzjll:=nil;
end;

procedure TFormzjll.FormCreate(Sender: TObject);
begin
 toolbutton2.Enabled:=false;
 adogoodsid.Open;
 adoddid.open;
 adodept.open;
 datamod.Adozjll.Close;
 datamod.Adozjll.CommandText:='select * from pie08010 order by rq';
 datamod.Adozjll.open;
 datamod.Adopieman.Close;
 datamod.Adopieman.Open;
 datamod.Adopiemon.Close;
 datamod.Adopiemon.CommandText:='select * from pie_mon order by monthy';
 datamod.Adopiemon.Open;
 datamod.Adopieday.Close;
 datamod.Adopieday.Open;
end;

procedure TFormzjll.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if activecontrol=dbgrid1 then
    exit;
   if key=#13 then
    begin
      key:=#0;
      if activecontrol=dbedit7 then
       begin
        if datamod.ADOzjll.State in [dsinsert,dsedit] then
         begin
          datamod.adozjll.post;
          datamod.adozjll.append;
         end;
         dbedit1.setfocus;
       end
      else
        selectnext(activecontrol,true,true);
    end;
end;

procedure TFormzjll.PageControl1Change(Sender: TObject);
begin
 case pagecontrol1.ActivePageIndex of
 0:begin
    dbnavigator1.DataSource:=datamod.Dszjll;
    toolbutton2.Enabled:=false;
   end;
 1:begin
    dbnavigator1.DataSource:=datamod.dspiemon;
    toolbutton2.Enabled:=true;
   end;
 end;
end;

procedure TFormzjll.ToolButton2Click(Sender: TObject);
var monthy:string;
begin
  monthy:=InputBox('Input Box', '请输入要汇总的月份：'+'yyyy/mm', '');


end;

end.