pprice.pas.bak

实用的毛织生产管理系统

unit pprice;

interface

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

type
  Tppricefm = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    scgxdb: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    schdeptqy: TQuery;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    scgxqy: TQuery;
    Button4: TButton;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    ComboBox2: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure scgxqyAfterDelete(DataSet: TDataSet);
    procedure scgxqyAfterPost(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure scgxqyBeforePost(DataSet: TDataSet);
    procedure scgxqyBeforeEdit(DataSet: TDataSet);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure scgxqyPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure Button4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure scgxqyAfterInsert(DataSet: TDataSet);
  private
    oldscgxno, olddept: string;
    { Private declarations }
  public
    dept: string;
    { Public declarations }
  end;

var
  ppricefm: Tppricefm;

implementation

uses scgxprint, scbrow, gxmanage;

{$R *.dfm}

procedure Tppricefm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  scgxqy.Close;
  action := cafree;
if  assigned(scbrowfm) then  
scbrowfm.WindowState := wsMaximized;
end;

procedure Tppricefm.FormDestroy(Sender: TObject);
begin
  ppricefm := nil;
end;

procedure Tppricefm.FormCreate(Sender: TObject);
begin
  scgxqy.RequestLive := true;
  combobox1.Items.Clear;
  schdeptqy.SQL.Clear;
  schdeptqy.SQL.Add('select PNO from scpo');
  schdeptqy.open;
  while  not schdeptqy.Eof do
  begin
  combobox1.Items.Add(schdeptqy.fieldbyname('pno').AsString);
  schdeptqy.Next;
  end;
  schdeptqy.Close;
  //dbgrid1.Columns[0].PickList := insertcombobox('scdepts', 'dept'); //场