pnmanage.pas.bak

实用的毛织生产管理系统

unit pnmanage;

interface

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

type
  Tpnmanagefm = class(TForm)
    pnoqy: TQuery;
    pnodb: TDataSource;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Label9: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    ComboBox1: TComboBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox2: TGroupBox;
    DBGridEh1: TDBGridEh;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    pnomemqy: TQuery;
    Label2: TLabel;
    Label3: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure pnoqyAfterDelete(DataSet: TDataSet);
    procedure pnoqyAfterInsert(DataSet: TDataSet);
    procedure pnoqyAfterPost(DataSet: TDataSet);
    procedure pnoqyBeforePost(DataSet: TDataSet);
    procedure pnoqyPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure pnoqyBeforeEdit(DataSet: TDataSet);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure DBGridEh1KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBGridEh1EditButtonClick(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure DBGridEh1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    oldpno: string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  pnmanagefm: Tpnmanagefm;

implementation

uses guestmanage, finishpnomem;

{$R *.dfm}

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

procedure Tpnmanagefm.FormDestroy(Sender: TObject);
begin
  pnmanagefm := nil;
end;

procedure Tpnmanagefm.FormCreate(Sender: TObject);
var
  years, months, days: word;
begin
  pnoqy.RequestLive := true;
  //decodedate(date, years, months, days);

  combobox1.items := insertcombobox('kftable', 'kfjz'); //