pin_main.pas

品质管理系统：delphi+sql实现了制造企业在生产过程中对产品质量的控制

unit pin_main;

interface

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

type
  Tpin_mai = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Table1: TTable;
    Query1: TQuery;
    Table2: TTable;
    Image1: TImage;
    N6: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    IQC1: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    QC1: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    QC2: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    QC3: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    AQL1: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    sp1: TStoredProc;
    N7: TMenuItem;
    N12: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N45Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure AQL1Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure QC1Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure QC3Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure IQC1Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure QC2Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
  private
    isfirst:Boolean; { Private declarations }
  public
   user_name_,user_no:string; { Public declarations }
  end;

var
  pin_mai: Tpin_mai;

implementation
uses dmm2,user_wei,edit_pass,about,user_manaage,zhi_cheng_chuan_juan,bu_liang,lai_liao_re_cha,cheng_pin_zhou_yang,gong_shang_cha,
juan_ren,juan_fang,juan_gong_ju,aql,bu_liang_tong_ji,qc_xin_juan,bu_liang_ton,zhi_cheng_cha,zhou_pin_tong,wu_liao_ji_cha,lai_liao_juan_cha,
jin_lai_liao,wei_dai_lai_liao,qc_xin_juan_cha,ding_dan_cha,iqc_lai_liao_report,zhi_cheng_report,qc_report,gong_shang_wu_tong,gong_ying_shang_pai,
shan_chu_liu_lan,cheng_pin_tong,zhi_cheng_juan_report,lai_juan;
{$R *.dfm}

procedure Tpin_mai.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   application.Terminate;
end;

procedure Tpin_mai.FormCreate(Sender: TObject);
begin
 isfirst:=False;
end;


procedure Tpin_mai.N46Click(Sender: TObject);
begin
application.Terminate;
end;

procedure Tpin_mai.N38Click(Sender: TObject);
var user_we:Tuser_we;
begin
user_we:=Tuser_we.Create(self);
user_we.ShowModal;
end;

procedure Tpin_mai.N39Click(Sender: TObject);
var edit_pas:Tedit_pas;
begin
edit_pas:=Tedit_pas.Create(self);
edit_pas.ShowModal;
end;

procedure Tpin_mai.N45Click(Sender: TObject);
var abou:Tabou;
begin
abou:=Tabou.Create(self);
abou.ShowModal;
end;

procedure Tpin_mai.N43Click(Sender: TObject);
begin
user_manaag:=Tuser_manaag.Create(self);
user_manaag.Show;
end;

procedure Tpin_mai.FormActivate(Sender: TObject);
begin
 if isfirst then System.exit;

 isfirst:=True;

query1.Active:=false;
query1.SQL.Clear;
query1.SQL.Add('select *  from pin_gan_manaage where  user_name=:ll');
query1.ParamByName('ll').AsString:=user_name_;
query1.Prepare;
query1.Active:=true;
if  query1.FieldByName('sheng_lai_juan').AsString='琌' then
n6.Enabled:=true
else
n6.Enabled:=false;

if  query1.FieldByName('zhi_cheng_juan').AsString='琌' then
N18.Enabled:=true
else
N18.Enabled:=false;
if  query1.FieldByName('zhi_bu_liang').AsString='琌' then
N20.Enabled:=true
else
N20.Enabled:=false;
if  query1.FieldByName('zhi_bu_liang').AsString='琌' then
N21.Enabled:=true
else
N21.Enabled:=false;
if  query1.FieldByName('QC_qin_juan').AsString='琌' then
QC1.Enabled:=true
else
QC1.Enabled:=false;

if  query1.FieldByName('cheng_juan_tong').AsString='琌' then
N31.Enabled:=true
else
N31.Enabled:=false;
if  query1.FieldByName('user_new').AsString='琌' then
N38.Enabled:=true
else
N38.Enabled:=false;
if  query1.FieldByName('pass_edit').AsString='琌' then
N39.Enabled:=true
else
N39.Enabled:=false;
if  query1.FieldByName('pass_edit').AsString='琌' then
AQL1.Enabled:=true
else
AQL1.Enabled:=false;

if  query1.FieldByName('pass_edit').AsString='琌' then
AQL1.Enabled:=true
else
AQL1.Enabled:=false;

if  query1.FieldByName('zi_ding').AsString='琌' then
N40.Enabled:=true
else
N40.Enabled:=false;
if  query1.FieldByName('zi_ding').AsString='琌' then
N41.Enabled:=true
else
N41.Enabled:=false;
if  query1.FieldByName('zi_ding').AsString='琌' then
N42.Enabled:=true
else
N42.Enabled:=false;

if  query1.FieldByName('zi_ding').AsString='琌' then
N44.Enabled:=true
else
N44.Enabled:=false;
if  query1.FieldByName('user_manaage').AsString='琌' then
N43.Enabled:=true
else
N43.Enabled:=false;




end;

