delphi代码示例

来源：互联网发布：java 调整系统音量编辑：程序博客网时间：2024/06/09 13:44

UStockInit.pas

{*****************************************************************************
   项目名称：连锁超市综合管理系统           模块名称：库存初始化
   单元名称：UStockInit                     版本：1.0
   功能描述：
   编写人：张文枫                           编写时间：2007-6-18
   版权：JN0703 A组
   修改描述：
   1、修改人     修改时间      修改原因描述       修改描述
   2、…….
*****************************************************************************}
unit UStockInit;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids, ComCtrls, WinSkinData,
SkinCaption, fcCombo, fctreecombo, fcTreeView, Spin, TurboDBGrid, DB, ADODB,
Menus;

type
TFStockInit = class(TForm)
    GroupBoxDBStock: TGroupBox;
    DBGridGoods: TTurboDBGrid;
    DataSourceGoods: TDataSource;
    LblGoodsRecCount: TLabel;
    ADOQueryGoods: TADOQuery;
    GroupBoxStockAlarm: TGroupBox;
    LblStockInitRecCount: TLabel;
    DBGridStockInit: TTurboDBGrid;
    DataSourceStockInit: TDataSource;
    ADOQueryStockInit: TADOQuery;
    GroupBoxEdit: TGroupBox;
    Label4: TLabel;
    fcTreeComboShopID: TfcTreeCombo;
    BtnAdd: TBitBtn;
    BtnView: TBitBtn;
    BtnSave: TBitBtn;
    BtnCancel: TBitBtn;
    GroupBoxQuery: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label12: TLabel;
    EdtQueryGID: TEdit;
    EdtQueryGName: TEdit;
    BtnQuery: TBitBtn;
    BtnShowAll: TBitBtn;
    fcTreeComboQueryGTID: TfcTreeCombo;
    PopupMenuEdit: TPopupMenu;
    MenuDel: TMenuItem;
    MenuModiy: TMenuItem;
    GroupBoxNote: TGroupBox;
    Label3: TLabel;
    BtnClose: TBitBtn;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure BtnShowAllClick(Sender: TObject);
    procedure BtnQueryClick(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure DBGridGoodsDblClick(Sender: TObject);
    procedure BtnViewClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure MenuModiyClick(Sender: TObject);
    procedure MenuDelClick(Sender: TObject);
    procedure DBGridStockInitDblClick(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);

private
    { Private declarations }
    procedure LoadGoods(vStrCondition : WideString);
    procedure LoadStockInit;
    procedure SetStatus(vStatus: integer);
    procedure LoadInitShopToCombo;
    procedure InsertInitRec(vStrShopID,vStrGID : string; vFloatCPrice : single; vStrStockCount : Integer);
public
    { Public declarations }
end;

var
FStockInit: TFStockInit;

implementation

uses UPub, USQLConstructor, USQLOperator, UDBConnection;

var
vSaveTag:integer= 0; //标记是修改还是添加记录

const
   //当前状态
   vAdd=1; //增加
   vCancel = 2;//修改
   vDel=3; //删除
   vShow=4; //显示
   vSave =5 ;//保存

{$R *.dfm}

procedure TFStockInit.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
perform(WM_NextDLGCTL,0,0);
if key=#39 then key:=#0;
end;

procedure TFStockInit.FormCreate(Sender: TObject);
begin
PubClass.SetEnterNext(self, GroupBoxQuery);
PubClass.SetColor(GroupBoxQuery);
PubClass.SetEnterNext(self, GroupBoxEdit);
PubClass.SetColor(GroupBoxEdit);
PubClass.SetTreeComboAutoSelect(GroupBoxEdit);

SetStatus(vShow);

PubClass.LoadDateTofcTreeCombo('GTID','GTName','T_Goods_Type',fcTreeComboQueryGTID);
LoadInitShopToCombo;
LoadGoods('');
LoadStockInit;
end;

procedure TFStockInit.LoadGoods(vStrCondition: WideString);
var
vStrSQL: WideString;
vCol: TColumn;
i: integer;
begin
vStrSQL:= 'select 商品编号,商品名称,类别,供应商,成本价 from V_GoodsInfo '+vStrCondition;

if RunSQL.OpenSQL(vStrSQL, ADOQueryGoods) then begin
    DBGridGoods.Columns.Clear;
    for i:=0 to ADOQueryGoods.FieldCount-1 do begin
      vCol:= DBGridGoods.Columns.Add;
      vCol.FieldName:= ADOQueryGoods.Fields[i].FieldName; //字段名称
      vCol.Title.Caption:= ADOQueryGoods.Fields[i].FieldName;
      vCol.Width := 85;
    end;
end;
LblGoodsRecCount.Caption :=' 当前记录数：'+IntToStr(ADOQueryGoods.RecordCount);
end;

procedure TFStockInit.LoadStockInit;
var
vStrSQL: WideString;
vCol: TColumn;
i: integer;
begin
vStrSQL:= 'select c.ShopName as 门店名称,b.商品编号,b.商品名称, b.单位,a.StockCount as 初始化数量'+
' from V_goodsinfo b,t_Cur_stock a,t_shop c'+
' where a.GID =b.商品编号 and a.shopid= c.shopid and c.shopstatus=''0502'' ' ;
if fcTreeComboShopID.Items.Count >0 then
vStrSQL := vStrSQL+ ' and a.ShopID='''+fcTreeComboShopID.SelectedNode.StringData+'''';

if RunSQL.OpenSQL(vStrSQL, ADOQueryStockInit) then begin
    DBGridStockInit.Columns.Clear;
    for i:=0 to ADOQueryStockInit.FieldCount-1 do begin
      vCol:= DBGridStockInit.Columns.Add;
      vCol.FieldName:= ADOQueryStockInit.Fields[i].FieldName; //字段名称
      vCol.Title.Caption:= ADOQueryStockInit.Fields[i].FieldName;
      vCol.Width := 80;
    end;
end;
LblStockInitRecCount.Caption :=' 当前记录数：'+IntToStr(ADOQueryStockInit.RecordCount);
end;

procedure TFStockInit.SetStatus(vStatus: integer);
begin
case vStatus of
    vShow:
    begin
      BtnAdd.Enabled := true;
      BtnView.Enabled := true;

BtnSave.Enabled := false;
BtnCancel.Enabled := false;

      fcTreeComboShopID.Enabled := true;
    end;

    vAdd:
    begin
      BtnAdd.Enabled := false;
      BtnView.Enabled := false;

BtnSave.Enabled := true;
BtnCancel.Enabled := true;

fcTreeComboShopID.Enabled := false;
end;

    vCancel:
    begin
      BtnAdd.Enabled := false;
      BtnView.Enabled := false;

BtnSave.Enabled := false;
BtnCancel.Enabled := false;

fcTreeComboShopID.Enabled := false;
end;
end;
end;

procedure TFStockInit.BtnShowAllClick(Sender: TObject);
begin
LoadGoods('');
end;

procedure TFStockInit.BtnQueryClick(Sender: TObject);
var
vStrCondion: WideString;
begin
vStrCondion:= ' where 1=1';
if Trim(EdtQueryGID.Text)<>'' then
    vStrCondion:= vStrCondion + ' and 商品编号 = '''+ EdtQueryGID.Text +'''';
if Trim(EdtQueryGName.Text)<>'' then
    vStrCondion:= vStrCondion + ' and 商品名称 like ''%'+EdtQueryGName.Text+'%'' ';
if Trim(fcTreeComboQueryGTID.Text)<>'' then
    vStrCondion:= vStrCondion + ' and 类别 like ''%'+fcTreeComboQueryGTID.Text+'%'' ';

LoadGoods(vStrCondion);
end;

procedure TFStockInit.BtnAddClick(Sender: TObject);
begin
if fcTreeComboShopID.Items.Count=0 then
    Application.MessageBox('目前没有待初始化的门店，请新增门店后再初始化！','提示',MB_OK+MB_ICONINFORMATION)
else begin
    vSaveTag := vAdd;
    SetStatus(vAdd);
    PubConn.ADOConnection.BeginTrans;
end;
end;

procedure TFStockInit.BtnCancelClick(Sender: TObject);
begin
PubConn.ADOConnection.RollbackTrans;
vSaveTag := 0;
SetStatus(vShow);
LoadGoods('');
LoadStockInit;
LoadInitShopToCombo;
end;

procedure TFStockInit.BtnSaveClick(Sender: TObject);
var
vStrShopID ,vStrStockDate: string;
vStrSQL1, vStrSQL2 : widestring;
begin
vSaveTag := 0;

if ADOQueryStockInit.RecordCount=0 then begin
    Application.MessageBox('没有需要保存的数据！','提示',MB_OK+MB_ICONINFORMATION) ;
    PubConn.ADOConnection.CommitTrans;
end
else begin
    vStrShopID := fcTreeComboShopID.SelectedNode.StringData;
    vStrStockDate := FormatDateTime('yyyy-MM-dd',now);
    vStrSQL1 := ' Update T_Shop set ShopStatus=''0501'' where ShopID='''+vStrShopID+'''';
    vStrSQL2 := ' insert into T_Stock select ShopID, '''+vStrStockDate+''', GID,CPrice,StockCount,StockTotal'+
    ' from t_Cur_Stock';

    if RunSQL.ExecSQL(vStrSQL1) and RunSQL.ExecSQL(vStrSQL2) then begin
      PubConn.ADOConnection.CommitTrans;
      Application.MessageBox('初始化成功！','提示',MB_OK+MB_ICONINFORMATION);
    end
    else PubConn.ADOConnection.RollbackTrans;
end;

vSaveTag := 0;
SetStatus(vShow);
LoadGoods('');
LoadStockInit;
LoadInitShopToCombo;

end;

procedure TFStockInit.LoadInitShopToCombo;
var
vStrSQL : widestring;
vADOQueryTemp : TADOQuery;
vNode:Tfctreenode;
begin
vADOQueryTemp := TADOQuery.Create(nil);
vADOQueryTemp.Connection := PubConn.ADOConnection;

vStrSQL := ' select ShopID,ShopName from T_Shop where ShopStatus=''0502'' order by ShopID' ;

try
    vADOQueryTemp.Close;
    vADOQueryTemp.SQL.Text := vStrSQL;
    vADOQueryTemp.Open;
    while not vADOQueryTemp.Eof do begin
      vNode := fcTreeComboShopID.Items.Add(nil,vADOQueryTemp.FieldByName('ShopName').AsString);
      vNode.StringData := vADOQueryTemp.FieldByName('ShopID').AsString;
      vADOQueryTemp.Next;
    end;
    if vADOQueryTemp.RecordCount>0 then begin
      //默认设置选中第一节点。
      fcTreeComboShopID.SetSelectedNode(fcTreeComboShopID.Items[0]);
      //把第一节点的文本值付给树下拉框的文本。
      fcTreeComboShopID.Text:= fcTreeComboShopID.Items[0].Text;
    end
    else begin
      fcTreeComboShopID.SetSelectedNode(nil);
      fcTreeComboShopID.Text:= '';
      Application.MessageBox('目前没有待初始化的门店，请新增门店后再初始化！','提示',MB_OK+MB_ICONINFORMATION);
      SetStatus(vCancel);
    end;
finally
    FreeAndNil(vADOQueryTemp);
end;
end;

procedure TFStockInit.DBGridGoodsDblClick(Sender: TObject);
var
vStrShopID, vStrGID, vStrInput : string;
vFloatCPrice : single;
vStrStockCount : integer;
begin
if vSaveTag = vAdd then begin
    vStrInput := InputBox('输入框', '请输入初始化数量：','');
    if vStrInput<>'' then
    try
      vStrStockCount := StrToInt(vStrInput);
      if vStrStockCount <= 0 then begin
        Application.MessageBox('请输入一个大于0的整数！','出错提示！',MB_OK+MB_ICONWARNING);
        exit;
      end;
      vStrGID := ADOQueryGoods.FieldByName('商品编号').AsString;
      vStrShopID := fcTreeComboShopID.SelectedNode.StringData;
      vFloatCPrice := ADOQueryGoods.FieldByName('成本价').AsFloat;
      InsertInitRec(vStrShopID,vStrGID,vFloatCPrice,vStrStockCount);
      LoadStockInit;
    except
      Application.MessageBox('请输入一个大于0的整数！','出错提示！',MB_OK+MB_ICONWARNING);
    end;
end;
end;

procedure TFStockInit.InsertInitRec(vStrShopID, vStrGID: string;
vFloatCPrice: single; vStrStockCount: Integer);
var
vStrSQL1, vStrSQL2 : Widestring;
begin
vStrSQL1 := GetSQL.SetStockInit(vStrShopID, vStrGID,vFloatCPrice,vStrStockCount);
vStrSQL2 := '';
RunSQL.ExecSQL(vStrSQL1);
end;

procedure TFStockInit.BtnViewClick(Sender: TObject);
begin
LoadStockInit;
end;

procedure TFStockInit.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if BtnSave.Enabled then begin
    case Application.MessageBox('是否保存初始化信息？','退出提示',MB_YESNOCANCEL+MB_ICONQUESTION) of
      ID_YES: begin
        BtnSave.OnClick(nil);
        CanClose:= true;
      end;
      ID_NO: begin
        BtnCancel.OnClick(nil);
        CanClose:= True;
      end;
      else
        CanClose:= False;
    end;
end;
end;

procedure TFStockInit.MenuModiyClick(Sender: TObject);
var
vStrSQL: WideString;
vStrShopID, vStrGID, vStrInput : string;
vStrStockCount : integer;
begin
vStrInput := InputBox('输入框', '初始化数量改为：','');
if vStrInput<>'' then
try
    vStrStockCount := StrToInt(vStrInput);
    if vStrStockCount <= 0 then begin
      Application.MessageBox('请输入一个大于0的整数！','出错提示！',MB_OK+MB_ICONWARNING);
      exit;
    end;
    vStrGID := ADOQueryGoods.FieldByName('商品编号').AsString;
    vStrShopID := fcTreeComboShopID.SelectedNode.StringData;

vStrSQL:= 'Update T_Cur_stock set StockCount='+IntToStr(vStrStockCount)+' where ShopID= '''+vStrShopID+''' and GID='''+vStrGID+'''' ;

RunSQL.ExecSQL(vStrSQL);
except
Application.MessageBox('请输入一个大于0的整数！','出错提示！',MB_OK+MB_ICONWARNING);
end;
LoadStockInit;
LblStockInitRecCount.Caption :=' 当前记录数：'+IntToStr(ADOQueryStockInit.RecordCount);
end;

procedure TFStockInit.MenuDelClick(Sender: TObject);
var
vStrSQL: WideString;
vStrShopID, vStrGID : string;
begin
vStrGID := ADOQueryGoods.FieldByName('商品编号').AsString;
vStrShopID := fcTreeComboShopID.SelectedNode.StringData;

vStrSQL:= 'Delete from T_Cur_stock where ShopID= '''+vStrShopID+''' and GID='''+vStrGID+'''' ;

RunSQL.ExecSQL(vStrSQL);

LoadStockInit;
LblStockInitRecCount.Caption :=' 当前记录数：'+IntToStr(ADOQueryStockInit.RecordCount);
end;

procedure TFStockInit.DBGridStockInitDblClick(Sender: TObject);
begin
if (vSaveTag =vAdd) and (ADOQueryStockInit.RecordCount>0) then
PopupMenuEdit.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

procedure TFStockInit.BtnCloseClick(Sender: TObject);
begin
Close;
end;

end.

---------------------------------------------------------------------------------------------------------------

UStockInit.dfm

object FStockInit: TFStockInit
Left = 245
Top = 27
Width = 960
Height = 650
Caption = #24211#23384#21021#22987#21270
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnKeyPress = FormKeyPress
PixelsPerInch = 96
TextHeight = 12
object GroupBoxDBStock: TGroupBox
    Left = 0
    Top = 0
    Width = 480
    Height = 556
    Align = alClient
    Caption = #21830#21697#20449#24687
    TabOrder = 0
    object LblGoodsRecCount: TLabel
      Left = 2
      Top = 362
      Width = 476
      Height = 12
      Align = alBottom
      Caption = ' '#24403#21069#35760#24405#25968#65306
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object DBGridGoods: TTurboDBGrid
      Left = 2
      Top = 14
      Width = 476
      Height = 348
      Align = alClient
      DataSource = DataSourceGoods
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGridGoodsDblClick
      ExportType = etExcel
    end
    object GroupBoxQuery: TGroupBox
      Left = 2
      Top = 374
      Width = 476
      Height = 180
      Align = alBottom
      Caption = #21830#21697#26597#35810
      TabOrder = 1
      DesignSize = (
        476
        180)
      object Label1: TLabel
        Left = 81
        Top = 39
        Width = 70
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #21830#21697#32534#21495#65306
      end
      object Label2: TLabel
        Left = 81
        Top = 84
        Width = 70
        Height = 13
        Alignment = taRightJustify
        Anchors = [akLeft, akTop, akRight]
        AutoSize = False
        Caption = #21830#21697#21517#31216#65306
      end
      object Label12: TLabel
        Left = 81
        Top = 129
        Width = 70
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #31867' '#21035#65306
      end
      object EdtQueryGID: TEdit
        Left = 156
        Top = 35
        Width = 121
        Height = 20
        TabOrder = 0
      end
      object EdtQueryGName: TEdit
        Left = 156
        Top = 80
        Width = 120
        Height = 20
        TabOrder = 1
      end
      object BtnQuery: TBitBtn
        Left = 319
        Top = 33
        Width = 75
        Height = 25
        Caption = #26597' '#35810
        TabOrder = 3
        OnClick = BtnQueryClick
      end
      object BtnShowAll: TBitBtn
        Left = 319
        Top = 78
        Width = 75
        Height = 25
        Caption = #26174#31034#20840#37096
        TabOrder = 4
        OnClick = BtnShowAllClick
      end
      object fcTreeComboQueryGTID: TfcTreeCombo
        Left = 156
        Top = 125
        Width = 121
        Height = 20
        ButtonStyle = cbsDownArrow
        DropDownCount = 8
        Items.StreamVersion = 1
        Items.Data = {00000000}
        Options = [icoExpanded]
        ReadOnly = False
        ShowMatchText = True
        Sorted = False
        Style = csDropDown
        TabOrder = 2
        TreeOptions = [tvoHideSelection, tvoShowButtons, tvoShowLines, tvoToolTips]
      end
      object BtnClose: TBitBtn
        Left = 319
        Top = 123
        Width = 75
        Height = 25
        Caption = #36864' '#20986
        TabOrder = 5
        OnClick = BtnCloseClick
      end
    end
end
object GroupBoxStockAlarm: TGroupBox
    Left = 480
    Top = 0
    Width = 472
    Height = 556
    Align = alRight
    Caption = #21021#22987#21270#24773#20917
    TabOrder = 1
    object LblStockInitRecCount: TLabel
      Left = 2
      Top = 362
      Width = 468
      Height = 12
      Align = alBottom
      Caption = ' '#24403#21069#35760#24405#25968#65306
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      Transparent = True
    end
    object DBGridStockInit: TTurboDBGrid
      Left = 2
      Top = 14
      Width = 468
      Height = 348
      Align = alClient
      DataSource = DataSourceStockInit
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = PopupMenuEdit
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGridStockInitDblClick
      ExportType = etExcel
    end
    object GroupBoxEdit: TGroupBox
      Left = 2
      Top = 374
      Width = 468
      Height = 180
      Align = alBottom
      Caption = #38376#24215#21021#22987#21270
      TabOrder = 1
      object Label4: TLabel
        Left = 104
        Top = 39
        Width = 120
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = #24453#21021#22987#21270#30340#38376#24215#65306
      end
      object fcTreeComboShopID: TfcTreeCombo
        Left = 232
        Top = 35
        Width = 121
        Height = 20
        ButtonStyle = cbsDownArrow
        DropDownCount = 8
        Items.StreamVersion = 1
        Items.Data = {00000000}
        Options = [icoExpanded]
        ReadOnly = False
        ShowMatchText = True
        Sorted = False
        Style = csDropDownList
        TabOrder = 0
        TreeOptions = [tvoHideSelection, tvoShowButtons, tvoShowLines, tvoToolTips]
      end
      object BtnAdd: TBitBtn
        Left = 139
        Top = 78
        Width = 75
        Height = 25
        Caption = #24320' '#22987
        TabOrder = 1
        OnClick = BtnAddClick
      end
      object BtnView: TBitBtn
        Left = 261
        Top = 78
        Width = 75
        Height = 25
        Caption = #26597' '#30475
        TabOrder = 2
        OnClick = BtnViewClick
      end
      object BtnSave: TBitBtn
        Left = 139
        Top = 128
        Width = 75
        Height = 25
        Caption = #20445' '#23384
        TabOrder = 3
        OnClick = BtnSaveClick
      end
      object BtnCancel: TBitBtn
        Left = 261
        Top = 128
        Width = 75
        Height = 25
        Caption = #21462' '#28040
        TabOrder = 4
        OnClick = BtnCancelClick
      end
    end
end
object GroupBoxNote: TGroupBox
    Left = 0
    Top = 556
    Width = 952
    Height = 60
    Align = alBottom
    Caption = #21021#22987#21270#27969#31243
    TabOrder = 2
    object Label3: TLabel
      Left = 2
      Top = 14
      Width = 948
      Height = 44
      Align = alClient
      Alignment = taCenter
      AutoSize = False
      Caption = '1.'#36873#25321#38376#24215#24320#22987#21021#22987#21270' ---> 2.'#21452#20987#21830#21697#35760#24405#36827#34892#32534#36753' ---> 3.'#20445#23384#32534#36753' ---> 4.'#36864#20986
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
end
object DataSourceGoods: TDataSource
    DataSet = ADOQueryGoods
    Left = 288
    Top = 112
end
object ADOQueryGoods: TADOQuery
    Parameters = <>
    Left = 288
    Top = 168
end
object DataSourceStockInit: TDataSource
    DataSet = ADOQueryStockInit
    Left = 704
    Top = 112
end
object ADOQueryStockInit: TADOQuery
    Parameters = <>
    Left = 704
    Top = 168
end
object PopupMenuEdit: TPopupMenu
    Left = 704
    Top = 64
    object MenuDel: TMenuItem
      Caption = #21024#38500#21830#21697'(&D)'
      OnClick = MenuDelClick
    end
    object MenuModiy: TMenuItem
      Caption = #20462#25913#21021#22987#21270#25968#37327'(&M)'
      OnClick = MenuModiyClick
    end
end
end