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.