unit2.pas

材料管理系统

  //edit3.Text:=MonthStr(date());
end;

procedure Tfrmmain.Button9Click(Sender: TObject);
begin
  Frmcailiaoruku := TFrmcailiaoruku.Create(nil);
  Frmcailiaoruku.Caption := '[' + clclass + ']' + ' 入库登记';
  Frmcailiaoruku.ShowModal;
  FreeAndNil(Frmcailiaoruku);
end;

procedure Tfrmmain.Button10Click(Sender: TObject);
//var
//  Query1:TADOQuery;
begin
  Frmcailiaochuku := Tfrmcailiaochuku.Create(nil);
//  Query1 := TADOQuery.Create(nil);
//  Query1.ConnectionString := Frmmain.ADOConnection1.ConnectionString;
//  with Query1 do
//  begin
//    close;
//    SQL.Clear;
//    showmessage(clclass);
//    SQL.Add('select * from cailiao where class='''+trim(clclass)+''' and cailiaoming='''+trim(Frmcailiaochuku.Combobox2.Text)+'''');
//    open;
//  end;
//  Frmcailiaochuku.Edit1.Text := Query1.FieldByName('danwei').AsString;
//  Frmcailiaochuku.Edit2.Text := Query1.FieldByName('danjia').asstring;
//showmessage(Frmcailiaochuku.Edit1.Text);
//showmessage(Frmcailiaochuku.Edit2.Text);
//  FreeAndNil(Query1);
  Frmcailiaochuku.Caption := '[' + clclass + ']' + ' 出库登记';
  Frmcailiaochuku.ShowModal;
  FreeAndNil(Frmcailiaochuku);
end;

procedure Tfrmmain.TabSheet6Show(Sender: TObject);
begin
  if NotRight = True then
  begin
    Button5.Enabled := False;
  end;
  UpDown2.Position := MonthOfTheYear(Date());
  UpDown4.Position := YearOf(Date());
  clclass := '机电对销';
  datasource1.DataSet := queryjddx;
  queryjddx.Active := true;
end;

procedure Tfrmmain.Button7Click(Sender: TObject);
begin
  if trim(combobox3.Text)='' then
  begin
    //messagedlg('请输入查询条件!',mtinformation,[MBOK],0);
    queryycldj.Close;
    queryycldj.SQL.Clear;
    queryycldj.SQL.Add('select * from cailiao where class= '''+ trim(combobox2.Text)+'''');
    queryycldj.Open;
  end
  else
  begin
    queryycldj.Close;
    queryycldj.SQL.Clear;
    queryycldj.SQL.Add('select * from cailiao where ');
    queryycldj.SQL.Add('class='''+trim(combobox2.Text)+''' and ');
    queryycldj.SQL.Add('cailiaoming like''%'+trim(combobox3.Text)+'%''');
    queryycldj.Open;
    if queryycldj.eof then
      begin
        application.MessageBox('您所查询的材料不存在!','查询结果',mb_ok or MB_ICONINFORMATION);
        exit;
      end;

  end;
end;

procedure Tfrmmain.ComboBox2Click(Sender: TObject);
var
  i:integer;
//  Query1:TADOQuery;
begin
  combobox3.Clear;
  combobox3.Items.Clear;
