chengpin_write.~pas

delphi 生产管理系统 sql2000位后台数据库

unit ChengPin_Write;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,DB, ADODB,ComCtrls,ExtCtrls, Grids, DBGridEh;

type
  TFrm_chengpin_write = class(TForm)
    Temp: TADOQuery;
    chengpin1: TADOQuery;
    DSchengpin1: TDataSource;
    chengpin0: TADOQuery;
    DSchengpin0: TDataSource;
    Panel1: TPanel;
    Panel4: TPanel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    bsSkinEdit1: TEdit;
    NEdit1: TEdit;
    memo1: TMemo;
    Btnadd: TButton;
    btnsave: TButton;
    btncancel: TButton;
    btndelete: TButton;
    btnreturn: TButton;
    DateEdit1: TDateTimePicker;
    Label1: TLabel;
    ComboBox3: TComboBox;
    Label2: TLabel;
    ComboBox4: TComboBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGridEh1: TDBGridEh;
    TabSheet2: TTabSheet;
    DBGridEh2: TDBGridEh;
    procedure btnreturnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BtnaddClick(Sender: TObject);
    procedure btncancelClick(Sender: TObject);
    procedure btnsaveClick(Sender: TObject);
    procedure btndeleteClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEh2TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure NEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
    procedure WMSysCommand(var Message:TWMSysCommand);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Frm_chengpin_write: TFrm_chengpin_write;

implementation

{$R *.dfm}

uses main,share;

procedure TFrm_chengpin_write.WMSysCommand(var Message: TWMSysCommand);
begin
  if (Message.CmdType = SC_MINIMIZE) or (Message.CmdType = SC_RESTORE)then
     WindowState:=wsMaximized
  else
    inherited;
end;

procedure TFrm_chengpin_write.btnreturnClick(Sender: TObject);
begin
close;
end;

procedure TFrm_chengpin_write.FormShow(Sender: TObject);
begin
  tocombobox(ComboBox1,temp,'select distinct name from xinghao order by name','name');
  tocombobox(ComboBox2,temp,'select distinct name from guige order by name','name');
  tocombobox(ComboBox3,temp,'select distinct sheng from didian order by sheng','sheng');
  tocombobox(ComboBox4,temp,'select distinct shi from didian order by shi','shi');
  runsql(chengpin0,'select * from chengpin order by sj desc','open');
  runsql(chengpin1,'select * from chengpin_SY order by name','open');
  dateEdit1.Date:=date;
  PageControl1.ActivePageIndex:=0;
end;

procedure TFrm_chengpin_write.BtnaddClick(Sender: TObject);
begin
//*****************初始化按钮*************
  PageControl1.ActivePageIndex:=0;
  btnadd.Enabled:=false;
  btnsave.Enabled:=true;
  btncancel.Enabled:=true;
  btndelete.Enabled:=false;
  bsskinedit1.Clear;
  Nedit1.text:='0';
  share.btn_bs:=0;
//  QMKLR.Append;
end;

procedure TFrm_chengpin_write.btncancelClick(Sender: TObject);
begin
  PageControl1.ActivePageIndex:=0;
  btnadd.Enabled:=true;
  btnsave.Enabled:=false;
  btncancel.Enabled:=false;
  btndelete.Enabled:=true;
  bsskinedit1.Clear;
  Nedit1.Text:='0';
// qmklr.Cancel;
end;

procedure TFrm_chengpin_write.btnsaveClick(Sender: TObject);
begin
if (Nedit1.text='0') or (trim(Nedit1.text)='') then
  begin
    messagebox(handle,pchar('数量不能为0!'),'提示',64);
    Nedit1.SetFocus;
    exit;
  end;
 PageControl1.ActivePageIndex:=0;
 with chengpin0 do
 begin
   append;
   FieldValues['name']:=bsskinedit1.Text;
   FieldValues['xh']:=combobox1.Text;
   FieldValues['gg']:=combobox2.Text;
   FieldValues['sheng']:=combobox3.Text;
   FieldValues['shi']:=combobox4.Text;
   FieldValues['sl']:=strtoint(Nedit1.Text);
   FieldValues['czy']:=share.czy;
   FieldValues['bz']:=memo1.Text;
   FieldValues['sj']:=strtodate(datetostr(dateedit1.date));
   Post;
 end;    // with
 runsql(temp,'select * from chengpin_SY where name='''+chengpin0.FieldValues['name']+''' and gg='''+chengpin0.FieldValues['gg']
                  +''' and xh='''+chengpin0.FieldValues['xh']+'''','open');
 if temp.IsEmpty then
   begin
     with chengpin1 do
       begin
         append;
         FieldValues['name']:=bsskinedit1.Text;
         FieldValues['xh']:=combobox1.Text;
         FieldValues['gg']:=combobox2.Text;
         FieldValues['sl']:=strtoint(Nedit1.text);
         FieldValues['bz']:=memo1.Text;
         Post;
       end;    // with
   end
 else
   runsql(temp,'update chengpin_sy set sl=sl+'+Nedit1.Text+' where name='''+chengpin0.FieldValues['name']+''' and gg='''
                  +chengpin0.FieldValues['gg']+''' and xh='''+chengpin0.FieldValues['xh']+'''','execsql');

   runsql(temp,'update banchengpin_sy set sl=sl-'+Nedit1.Text+' where gg='''
                  +chengpin0.FieldValues['gg']+''' and xh='''+chengpin0.FieldValues['xh']+'''','execsql');  

   btnadd.Enabled:=true;
   btnsave.Enabled:=false;
   btncancel.Enabled:=false;
   btndelete.Enabled:=true;
   bsskinedit1.Clear;
   Nedit1.Text:='0';
   messagebox(handle,pchar('保存成功!'),'提示',64);
   chengpin1.Refresh;
end;

procedure TFrm_chengpin_write.btndeleteClick(Sender: TObject);
begin
  PageControl1.ActivePageIndex:=0;
  if chengpin0.IsEmpty then exit;
  if messagebox(handle,pchar('确定要删除该记录么？'),'提示',65)=IDok then
    begin
      runsql(temp,'update chengpin_sy set sl=sl-'+Nedit1.Text+' where name='''+chengpin0.FieldValues['name']+''' and gg='''
                  +chengpin0.FieldValues['gg']+''' and xh='''+chengpin0.FieldValues['xh']+'''','execsql');

      runsql(temp,'update banchengpin_sy set sl=sl-'+inttostr(chengpin0.FieldValues['sl'])+' where gg='''
                  +chengpin0.FieldValues['gg']+''' and xh='''+chengpin0.FieldValues['xh']+'''','execsql');
      chengpin1.Refresh;
      chengpin0.Delete;
    end;
end;

procedure TFrm_chengpin_write.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Frm_chengpin_write:=nil;//先
  Action:=cafree;//后
  frm_main.rzfieldStatus2.Caption :='主界面';
end;

procedure TFrm_chengpin_write.DBGridEh2TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if chengpin1.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: chengpin1.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: chengpin1.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_chengpin_write.DBGridEh1TitleBtnClick(Sender: TObject;
  ACol: Integer; Column: TColumnEh);
begin
  if chengpin0.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: chengpin0.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: chengpin0.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

procedure TFrm_chengpin_write.NEdit1KeyPress(Sender: TObject;
  var Key: Char);
begin
if not (key in ['0'..'9',#8]) then
  key:=#0;
end;

end.