xin_jia_wei.pas

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

unit xin_jia_wei;

interface

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

type
  Txin_jia_we = class(TForm)
    DBNavigator1: TDBNavigator;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    SpeedButton4: TSpeedButton;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    Label15: TLabel;
    Label16: TLabel;
    Label10: TLabel;
    DBEdit11: TDBEdit;
    Label6: TLabel;
    SpeedButton6: TSpeedButton;
    GroupBox2: TGroupBox;
    Label9: TLabel;
    Label13: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    DataSource2: TDataSource;
    Label12: TLabel;
    Table3: TTable;
    Table4: TTable;
    Table5: TTable;
    Table6: TTable;
    Table7: TTable;
    Query1: TQuery;
    Query2: TQuery;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBEdit3: TDBEdit;
    DBEdit10: TDBEdit;
    Label18: TLabel;
    t1: TMaskEdit;
    DBEdit1: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit8: TDBEdit;
    Label8: TLabel;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    Label3: TLabel;
    DBNavigator2: TDBNavigator;
    SpeedButton1: TSpeedButton;
    Label17: TLabel;
    ComboBox1: TComboBox;
    Query3: TQuery;
    Query4: TQuery;
    SpeedButton2: TSpeedButton;
    Table1: TTable;
    Label4: TLabel;
    Label7: TLabel;
    DBEdit9: TDBEdit;
    Table2: TTable;
    DBEdit13: TDBEdit;
    SpeedButton3: TSpeedButton;
    Label11: TLabel;
    DBEdit14: TDBEdit;
    Label14: TLabel;
    Label19: TLabel;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    Label20: TLabel;
    DBEdit15: TDBEdit;
    Label21: TLabel;
    t2: TMaskEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBGrid3: TDBGrid;
    Query5: TQuery;
    DataSource3: TDataSource;
    DBComboBox3: TDBComboBox;
    Label22: TLabel;
    DBComboBox4: TDBComboBox;
    Table8: TTable;
    xws3: TStoredProc;
    Query6: TQuery;
    SpeedButton5: TSpeedButton;
    Query7: TQuery;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Table2AfterScroll(DataSet: TDataSet);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Click(Sender: TObject);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton2Click(Sender: TObject);
    procedure t1Exit(Sender: TObject);
    procedure DBEdit2DblClick(Sender: TObject);
    procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure DBEdit7Exit(Sender: TObject);
    procedure DBEdit10Exit(Sender: TObject);
    procedure ComboBox1Exit(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
    procedure DBComboBox1Exit(Sender: TObject);
    procedure DBComboBox2Exit(Sender: TObject);
    procedure t2Exit(Sender: TObject);
    procedure DBComboBox4KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xin_jia_we: Txin_jia_we;

implementation
uses liu_lan_dan_jia, data_cai;
{$R *.dfm}

procedure Txin_jia_we.SpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure Txin_jia_we.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure Txin_jia_we.FormClose(Sender: TObject; var Action: TCloseAction);
begin
query6.Active:=false;
query6.SQL.Clear;
query6.SQL.Add('select * from xing_jia_wei where (gong_shang_name=:mm) or (gong_jia=:nn)');
query6.ParamByName('mm').AsString:='';
query6.ParamByName('nn').AsFloat:=0;
query6.Prepare;
query6.Active:=true;
if query6.FieldByName('xing_jia_no').AsString<>'' then
begin

xws3.Active:=false;
xws3.Prepare;
xws3.ExecProc;
end;
action:=cafree;
end;

procedure Txin_jia_we.Table2AfterScroll(DataSet: TDataSet);
begin
if table2.FieldByName('jiao_ji').AsString<>'' then
t2.Text:=table2.FieldByName('jiao_ji').AsString
else
t2.Text:=datetostr(date);
begin
dbedit13.ReadOnly:=true;
dbedit7.ReadOnly:=true;
dbedit2.ReadOnly:=true;
dbcombobox1.ReadOnly:=true;
dbcombobox2.ReadOnly:=true;
t2.ReadOnly:=true;
end;
end;

procedure Txin_jia_we.SpeedButton6Click(Sender: TObject);
begin
dbedit13.ReadOnly:=false;
dbedit7.ReadOnly:=false;
dbedit2.ReadOnly:=false;
dbcombobox1.ReadOnly:=false;
dbcombobox2.ReadOnly:=false;
t2.ReadOnly:=false;
bitbtn4.Enabled:=true;
dbedit13.SetFocus;
end;

procedure Txin_jia_we.Table1AfterScroll(DataSet: TDataSet);
begin

if table1.FieldByName('xing_jia_date').AsString<>'' then
t1.Text:=table1.FieldByName('xing_jia_date').AsString;

 if table1.FieldByName('qing_gou_no').AsString<>'' then
combobox1.Text:=table1.FieldByName('qing_gou_no').AsString
else
combobox1.Text:='';
begin
dbcombobox3.ReadOnly:=true;
dbedit10.ReadOnly:=true;
dbcombobox4.ReadOnly:=true;
t1.ReadOnly:=true;
 combobox1.Enabled:=false;


end;

end;

procedure Txin_jia_we.t2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
begin
table2.Edit;
table2.FieldByName('jiao_ji').AsDateTime:=strtodate(t2.Text);
bitbtn4.SetFocus;
end;
end;

procedure Txin_jia_we.BitBtn1Click(Sender: TObject);
begin
if dbedit10.Text='' then
begin
showmessage('高基虫絪腹ぃ