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

📄 mainunit.pas

📁 通过delphi和sql的使用
💻 PAS
📖 第 1 页 / 共 3 页
字号:
🔍
123 
  FirstSubMenu.Enabled:=False;
  priorsubmenu.Enabled:=False;
  NextSubMenu.Enabled:=true;
  LastSubMenu.Enabled:=true;
  ModiSubMenu.Enabled:=true;
  AddSubMenu.Enabled:=True;
  SaveSubMenu.Enabled:=false;
  CancelSubMenu.Enabled:=false;
  DelSubMenu.Enabled:=True;
  PrintSubMenu.Enabled:=True;

end;

procedure TMainForm.PriorSubMenuClick(Sender: TObject);
begin
  if not ADOTable2.Active then exit;
  ADOTable2.Prior;
  showrecord;

  if ADOTable2.Bof then
  begin
    FirstBtn.Enabled:=false;
    priorBtn.Enabled:=False;
    NextBtn.Enabled:=true;
    LastBtn.Enabled:=true;
    ModifBtn.Enabled:=true;
    AddBtn.Enabled:=True;
    SaveBtn.Enabled:=false;
    DelBtn.Enabled:=True;
    PrintBtn.Enabled:=True;

    FirstSubMenu.Enabled:=False;
    priorsubmenu.Enabled:=False;
    NextSubMenu.Enabled:=true;
    LastSubMenu.Enabled:=true;
    ModiSubMenu.Enabled:=true;
    AddSubMenu.Enabled:=True;
    SaveSubMenu.Enabled:=false;
    DelSubMenu.Enabled:=True;
    PrintSubMenu.Enabled:=True;

    CancelBtn.Enabled:=false;
    CancelSubMenu.Enabled:=false;
  end else begin
    FirstBtn.Enabled:=true;
    priorBtn.Enabled:=true;
    NextBtn.Enabled:=true;
    LastBtn.Enabled:=true;
    ModifBtn.Enabled:=true;
    AddBtn.Enabled:=True;
    SaveBtn.Enabled:=false;
    DelBtn.Enabled:=True;
    PrintBtn.Enabled:=True;

    FirstSubMenu.Enabled:=true;
    priorsubmenu.Enabled:=true;
    NextSubMenu.Enabled:=true;
    LastSubMenu.Enabled:=true;
    ModiSubMenu.Enabled:=true;
    AddSubMenu.Enabled:=True;
    SaveSubMenu.Enabled:=false;
    DelSubMenu.Enabled:=True;
    PrintSubMenu.Enabled:=True;

    CancelBtn.Enabled:=false;
    CancelSubMenu.Enabled:=false;
  end;
end;

procedure TMainForm.NextSubMenuClick(Sender: TObject);
begin
  if not ADOTable2.Active then exit;
  ADOTable2.Next;
  showrecord;

  if ADOTable2.Eof then
  begin
    FirstBtn.Enabled:=true;
    priorBtn.Enabled:=true;
    NextBtn.Enabled:=false;
    LastBtn.Enabled:=false;
    ModifBtn.Enabled:=true;
    AddBtn.Enabled:=True;
    SaveBtn.Enabled:=false;
    DelBtn.Enabled:=True;
    PrintBtn.Enabled:=True;

    FirstSubMenu.Enabled:=true;
    priorsubmenu.Enabled:=true;
    NextSubMenu.Enabled:=false;
    LastSubMenu.Enabled:=false;
    ModiSubMenu.Enabled:=true;
    AddSubMenu.Enabled:=True;
    SaveSubMenu.Enabled:=false;
    DelSubMenu.Enabled:=True;
    PrintSubMenu.Enabled:=True;
    CancelBtn.Enabled:=false;
    CancelSubMenu.Enabled:=false;
  end else begin
    FirstBtn.Enabled:=true;
    priorBtn.Enabled:=true;
    NextBtn.Enabled:=true;
    LastBtn.Enabled:=true;
    ModifBtn.Enabled:=true;
    AddBtn.Enabled:=True;
    SaveBtn.Enabled:=false;
    DelBtn.Enabled:=True;
    PrintBtn.Enabled:=True;

    FirstSubMenu.Enabled:=true;
    priorsubmenu.Enabled:=true;
    NextSubMenu.Enabled:=true;
    LastSubMenu.Enabled:=true;
    ModiSubMenu.Enabled:=true;
    AddSubMenu.Enabled:=True;
    SaveSubMenu.Enabled:=false;
    DelSubMenu.Enabled:=True;
    PrintSubMenu.Enabled:=True;
    CancelBtn.Enabled:=false;
    CancelSubMenu.Enabled:=false;
  end;
end;

