unit4.~pas

公司部门工资源码,非常好用,花钱购买,不敢私藏,特拿出分享

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TFlatButtonUnit, ExtCtrls, TFlatPanelUnit, StdCtrls,
  TFlatComboBoxUnit, DB, ADODB;

type
  TForm4 = class(TForm)
    FlatPanel1: TFlatPanel;
    FlatButton1: TFlatButton;
    Label1: TLabel;
    ebm: TFlatComboBox;
    ADOQuery1: TADOQuery;
    procedure FlatButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    function getygbmid(const bmname:string):string;
  public
    { Public declarations }
    //procedure wagestat();
    procedure SetDepName(); //显示部门;
    procedure countAmount();//统计工资;
  end;

var
  Form4: TForm4;


implementation

{$R *.dfm}
uses Data;
procedure Tform4.countAmount();
var
  sql:string;
begin
  //
end;
function Tform4.getygbmid(const bmname:string):string;
begin
  with dm.ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 部门编码 from 部门 where 部门名称='''+bmname+'''');
      open;
      result:=fieldByName('部门编码').AsString;
      close;
    end;
end;
procedure Tform4.SetDepName();
begin
  with dm.ADOQuery1 do
    begin
      close;
      sql.Clear;
      sql.Add('select 部门名称 from 部门');
      open;
      first;
      ebm.Items.Clear ;
      while not eof do
        begin
          ebm.Items.Add(fieldbyname('部门名称').asstring) ;
          next;
        end;
       close;
    end;
end;
procedure TForm4.FlatButton1Click(Sender: TObject);
begin
  //


end;

procedure TForm4.FormCreate(Sender: TObject);
begin
 //
  SetDepName();
end;

end.