⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ybdycx.pas

📁 希望大家能多多指教这是我给我们同学编的系统
💻 PAS
字号:
🔍 
unit ybdycx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, ComCtrls, QRCtrls,
  QuickRpt, ExtCtrls;

type
  Tybdycxform = class(TForm)
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGrid1: TDBGrid;
    Table1: TTable;
    Query1: TQuery;
    Query1Banji: TStringField;
    Query1Xingming: TStringField;
    Query1Xingbie: TStringField;
    Query1Minzu: TStringField;
    Query1Xueli: TStringField;
    Query1Peiyangren: TStringField;
    Table1Banji: TStringField;
    Table1Xingming: TStringField;
    Table1Xingbie: TStringField;
    Table1Minzu: TStringField;
    Table1Xueli: TStringField;
    Table1Peiyangren: TStringField;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    GroupBox2: TGroupBox;
    CheckBox1: TCheckBox;
    Edit8: TEdit;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Edit9: TEdit;
    ComboBox1: TComboBox;
    CheckBox4: TCheckBox;
    Edit10: TEdit;
    CheckBox5: TCheckBox;
    Edit11: TEdit;
    GroupBox3: TGroupBox;
    Button5: TButton;
    Button6: TButton;
    DBGrid2: TDBGrid;
    Table2: TTable;
    DataSource2: TDataSource;
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRBand2: TQRBand;
    QRBand3: TQRBand;
    QRLabel1: TQRLabel;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRDBText1: TQRDBText;
    QRDBText2: TQRDBText;
    QRDBText3: TQRDBText;
    QRDBText4: TQRDBText;
    QRDBText5: TQRDBText;
    QRDBText6: TQRDBText;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ybdycxform: Tybdycxform;

implementation

{$R *.dfm}

procedure Tybdycxform.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.Params.Clear ;
Query1.SQL.Clear ;
Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString:=Edit1.Text ;
Query1.SQL.Add('Select * from yubeidangyuan where xingming=:xm;');
Query1.ExecSQL ;
Query1.Open ;
if Query1.RecordCount =1 then
   begin
     Edit2.Text :=Query1Banji.Value;
     Edit3.Text :=Query1xingming.Value ;
     Edit4.Text :=Query1xingbie.Value ;
     Edit5.Text :=Query1minzu.Value ;
     Edit6.Text :=Query1Xueli.Value ;
     Edit7.Text :=Query1Peiyangren.Value ;
     Edit2.SetFocus ;
     Edit2.Focused ;
 end
else
  begin
  messagebeep(1);
  MessageDlg('姓名为'+Edit1.text+'的学生没有找到!可能是该学生不存在!',mtWarning,[mbOk],0);
  Edit1.Clear ;
  Edit1.SetFocus ;
  Edit1.Focused ;
  end;

end;

