guestmanage.pas.bak

实用的毛织生产管理系统

unit guestmanage;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, Menus, constb,
 ComCtrls, ExtCtrls, DBGridEh;

type
  Tguestmanagefm = class(TForm)
    GroupBox2: TGroupBox;
    guestqy: TQuery;
    guestdb: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    CheckBox1: TCheckBox;
    Button1: TButton;
    DBGridEh1: TDBGridEh;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure guestqyAfterOpen(DataSet: TDataSet);
    procedure guestqyBeforeEdit(DataSet: TDataSet);
    procedure guestqyBeforePost(DataSet: TDataSet);
    procedure guestqyAfterPost(DataSet: TDataSet);
    procedure guestqyBeforeInsert(DataSet: TDataSet);
    procedure guestqyAfterInsert(DataSet: TDataSet);
    procedure guestqyPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBGridEh1KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    oldkfjz: string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  guestmanagefm: Tguestmanagefm;

implementation

{$R *.dfm}

procedure Tguestmanagefm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  guestqy.Close;
  action := cafree;
end;

procedure Tguestmanagefm.FormDestroy(Sender: TObject);
begin
  guestmanagefm := nil;
end;

procedure Tguestmanagefm.FormCreate(Sender: TObject);
begin
  guestqy.RequestLive := true;
  guestqy.SQL.Clear;
  guestqy.sql.Add('select * from kftable order by kfjz desc');
  guestqy.Open;

end;

procedure Tguestmanagefm.Button1Click(Sender: TObject);
begin
  guestqy.SQL.Clear;
  guestqy.sql.Add('select * from kftable where kfjz=kfjz ');
  if edit1.text <> '' then
  begin
    guestqy.sql.Add(' and kfjz like :kfjz');
    guestqy.ParamByName('kfjz').AsString := '%' + edit1.Text + '%';
  end;
  if edit2.text <> '' then
  begin
    guestqy.sql.Add(' and kflink like :kflink');
    guestqy.ParamByName('kflink').AsString := edit2.Text + '%';
  end;
  if checkbox1.Checked then
  begin
    guestqy.sql.Add(' and kfdate = :kfdate');
    guestqy.ParamByName('kfdate').Asdatetime := datetimepicker1.date;
  end;
  guestqy.sql.Add(' order by kfjz desc');
  guestqy.Open;

end;

procedure Tguestmanagefm.N1Click(Sender: TObject);
begin
  guestqy.append;
end;

procedure Tguestmanagefm.N3Click(Sender: TObject);
begin
  guestqy.Delete;
end;

procedure Tguestmanagefm.guestqyAfterOpen(DataSet: TDataSet);
begin
  n3.Enabled := bool(dataset.recordcount);
  label3.Caption := '癘魁计:' + inttostr(dataset.recordcount) + '兵';
end;

procedure Tguestmanagefm.guestqyBeforeEdit(DataSet: TDataSet);
begin
  oldkfjz := guestqy.fieldbyname('kfjz').AsString;
end;

procedure Tguestmanagefm.guestqyBeforePost(DataSet: TDataSet);
begin
  if guestqy.FieldByName('kfjz').asstring <> '' then
  begin
    case dataset.State of
      dsinsert:
        begin
          if searchfield1('kftable', 'kfjz', guestqy.FieldByName('kfjz').asstring) then

          begin
            messagedlg('块