procedure Tpin_mai.N18Click(Sender: TObject);
begin
zhi_cheng_chuan_jua:=Tzhi_cheng_chuan_jua.Create(self);
zhi_cheng_chuan_jua.label16.Caption:=user_name_;
zhi_cheng_chuan_jua.Show;
end;

procedure Tpin_mai.N40Click(Sender: TObject);
var bu_lian:Tbu_lian;
begin
bu_lian:=Tbu_lian.Create(self);
bu_lian.Label5.Caption:=user_name_;
bu_lian.Show;
end;

procedure Tpin_mai.N44Click(Sender: TObject);
var juan_re:Tjuan_re;
begin
juan_re:=Tjuan_re.Create(self);
juan_re.Label5.Caption:=user_name_;
juan_re.Show;
end;

procedure Tpin_mai.N42Click(Sender: TObject);
var juan_fan:Tjuan_fan;
begin
juan_fan:=Tjuan_fan.Create(self);
juan_fan.Label5.Caption:=user_name_;
juan_fan.Show;
end;

procedure Tpin_mai.N41Click(Sender: TObject);
var juan_gong_j:Tjuan_gong_j;
begin
juan_gong_j:=Tjuan_gong_j.Create(self);
juan_gong_j.Label5.Caption:=user_name_;
juan_gong_j.Show;

end;

procedure Tpin_mai.AQL1Click(Sender: TObject);
begin
aq:=Taq.Create(self);
aq.Show;
end;

procedure Tpin_mai.N20Click(Sender: TObject);
var bu_liang_tong_j:Tbu_liang_tong_j;
begin
bu_liang_tong_j:=Tbu_liang_tong_j.Create(self);
bu_liang_tong_j.Label4.Caption:=user_name_;
bu_liang_tong_j.ShowModal;
end;

procedure Tpin_mai.QC1Click(Sender: TObject);
var qc_xin_jua:Tqc_xin_jua;
begin
qc_xin_jua:=Tqc_xin_jua.Create(self);
qc_xin_jua.Label17.Caption:=user_name_;
qc_xin_jua.Show;
end;

procedure Tpin_mai.N26Click(Sender: TObject);
var bu_liang_to:Tbu_liang_to;
begin
bu_liang_to:=Tbu_liang_to.Create(self);
bu_liang_to.Label2.Caption:=user_name_;
bu_liang_to.Show;
end;

procedure Tpin_mai.N28Click(Sender: TObject);
var zhi_cheng_ch:Tzhi_cheng_ch;
begin
zhi_cheng_ch:=Tzhi_cheng_ch.Create(self);
zhi_cheng_ch.Show;
end;

procedure Tpin_mai.N6Click(Sender: TObject);
begin
lai_jua:=Tlai_jua.Create(application);
lai_jua.label1.Caption:=user_name_;
lai_jua.Show;
end;

procedure Tpin_mai.N21Click(Sender: TObject);
var zhou_pin_ton:Tzhou_pin_ton;
begin
zhou_pin_ton:=Tzhou_pin_ton.Create(self);
zhou_pin_ton.Label3.Caption:=user_name_;
zhou_pin_ton.Show;
end;

procedure Tpin_mai.N29Click(Sender: TObject);
begin
lai_liao_re_ch:=Tlai_liao_re_ch.Create(self);
lai_liao_re_ch.Label3.Caption:=user_name_;
lai_liao_re_ch.Show;
end;

procedure Tpin_mai.N30Click(Sender: TObject);
begin
cheng_pin_zhou_yan:=Tcheng_pin_zhou_yan.Create(self);
cheng_pin_zhou_yan.Label16.Caption:=user_name_;
cheng_pin_zhou_yan.Show;
end;

procedure Tpin_mai.N16Click(Sender: TObject);
var gong_shang_ch:Tgong_shang_ch;
begin
gong_shang_ch:=Tgong_shang_ch.Create(self);
gong_shang_ch.Show;
end;


procedure Tpin_mai.N15Click(Sender: TObject);
var wu_liao_ji_ch:Twu_liao_ji_ch;
begin
wu_liao_ji_ch:=Twu_liao_ji_ch.Create(self);
wu_liao_ji_ch.Show;
end;

procedure Tpin_mai.N17Click(Sender: TObject);
var lai_liao_juan_ch:Tlai_liao_juan_ch;
begin
lai_liao_juan_ch:=Tlai_liao_juan_ch.Create(self);
lai_liao_juan_ch.Show;
end;

procedure Tpin_mai.N14Click(Sender: TObject);
var jin_lai_lia:Tjin_lai_lia;
begin
jin_lai_lia:=Tjin_lai_lia.Create(self);
jin_lai_lia.Query1.Active:=false;
jin_lai_lia.Query1.SQL.Clear;
jin_lai_lia.Query1.SQL.Add('select * from today_lai where (jiao_ji=:ll) and (yes_or_no=:kk) and (yes_or_no_nian_shou=:pp)');
jin_lai_lia.Query1.ParamByName('ll').AsDateTime:=date;
jin_lai_lia.Query1.ParamByName('kk').AsString:='琌';
jin_lai_lia.Query1.ParamByName('pp').AsString:='