procedure TMainForm.LastSubMenuClick(Sender: TObject);
begin
  if not ADOTable2.Active then exit;
  ADOTable2.Last;
  showrecord;

  FirstBtn.Enabled:=true;
  priorBtn.Enabled:=true;
  NextBtn.Enabled:=false;
  LastBtn.Enabled:=false;
  ModifBtn.Enabled:=true;
  AddBtn.Enabled:=True;
  SaveBtn.Enabled:=false;
  DelBtn.Enabled:=True;
  PrintBtn.Enabled:=True;

  FirstSubMenu.Enabled:=true;
  priorsubmenu.Enabled:=true;
  NextSubMenu.Enabled:=false;
  LastSubMenu.Enabled:=false;
  ModiSubMenu.Enabled:=true;
  AddSubMenu.Enabled:=True;
  SaveSubMenu.Enabled:=false;
  DelSubMenu.Enabled:=True;
  PrintSubMenu.Enabled:=True;
  CancelBtn.Enabled:=false;
  CancelSubMenu.Enabled:=false;
end;

procedure TMainForm.DBGrid1CellClick(Column: TColumn);
begin
   if not ADOTable2.Active then exit;
   showrecord;

  if ADOTable2.Eof then
  begin
    FirstBtn.Enabled:=true;
    priorBtn.Enabled:=true;
    NextBtn.Enabled:=false;
    LastBtn.Enabled:=false;
    ModifBtn.Enabled:=true;
    AddBtn.Enabled:=True;
    SaveBtn.Enabled:=false;
    DelBtn.Enabled:=True;
    PrintBtn.Enabled:=True;

    FirstSubMenu.Enabled:=true;
    priorsubmenu.Enabled:=true;
    NextSubMenu.Enabled:=false;
    LastSubMenu.Enabled:=false;
    ModiSubMenu.Enabled:=true;
    AddSubMenu.Enabled:=True;
    SaveSubMenu.Enabled:=false;
    DelSubMenu.Enabled:=True;
    PrintSubMenu.Enabled:=True;
    CancelBtn.Enabled:=false;
    CancelSubMenu.Enabled:=false;
  end else begin
    FirstBtn.Enabled:=true;
    priorBtn.Enabled:=true;
    NextBtn.Enabled:=true;
    LastBtn.Enabled:=true;
    ModifBtn.Enabled:=true;
    AddBtn.Enabled:=True;
    SaveBtn.Enabled:=false;
    DelBtn.Enabled:=True;
    PrintBtn.Enabled:=True;

    FirstSubMenu.Enabled:=true;
    priorsubmenu.Enabled:=true;
    NextSubMenu.Enabled:=true;
    LastSubMenu.Enabled:=true;
    ModiSubMenu.Enabled:=true;
    AddSubMenu.Enabled:=True;
    SaveSubMenu.Enabled:=false;
    DelSubMenu.Enabled:=True;
    PrintSubMenu.Enabled:=True;
    CancelBtn.Enabled:=false;
    CancelSubMenu.Enabled:=false;
  end;   
end;

procedure TMainForm.showrecord;
begin
   if not ADOTable2.Active then exit;
   if ADOTable2.RecordCount=0 then exit;
   DateTimePicker1.Date:=ADOTable2.Fields[0].AsDateTime;
   Edit2.Text:=ADOTable2.Fields[1].AsString;
   Edit3.Text:=ADOTable2.Fields[2].AsString;
   Memo1.Clear;
   Memo1.Text:=ADOTable2.Fields[3].AsString;

end;

procedure TMainForm.AddSubMenuClick(Sender: TObject);
begin
    if not ADOTable2.Active then exit;
    FirstBtn.Enabled:=false;
    priorBtn.Enabled:=false;
    NextBtn.Enabled:=false;
    LastBtn.Enabled:=false;
    ModifBtn.Enabled:=false;
    AddBtn.Enabled:=false;
    SaveBtn.Enabled:=true;
    CancelBtn.Enabled:=true;
    DelBtn.Enabled:=false;
    PrintBtn.Enabled:=false;

    FirstSubMenu.Enabled:=false;
    priorsubmenu.Enabled:=false;
    NextSubMenu.Enabled:=false;
    LastSubMenu.Enabled:=false;
    ModiSubMenu.Enabled:=false;
    AddSubMenu.Enabled:=false;
    SaveSubMenu.Enabled:=true;
    CancelSubMenu.Enabled:=true;
    DelSubMenu.Enabled:=false;
    PrintSubMenu.Enabled:=false;
    passsubmenu.Enabled:=false;
    CompressSubMenu.Enabled:=false;
    RepairSubMenu.Enabled:=False;
    ExcelSubMenu.Enabled:=false;

    DateTimePicker1.Date:=date;
    with edit2 do begin
        clear;
        text:='0.00';
        ReadOnly:=false;
    end;

    with edit3 do begin
        clear;
        text:='0.00';
        ReadOnly:=false;
    end;

    with memo1 do begin
        clear;
        ReadOnly:=false;
    end;

    isadd:=1;