//  Query1 := TADOQuery.Create(nil);
//  Query1.ConnectionString := ADOConnection1.ConnectionString;
  queryycldj.close;
  queryycldj.sql.clear;
  queryycldj.SQL.Add('select * from cailiao where class='''+ trim(combobox2.Text)+'''');
  queryycldj.Open;
  if queryycldj.RecordCount>0 then     //取得不同类别中的材料名
    for i:=0 to queryycldj.RecordCount-1 do
    begin
      combobox3.Items.Add(trim(queryycldj.fieldbyname('cailiaoming').AsString));
      queryycldj.Next;
    end;
    Combobox3.ItemIndex := -1;
//  FreeAndNil(Query1);
end;

procedure Tfrmmain.ComboBox2DropDown(Sender: TObject);
//var
//  Query1 : TADOQuery;
begin
//  combobox2.Clear;
//  combobox2.Items.Clear;
//  Query1 := TADOQuery.Create(NIl);
//  Query1.ConnectionString := ADOConnection1.ConnectionString;
//  Query1.Close;
//  Query1.SQL.Clear;         //cailiaoming,danwei,danjia,riqi
//  Query1.SQL.add('select distinct class from class');
//  Query1.open;
//  while not Query1.Eof do         //取得材料类别
//    begin
//      combobox2.Items.Add(trim(Query1.FieldByName('class').AsString));
//      Query1.Next;
//    end;
//    if combobox2.Items.Count>0 then
//      combobox2.ItemIndex:=-1;
//  FreeAndNil(Query1);
end;

procedure Tfrmmain.DBGrid1CellClick(Column: TColumn);
begin
  if NotRight = False then
  begin
    button2.Enabled:=true;
    button3.Enabled:=true;
  end;
end;

procedure Tfrmmain.DBGrid1DblClick(Sender: TObject);
//var
//  Query1:TADOQuery;
begin
  if NotRight = True then
    exit;
  if dbgrid1.DataSource.DataSet.RecordCount <=0 then
    exit;
  Frmxiugaicailiao := TFrmxiugaicailiao.Create(nil);
//  Query1 := TADOQuery.Create(nil);
//  Query1.ConnectionString := ADOConnection1.ConnectionString;
  frmxiugaicailiao.edit1.Text := Queryycldj.FieldByName('cailiaoming').AsString;
  frmxiugaicailiao.edit2.Text := Queryycldj.fieldbyname('guigexinghao').AsString;
  frmxiugaicailiao.edit3.Text := Queryycldj.fieldbyname('danwei').AsString;
  frmxiugaicailiao.edit4.Text := Queryycldj.fieldbyname('danjia').AsString;
  frmxiugaicailiao.DateTimePicker1.Date := Queryycldj.fieldbyname('riqi').asdatetime;
  cailiaoming:=frmxiugaicailiao.Edit1.Text;
  cailiaoclass:=Queryycldj.fieldbyname('class').AsString;
  Frmxiugaicailiao.ShowModal;
  FreeAndNil(Frmxiugaicailiao);
  //showmessage(cailiaoming+cailiaoclass);
//  FreeAndNil(Query1);
end;

//procedure Tfrmmain.N1Click(Sender: TObject);
//begin
//  if dbgrid1.SelectedRows.Count >0 then
//    if application.MessageBox('是否删除选中的记录?', '删除', MB_ICONQUESTION or MB_OKCANCEL OR MB_DEFBUTTON2) =IDOK then
//    begin
//      dbgrid1.SelectedRows.Delete;
//      dbgrid1.SelectedRows.Clear;
//    end;
//
//end;

//procedure Tfrmmain.N3Click(Sender: TObject);
//var
//    Query1:TADOQuery;
//begin
//  Query1 :=TADOQuery.Create(nil);
//  Query1.Connection := ADOConnection1;
//  Frmxiugaicailiao := TFrmxiugaicailiao.Create(nil);
//  Query1.Close;
//  Query1.SQL.Clear;
//  Query1.SQL.Add('select * from cailiao');
//  Query1.Open;
//  frmxiugaicailiao.edit1.Text := Query1.fieldbyname('cailiaoming').AsString;
//  frmxiugaicailiao.edit2.Text := Query1.fieldbyname('guigexinghao').AsString;
//  frmxiugaicailiao.edit3.Text := Query1.fieldbyname('danwei').AsString;
//  frmxiugaicailiao.edit4.Text := Query1.fieldbyname('danjia').AsString;
//  frmxiugaicailiao.DateTimePicker1.Date := Query1.fieldbyname('riqi').asdatetime;
//  Frmxiugaicailiao.ShowModal;
//  FreeAndNil(Frmxiugaicailiao);
//  FreeAndNil(Query1);
//end;




//procedure Tfrmmain.FormCreate(Sender: TObject);
//begin
//if NotRight = True  then
//begin
//  ChangPassword.Enabled := False;
//  //PageControl1.ta
//end;
//end;

procedure Tfrmmain.FormShow(Sender: TObject);
begin
if NotRight = True  then
begin
  ChangPassword.Enabled := False;
  N4.Enabled := False;
  //PageControl1.ta
end;
end;



procedure Tfrmmain.TabSheet4Show(Sender: TObject);
begin
  if NotRight = TRUE then
  begin
    Button19.Enabled := False;
    Button20.Enabled := False;
    ChangInPut.Visible  := False;
    ChangOutPut.Visible := False;
  end;
  clclass := '稀贵金属';
//  DateTimePicker5.DateTime := Date;
//  DateTimePicker6.DateTime := Date;
  frmmain.DataSource1.DataSet := queryxgjs;
  frmmain.queryxgjs.Active := true;
  DBGrid6.Refresh;
//  showmessage(clclass);
end;

procedure Tfrmmain.TabSheet7Show(Sender: TObject);
begin
  if NotRight = TRUE then
  begin
    Button23.Enabled := False;
    Button24.Enabled := False;
    ChangInPut.Visible  := False;
    ChangOutPut.Visible := False;
  end;
  clclass := '化学试剂';
//  DateTimePicker7.DateTime := Date;
//  DateTimePicker8.DateTime := Date;
  frmmain.DataSource1.DataSet := queryhxsj;
  frmmain.queryhxsj.Active := true;
  DBGrid7.Refresh;
//  showmessage(clclass);
end;

procedure Tfrmmain.TabSheet8Show(Sender: TObject);
begin
  if NotRight = TRUE then
  begin
    Button27.Enabled := False;
    Button28.Enabled := False;
    ChangInPut.Visible  := False;
    ChangOutPut.Visible := False;
  end;
  clclass := '低耗';
//  DateTimePicker9.DateTime := Date;
//  DateTimePicker10.DateTime := Date;
  frmmain.DataSource1.DataSet := querydh;
  frmmain.querydh.Active := true;
  DBGrid8.Refresh;
  //  showmessage(clclass);
end;

procedure Tfrmmain.TabSheet9Show(Sender: TObject);
begin
  if NotRight = TRUE then
  begin
    Button31.Enabled := False;
    Button32.Enabled := False;
    ChangInPut.Visible  := False;
    ChangOutPut.Visible := False;
  end;
  clclass := '机电';
//  DateTimePicker11.DateTime := Date;
//  DateTimePicker12.DateTime := Date;
  frmmain.DataSource1.DataSet := queryjd;
  frmmain.queryjd.Active := true;
  DBGrid9.Repaint;
//  showmessage(clclass);
end;

procedure Tfrmmain.TabSheet3Show(Sender: TObject);
begin
  if NotRight = TRUE then
  begin
    Button15.Enabled := False;
    Button16.Enabled := False;
    ChangInPut.Visible  := False;
    ChangOutPut.Visible := False;
  end;
  clclass := '劳保';
//  DateTimePicker3.DateTime := Date;
//  DateTimePicker4.DateTime := Date;
  frmmain.DataSource1.DataSet := querylb;
  frmmain.querylb.Active := true;
  DBGrid5.Refresh;
//  showmessage(clclass);
end;

procedure Tfrmmain.Button6Click(Sender: TObject);
begin
  FrmDX := TFrmDX.Create(NIL);
  if clclass = '低耗对销' then
  begin
    FrmDx.QRLabel10.Caption := Edit1.Text+'年'+IntToStr(StrToInt(Edit3.Text)-1)+'月'+'25日库存';
    FrmDX.QRLabel22.Caption := Edit1.Text+'年'+Edit3.Text+'月'+'24日结存';
    FrmDX.ADOQuery1.SQL.Text := 'select * from duixiao where class='''+clclass+''' and nian='+Edit1.Text+
      ' and yue='+Edit3.Text;
    FrmDX.ADOQuery1.Open;
    if FrmDX.ADOQuery1.Eof then
    begin
      Application.MessageBox('不存在记录!','提示',MB_OK);
      Exit;
    end;
  end;
  FrmDX.QuickRep1.PreviewModal;
  FreeAndNil(FrmDx);
end;

procedure Tfrmmain.ComboBox1Click(Sender: TObject);
begin
  if ComboBox1.Text = '年' then
  begin
    Edit11.Visible  := False;
    Label21.Visible := False;
    Edit5.Visible   := True;
    Label20.Visible := True;
    DateTimePicker1.Visible := FALSE;
    Label32.Visible := FALSE;
    DateTimePicker2.Visible := FALSE;
  end;
  if ComboBox1.Text = '月' then
  begin
    Edit11.Visible  := True;
    Label21.Visible := True;
    Label21.Caption :='月';
    Edit5.Visible   := True;
    Label20.Visible := True;
    DateTimePicker1.Visible := FALSE;
    Label32.Visible := FALSE;
    DateTimePicker2.Visible := FALSE;
  end;
  if Combobox1.Text = '周' then
  begin
    DateTimePicker1.Visible  := True;
    Label32.Visible := True;
    DateTimePicker2.Visible  := TRUE;
    DateTimePicker1.DateTime := Date;
    DateTimePicker2.DateTime := Date;
    Edit5.Visible   := FALSE;
    Edit11.Visible  := FALSE;
    Label20.Visible := False;
    Label21.Visible := False;
  end;
end;

procedure Tfrmmain.ComboBox4Click(Sender: TObject);
begin
  if ComboBox4.Text = '年' then
  begin
    Edit12.Visible  := False;
    Label23.Visible := False;
    Edit6.Visible   := True;
    Label22.Visible := True;
    DateTimePicker3.Visible := FALSE;
    Label33.Visible := FALSE;
    DateTimePicker4.Visible := FALSE;
  end;
  if ComboBox4.Text = '月' then
  begin
    Edit6.Visible   := True;
    Label22.Visible := True;
    Label23.Visible := True;
    Label23.Caption :='月';
    Edit12.Visible  := True;
    DateTimePicker3.Visible := FALSE;
    Label33.Visible := FALSE;
    DateTimePicker4.Visible := FALSE;
  end;
  if Combobox4.Text = '周' then
  begin
    DateTimePicker3.Visible  := True;
    Label33.Visible := True;
    DateTimePicker4.Visible  := TRUE;
    DateTimePicker3.DateTime := Date;
    DateTimePicker4.DateTime := Date;
    Edit6.Visible   := FALSE;
    Edit12.Visible  := FALSE;
    Label22.Visible := False;
    Label23.Visible := False;
  end;
end;

procedure Tfrmmain.ComboBox6Click(Sender: TObject);