📄 unit2.pas

📁 材料管理系统
💻 PAS
📖 第 1 页 / 共 5 页
字号:
begin
  if ComboBox6.Text = '年' then
  begin
    Edit8.Visible   := True;
    Label24.Visible := True;
    Edit13.Visible  := False;
    Label25.Visible := False;
    DateTimePicker5.Visible := False;
    Label34.Visible := False;
    DateTimePicker6.Visible := False;
  end;
  if ComboBox6.Text = '月' then
  begin
    Edit8.Visible   := True;
    Label24.Visible := True;
    Edit13.Visible  := True;
    Label25.Visible := True;
    Label25.Caption :='月';
    DateTimePicker5.Visible := False;
    Label34.Visible := False;
    DateTimePicker6.Visible := False;
  end;
  if Combobox6.Text = '周' then
  begin
    Edit8.Visible   := False;
    Label24.Visible := False;
    Edit13.Visible  := False;
    Label25.Visible := False;
    DateTimePicker5.Visible := True;
    Label34.Visible := True;
    DateTimePicker6.Visible  := True;
    DateTimePicker5.DateTime := Date;
    DateTimePicker6.DateTime := Date;
  end;
end;

procedure Tfrmmain.ComboBox5Click(Sender: TObject);
begin
  if ComboBox5.Text = '年' then
  begin
    Edit7.Visible   := True;
    Label26.Visible := True;
    Edit14.Visible  := False;
    Label27.Visible := False;
    DateTimePicker7.Visible := False;
    Label35.Visible := False;
    DateTimePicker8.Visible := False;
  end;
  if ComboBox5.Text = '月' then
  begin
    Edit7.Visible   := True;
    Label26.Visible := True;
    Edit14.Visible  := True;
    Label27.Visible := True;
    Label27.Caption :='月';
    DateTimePicker7.Visible := False;
    Label35.Visible := False;
    DateTimePicker8.Visible := False;
  end;
  if Combobox5.Text = '周' then
  begin
    Edit7.Visible   := False;
    Label26.Visible := False;
    Edit14.Visible  := False;
    Label27.Visible := False;
    DateTimePicker7.Visible  := True;
    Label35.Visible := True;
    DateTimePicker8.Visible  := True;
    DateTimePicker7.DateTime := Date;
    DateTimePicker8.DateTime := Date;
  end;
end;

procedure Tfrmmain.ComboBox7Click(Sender: TObject);
begin
  if ComboBox7.Text = '年' then
  begin
    DBGridColumnsWeekValues(DBGrid2);
    Edit9.Visible   := True;
    Label28.Visible := True;
    Edit15.Visible  := False;
    Label29.Visible := False;
    DateTimePicker9.Visible := False;
    Label36.Visible := False;
    DateTimePicker10.Visible := False;
  end;
  if ComboBox7.Text = '月' then
  begin
    Edit9.Visible   := True;
    Label28.Visible := True;
    Edit15.Visible  := True;
    Label29.Visible := True;
    Label29.Caption :='月';
    DateTimePicker9.Visible  := False;
    Label36.Visible := False;
    DateTimePicker10.Visible := False;
  end;
  if Combobox7.Text = '周' then
  begin
    Edit9.Visible   := False;
    Label28.Visible := False;
    Edit15.Visible  := False;
    Label29.Visible := False;
    DateTimePicker9.Visible   := True;
    Label36.Visible := True;
    DateTimePicker10.Visible  := True;
    DateTimePicker9.DateTime  := Date;
    DateTimePicker10.DateTime := Date;
  end;
end;

procedure Tfrmmain.ComboBox8Click(Sender: TObject);
begin
  if ComboBox8.Text = '年' then
  begin
    Edit10.Visible  := True;
    Label30.Visible := True;
    Edit16.Visible  := False;
    Label31.Visible := False;
    DateTimePicker11.Visible := False;
    Label37.Visible := False;
    DateTimePicker12.Visible := False;
  end;
  if ComboBox8.Text = '月' then
  begin
    Edit10.Visible  := True;
    Label30.Visible := True;
    Edit16.Visible  := True;
    Label31.Visible := True;
    Label31.Caption :='月';
    DateTimePicker11.Visible := False;
    Label37.Visible := False;
    DateTimePicker12.Visible := False;
  end;
  if Combobox8.Text = '周' then
  begin
    Edit10.Visible  := False;
    Label30.Visible := False;
    Edit16.Visible  := False;
    Label31.Visible := False;
    DateTimePicker11.Visible  := True;
    Label37.Visible := True;
    DateTimePicker12.Visible  := True;
    DateTimePicker11.DateTime := Date;
    DateTimePicker12.DateTime := Date;
  end;
