cai_gou_main.~pas

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

unit cai_gou_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, jpeg, DB, DBTables;

type
  Tcai_gou_mai = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N20: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    Image1: TImage;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    Query1: TQuery;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N3: TMenuItem;
    N58: TMenuItem;
    N19: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N32: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    Table1: TTable;
    N68: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N69: TMenuItem;
    N73: TMenuItem;
    N72: TMenuItem;
    N74: TMenuItem;
    Table2: TTable;
    N75: TMenuItem;
    N77: TMenuItem;
    N76: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N9Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N48Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N50Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N58Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N66Click(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N69Click(Sender: TObject);
    procedure N73Click(Sender: TObject);
    procedure N74Click(Sender: TObject);
    procedure N75Click(Sender: TObject);
    procedure N77Click(Sender: TObject);
    procedure N78Click(Sender: TObject);
    procedure N79Click(Sender: TObject);
    procedure N80Click(Sender: TObject);
    procedure N81Click(Sender: TObject);
    procedure N82Click(Sender: TObject);
    procedure N84Click(Sender: TObject);
    procedure N85Click(Sender: TObject);
    procedure N86Click(Sender: TObject);
    procedure N87Click(Sender: TObject);
    procedure N88Click(Sender: TObject);
  private
   isfirst:Boolean;
    { Private declarations }
  public
   ren,ren_no:string; { Public declarations }
  end;

var
  cai_gou_mai: Tcai_gou_mai;

implementation
uses gong_ying_zi,cai_ren,fei_liu,gong_ying_cha,cai_ren_cha,bi_bue_kind,user_zi,cha_qing_gou_dan,yin_cai_report,cai_jue,cha_jue_dan,xing_jia_jue_dan,liu_qing_gou_jue,cai_jia_print,cai_jue_report,
cai_mi_ma,cai_about,qing_gou_wei,xin_jia_wei,ding_gou_wei,qing_pi,ding_pi,cha_xing_jia,cha_ding_gou,dan_ku_chen,shou_report,qing_jue_dan,liu_lan_xing_jue,cai_fu_kuan_report,gong_si_zi_wei,
cai_wei_dao,cai_jin_lai,cai_lai_wei_qi,ji_ben_zi_cha,yu_di_fu_kuan,cai_gou_report_month,fen_shi_report,tong_shi_report,cai_gou_tian_xian,cha_qing_gou_month_jue,cha_cai_gou_month_jue,
bu_men_si_zi,user_liu,qing_gou_rep,user_zhai_xian,qing_gou_shen_he,dan_wei_change,dan_jia_wei,wei_pi_cha,dan_ju_shuo,shou_huo_bu_liang,yi_chang_shou_huo,fu_kuan_fen_lei,edit_record_liu,
shan_chu_cai_liu,tei_gong_ying_shang,dan_jia_bu_chuan,qing_gou_re_ku,shu_ju_zheng_li,shen_ping_ren,cha_dan_jia,cai_gou_gen,
  data_cai;
{$R *.dfm}

procedure Tcai_gou_mai.FormClose(Sender: TObject; var Action: TCloseAction);
begin
table2.Active:=false;
table2.IndexFieldNames:='username';
table2.Active:=true;
if table2.FindKey([ren_no]) then
begin
table2.Edit;
table2.FieldByName('yes_or_no').AsString:='ぃ