procedure Tybdycxform.Button2Click(Sender: TObject);
begin
if MessageDlg('确认要删除姓名为 '+Edit3.Text +' 的信息吗?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
     exit
  else
  begin
       Query1.Close ;
        Query1.Params.Clear ;
        Query1.SQL.Clear ;
        Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString:=Edit3.Text ;
        Query1.SQL.Add('delete from yubeidangyuan where xingming=:xm;');
        Query1.ExecSQL ;
        messagebeep(1);
        showmessage('学生为'+Edit1.Text+'已经成功删除!');
        Edit1.Clear ;
        Edit2.Clear ;
        Edit3.Clear ;
        Edit4.Clear ;
        Edit5.Clear ;
        Edit6.Clear ;
        edit7.Clear;
        Edit1.SetFocus ;
        Edit1.Focused ;
        table1.Refresh;
  end;
end;

procedure Tybdycxform.Button3Click(Sender: TObject);
begin
  if MessageDlg('确认要修改姓名为 '+Edit1.Text +' 的信息吗?',mtConfirmation,[mbYes,mbNo],0)=mrNo then
     exit
  else
  begin
   Query1.close;
   Query1.Params.Clear ;
   Query1.SQL.Clear ;
   Query1.Params.CreateParam(ftstring,'bj',ptinput).AsString :=Edit2.Text ;
   Query1.Params.CreateParam(ftstring,'xm',ptinput).AsString :=Edit3.Text ;
   Query1.Params.CreateParam(ftstring,'xb',ptinput).AsString :=Edit4.Text ;
   Query1.Params.CreateParam(ftstring,'mz',ptinput).AsString :=Edit5.Text ;
   Query1.Params.CreateParam(ftstring,'xl',ptinput).AsString :=Edit6.Text;
   Query1.Params.CreateParam(ftstring,'pyr',ptinput).AsString :=Edit7.Text;

   Query1.Params.CreateParam(ftstring,'xm1',ptinput).AsString :=Edit1.Text ;
   Query1.SQL.Add('update yubeidangyuan set banji=:bj,xingming=:xm,xingbie=:xb,minzu=:mz,xueli=:xl,peiyangren=:pyr where xingming=:xm1');
   Query1.ExecSQL ;
   messagebeep(1);
   showmessage('姓名为'+Edit3.Text+'的信息已经修改完毕!');
   Edit1.Clear ;
   Edit2.Clear ;
    Edit3.Clear ;
   Edit4.Clear ;
   Edit5.Clear ;
   Edit6.Clear ;
   edit7.Clear ;
   Edit1.SetFocus ;
   Edit1.Focused ;
   table1.Refresh;

  end;
end;

procedure Tybdycxform.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked then
    begin
      edit8.Enabled :=True;
      edit8.Color:=clWindow;
    end
 else
    begin
      edit8.Enabled :=False;
      edit8.Color:=clBtnFace;
    end;
end;

procedure Tybdycxform.CheckBox2Click(Sender: TObject);
begin
if CheckBox2.Checked then
    begin
      ComboBox1.Enabled :=True;
      ComboBox1.Color:=clWindow;
    end
 else
    begin
      ComboBox1.Enabled :=False;
      combobox1.Color:=clBtnFace;
    end;
end;

procedure Tybdycxform.CheckBox3Click(Sender: TObject);
begin
if CheckBox3.Checked then
    begin
      edit9.Enabled :=True;
      edit9.Color:=clWindow;
    end
 else
    begin
      edit9.Enabled :=False;
      edit9.Color:=clBtnFace;
    end;
end;

procedure Tybdycxform.CheckBox4Click(Sender: TObject);
begin
if CheckBox4.Checked then
    begin
     edit10.Enabled :=True;
     edit10.Color:=clWindow;
    end
 else
    begin
      edit10.Enabled :=False;
      edit10.Color:=clBtnFace;
    end;
end;

procedure Tybdycxform.CheckBox5Click(Sender: TObject);
begin
if CheckBox5.Checked then
    begin
      edit11.Enabled :=True;
      edit11.Color:=clWindow;
    end
 else
    begin
      edit11.Enabled :=False;
      edit11.Color:=clBtnFace;
    end;
end;

procedure Tybdycxform.Button5Click(Sender: TObject);
var str:string;
    yes:boolean;
begin
yes:=False;
  str:='select * from yubeidangyuan where ';
  Query1.Close;
  Query1.Params.Clear ;
  Query1.SQL.Clear ;
  if checkbox1.Checked  and (edit8.Text <>'') then
     begin
     Query1.Params.CreateParam(ftstring,'bj',ptinput).AsString:=edit8.Text ;
     str:=str+'banji=:bj ';
     yes:=True;
     end;
  if checkbox2.Checked  and (ComboBox1.Text <>'') then
     begin
        Query1.Params.CreateParam(ftstring,'xb',ptinput).AsString :=ComboBox1.Text ;
        if not yes then
           begin
             str:=str+'xingbie=:xb ';
             yes:=true;
           end
        else
          str:=str+'and xingbie=:xb ';
      end;
       if checkbox3.Checked  and (edit9.Text <>'') then
     begin
        Query1.Params.CreateParam(ftstring,'mz',ptinput).AsString :=Edit9.Text;
        if not yes then
          begin
            str:=str+'minzu=:mz ';
            yes:=True;
          end
        else
          str:=str+'and minzu=:mz';
     end;
          if checkbox4.Checked  and (edit10.Text <>'') then
     begin
        Query1.Params.CreateParam(ftstring,'xl',ptinput).AsString :=Edit10.Text;
        if not yes then
          begin
            str:=str+'xueli=:xl ';
            yes:=True;
          end
        else
          str:=str+'and xueli=:xl';
     end;
          if checkbox5.Checked  and (edit11.Text <>'') then
     begin
        Query1.Params.CreateParam(ftstring,'pyr',ptinput).AsString :=Edit11.Text;
        if not yes then
          begin
            str:=str+'peiyangren=:pyr ';
            yes:=True;
          end
        else
          str:=str+'and peiyangren=:pyr';
     end;

     if not yes then
    begin
     MessageDlg('你 "未" 选中任何查询条件，查询无法继续，请至少选中一个条件!'+#10+#13+#10+'谢谢合作!   Enjoy!    ~_~',mtWarning,[mbOk],0);
     exit;
    end;

  Query1.SQL.Add(str);
  try
    begin
      Query1.Open;
      if Query1.RecordCount=0 then
         messageDlg('查询已经进行，但是未找到相关的数据!',mtWarning,[mbOk],0)
      else
         showmessage('找到相关数据！');
    end
  Except
    MessageDlg('发生系统错误！',mtWarning,[mbOk],0)
  end;
end;

procedure Tybdycxform.Button6Click(Sender: TObject);
begin
QuickRep1.Preview;
end;

procedure Tybdycxform.Button4Click(Sender: TObject);
begin
close;
end;

end.

⌨️ 快捷键说明

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