gong_ying_zi.~pas

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

unit gong_ying_zi;

interface

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

type
  Tgong_yi_z = class(TForm)
    Label1: TLabel;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBGrid2: TDBGrid;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    SpeedButton3: TSpeedButton;
    t1: TMaskEdit;
    Table1: TTable;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    Panel1: TPanel;
    Query2: TQuery;
    Query3: TQuery;
    BitBtn1: TBitBtn;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit5: TDBEdit;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit10: TDBEdit;
    DBComboBox1: TDBComboBox;
    Query4: TQuery;
    Label13: TLabel;
    DBComboBox2: TDBComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Table1AfterScroll(DataSet: TDataSet);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit6KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit7KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure t1Exit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBEdit5KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit8KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit10KeyPress(Sender: TObject; var Key: Char);
    procedure DBComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2Exit(Sender: TObject);
    procedure DBComboBox2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
   b_max,f_max,h_max,m_max,j_max,p_max,x_max:string;  { Public declarations }
  end;

var
  gong_yi_z: Tgong_yi_z;

implementation
uses data_cai;
{$R *.dfm}

procedure Tgong_yi_z.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tgong_yi_z.SpeedButton1Click(Sender: TObject);
var id, mm,zz,yy,a,gg,ss1,ss2,hh,xws,gong_shang,kong,kong_date,m1,m2:string; b,c,j,k,x,i,n,p,gong,shang:integer;
begin
if (RadioButton1.Checked=false)and(RadioButton2.Checked=false)and(RadioButton3.Checked=false)and (RadioButton4.Checked=false)and (RadioButton5.Checked=false) and (RadioButton6.Checked=false)and (RadioButton7.Checked=false)then
showmessage('叫匡拒ㄑ莱坝摸