dingdan.pas

pasa人力资源考勤管理系统

unit dingdan;

interface

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

type
  TFormdingdan = class(TForm)
    ImageList2: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton5: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    tbnprint: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    ADOgoodsid: TADOQuery;
    ADOgoodsidgoodsid: TStringField;
    ADOgoodsidgoodsname: TStringField;
    ADOQuery1: TADOQuery;
    ADOQuery1dno: TStringField;
    ADOQuery1dept: TStringField;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    Label18: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label14: TLabel;
    Label3: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBText1: TDBText;
    DBText4: TDBText;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    goodsid: TwwDBLookupCombo;
    wwDBLookupCombo1: TwwDBLookupCombo;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formdingdan: TFormdingdan;

implementation

uses main, datamol, publicfunction, dingdanman;

{$R *.DFM}

procedure TFormdingdan.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 datamod.ADOdingdan.Close;
 adogoodsid.Close;
 action:=cafree;
 formdingdan:=nil;
end;

procedure TFormdingdan.FormActivate(Sender: TObject);
begin
 adogoodsid.Close;
 adogoodsid.Open;
 adoquery1.Close;
 adoquery1.open;
end;

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

procedure TFormdingdan.FormCreate(Sender: TObject);
begin
 datamod.ADOdingdan.close;
 datamod.ADOdingdan.CommandText:='select * from dingdan order by ddid';
 datamod.adodingdan.open;
 datamod.Adogoods.close;
 datamod.adogoods.open;

end;

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

end.