mokuai_write.pas

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

unit MoKuai_Write;

interface

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

type
  TFrm_MoKuai_write = class(TForm)
    Temp: TADOQuery;
    MoKuai1: TADOQuery;
    DDSMoKuai1: TDataSource;
    MoKuai0: TADOQuery;
    DSMoKuai0: 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;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGridEh1: TDBGridEh;
    TabSheet2: TTabSheet;
    DBGridEh2: TDBGridEh;
    DBGridEh3: 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 DBGridEh1TitleClick(Column: TColumnEh);
    procedure DBGridEh2TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure NEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGridEh3TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    { Private declarations }
    procedure WMSysCommand(var Message:TWMSysCommand);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Frm_MoKuai_write: TFrm_MoKuai_write;

implementation

{$R *.dfm}

uses main,share;

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

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

procedure TFrm_MoKuai_write.FormShow(Sender: TObject);
begin
  tocombobox(ComboBox1,temp,'select * from xinghao order by name','name');
  tocombobox(ComboBox2,temp,'select * from guige order by name','name');
  runsql(mokuai0,'select * from mokuai order by sj desc','open');
  runsql(mokuai1,'select * from mokuai_SY order by name','open');
  PageControl1.ActivePageIndex:=0;
  dateEdit1.Date:=date;
end;

procedure TFrm_MoKuai_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_MoKuai_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_MoKuai_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 mokuai0 do
 begin
   append;
   FieldValues['name']:=bsskinedit1.Text;
   FieldValues['xh']:=combobox1.Text;
   FieldValues['gg']:=combobox2.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 mokuai_SY where name='''+mokuai0.FieldValues['name']+''' and gg='''+mokuai0.FieldValues['gg']
                  +''' and xh='''+mokuai0.FieldValues['xh']+'''','open');
 if temp.IsEmpty then
   begin
     with mokuai1 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 mokuai_sy set sl=sl+'+Nedit1.Text+' where name='''+mokuai0.FieldValues['name']+''' and gg='''
                  +mokuai0.FieldValues['gg']+''' and xh='''+mokuai0.FieldValues['xh']+'''','execsql');

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

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

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

procedure TFrm_MoKuai_write.DBGridEh1TitleClick(Column: TColumnEh);
begin
  if mokuai0.IsEmpty  then exit;
  case Column.Title.SortMarker of
    smDownEh: mokuai0.Sort := Column.FieldName + ' DESC'; //升序
    smUpEh: mokuai0.Sort := Column.FieldName + ' ASC'; //降序
  end;
end;

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

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

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

end.