month_find.~pas

来自「这是一个小型的工资管理系统」· ~PAS 代码 · 共 47 行

unit month_find;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SUIButton, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls,
  SUIForm;

type
  Tmonthfind = class(TForm)
    suiForm1: TsuiForm;
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    suiButton1: TsuiButton;
    procedure FormActivate(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  monthfind: Tmonthfind;

implementation
uses main1;
{$R *.dfm}

procedure Tmonthfind.FormActivate(Sender: TObject);
begin
table1.DatabaseName:='DBMS';
table1.TableName:='month_salary';
table1.Active:=true;
table1.CancelRange;
end;

procedure Tmonthfind.suiButton1Click(Sender: TObject);
begin
close;
end;

end.