end;

procedure TMainForm.ModiSubMenuClick(Sender: TObject);
begin
   if not ADOTable2.Active then exit;
    FirstBtn.Enabled:=false;
    priorBtn.Enabled:=false;
    NextBtn.Enabled:=false;
    LastBtn.Enabled:=false;
    ModifBtn.Enabled:=false;
    AddBtn.Enabled:=false;
    SaveBtn.Enabled:=true;
    CancelBtn.Enabled:=true;
    DelBtn.Enabled:=false;
    PrintBtn.Enabled:=false;

    FirstSubMenu.Enabled:=false;
    priorsubmenu.Enabled:=false;
    NextSubMenu.Enabled:=false;
    LastSubMenu.Enabled:=false;
    ModiSubMenu.Enabled:=false;
    AddSubMenu.Enabled:=false;
    SaveSubMenu.Enabled:=true;
    CancelSubMenu.Enabled:=true;
    DelSubMenu.Enabled:=false;
    PrintSubMenu.Enabled:=false;
    passsubmenu.Enabled:=false;
    CompressSubMenu.Enabled:=false;
    RepairSubMenu.Enabled:=False;
    ExcelSubMenu.Enabled:=false;

   edit2.ReadOnly:=false;
   edit3.ReadOnly:=false;
   memo1.ReadOnly:=false;

   isadd:=2;
end;

procedure TMainForm.SaveSubMenuClick(Sender: TObject);
begin
   if not ADOTable2.Active then exit;
   if isadd=1 then begin                    //如果是新增
      with ADOTable2 do
      begin
         append;
         FieldByName('Date').AsDateTime:=DateTimePicker1.Date;
         FieldByName('InAccount').AsFloat:=strtofloat(edit2.Text);
         FieldByName('OutAccount').AsFloat:=strtofloat(edit3.Text);
         FieldByName('Remark').AsString:=Memo1.Text;
         post;
      end;
   end;

   if isadd=2 then begin               //如是是修改
       ADOTable2.Edit;
       ADOTable2.FieldByName('Date').AsDateTime:=DateTimePicker1.Date;
       ADOTable2.FieldByName('InAccount').AsFloat:=strtofloat(edit2.Text);
       ADOTable2.FieldByName('OutAccount').AsFloat:=strtofloat(edit3.Text);
       ADOTable2.FieldByName('Remark').AsString:=memo1.Text;
       ADOTable2.Post;
   end;

    FirstBtn.Enabled:=true;
    priorBtn.Enabled:=true;
    NextBtn.Enabled:=true;
    LastBtn.Enabled:=true;
    ModifBtn.Enabled:=true;
    AddBtn.Enabled:=true;
    SaveBtn.Enabled:=false;
    CancelBtn.Enabled:=false;
    DelBtn.Enabled:=true;
    PrintBtn.Enabled:=true;

    FirstSubMenu.Enabled:=true;
    priorsubmenu.Enabled:=true;
    NextSubMenu.Enabled:=true;
    LastSubMenu.Enabled:=true;
    ModiSubMenu.Enabled:=true;
    AddSubMenu.Enabled:=true;
    SaveSubMenu.Enabled:=false;
    CancelSubMenu.Enabled:=false;
    DelSubMenu.Enabled:=true;
    PrintSubMenu.Enabled:=true;
    passsubmenu.Enabled:=true;
    CompressSubMenu.Enabled:=true;
    RepairSubMenu.Enabled:=true;
    ExcelSubMenu.Enabled:=true;

   edit2.ReadOnly:=true;
   edit3.ReadOnly:=true;
   memo1.ReadOnly:=true;

   isadd:=0;

   showrecord;
   showMoney;

end;

procedure TMainForm.DelSubMenuClick(Sender: TObject);
begin
   if not ADOTable2.Active then exit;
   if messagedlg('确定删除当前记录吗？',mtInformation,[mbYes,mbNo],0)<>mrYes
   then begin
       exit;
   end;
   ADOTable2.Delete;

   showrecord;
   showmoney;

end;

procedure TMainForm.CancelSubMenuClick(Sender: TObject);
begin
    if (ADOTable2.State=dsEdit) or (ADOTable2.State=dsInsert) then
        ADOTable2.Cancel;
123

⌨️ 快捷键说明

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