qing_gou_wei.pas

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

unit qing_gou_wei;

interface

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

type
  Tqing_gou_we = class(TForm)
    DBEdit1: TDBEdit;
    DBComboBox1: TDBComboBox;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label11: TLabel;
    Label16: TLabel;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit11: TDBEdit;
    DBNavigator2: TDBNavigator;
    SpeedButton7: TSpeedButton;
    Label4: TLabel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table3: TTable;
    Table4: TTable;
    DBEdit5: TDBEdit;
    Table5: TTable;
    Label17: TLabel;
    DBEdit12: TDBEdit;
    Table6: TTable;
    Table7: TTable;
    Table2: TTable;
    Table8: TTable;
    MaskEdit1: TMaskEdit;
    DBEdit3: TDBEdit;
    Label12: TLabel;
    DBEdit7: TDBEdit;
    Label13: TLabel;
    Label14: TLabel;
    Query1: TQuery;
    sp1: TStoredProc;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Edit1: TEdit;
    Label15: TLabel;
    Label18: TLabel;
    Query2: TQuery;
    Query3: TQuery;
    Label19: TLabel;
    Label20: TLabel;
    DBEdit8: TDBEdit;
    Label21: TLabel;
    DBEdit9: TDBEdit;
    SpeedButton8: TSpeedButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    Label22: TLabel;
    DBEdit10: TDBEdit;
    DBEdit13: TDBEdit;
    Table9: TTable;
    SpeedButton11: TSpeedButton;
    ComboBox1: TComboBox;
    SpeedButton12: TSpeedButton;
    Table10: TTable;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    Query4: TQuery;
    Table11: TTable;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    PopupMenu2: TPopupMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    xws1: TStoredProc;
    Query5: TQuery;
    Query6: TQuery;
    Query7: TQuery;
    Table12: TTable;
    Query8: TQuery;
    sp2: TStoredProc;
    Query9: TQuery;
    N5: TMenuItem;
    DBComboBox2: TDBComboBox;
    Table13: TTable;
    DBEdit14: TDBEdit;
    Query10: TQuery;
    Label23: TLabel;
    DBComboBox3: TDBComboBox;
    Label24: TLabel;
    dbedit15: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure DateTimePicker1KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DateTimePicker2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
    procedure Table2AfterScroll(DataSet: TDataSet);
    procedure SpeedButton7Click(Sender: TObject);

    procedure m_lLogin(Database: TDatabase; LoginParams: TStrings);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBComboBox5KeyPress(Sender: TObject; var Key: Char);
    procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure DBEdit7Exit(Sender: TObject);
    procedure MaskEdit1Exit(Sender: TObject);
    procedure DBEdit13KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit13Exit(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure SpeedButton11Click(Sender: TObject);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Exit(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure DBEdit10Exit(Sender: TObject);
    procedure DBComboBox1Exit(Sender: TObject);
    procedure DBEdit6Exit(Sender: TObject);
    procedure DBEdit11Exit(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox2Exit(Sender: TObject);
    procedure DBComboBox3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit15KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
   xx_jia,qq,begin_edit,qing_no,qing_ren,qing_bumen,shen_ren,wu_hao,wu_ming,wu_gi,dan_we,qing_why,bei:string;qing_date,xu_date:Tdatetime;qing_liang:real; { Public declarations }
  end;

var
  qing_gou_we: Tqing_gou_we;

implementation
 uses xian_qu_jai,chuan_ci_zi,qing_ku_chen_cha,wu_select,qing_gou_dan,
  data_cai;
{$R *.dfm}

procedure Tqing_gou_we.FormClose(Sender: TObject;
  var Action: TCloseAction);
var xx:string;
begin
query5.Active:=false;
query5.SQL.Clear;
query5.SQL.Add('select * from qing_gou_wei_chong where (wu_no=:mm) or (qing_shu_liang=:nn)');
query5.ParamByName('mm').AsString:='';
query5.ParamByName('nn').AsFloat:=0;
query5.Prepare;
query5.Active:=true;
if query5.FieldByName('qing_gou_no').AsString<>'' then
begin
xws1.Active:=false;
xws1.Prepare;
xws1.ExecProc;
end;
//
 if table1.IsEmpty=false then
 begin
xx:=dbedit2.Text;
query7.Active:=false;
query7.SQL.Clear;
query7.SQL.Add('select * from qing_gou_wei_chong where qing_gou_no=:mm');
query7.ParamByName('mm').AsString:=xx;
query7.Prepare;
query7.Active:=true;
if query7.FieldByName('qing_gou_no').AsString='' then
table1.Delete;
end;

 action:=cafree;
 qing_gou_we:=nil;
end;

procedure Tqing_gou_we.FormCreate(Sender: TObject);
begin
Table1.Open;
Table2.Open;
Table3.Open;
Table4.Open;
Table5.Open;
Table6.Open;
Table7.Open;
Table9.Open;
Table10.Open;
Table11.Open;
Table12.Open;
Table13.Open;

while not Table3.Eof do begin
DBComboBox1.Items.Add(Table3.FieldByName('bu_men_name').AsString);
DBComboBox3.Items.Add(Table3.FieldByName('bu_men_name').AsString);
Table3.Next;
end;
begin_edit:='