uitem_e.pas

进销存以及BOM管理,SQl Server数据库程序

unit uitem_e;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ubaseinfo_e, StdCtrls, wwcheckbox, Mask, wwdbedit, DB, ADODB,
  wwdblook, DBClient, Buttons, ExtDlgs;

type
  Tfrmitem_e = class(TfrmBaseinfo_e)
    Label4: TLabel;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBEdit8: TwwDBEdit;
    Label11: TLabel;
    Label10: TLabel;
    wwDBEdit7: TwwDBEdit;
    Label8: TLabel;
    wwDBEdit5: TwwDBEdit;
    wwDBLookupCombo3: TwwDBLookupCombo;
    Label13: TLabel;
    Label14: TLabel;
    Label12: TLabel;
    wwDBEdit11: TwwDBEdit;
    wwDBEdit9: TwwDBEdit;
    wwDBEdit12: TwwDBEdit;
    Label15: TLabel;
    wwDBEdit13: TwwDBEdit;
    Label16: TLabel;
    Label18: TLabel;
    Label17: TLabel;
    wwDBEdit15: TwwDBEdit;
    wwDBEdit16: TwwDBEdit;
    wwDBEdit14: TwwDBEdit;
    Label19: TLabel;
    Label9: TLabel;
    wwDBEdit6: TwwDBEdit;
    Label7: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    wwDBEdit2: TwwDBEdit;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwDBLookupCombo4: TwwDBLookupCombo;
    Qunit: TADOQuery;
    Qtype: TADOQuery;
    CDSlevel: TClientDataSet;
    CDScounts: TClientDataSet;
    CDSlevelField: TStringField;
    CDScountsField: TStringField;
    Qtypefname: TStringField;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    OpenPictureDialog1: TOpenPictureDialog;
    OpenDialog1: TOpenDialog;
    Qunitfname: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    procedure CreateDATASET;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmitem_e: Tfrmitem_e;

implementation

uses uitem, Data;

{$R *.dfm}

procedure Tfrmitem_e.CreateDATASET;
begin
  with CDScounts do
    begin
      Close;
      Fielddefs.Add('核算方法',ftString,16);
      CreateDataset;
      AppendRecord(['加权平均法']);
      AppendRecord(['先进先出法']);
      AppendRecord(['后进先出法']);
      AppendRecord(['手工指定法']);
      open;
    end;
  with CDSlevel do
    begin
      Close;
      Fielddefs.Add('级别',ftString,8);
      CreateDataset;
      AppendRecord(['A']);
      AppendRecord(['B']);
      AppendRecord(['C']);
      AppendRecord(['D']);
      AppendRecord(['E']);
      open;
    end;

  with Qtype do
     begin
      close;
      Sql.Clear;
      sql.Add('Select fname from titemtype order by fname');
      open;
     end;

  with Qunit do
    begin
      close;
      sql.Clear;
      sql.Add('select fname from tunit order by fname');
      open; 
    end;
end;

procedure Tfrmitem_e.FormCreate(Sender: TObject);
begin
  inherited;
  MainTable:='titem';
  CreateDATASET;
end;

procedure Tfrmitem_e.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  if openpicturedialog1.Execute then
    Dataset.FieldByName('fpicture').AsString:=openpicturedialog1.FileName;
end;

procedure Tfrmitem_e.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  if opendialog1.Execute then
    Dataset.FieldByName('fcarework').AsString:=opendialog1.FileName;  
end;

end.