unit6.pas

服装制造业的库存管理系统,服装进销存进货,库存,出货等等.

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Buttons, ComCtrls, ToolWin, Grids, DBGridEh,StrUtils ;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    DBGridEh1: TDBGridEh;
    Edit1: TEdit;
    Edit2: TEdit;
    ToolBar1: TToolBar;
    ToolButton2: TToolButton;
    SpeedButton15: TSpeedButton;
    SpeedButton20: TSpeedButton;
    ToolButton6: TToolButton;
    SpeedButton1: TSpeedButton;
    ToolButton8: TToolButton;
    SpeedButton5: TSpeedButton;
    ToolButton7: TToolButton;
    SpeedButton11: TSpeedButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    DataSource1: TDataSource;
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    function QueryTabel(aSql:string):Boolean;  
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation
uses Data, Unit1;
{$R *.dfm}

procedure TForm6.SpeedButton11Click(Sender: TObject);
begin
  Close;
end;

procedure TForm6.SpeedButton5Click(Sender: TObject);
begin
  if MessageBox(Handle, '你是否要删除？', '操作提示', MB_YESNO +
    MB_ICONWARNING + MB_DEFBUTTON3 + MB_TOPMOST)=IDYES then
  begin
    if DataSource1.DataSet.RecordCount>0 then
    DataSource1.DataSet.Delete;
  end;
end;

procedure TForm6.SpeedButton1Click(Sender: TObject);
begin
  QueryTabel('Select * From 原料资料录入');
end;

procedure TForm6.FormShow(Sender: TObject);
begin
  QueryTabel('Select * From 原料资料录入');
  if (Form1.Qx='浏览者')  then
  begin
    SpeedButton15.Enabled:=False;
    SpeedButton20.Enabled:=False;
    SpeedButton5.Enabled:=False;
  end;
end;

function TForm6.QueryTabel(aSql: string): Boolean;
begin
  with MyData do
  begin
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(aSql);
    ADOQuery1.Open;
  end;
end;

procedure TForm6.DBGridEh1DblClick(Sender: TObject);
begin
  if DataSource1.DataSet.RecordCount<=0 then
  begin
    MessageBox(Handle, '没有数据源！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Exit;
  end;
  Edit1.Text:=DataSource1.DataSet.FieldByName('原料编号').AsString;
  Edit2.Text:=DataSource1.DataSet.FieldByName('原料名称').AsString;
  Edit3.Text:=DataSource1.DataSet.FieldByName('颜色').AsString;
  Edit4.Text:=DataSource1.DataSet.FieldByName('单位').AsString;
  Edit5.Text:=DataSource1.DataSet.FieldByName('单价').AsString;
  Edit6.Text:=DataSource1.DataSet.FieldByName('供应商名称').AsString;
end;



procedure TForm6.SpeedButton20Click(Sender: TObject);
begin
  if Trim(Edit1.Text)='' then
  begin
    MessageBox(Handle, '请输入原料编号！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit1.SetFocus;
    Exit;
  end;
  if Trim(Edit2.Text)='' then
  begin
    MessageBox(Handle, '请输入原料名称！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit2.SetFocus;
    Exit;
  end;
  if Trim(Edit3.Text)='' then
  begin
    MessageBox(Handle, '请输入颜色！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit3.SetFocus;
    Exit;
  end;
  if Trim(Edit4.Text)='' then
  begin
    MessageBox(Handle, '请输入单位！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit4.SetFocus;
    Exit;
  end;
  if Trim(Edit5.Text)='' then
  begin
    MessageBox(Handle, '请输入单价！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit5.SetFocus;
    Exit;
  end;
  if Trim(Edit6.Text)='' then
  begin
    MessageBox(Handle, '请输入供应商名称！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit6.SetFocus;
    Exit;
  end;

  try
    DataSource1.DataSet.Edit;
    DataSource1.DataSet.FieldByName('原料编号').AsString:=Edit1.Text;
    DataSource1.DataSet.FieldByName('原料名称').AsString:=Edit2.Text;
    DataSource1.DataSet.FieldByName('颜色').AsString:=Edit3.Text;
    DataSource1.DataSet.FieldByName('单位').AsString:=Edit4.Text;
    DataSource1.DataSet.FieldByName('单价').AsString:=Edit5.Text;
    DataSource1.DataSet.FieldByName('供应商名称').AsString:=Edit6.Text;
    Edit1.Clear; Edit2.Clear;  Edit3.Clear; Edit4.Clear; Edit5.Clear ;Edit6.Clear;
    MessageBox(Handle, '原料修改成功！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
  except
    DataSource1.DataSet.Cancel;
    MessageBox(Handle, '原料修改失败！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
  end;
end;

procedure TForm6.SpeedButton15Click(Sender: TObject);
begin
  if Trim(Edit1.Text)='' then
  begin
    MessageBox(Handle, '请输入原料编号！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit1.SetFocus;
    Exit;
  end;
  if Trim(Edit2.Text)='' then
  begin
    MessageBox(Handle, '请输入原料名称！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit2.SetFocus;
    Exit;
  end;
  if Trim(Edit3.Text)='' then
  begin
    MessageBox(Handle, '请输入颜色！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit3.SetFocus;
    Exit;
  end;
  if Trim(Edit4.Text)='' then
  begin
    MessageBox(Handle, '请输入单位！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit4.SetFocus;
    Exit;
  end;
  if Trim(Edit5.Text)='' then
  begin
    MessageBox(Handle, '请输入单价！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit5.SetFocus;
    Exit;
  end;
  if Trim(Edit6.Text)='' then
  begin
    MessageBox(Handle, '请输入供应商名称！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
    Edit6.SetFocus;
    Exit;
  end;

  try
    DataSource1.DataSet.Insert;
    DataSource1.DataSet.FieldByName('原料编号').AsString:=Edit1.Text;
    DataSource1.DataSet.FieldByName('原料名称').AsString:=Edit2.Text;
    DataSource1.DataSet.FieldByName('颜色').AsString:=Edit3.Text;
    DataSource1.DataSet.FieldByName('单位').AsString:=Edit4.Text;
    DataSource1.DataSet.FieldByName('单价').AsString:=Edit5.Text;
    DataSource1.DataSet.FieldByName('供应商名称').AsString:=Edit6.Text;
    Edit1.Clear; Edit2.Clear;  Edit3.Clear; Edit4.Clear; Edit5.Clear ;Edit6.Clear;
    MessageBox(Handle, '原料录入成功！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
  except
    DataSource1.DataSet.Cancel;
    MessageBox(Handle, '原料录入失败！', '操作提示', MB_OK + MB_ICONWARNING +
      MB_DEFBUTTON3 + MB_TOPMOST);
  end;
end;

procedure TForm6.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Length(Trim(edit1.Text))=0 then
  begin
    if not (key in ['A','B','C','D']) then
    begin
        edit1.Clear;
        Key:=#0;
        Application.MessageBox('原料编号首字母请用A-Z', '友情提示',
          MB_OK + MB_ICONWARNING);
    end;
  end;
end;

end.