ding_gou_wei.~pas

采购管理系统：delphi+sql实现了企业采购自动化作业流程

unit ding_gou_wei;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,StrUtils, ExtCtrls, DBCtrls, ComCtrls, Mask, DB,
  DBTables, Grids, DBGrids, Menus;

type
  Tding_gou_we = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    CheckBox1: TCheckBox;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBComboBox3: TDBComboBox;
    Label12: TLabel;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    GroupBox2: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    DBComboBox6: TDBComboBox;
    DBEdit9: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBNavigator2: TDBNavigator;
    SpeedButton6: TSpeedButton;
    DBEdit8: TDBEdit;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Table1: TTable;
    Table2: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table3: TTable;
    Table4: TTable;
    Table5: TTable;
    Table6: TTable;
    Table7: TTable;
    Query1: TQuery;
    ComboBox1: TComboBox;
    Table8: TTable;
    Table9: TTable;
    ComboBox2: TComboBox;
    Table10: TTable;
    Query2: TQuery;
    Query3: TQuery;
    Query4: TQuery;
    Table11: TTable;
    t1: TMaskEdit;
    MaskEdit1: TMaskEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit15: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    DBEdit18: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    StoredProc1: TStoredProc;
    SpeedButton8: TSpeedButton;
    Query5: TQuery;
    Query6: TQuery;
    DBEdit1: TDBEdit;
    Label23: TLabel;
    DBEdit24: TDBEdit;
    Edit1: TEdit;
    Query7: TQuery;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    DBEdit10: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    Label27: TLabel;
    Label22: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    DBComboBox7: TDBComboBox;
    Label1: TLabel;
    DBEdit19: TDBEdit;
    Query8: TQuery;
    Label28: TLabel;
    Label29: TLabel;
    DBEdit22: TDBEdit;
    Label30: TLabel;
    DBEdit23: TDBEdit;
    Query9: TQuery;
    Label31: TLabel;
    DBEdit27: TDBEdit;
    Table12: TTable;
    DBEdit28: TDBEdit;
    Label32: TLabel;
    ComboBox3: TComboBox;
    SpeedButton10: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton11: TSpeedButton;
    Table13: TTable;
    Table14: TTable;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBGrid3: TDBGrid;
    Query10: TQuery;
    DataSource3: TDataSource;
    DBEdit29: TDBEdit;
    PopupMenu2: TPopupMenu;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Edit3: TEdit;
    Query11: TQuery;
    Table15: TTable;
    xws: TStoredProc;
    DBGrid4: TDBGrid;
    Query12: TQuery;
    DataSource4: TDataSource;
    BitBtn5: TBitBtn;
    DBEdit3: TDBEdit;
    Query13: TQuery;
    DBEdit30: TDBEdit;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    Query14: TQuery;
    Query15: TQuery;
    Query16: TQuery;
    Query17: TQuery;
    Table16: TTable;
    Query18: TQuery;
    Label33: TLabel;
    DBEdit33: TDBEdit;
    Query19: TQuery;
    Table17: TTable;
    Query20: TQuery;
    DBComboBox4: TDBComboBox;
    sp2: TStoredProc;
    Label34: TLabel;
    DBComboBox5: TDBComboBox;
    procedure DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPressox(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit12KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Table2AfterScroll(DataSet: TDataSet);
    procedure SpeedButton6Click(Sender: TObject);
    procedure ComboBox2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton8Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure MaskEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit26KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure t1Exit(Sender: TObject);
    procedure MaskEdit1Exit(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure DBComboBox7KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit22KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit22Exit(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure ComboBox2DblClick(Sender: TObject);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit26Exit(Sender: TObject);
    procedure DBEdit10Exit(Sender: TObject);
    procedure Table1BeforePost(DataSet: TDataSet);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure DBEdit12DblClick(Sender: TObject);
    procedure DBEdit27Exit(Sender: TObject);
    procedure DBEdit27KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit28KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2Exit(Sender: TObject);
    procedure ComboBox3Click(Sender: TObject);
    procedure ComboBox3Exit(Sender: TObject);
    procedure ComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure DBComboBox1Exit(Sender: TObject);
    procedure DBComboBox3Exit(Sender: TObject);
    procedure ComboBox2Exit(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure DBComboBox7Exit(Sender: TObject);
    procedure DBEdit12Exit(Sender: TObject);
    procedure DBEdit28Exit(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure DBEdit29DblClick(Sender: TObject);
    procedure DBEdit29Exit(Sender: TObject);
    procedure DBEdit29KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure DBGrid4DblClick(Sender: TObject);
    procedure DBEdit3DblClick(Sender: TObject);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit30KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit32DblClick(Sender: TObject);
    procedure DBEdit33KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox4Exit(Sender: TObject);
    procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
   xw,xa,nn:real;  xy:real;zzz1,ding,qing_gou,ding_no,gong_name,fu_kuan,bi_bue,cai_ren,han_shui,shui_thing,shen_ren,pi_ren,bei,begin_edit,cai3:string; post_sum:integer;
   xia_dan_date,jiao_qi:Tdatetime; qing_no,wu_no,dan_wei,qing_pi_ren,bei_zhu,wu_name,wu_gui,qing_bu_men,cc,dd,mm,qing_gou1:string; ding_liang,dan_jia:real; { Public declarations }
  end;

var
  ding_gou_we: Tding_gou_we;

implementation
uses xian_qu_jai,qing_gou_zi_liao,dan_ku_chen,qing_pi_liu,gong_ying_liu_lan,ding_dan_re_ku_cha,yin_cai_report,liu_lan_dan_jia,
  data_cai;
{$R *.dfm}



procedure Tding_gou_we.DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
begin
table1.Edit;
table1.FieldByName('ding_gou_date').AsDateTime:=strtodate(t1.Text);
MaskEdit1.SetFocus;
end;
end;
procedure Tding_gou_we.DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
begin
table1.Edit;
table1.FieldByName('jiao_ji').AsDateTime:=strtodate(MaskEdit1.Text);
dbcombobox1.SetFocus;
end;
end;
procedure Tding_gou_we.DBComboBox1KeyPressox(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
dbcombobox2.SetFocus;

end;
procedure Tding_gou_we.DBComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then

dbcombobox3.SetFocus;

end;

procedure Tding_gou_we.DBComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
combobox3.SetFocus;
end;

procedure Tding_gou_we.DBComboBox6KeyPress(Sender: TObject; var Key: Char);
var shan_no:integer;
begin
if key=chr(13) then
begin
query6.Active:=false;
query6.SQL.Clear;
query6.SQL.Add('select * from qing_gou_wei_chong where qing_gou_no=:kk and wu_no=:jj');
query6.ParamByName('kk').AsString:=combobox2.Text;
query6.ParamByName('jj').AsString:=dbcombobox6.Text;
query6.Prepare;
query6.Active:=true;
begin
table2.Edit;
table2.FieldByName('qing_gou_no').AsString:=query6.FieldByName('qing_gou_no').AsString;
 dbedit9.Text:=query6.FieldByName('wu_name').AsString;
  dbedit8.Text:=query6.FieldByName('wu_gui').AsString;
 dbedit19.Text:=query6.FieldByName('dan_wei').AsString;
 table2.FieldByName('dan_wei').AsString:=query6.FieldByName('dan_wei').AsString;
 dbedit19.Text:=query6.FieldByName('qing_shu_liang').AsString;
 if query6.FieldByName('qing_gou_no').AsString='' then
 showmessage('叫潦虫絪腹ぃ