fahuo_write.pas

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

unit Fahuo_Write;

interface

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

type
  TFrm_fahuo_write = class(TForm)
    Temp: TADOQuery;
    fahuo1: TADOQuery;
    DSfahuo1: TDataSource;
    fahuo0: TADOQuery;
    DSfahuo0: TDataSource;
    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;
    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 NEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure DBGridEh2TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    { Private declarations }
    procedure WMSysCommand(var Message:TWMSysCommand);message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Frm_fahuo_write: TFrm_fahuo_write;

implementation

{$R *.dfm}

uses main,share;

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

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

procedure TFrm_fahuo_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(fahuo0,'select * from fahuo order by sj desc','open');
  runsql(fahuo1,'select * from chengpin_SY order by name','open');
  dateEdit1.Date:=date;
  PageControl1.ActivePageIndex:=0;
end;

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

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

procedure TFrm_fahuo_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 fahuo0 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['czy']:=share.czy;
   FieldValues['bz']:=memo1.Text;
   FieldValues['sj']:=strtodate(datetostr(dateedit1.date));
   Post;
 end;    // with  
   runsql(temp,'update chengpin_sy set fhsl=fhsl+'+Nedit1.Text+' where name='''+fahuo0.FieldValues['name']+''' and gg='''
                  +fahuo0.FieldValues['gg']+''' and xh='''+fahuo0.FieldValues['xh']+'''','execsql');
                  
   btnadd.Enabled:=true;
   btnsave.Enabled:=false;
   btncancel.Enabled:=false;
   btndelete.Enabled:=true;
   Nedit1.Text:='0';
   messagebox(handle,pchar('保存成功!'),'提示',64);
   fahuo1.Refresh;
end;

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

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

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

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

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

end.