choiceperson.pas

这是我在去年年底利用业余时间做的一个鞋塑企业的计件工资系统。由于本人技术有限

unit ChoicePerson;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, DB,
  dxDBTLCl, dxGrClms, StdCtrls, Buttons, Grids, DBGrids, dxEditor, dxEdLib,
  dxDBEdtr, dxDBELib;

type
  TfrmChoicePerson = class(TForm)
    Panel1: TPanel;
    dsPersonel: TDataSource;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    edtPersonID: TdxEdit;
    edtName: TdxEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    cbDept: TdxLookupEdit;
    cbWorkType: TdxLookupEdit;
    BitBtn4: TBitBtn;
    grdPersonel: TdxDBGrid;
    grdPersonelPersonID: TdxDBGridMaskColumn;
    grdPersonelName: TdxDBGridMaskColumn;
    grdPersonelSex: TdxDBGridMaskColumn;
    grdPersonelDept: TdxDBGridMaskColumn;
    grdPersonelWorkType: TdxDBGridMaskColumn;
    grdPersonelInDate: TdxDBGridDateColumn;
    grdPersonelBasePay: TdxDBGridCurrencyColumn;
    grdPersonelServiceAward: TdxDBGridCurrencyColumn;
    grdPersonelSubsidy: TdxDBGridCurrencyColumn;
    grdPersonelNotes: TdxDBGridMemoColumn;
    dsDept: TDataSource;
    dsWorkType: TDataSource;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChoicePerson: TfrmChoicePerson;

implementation

{$R *.dfm}
uses
  DataCenter,ProdRate;

procedure TfrmChoicePerson.BitBtn1Click(Sender: TObject);
begin
  frmChoicePerson.ModalResult:=mrOk;
end;

procedure TfrmChoicePerson.BitBtn4Click(Sender: TObject);
begin
  with dmData do
  begin
    aquPersonel.SQL.Clear;
    aquPersonel.SQL.Add('select * from Personel where 1=1');
    if edtPersonId.Text<>'' then
      aquPersonel.SQL.Add(' and PersonId like '''+edtPersonId.Text+'%'+'''');
    if edtName.Text<>'' then
      aquPersonel.SQL.Add(' and Name like '''+edtName.Text+'%'+'''');
    if cbDept.Text<>'' then
      aquPersonel.SQL.Add(' and Dept like '''+cbDept.Text+'%'+'''');
    if cbWorkType.Text<>'' then
      aquPersonel.SQL.Add(' and WorkType like '''+cbWorkType.Text+'%'+'''');
    aquPersonel.Open;
  end;
end;

procedure TfrmChoicePerson.FormShow(Sender: TObject);
begin
  edtPersonId.Text:='';
  edtName.Text:='';
  cbDept.Text:='';
  cbWorkType.Text:='';
end;

procedure TfrmChoicePerson.FormCreate(Sender: TObject);
begin
  if not dmData.atblWorkType.Active then dmData.atblWorkType.Open;
  if not dmData.atblDept.Active then dmData.atblDept.Open;
end;

end.