end;

procedure Tfrmmain.Button33Click(Sender: TObject);
begin
  Querydhdx.Close;
  Querydhdx.SQL.Clear;
  Querydhdx.SQL.Add('Select * from duixiao where nian='+Edit1.Text+' and yue='+Edit3.Text+' and class='''+'低耗对销'+'''');
  Querydhdx.Prepared;
  Querydhdx.Open;
  if Querydhdx.Eof then
    Application.MessageBox('没有您所搜索的记录,请确认日期.','提示',MB_OK);
end;

procedure Tfrmmain.Button34Click(Sender: TObject);
begin
  Queryjddx.Close;
  Queryjddx.SQL.Clear;
  Queryjddx.SQL.Add('Select * from duixiao where nian='+Edit2.Text+' and yue='+Edit4.Text+' and class='''+'机电对销'+'''');
  Queryjddx.Prepared;
  Queryjddx.Open;
  if Queryjddx.Eof then
    Application.MessageBox('没有您所搜索的记录,请确认日期.','提示',MB_OK);
end;

procedure Tfrmmain.Button11Click(Sender: TObject);
begin
  FrmDX := TFrmDX.Create(NIL);
  if clclass = '机电对销' then
  begin
    FrmDx.QRLabel10.Caption  := Edit2.Text+'年'+IntToStr(StrToInt(Edit4.Text)-1)+'月'+'25日库存';
    FrmDX.QRLabel22.Caption  := Edit2.Text+'年'+Edit4.Text+'月'+'24日结存';
    FrmDX.ADOQuery1.SQL.Text := 'select * from duixiao where class='''+clclass+''' and nian='+Edit2.Text+
      ' and yue='+Edit4.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.Button12Click(Sender: TObject);
begin
  FrmYMRep := TFrmYMRep.Create(NIL);
  if (ComboBox1.Text = '') and (ComboBox1.Text <> '周') then
  begin
    Application.MessageBox('请选择查询条件。','提示',MB_OK or MB_ICONINFORMATION);
    Exit;
  end;
  if (Trim(Edit5.Text) = '') and (ComboBox1.Text <>'周') then
  begin
    Application.MessageBox('请输入年份','提示',MB_OK);
    Exit;
  end;
  if ComboBox1.Text = '年' then
  begin
    FrmYMRep.QRLabel10.Caption  := IntToStr(StrToInt(Edit5.Text)-1)+'年'+'12月25日库存';
    FrmYMRep.QRLabel19.Caption  := Edit5.Text+'年'+'12月24日结存';
    FrmYMRep.QRLabel13.Caption  := '本年入库';
    FrmYMRep.QRLabel16.Caption  := '本年出库';
    FrmYMRep.ADOQuery1.SQL.Text :='select * from YearHaoCai where class='''+clclass+
      ''' and nian='+Edit5.Text;
    FrmYMRep.ADOQuery1.Open;
    if FrmYMRep.ADOQuery1.Eof then
    begin
      Application.MessageBox('不存在本年度报表','提示',MB_OK);
      Exit;
    end;
    FrmYMRep.QuickRep1.PreviewModal;
  end;

  if ComboBox1.Text = '月' then
  begin
    if Trim(Edit11.Text) = '' then
      Exit;
    if (Edit11.Text = '') or (StrToInt(Edit11.Text) > 12)or (StrToInt(Edit11.Text) = 0) then
    begin
      Application.MessageBox('请输入月份','提示',MB_OK);
      Exit;
    end;
    if StrToInt(Edit11.Text) <= 1 then
      FrmYMRep.QRLabel10.Caption := IntToStr(StrToInt(Edit5.Text)-1)+'年12月25日库存'
    else
      FrmYMRep.QRLabel10.Caption := Edit5.Text+'年'+IntToStr(StrToInt(Edit11.Text)-1)+'月25日库存';
    FrmYMRep.QRLabel19.Caption   := Edit5.Text+'年'+Edit11.Text+'月24日结存';
    FrmYMRep.ADOQuery1.SQL.Text  := 'Select * from MonthHaoCai where class='''+clclass+
      ''' and riqi='''+DateToStr(StrToDate(Edit5.Text+'-'+Edit11.Text+'-24'))+'''';
    FrmYMRep.ADOQuery1.Open;
    if FrmYMRep.ADOQuery1.Eof then
    begin
      Application.MessageBox('不存在本月报表','提示',MB_OK);
      Exit;
    end;
    FrmYMRep.QuickRep1.PreviewModal;
  end;

  if ComboBox1.Text = '周' then
  begin
    if WeekOfTheYear(DateTimePicker1.Date) = WeekOfTheYear(DateTimePicker2.Date) then
    begin
      FrmWeekRep := TFrmWeekRep.Create(NIL);
      FrmWeekRep.QRLabel5.Caption := DateToStr(DateTimePicker1.Date);
      FrmWeekRep.QRLabel7.Caption := DateToStr(DateTimePicker2.Date);
      FrmWeekRep.ADOQuery1.SQL.Text := 'Select * from WeekHaoCai where class='''+clclass+
      ''' and nian='+IntToStr(YearOf(DateTimePicker1.Date))+' and zhou='+
      IntToStr(WeekOfTheYear(DateTimepicker1.Date));
      FrmWeekRep.ADOQuery1.Open;
      if FrmWeekRep.ADOQuery1.Eof then
      begin
        Application.MessageBox('不存在本周明细表','提示',MB_OK);
        Exit;
      end;
      FrmWeekRep.QuickRep1.PreviewModal;
    end
    else
    begin
      Application.MessageBox('两次的时间不在同一周！'+chr(13)+chr(10)+'请选择本周的第一天和最后一天','错误',MB_OK OR MB_ICONERROR);
      Exit;
    end;
  end;
  FreeAndNil(FrmWeekRep);
  FreeAndNil(FrmYMRep);
end;

procedure Tfrmmain.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Edit11KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Button8Click(Sender: TObject);
begin
  if ComboBox1.Text = '' then
  begin
    Application.MessageBox('请选择查询条件。','提示',MB_OK or MB_ICONINFORMATION);
    Exit;
  end;
  if ComboBox1.Text = '年' then
  begin
    if Edit5.Text = '' then
    begin
      Application.MessageBox('请输入年份。','提示',MB_OK or MB_ICONINFORMATION);
      Exit;
    end;
    Querywyp.SQL.Text := 'Select * from YearHaoCai where class='''+clclass+
      ''' and nian='+Edit5.Text;
    Querywyp.Open;
    if Querywyp.Eof then
      Application.MessageBox('不存在您所查询的记录!','提示',MB_OK);
  end;
  if ComboBox1.Text = '月' then
  begin
    if Trim(Edit11.Text) = '' then
      Exit;
    if (Edit5.Text = '') or( StrToInt(Edit11.Text) = 0 )or (Edit11.Text = '') or(StrToInt(Edit11.Text) > 12) then
    begin
      Application.MessageBox('请输入年份和月份。','提示',MB_OK or MB_ICONINFORMATION);
      Exit;
    end;
    Querywyp.SQL.Text := 'Select * from MonthHaoCai where class='''+clclass+
      ''' and riqi='''+DateToStr(StrToDate(Edit5.Text+'-'+Edit11.Text+'-24'))+'''';
    Querywyp.Open;
    if Querywyp.Eof then
      Application.MessageBox('不存在您所查询的记录!','提示',MB_OK);
  end;
  if ComboBox1.Text = '周' then
  begin
    if WeekOfTheYear(DateTimePicker1.Date) <> WeekOfTheYear(DateTimePicker2.Date) then
    begin
      Application.MessageBox('两次的时间不在同一周!'+chr(13)+chr(10)+'请选择本周的第一天和最后一天','错误',MB_OK OR MB_ICONERROR);
      Exit;
    end;
    Querywyp.SQL.Text := 'Select * from WeekHaoCai where class='''+clclass+
      ''' and nian='+IntToStr(YearOf(DateTimePicker1.Date))+' and zhou='+
      IntToStr(WeekOfTheYear(DateTimepicker1.Date));
    Querywyp.Open;
    if Querywyp.Eof then
      Application.MessageBox('不存在您所查询的记录!','提示',MB_OK);
  end;
end;

procedure Tfrmmain.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Edit14KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Edit10KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;

procedure Tfrmmain.Edit16KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8] ) then
    key:=#0;
end;
💿 文件大小 715 K
👤 上传用户 ABC258369000
📂 所属分类多国语言处理
🏷️ 相关标签

#材料 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -