fnxiu_write.~pas

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

unit Fnxiu_Write;

interface

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

type
  TFrm_fanxiu_write = class(TForm)
    Fanxiu: TADOQuery;
    DSfanxiu: TDataSource;
    Temp: TADOQuery;
    Panel1: TPanel;
    Panel4: TPanel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    NEdit1: TEdit;
    memo1: TMemo;
    Btnadd: TButton;
    btnsave: TButton;
    btncancel: TButton;
    btndelete: TButton;
    btnreturn: TButton;
    DateEdit1: TDateTimePicker;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox0: TComboBox;
    btnmod: TButton;
    DBGridEh1: 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 btnmodClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure NEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    { Private declarations }
    procedure WMSysCommand(var Message:TWMSysCommand);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Frm_fanxiu_write: TFrm_fanxiu_write;

implementation

{$R *.dfm}

uses main,share;

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

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

procedure TFrm_fanxiu_write.FormShow(Sender: TObject);
begin
  tocombobox(ComboBox0,temp,'select distinct name from chengpin_sy order by name','name');
  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(fanxiu,'select * from fanxiu order by sj desc','open');
  dateEdit1.Date:=date;
end;

procedure TFrm_fanxiu_write.BtnaddClick(Sender: TObject);
begin
//*****************初始化按钮*************
  btnadd.Enabled:=false;
  btnmod.Enabled:=false;
  btnsave.Enabled:=true;
  btncancel.Enabled:=true;
  btndelete.Enabled:=false;
  Nedit1.Text:='0';
  share.btn_bs:=0;
//  QMKLR.Append;
end;

procedure TFrm_fanxiu_write.btncancelClick(Sender: TObject);
begin
  btnadd.Enabled:=true;
  btnmod.Enabled:=true;
  btnsave.Enabled:=false;
  btncancel.Enabled:=false;
  btndelete.Enabled:=true;
  Nedit1.Text:='0';
// qmklr.Cancel;
end;

procedure TFrm_fanxiu_write.btnsaveClick(Sender: TObject);
begin
if (Nedit1.Text='0') or (trim(Nedit1.text)='') then
  begin
    messagebox(handle,pchar('数量不能为0!'),'提示',64);
    Nedit1.SetFocus;
    exit;
  end;
 if share.btn_BS=0 then
 with fanxiu do
 begin
   append;
   FieldValues['name']:=combobox0.Text;
   FieldValues['xh']:=combobox1.Text;
   FieldValues['gg']:=combobox2.Text;
   FieldValues['sl']:=strtoint(Nedit1.Text);
   FieldValues['sheng']:=combobox3.Text;
   FieldValues['shi']:=combobox4.Text;
   FieldValues['bz']:=memo1.Text;
   FieldValues['sj']:=strtodate(datetostr(dateedit1.date));
   Post;
 end;    // with
   if share.btn_BS=1 then
   with fanxiu do
 begin
   edit;
   FieldValues['name']:=combobox0.Text;
   FieldValues['xh']:=combobox1.Text;
   FieldValues['gg']:=combobox2.Text;
   FieldValues['sl']:=strtoint(Nedit1.Text);
   FieldValues['sheng']:=combobox3.Text;
   FieldValues['shi']:=combobox4.Text;
   FieldValues['bz']:=memo1.Text;
   FieldValues['sj']:=strtodate(datetostr(dateedit1.date));
   Post;
 end;    // with  
   btnadd.Enabled:=true;
   btnmod.Enabled:=true;
   btnsave.Enabled:=false;
   btncancel.Enabled:=false;
   btndelete.Enabled:=true;
   Nedit1.Text:='0';
   messagebox(handle,pchar('保存成功!'),'提示',64);
   fanxiu.Refresh;
end;

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

procedure TFrm_fanxiu_write.btnmodClick(Sender: TObject);
begin
//*****************初始化按钮*************
  if fanxiu.IsEmpty then exit;
  btnadd.Enabled:=false;
  btnsave.Enabled:=true;
  btncancel.Enabled:=true;
  btnmod.Enabled:=false;
  btndelete.Enabled:=false;

  combobox0.ItemIndex:=combobox0.items.IndexOf(fanxiu.FieldValues['name']);
  combobox1.ItemIndex:=combobox1.items.IndexOf(fanxiu.FieldValues['xh']);
  combobox2.ItemIndex:=combobox2.items.IndexOf(fanxiu.FieldValues['gg']);
  combobox3.ItemIndex:=combobox3.items.IndexOf(fanxiu.FieldValues['sheng']);
  combobox4.ItemIndex:=combobox4.items.IndexOf(fanxiu.FieldValues['shi']);
  Nedit1.Text:=inttostr(fanxiu.FieldValues['sl']);
  dateedit1.Date:=fanxiu.FieldValues['sj'];
  memo1.Text:=fanxiu.FieldValues['bz'];
  share.btn_BS:=1;
end;

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

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

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

end.